[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) {