[Koha-cvs] CVS: koha/admin categorie.pl,1.14,1.15

[Paul POULAIN]

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 => \@loop);
! 
  
  
--- 186,200 ----
  	}
  	$template->param(loop => \@loop);
! 	# 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;