7 use C4::Interface::CGI::Output;
12 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
14 template_name => "barcodes/label-home.tmpl",
18 flagsrequired => { catalogue => 1 },
23 my $dbh = C4::Context->dbh;
24 my $query2 = "SELECT * FROM labels_conf LIMIT 1";
25 my $sth = $dbh->prepare($query2);
28 my $data = $sth->fetchrow_hashref;
31 # next line passes a var like 'EAN13_cheched' to the tmpl ,
32 # which makes the barcodetype sticky in the dropbox
34 $template->param( "$data->{'barcodetype'}_checked" => 1 );
35 $template->param( "startrow" . $data->{'startrow'} . "_checked" => 1 );
37 itemtype => $data->{'itemtype'},
38 papertype => $data->{'papertype'},
39 author => $data->{'author'},
40 barcode => $data->{'barcode'},
42 barcodetype => $data->{'barcodetype'},
43 title => $data->{'title'},
44 isbn => $data->{'isbn'},
45 dewey => $data->{'dewey'},
46 class => $data->{'class'},
47 startrow => $data->{'startrow'},
48 intranetcolorstylesheet =>
49 C4::Context->preference("intranetcolorstylesheet"),
50 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
51 IntranetNav => C4::Context->preference("IntranetNav"),
53 output_html_with_http_headers $query, $cookie, $template->output;