7 use C4::Interface::CGI::Output;
14 my ($template, $loggedinuser, $cookie)
15 = get_template_and_user({template_name => "catalogue/catalogue-home.tmpl",
19 flagsrequired => {catalogue => 1},
23 my ($branchcount,@branches)=branches();
24 my ($itemtypecount,@itemtypes)=getitemtypes();
27 my $dbh=C4::Context->dbh;
28 my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
30 while (my ($description,$itemtype) = $sth->fetchrow) {
31 $classlist.="<option value=\"$itemtype\">$description\n";
34 $template->param(classlist => $classlist,
37 itemtypes=>\@itemtypes);
39 output_html_with_http_headers $query, $cookie, $template->output;