From d466e7b2074635de7c20f0a4002655ca6a5c4fa5 Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Thu, 20 Jul 2006 15:30:16 +0000
Subject: [PATCH] adding support for subclass and itemcallnumber

---
 barcodes/label-home.pl    |  2 ++
 barcodes/label-manager.pl | 11 +++++++----
 barcodes/label-print.pl   |  5 +++--
 3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/barcodes/label-home.pl b/barcodes/label-home.pl
index ba8ba59273..0c874f069a 100755
--- a/barcodes/label-home.pl
+++ b/barcodes/label-home.pl
@@ -48,6 +48,8 @@ $template->param(
     isbn        => $data->{'isbn'},
     dewey       => $data->{'dewey'},
     class       => $data->{'class'},
+	subclass	=> $data->{'subclass'},
+	itemcallnumber => $data->{'itemcallnumber'},
     startrow    => $data->{'startrow'},
 
     intranetcolorstylesheet =>
diff --git a/barcodes/label-manager.pl b/barcodes/label-manager.pl
index 64e49a475c..6dce56f89a 100755
--- a/barcodes/label-manager.pl
+++ b/barcodes/label-manager.pl
@@ -18,6 +18,8 @@ my $itemtype     = $query->param('itemtype');
 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 @@ if ( $op eq 'save_conf' ) {
     $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;
 
diff --git a/barcodes/label-print.pl b/barcodes/label-print.pl
index 5eac648939..410609c36d 100755
--- a/barcodes/label-print.pl
+++ b/barcodes/label-print.pl
@@ -113,8 +113,7 @@ $template->param(
 
     resultsloop             => \@resultsloop,
 
-
- 	  itemtype_opt => $conf_data->{'itemtype'},
+ 	      itemtype_opt => $conf_data->{'itemtype'},
           papertype_opt => $conf_data->{'papertype'},
           author_opt => $conf_data->{'author'},
           barcode_opt => $conf_data->{'barcode'},
@@ -124,6 +123,8 @@ $template->param(
           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'},