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

[Paul POULAIN]

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

Modified Files:
        checkmarc.pl 
Log Message:
Checking that all fields mapped to the item marc field (995 in UNIMARC) are 
mapped to a field in items SQL-table.
Previously, you had a warning only if fields mapped to item SQL-table was in 
more than 1 item marc field.

Index: checkmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/checkmarc.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** checkmarc.pl        2 Feb 2003 07:18:38 -0000       1.3
--- checkmarc.pl        4 Jul 2003 13:24:52 -0000       1.4
***************
*** 69,72 ****
--- 69,73 ----
  
  # checks all item fields are in the same tag and in tab 10
+ 
  $sth = $dbh->prepare("select tagfield,tab,kohafield from 
marc_subfield_structure where kohafield like \"items.%\"");
  $sth->execute;
***************
*** 82,85 ****
--- 83,94 ----
        }
  }
+ $sth = $dbh->prepare("select kohafield from marc_subfield_structure where 
tagfield=$tagfield");
+ $sth->execute;
+ while (($res2) = $sth->fetchrow) {
+       if (!$res2 || $res2 =~ /^items/) {
+       } else {
+               $subtotal++;
+       }
+ }
  if ($subtotal eq 0) {
        $template->param(itemfields => 0);
***************
*** 92,96 ****
  $sth->execute;
  ($res,$res2,$field) = $sth->fetchrow;
- warn "==> $res / $res2 / $field";
  if ($res && $res2>=0 && $field eq "itemtypes") {
        $template->param(itemtype => 0);
--- 101,104 ----