[sword-svn] r2424 - trunk/utilities/diatheke/tcl

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-06-03 22:25:43 -0700 (Wed, 03 Jun 2009)
New Revision: 2424

Modified:
   trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl
Log:
added skeletal (just the KJV) books .tcl file


Modified: trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl
===================================================================
--- trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl	2009-06-04 04:57:53 UTC (rev 2423)
+++ trunk/utilities/diatheke/tcl/biblebot-diatheke-books.tcl	2009-06-04 05:25:43 UTC (rev 2424)
@@ -0,0 +1,15 @@
+bind pub - !KJV setver_KJV
+
+proc setver_KJV {nick uhost hand channel arg} {
+    global botnick chan bibver
+    set bibver KJV
+    pub_lookup $nick $uhost $hand $channel $arg
+}
+
+bind pub - !sKJS setver_sKJV
+
+proc setver_sKJV {nick uhost hand channel arg} {
+    global botnick chan bibver
+    set bibver KJV
+    pub_lookups $nick $uhost $hand $channel $arg
+}