View | Details | Raw Unified | Return to bug 3916
Collapse All | Expand All

(-)a/tools/batchMod.pl (-2 / +2 lines)
Lines 340-351 foreach my $tag (sort keys %{$tagslib}) { Link Here
340
          #---- "true" authorised value
340
          #---- "true" authorised value
341
      }
341
      }
342
      else {
342
      else {
343
          push @authorised_values, "" unless ( $tagslib->{$tag}->{$subfield}->{mandatory} );
343
          push @authorised_values, ""; # unless ( $tagslib->{$tag}->{$subfield}->{mandatory} );
344
          $authorised_values_sth->execute( $tagslib->{$tag}->{$subfield}->{authorised_value} );
344
          $authorised_values_sth->execute( $tagslib->{$tag}->{$subfield}->{authorised_value} );
345
          while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) {
345
          while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) {
346
              push @authorised_values, $value;
346
              push @authorised_values, $value;
347
              $authorised_lib{$value} = $lib;
347
              $authorised_lib{$value} = $lib;
348
          }
348
          }
349
          $value="";
349
      }
350
      }
350
      $subfield_data{marc_value} =CGI::scrolling_list(      # FIXME: factor out scrolling_list
351
      $subfield_data{marc_value} =CGI::scrolling_list(      # FIXME: factor out scrolling_list
351
          -name     => "field_value",
352
          -name     => "field_value",
352
- 

Return to bug 3916