[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/admin checkmarc.pl [rel_3_0]
From: |
Antoine Farnault |
Subject: |
[Koha-cvs] koha/admin checkmarc.pl [rel_3_0] |
Date: |
Wed, 28 Feb 2007 09:32:28 +0000 |
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) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/admin checkmarc.pl [rel_3_0],
Antoine Farnault <=