# prepare the letter...
# search the biblionumber
my $strsth =
-"select serial.*,subscription.*, biblio.title from serial LEFT JOIN subscription on serial.subscriptionid=subscription.subscriptionid LEFT JOIN biblio on serial.biblionumber=biblio.biblionumber where serial.serialid IN ("
+"select serial.*,subscription.*, biblio.* from serial LEFT JOIN subscription on serial.subscriptionid=subscription.subscriptionid LEFT JOIN biblio on serial.biblionumber=biblio.biblionumber where serial.serialid IN ("
. join( ",", @$externalid ) . ")";
my $sthorders = $dbh->prepare($strsth);
$sthorders->execute;
);
push @SQLfieldname, \%line;
}
-
- # add biblio specific tables.
+ my %line = ( 'value' => "", 'text' => '---Biblio---' );
+ push @SQLfieldname, \%line;
+ my %line = ('value' => "biblio.title",'text' => "Title");
+ push @SQLfieldname, \%line;
+ my %line = ('value' => "biblio.author",'text' => "Author");
+ push @SQLfieldname, \%line;
+ my %line = ('value' => "biblio.serial",'text' => "Serial");
+ push @SQLfieldname, \%line;
}
else {
my $sth2 = $dbh->prepare("SHOW COLUMNS from biblio");