Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

using C4::Koha getitemtypes sub & not search.pm one (quest for normalization)

Browse source
This commit is contained in:
tipaul 2005-08-12 14:05:34 +00:00
parent d44df0a47d
commit fbad093321
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
catalogue-home.pl
View file

@ -8,6 +8,7 @@ use C4::Interface::CGI::Output;
use C4::Database;
use C4::Acquisition;
use C4::Biblio;
use C4::Koha;
use HTML::Template;
my $query = new CGI;
@ -21,7 +22,15 @@ my ($template, $loggedinuser, $cookie)
});
my ($branchcount,@branches)=branches();
my ($itemtypecount,@itemtypes)=getitemtypes();
my $itemtypes = getitemtypes;
my @itemtypesloop;
foreach my $thisitemtype (keys %$itemtypes) {
my %row =(value => $thisitemtype,
description => $itemtypes->{$thisitemtype}->{'description'},
);
push @itemtypesloop, \%row;
}
my $classlist='';
my $dbh=C4::Context->dbh;
@ -32,8 +41,8 @@ while (my ($description,$itemtype) = $sth->fetchrow) {
}
$template->param(classlist => $classlist,
type => 'intranet',
branches=>\@branches,
itemtypes=>\@itemtypes);
type => 'intranet',
branches=>\@branches,
itemtypeloop => \@itemtypesloop);
output_html_with_http_headers $query, $cookie, $template->output;