7 use C4::Interface::CGI::Output;
15 my ($template, $loggedinuser, $cookie)
16 = get_template_and_user({template_name => "catalogue/catalogue-home.tmpl",
20 flagsrequired => {catalogue => 1},
24 my ($branchcount,@branches)=branches();
26 my $itemtypes = getitemtypes;
28 foreach my $thisitemtype (keys %$itemtypes) {
29 my %row =(value => $thisitemtype,
30 description => $itemtypes->{$thisitemtype}->{'description'},
32 push @itemtypesloop, \%row;
36 my $dbh=C4::Context->dbh;
37 my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
39 while (my ($description,$itemtype) = $sth->fetchrow) {
40 $classlist.="<option value=\"$itemtype\">$description\n";
43 $template->param(classlist => $classlist,
46 itemtypeloop => \@itemtypesloop);
48 output_html_with_http_headers $query, $cookie, $template->output;