[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/04 04:00:45

Modified files:
        barcodes       : label-manager.pl 

Log message:
        saving item with batchid now

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.4&r2=1.1.2.1.2.5

Patches:
Index: label-manager.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-manager.pl,v
retrieving revision 1.1.2.1.2.4
retrieving revision 1.1.2.1.2.5
diff -u -b -r1.1.2.1.2.4 -r1.1.2.1.2.5
--- label-manager.pl    4 Jul 2007 00:11:48 -0000       1.1.2.1.2.4
+++ label-manager.pl    4 Jul 2007 04:00:44 -0000       1.1.2.1.2.5
@@ -32,11 +32,7 @@
 my $fontsize       = $query->param('fontsize');
 my $batch_id   = $query->param('batch_id');
 
-warn "88888888  $batch_id";
-
-
 warn Dumper $query;
-
 warn "ID =$tmpl_id";
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -60,9 +56,9 @@
 
 }
 elsif ( $op eq 'add' ) {
-    my $query2 = "INSERT INTO labels ( itemnumber ) values ( ? )";
+    my $query2 = "INSERT INTO labels ( itemnumber, batch_id ) values ( ?,? )";
     my $sth2   = $dbh->prepare($query2);
-    $sth2->execute($itemnumber);
+    $sth2->execute($itemnumber, $batch_id);
     $sth2->finish;
 }
 elsif ( $op eq 'deleteall' ) {