From d2b15eeb9aadd1097ccf561fc690630d13af95e8 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Wed, 31 Oct 2007 13:12:14 -0500 Subject: [PATCH] Adding titles to claimissues letter. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Letters.pm | 2 +- tools/letter.pl | 10 ++++++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/C4/Letters.pm b/C4/Letters.pm index 97344cd43c..912e3ad39e 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -371,7 +371,7 @@ sub SendAlerts { # 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; diff --git a/tools/letter.pl b/tools/letter.pl index f585708dc8..78bf099a6b 100755 --- a/tools/letter.pl +++ b/tools/letter.pl @@ -193,8 +193,14 @@ if ( $op eq 'add_form' ) { ); 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"); -- 2.39.5