[Koha-cvs] koha/barcodes label-home.pl label-manager.pl la... [rel_2_2]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Joshua Ferraro <kados>	06/07/20 15:30:16

Modified files:
	barcodes       : label-home.pl label-manager.pl label-print.pl 

Log message:
	adding support for subclass and itemcallnumber

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-home.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.3&r2=1.1.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-manager.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.2&r2=1.1.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.2&r2=1.1.2.3

Patches:
Index: label-home.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-home.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- label-home.pl	19 Jul 2006 01:37:23 -0000	1.1.2.3
+++ label-home.pl	20 Jul 2006 15:30:16 -0000	1.1.2.4
@@ -48,6 +48,8 @@
     isbn        => $data->{'isbn'},
     dewey       => $data->{'dewey'},
     class       => $data->{'class'},
+	subclass	=> $data->{'subclass'},
+	itemcallnumber => $data->{'itemcallnumber'},
     startrow    => $data->{'startrow'},
 
     intranetcolorstylesheet =>

Index: label-manager.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-manager.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- label-manager.pl	19 Jul 2006 01:37:23 -0000	1.1.2.2
+++ label-manager.pl	20 Jul 2006 15:30:16 -0000	1.1.2.3
@@ -18,6 +18,8 @@
 my $bcn          = $query->param('bcn');
 my $dcn          = $query->param('dcn');
 my $classif      = $query->param('classif');
+my $itemcallnumber   = $query->param('itemcallnumber');
+my $subclass	 = $query->param('subclass');
 my $author       = $query->param('author');
 my $papertype    = $query->param('papertype');
 my $itemnumber   = $query->param('itemnumber');
@@ -46,14 +48,15 @@
     $sth2->finish;
     my $query2 = "INSERT INTO labels_conf 
 			( barcodetype, title, isbn, itemtype, barcode, 	
-			  dewey, class, author, papertype, printingtype, 
+			  dewey, class, subclass, itemcallnumber, author, papertype, printingtype, 
 				guidebox, startrow)
-			   values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )";
+			   values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )";
     my $sth2 = $dbh->prepare($query2);
     $sth2->execute(
         $barcodetype, $title,        $isbn,     $itemtype,
-        $bcn,         $dcn,          $classif,  $author,
-        $papertype,   $printingtype, $guidebox, $startrow
+        $bcn,         $dcn,          $classif,  $subclass,
+		$itemcallnumber,    $author, $papertype,$printingtype,
+		$guidebox, $startrow
     );
     $sth2->finish;
 

Index: label-print.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- label-print.pl	19 Jul 2006 01:37:23 -0000	1.1.2.2
+++ label-print.pl	20 Jul 2006 15:30:16 -0000	1.1.2.3
@@ -113,7 +113,6 @@
 
     resultsloop             => \@resultsloop,
 
-
  	  itemtype_opt => $conf_data->{'itemtype'},
           papertype_opt => $conf_data->{'papertype'},
           author_opt => $conf_data->{'author'},
@@ -124,6 +123,8 @@
           isbn_opt => $conf_data->{'isbn'},
           dewey_opt => $conf_data->{'dewey'},
           class_opt => $conf_data->{'class'},
+		  subclass_opt => $conf_data->{'subclass'},
+		  itemcallnumber_opt => $conf_data->{'itemcallnumber'},