[Koha-cvs] koha/admin checkmarc.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	07/02/28 09:32:27

Modified files:
	admin          : checkmarc.pl 

Log message:
	reporting bug fix from 2.2.7.1 to rel_3_0
	LOG was :
		BUGFIX : removing "biblionumber and biblioitemnumber MUST be in the same MARC tag", as it's no more true (since koha 2.2.4 iirc) : you can have biblionumber mapped to a MARC field  and biblioitemnumber mapped to another.
		However, the other needs are still valid (they must be mapped and in tab -1)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/admin/checkmarc.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.9.2.3&r2=1.9.2.4

Patches:
Index: checkmarc.pl
===================================================================
RCS file: /sources/koha/koha/admin/checkmarc.pl,v
retrieving revision 1.9.2.3
retrieving revision 1.9.2.4
diff -u -b -r1.9.2.3 -r1.9.2.4
--- checkmarc.pl	18 Dec 2006 16:35:17 -0000	1.9.2.3
+++ checkmarc.pl	28 Feb 2007 09:32:27 -0000	1.9.2.4
@@ -59,7 +59,7 @@
 $sth = $dbh->prepare("select tagfield,tab from marc_subfield_structure where kohafield=\"biblioitems.biblioitemnumber\"");
 $sth->execute;
 my ($res2,$tab2) = $sth->fetchrow;
-if ($res && $res2) {
+if ($res && $res2 && $tab==-1 && $tab2==-1) {
 	$template->param(biblionumber => 0);
 } else {
 	$template->param(biblionumber => 1);
@@ -75,7 +75,7 @@
 my $tagfield = $res;
 my $tab = $res2;
 my $subtotal=0;
-warn "TAGF : $tagfield";
+#warn "TAGF : $tagfield";
 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) {