Revert "Populated MARC 952$2 field for serials-edit.pl"

This reverts commit 708b479. Had introduced following error: Global symbol "$value" requires explicit package name at C4/Biblio.pm line 2381. Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
liblime · Feb 3, 2010 · 8b4501f · 8b4501f
1 parent 844f63f
commit 8b4501f
Showing 1 changed file with 0 additions and 16 deletions.
diff --git a/C4/Biblio.pm b/C4/Biblio.pm
@@ -2370,22 +2370,6 @@ sub PrepareItemrecordDisplay {
                         }
 
                         #---- "true" authorised value
-                    }
-                    elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq
-                        "cn_source" )
-                    {
-                      my $class_sources = GetClassSources();
-                      my $default_source = C4::Context->preference("DefaultClassificationSource");
-                      foreach my $class_source (sort keys %$class_sources) {
-                        next unless $class_sources->{$class_source}->{'used'} or
-                                    ($value and $class_source eq $value)      or
-                                    ($class_source eq $default_source);
-                        push @authorised_values, $class_source;
-                        $authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'};
-                      }
-                      $value = $default_source unless ($value);
-
-                      #---- "true" authorised value
                     } else {
                         $authorised_values_sth->execute( $tagslib->{$tag}->{$subfield}->{authorised_value} );
                         push @authorised_values, ""