[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha catalogue-home.pl,1.11,1.12
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha catalogue-home.pl,1.11,1.12 |
Date: |
Fri, 12 Aug 2005 07:05:36 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8813
Modified Files:
catalogue-home.pl
Log Message:
using C4::Koha getitemtypes sub & not search.pm one (quest for normalization)
Index: catalogue-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/catalogue-home.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** catalogue-home.pl 13 Jul 2004 12:55:01 -0000 1.11
--- catalogue-home.pl 12 Aug 2005 14:05:34 -0000 1.12
***************
*** 9,12 ****
--- 9,13 ----
use C4::Acquisition;
use C4::Biblio;
+ use C4::Koha;
use HTML::Template;
***************
*** 22,26 ****
my ($branchcount,@branches)=branches();
! my ($itemtypecount,@itemtypes)=getitemtypes();
my $classlist='';
--- 23,35 ----
my ($branchcount,@branches)=branches();
!
! my $itemtypes = getitemtypes;
! my @itemtypesloop;
! foreach my $thisitemtype (keys %$itemtypes) {
! my %row =(value => $thisitemtype,
! description =>
$itemtypes->{$thisitemtype}->{'description'},
! );
! push @itemtypesloop, \%row;
! }
my $classlist='';
***************
*** 33,39 ****
$template->param(classlist => $classlist,
! type => 'intranet',
! branches=>address@hidden,
! itemtypes=>address@hidden);
output_html_with_http_headers $query, $cookie, $template->output;
--- 42,48 ----
$template->param(classlist => $classlist,
! type => 'intranet',
! branches=>address@hidden,
! itemtypeloop => address@hidden);
output_html_with_http_headers $query, $cookie, $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha catalogue-home.pl,1.11,1.12,
Paul POULAIN <=