koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/acqui.simple addbiblio.pl [rel_2_2]


From: Ryan Higgins
Subject: [Koha-cvs] koha/acqui.simple addbiblio.pl [rel_2_2]
Date: Sun, 08 Apr 2007 21:31:59 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Ryan Higgins <rych>     07/04/08 21:31:59

Modified files:
        acqui.simple   : addbiblio.pl 

Log message:
        bugfix: MARC editor reads indicators from first occurrence of 
repeatable field only.  

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui.simple/addbiblio.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.52.2.59&r2=1.52.2.60

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui.simple/Attic/addbiblio.pl,v
retrieving revision 1.52.2.59
retrieving revision 1.52.2.60
diff -u -b -r1.52.2.59 -r1.52.2.60
--- addbiblio.pl        15 Feb 2007 18:28:59 -0000      1.52.2.59
+++ addbiblio.pl        8 Apr 2007 21:31:58 -0000       1.52.2.60
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: addbiblio.pl,v 1.52.2.59 2007/02/15 18:28:59 hdl Exp $
+# $Id: addbiblio.pl,v 1.52.2.60 2007/04/08 21:31:58 rych Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -325,7 +325,8 @@
                                                $tag_data{tag} = $tag;
                                                $tag_data{tag_lib} = 
$tagslib->{$tag}->{lib};
                                                $tag_data{repeatable} = 
$tagslib->{$tag}->{repeatable};
-                                               $tag_data{indicator} = 
$record->field($tag)->indicator(1). $record->field($tag)->indicator(2) if 
($tag>=10);
+                                       #       $tag_data{indicator} = 
$record->field($tag)->indicator(1). $record->field($tag)->indicator(2) if 
($tag>=10);
+                                               $tag_data{indicator} = 
$field->indicator(1). $field->indicator(2) if ($tag>=10);
                                                $tag_data{subfield_loop} = 
address@hidden;
                                                if ($tag<10) {
                                                        $tag_data{fixedfield} = 
1;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]