[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin categorie.pl,1.14,1.15
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/admin categorie.pl,1.14,1.15 |
Date: |
Wed, 24 Mar 2004 02:42:37 -0800 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25349/admin
Modified Files:
categorie.pl
Log Message:
Index: categorie.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/categorie.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** categorie.pl 12 Jan 2004 16:55:05 -0000 1.14
--- categorie.pl 24 Mar 2004 10:42:35 -0000 1.15
***************
*** 123,127 ****
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select count(*) as total from categoryitem where
categorycode=?");
$sth->execute($categorycode);
my $total = $sth->fetchrow_hashref;
--- 123,127 ----
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select count(*) as total from borrowers where
categorycode=?");
$sth->execute($categorycode);
my $total = $sth->fetchrow_hashref;
***************
*** 186,190 ****
}
$template->param(loop => address@hidden);
!
--- 186,200 ----
}
$template->param(loop => address@hidden);
! # check that I (institution) and C (child) exists. otherwise => warning
to the user
! my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select categorycode from categories where
categorycode='C'");
! $sth->execute;
! my ($categoryChild) = $sth->fetchrow;
! $template->param(categoryChild => $categoryChild);
! $sth=$dbh->prepare("select categorycode from categories where
categorycode='I'");
! $sth->execute;
! my ($categoryInstitution) = $sth->fetchrow;
! $template->param(categoryInstitution => $categoryInstitution);
! $sth->finish;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin categorie.pl,1.14,1.15,
Paul POULAIN <=