[Koha-cvs] koha/cataloguing additem.pl

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/07/06 12:59:07

Modified files:
        cataloguing    : additem.pl 

Log message:
        Bug Fixing:
        authorised values for a subfield was not taken into account beacause 
value names were conflicting.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/additem.pl?cvsroot=koha&r1=1.18&r2=1.19

Patches:
Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/cataloguing/additem.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- additem.pl  2 Jul 2007 09:50:03 -0000       1.18
+++ additem.pl  6 Jul 2007 12:59:06 -0000       1.19
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: additem.pl,v 1.18 2007/07/02 09:50:03 tipaul Exp $
+# $Id: additem.pl,v 1.19 2007/07/06 12:59:06 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -306,9 +306,9 @@
             } else {
                 
$authorised_values_sth->execute($tagslib->{$tag}->{$subfield}->{authorised_value});
                 push @authorised_values, "" unless 
($tagslib->{$tag}->{$subfield}->{mandatory});
-                while (my ($value,$lib) = 
$authorised_values_sth->fetchrow_array) {
-                    push @authorised_values, $value;
-                    $authorised_lib{$value}=$lib;
+          while (my ($authvalue,$lib) = 
$authorised_values_sth->fetchrow_array) {
+              push @authorised_values, $authvalue;
+              $authorised_lib{$authvalue}=$lib;
                 }
             }
             $subfield_data{marc_value}= 
CGI::scrolling_list(-name=>'field_value',