From 7bfbaee93bfd9e65c93bbbb78c714cbbeded82f4 Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 11 Jan 2005 17:41:44 +0000 Subject: [PATCH] fix to show seriestitle even for books without isbn (but with a editor, of course) --- value_builder/unimarc_field_225a.pl | 9 --------- 1 file changed, 9 deletions(-) diff --git a/value_builder/unimarc_field_225a.pl b/value_builder/unimarc_field_225a.pl index c61d88eca9..bce9b4cb1e 100644 --- a/value_builder/unimarc_field_225a.pl +++ b/value_builder/unimarc_field_225a.pl @@ -118,7 +118,6 @@ my ($input) = @_; # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table # if there is an isbn, complete search my @collections; - if ($isbn_found) { my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table left join auth_header on auth_subfield_table.authid=auth_header.authid where authtypecode='EDITORS' and tag='200' and subfieldcode='a' and subfieldvalue=?"); @@ -134,14 +133,6 @@ my ($input) = @_; push @collections,$line; } } - } else { - # if there is no isbn, search with % - my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father like ? and category='EDITORS' order by stdlib"); - $sth->execute("\%$authoritysep $editor_found $authoritysep"); - while (my ($line)= $sth->fetchrow) { - push @collections,$line; - } - } # my @collections = ["test"]; my $collection =CGI::scrolling_list(-name=>'f1', -values=> \@collections,