From 82ee6bcb60549852934a5c37bc5bd5877b227964 Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Thu, 20 Jul 2006 15:48:40 +0000
Subject: [PATCH] re-moving label-home.pl to the right spot ...

---
 label-home.pl | 34 +++++++++++++++++++++-------------
 1 file changed, 21 insertions(+), 13 deletions(-)

diff --git a/label-home.pl b/label-home.pl
index d9e3146f84..275c86de77 100755
--- a/label-home.pl
+++ b/label-home.pl
@@ -8,6 +8,8 @@ use C4::Interface::CGI::Output;
 use C4::Context;
 use HTML::Template;
 
+#use Data::Dumper;
+
 my $query = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
@@ -28,26 +30,32 @@ $sth->execute();
 my $data = $sth->fetchrow_hashref;
 $sth->finish;
 
-# next line passes a var like 'EAN13_cheched' to the tmpl ,
-# which makes the barcodetype sticky in the dropbox
+$template->param( guidebox => 1 ) if ( $data->{'guidebox'} );
+
+$data->{'printingtype'} = 'both' if ( !$data->{'printingtype'} );
+$template->param( "printingtype_$data->{'printingtype'}" => 1 );
 
 $template->param( "$data->{'barcodetype'}_checked"              => 1 );
 $template->param( "startrow" . $data->{'startrow'} . "_checked" => 1 );
 $template->param(
-    itemtype                => $data->{'itemtype'},
-    papertype               => $data->{'papertype'},
-    author                  => $data->{'author'},
-    barcode                 => $data->{'barcode'},
-    id                      => $data->{'id'},
-    barcodetype             => $data->{'barcodetype'},
-    title                   => $data->{'title'},
-    isbn                    => $data->{'isbn'},
-    dewey                   => $data->{'dewey'},
-    class                   => $data->{'class'},
-    startrow                => $data->{'startrow'},
+    itemtype    => $data->{'itemtype'},
+    papertype   => $data->{'papertype'},
+    author      => $data->{'author'},
+    barcode     => $data->{'barcode'},
+    id          => $data->{'id'},
+    barcodetype => $data->{'barcodetype'},
+    title       => $data->{'title'},
+    isbn        => $data->{'isbn'},
+    dewey       => $data->{'dewey'},
+    class       => $data->{'class'},
+	subclass	=> $data->{'subclass'},
+	itemcallnumber => $data->{'itemcallnumber'},
+    startrow    => $data->{'startrow'},
+
     intranetcolorstylesheet =>
       C4::Context->preference("intranetcolorstylesheet"),
     intranetstylesheet => C4::Context->preference("intranetstylesheet"),
     IntranetNav        => C4::Context->preference("IntranetNav"),
 );
+warn "ITEMCALLNO".$data->{'itemcallnumber'};
 output_html_with_http_headers $query, $cookie, $template->output;
-- 
2.39.5