catalogue-home.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use CGI;
   5 use C4::Auth;
   6 use C4::Output;
   7 use C4::Interface::CGI::Output;
   8 use C4::Database;
   9 use C4::Acquisition;
  10 use C4::Biblio;
  11 use C4::Koha;
  12 use HTML::Template;
  13
  14 my $query = new CGI;
  15 my ($template, $loggedinuser, $cookie)
  16     = get_template_and_user({template_name => "catalogue/catalogue-home.tmpl",
  17                              query => $query,
  18                              type => "intranet",
  19                              authnotrequired => 0,
  20                              flagsrequired => {catalogue => 1},
  21                              debug => 1,
  22                              });
  23
  24 my ($branchcount,@branches)=branches();
  25
  26 my $itemtypes = getitemtypes;
  27 my @itemtypesloop;
  28 foreach my $thisitemtype (keys %$itemtypes) {
  29         my %row =(value => $thisitemtype,
  30                                 description => $itemtypes->{$thisitemtype}->{'description'},
  31                         );
  32         push @itemtypesloop, \%row;
  33 }
  34
  35 my $classlist='';
  36 my $dbh=C4::Context->dbh;
  37 my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
  38 $sth->execute;
  39 while (my ($description,$itemtype) = $sth->fetchrow) {
  40     $classlist.="<option value=\"$itemtype\">$description\n";
  41 }
  42
  43 $template->param(classlist => $classlist,
  44                                 type => 'intranet',
  45                                 branches=>\@branches,
  46                                 itemtypeloop => \@itemtypesloop);
  47
  48 output_html_with_http_headers $query, $cookie, $template->output;