[Koha-cvs] koha label-home.pl [rel_2_2]

Joshua Ferraro jmf at kados.org
Thu Jul 20 17:48:41 CEST 2006


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

Modified files:
	.              : label-home.pl 

Log message:
	re-moving label-home.pl to the right spot ...

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

Patches:
Index: label-home.pl
===================================================================
RCS file: /sources/koha/koha/Attic/label-home.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- label-home.pl	13 Apr 2006 19:34:17 -0000	1.1.2.1
+++ label-home.pl	20 Jul 2006 15:48:40 -0000	1.1.2.2
@@ -8,6 +8,8 @@
 use C4::Context;
 use HTML::Template;
 
+#use Data::Dumper;
+
 my $query = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
@@ -28,8 +30,10 @@
 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 );
@@ -44,10 +48,14 @@
     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;





More information about the Koha-cvs mailing list