installer: further moves of zebra configuration files

[koha_fer] / C4 / Letters.pm

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 044b436..da0930c 100644 (file)
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -29,9 +29,7 @@ require Exporter;
 our ( $VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS );
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
-    shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
 
 =head1 NAME
 
@@ -194,8 +192,7 @@ sub getalert {
     while ( my $line = $sth->fetchrow_hashref ) {
         push @result, $line;
     }
-    return \@result if $#result >= 0;    # return only if there is one result.
-    return;
+    return \@result;
 }
 
 =head2 findrelatedto
@@ -290,7 +287,7 @@ sub SendAlerts {
                 );
                 sendmail(%mail);
 
-#                              warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}";
+# warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}";
             }
         }
     }
@@ -373,7 +370,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;