[Sumover-dev] [svn commit] r4626 - vic/branches/cc

[sumover-dev at cs.ucl.ac.uk]

Author: soohyunc
Date: Fri Feb 19 17:07:25 2010
New Revision: 4626

Modified:
   vic/branches/cc/userset.tcl

Log:
Fixed a Tcl syntax error:
    there was a syntax error in Tcl (string matching)
    - it worked fine somehow on Mac OSX, but not in Linux.



Modified: vic/branches/cc/userset.tcl
==============================================================================
--- vic/branches/cc/userset.tcl	(original)
+++ vic/branches/cc/userset.tcl	Fri Feb 19 17:07:25 2010
@@ -37,8 +37,8 @@
 		set deviceName "still"
 
 		foreach v $inputDeviceList {
-			puts "deviceList: [$inputDeviceList nickname]"
-			if { [$inputDeviceList nickname] == "$deviceName" } {
+			puts "deviceList: [$v nickname]"
+			if { [string last $deviceName [$v nickname]] != -1 } {
 				set videoDevice $v
 				select_device $v
 				$v file "foreman.yuv"