SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Thu May 17 01:39:55 2007
New Revision: 8577

Modified:
   toys/stbr/stbr.tcl
Log:
- add branch to database


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Thu May 17 01:39:55 2007
@@ -50,7 +50,7 @@
 set tfile [open $towho r]
 gets $tfile person; append rspecs " (to $person)"
 close $tfile
-exec sqlite $logfile "INSERT INTO application VALUES('$date','$spec','$person','$first');"
+exec sqlite $logfile "INSERT INTO application VALUES('$date','$spec','$branch','$person','$first');"
 }
 putserv "privmsg $chan :$nick: Sent STBR Mail, an $first will be performed for $rspecs."
 if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; return 1}