gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

re-moving label-home.pl to the right spot ...

This commit is contained in:
kados 2006-07-20 15:48:40 +00:00
parent 288e2f442b
commit 82ee6bcb60
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
label-home.pl
View File

@ -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;