Adding titles to claimissues letter.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 97344cd..912e3ad 100644 (file)
--- 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 f585708..78bf099 100755 (executable)
--- 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");