[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++;
  	}