[Koha-cvs] CVS: koha/admin checkmarc.pl,1.4,1.5

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv23001/admin

Modified Files:
        checkmarc.pl 
Log Message:
fix for 525 (If itemtype is not set, we get a broken more detail page) and 
translation to french

Index: checkmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/checkmarc.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** checkmarc.pl        4 Jul 2003 13:24:52 -0000       1.4
--- checkmarc.pl        4 Sep 2003 15:03:00 -0000       1.5
***************
*** 129,132 ****
--- 129,149 ----
  }
  
+ # checks that itemtypes & branches tables are not empty
+ $sth = $dbh->prepare("select count(*) from itemtypes");
+ $sth->execute;
+ ($res) = $sth->fetchrow;
+ unless ($res) {
+       $template->param(itemtypes_empty =>1);
+       $total++;
+ }
+ 
+ $sth = $dbh->prepare("select count(*) from branches");
+ $sth->execute;
+ ($res) = $sth->fetchrow;
+ unless ($res) {
+       $template->param(branches_empty =>1);
+       $total++;
+ }
+ 
  $template->param(total => $total);
  output_html_with_http_headers $input, $cookie, $template->output;