[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',