SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Wed Oct  7 22:02:28 2009
New Revision: 10718

Modified:
   toys/stbr/stbr.tcl
Log:
- again fixes
- 0.9.1


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Wed Oct  7 22:02:28 2009
@@ -1,6 +1,6 @@
 # Send To Builder Request TCL by shadzik at pld-linux.org
 
-set versionstr "Send To Builder Request TCL v0.9 by shadzik"
+set versionstr "Send To Builder Request TCL v0.9.1 by shadzik"
 
 set cmdbook "./scripts/cmdbook.txt"
 set logfile "/home/users/stbr/db/stbrlog.db"
@@ -224,23 +224,20 @@
 				set bconds_without [lrange $bsplited 1 end]
 				if {([string match *+* $bcondhalf])} {
 					set bsplited [split $bcondhalf "+"]
-					set bconds_with [lrange $bsplited 0 end]
+					set bconds_with [lrange $bsplited 1 end]
 				}
-			} elseif {([string match *+* $bcondhalf])} {
-				set bsplited [split $bcondhalf "+"]
-				set bconds_with [lrange $bsplited 0 end]
-			}
+			} 
 		} elseif {([string match *-* $bcondhalf])} {
 			set bsplited [split $bcondhalf "-"]
 			set bcondhalf [lindex $bsplited 0]
 			set bconds_without [lrange $bsplited 1 end]
 			if {([string match *+* $bcondhalf])} {
 				set bsplited [split $bcondhalf "+"]
-				set bconds_with [lrange $bsplited 0 end]
+				set bconds_with [lrange $bsplited 1 end]
 			}
-		} else {
+		} elseif {([string match *+* $bcondhalf])} {
 			set bsplited [split $bcondhalf "+"]
-			set bconds_with [lrange $bsplited 0 end]
+			set bconds_with [lrange $bsplited 1 end]
 		}
 	}
 } elseif {([string match *:* $spec])} {