[Koha-cvs] CVS: koha/admin checkmarc.pl,1.1,1.2

[Paul POULAIN]

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

Modified Files:
        checkmarc.pl 
Log Message:


Index: checkmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/checkmarc.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** checkmarc.pl        21 Jan 2003 13:45:37 -0000      1.1
--- checkmarc.pl        21 Jan 2003 14:01:52 -0000      1.2
***************
*** 78,82 ****
  while (($res,$res2,$field) = $sth->fetchrow) {
        # (ignore itemnumber, that must be in -1 tab)
!       if (($res ne $tagfield or $res2 ne $tab ) && $field ne 
"items.itemnumber") {
                $subtotal++;
        }
--- 78,82 ----
  while (($res,$res2,$field) = $sth->fetchrow) {
        # (ignore itemnumber, that must be in -1 tab)
!       if (($res ne $tagfield or $res2 ne $tab ) && $res2 ne -1) {
                $subtotal++;
        }