[Koha-cvs] koha/barcodes label-manager.pl [dev_week]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/07/05 20:58:59

Modified files:
        barcodes       : label-manager.pl 

Log message:
        adding issn.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-manager.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1.2.5&r2=1.1.2.1.2.6

Patches:
Index: label-manager.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-manager.pl,v
retrieving revision 1.1.2.1.2.5
retrieving revision 1.1.2.1.2.6
diff -u -b -r1.1.2.1.2.5 -r1.1.2.1.2.6
--- label-manager.pl    4 Jul 2007 04:00:44 -0000       1.1.2.1.2.5
+++ label-manager.pl    5 Jul 2007 20:58:59 -0000       1.1.2.1.2.6
@@ -9,6 +9,7 @@
 use HTML::Template;
 use POSIX;
 use Data::Dumper;
+use Smart::Comments;
 
 my $dbh            = C4::Context->dbh;
 my $query          = new CGI;
@@ -16,6 +17,7 @@
 my $barcodetype    = $query->param('barcodetype');
 my $title          = $query->param('title');
 my $isbn           = $query->param('isbn');
+my $issn           = $query->param('issn');
 my $itemtype       = $query->param('itemtype');
 my $bcn            = $query->param('bcn');
 my $dcn            = $query->param('dcn');
@@ -48,10 +50,10 @@
 
 if ( $op eq 'save_conf' ) {
     SaveConf(
-        $barcodetype,    $title,  $isbn,    $itemtype,
-        $bcn,            $dcn,    $classif, $subclass,
-        $itemcallnumber, $author, $tmpl_id, $printingtype,
-        $guidebox,       $startlabel
+        $barcodetype,    $title,  $isbn, 
+        $issn,    $itemtype,         $bcn,            $dcn, 
+       $classif, $subclass,         $itemcallnumber,      $author, 
+        $tmpl_id, $printingtype,   $guidebox,       $startlabel
     );
 
 }
@@ -76,16 +78,18 @@
 }
 
 
-elsif ( $op eq 'delete' ) {
-    warn "MASON, deleting label..";
-    my $query2 = "DELETE FROM labels where itemnumber = ?";
-    my $sth2   = $dbh->prepare($query2);
-    $sth2->execute($itemnumber);
-    $sth2->finish;
+elsif ( $op eq 'delete_batch' ) {
+    delete_batch($batch_id);
+}
+
+elsif ( $op eq 'add_batch' ) {
+### iiiiiii
+    add_batch();
 }
 
 
 
+
 #  first lets do a read of the labels table , to get the a list of the
 # currently entered items to be prinited