[Koha-cvs] koha/C4 Serials.pm

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     paul poulain <tipaul>   07/05/25 15:14:43

Modified files:
        C4             : Serials.pm 

Log message:
        BUG FIXING :
        Serials.pm was not Mysql5 compliant.
        (FROM table1, table2 changed to 
        FROM table1 LEFT JOIN table2 ON....
        )

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Serials.pm?cvsroot=koha&r1=1.19&r2=1.20

Patches:
Index: Serials.pm
===================================================================
RCS file: /sources/koha/koha/C4/Serials.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- Serials.pm  24 May 2007 16:11:39 -0000      1.19
+++ Serials.pm  25 May 2007 15:14:43 -0000      1.20
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Serials.pm,v 1.19 2007/05/24 16:11:39 hdl Exp $
+# $Id: Serials.pm,v 1.20 2007/05/25 15:14:43 tipaul Exp $
 
 use strict;
 use C4::Date;
@@ -35,7 +35,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.19 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.20 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -98,7 +98,8 @@
     my $dbh   = C4::Context->dbh;
     my $query = qq|
         SELECT DISTINCT id, name
-        FROM            subscription, serial
+        FROM            subscription 
+       LEFT JOIN       serial ON 
serial.subscriptionid=subscription.subscriptionid
         LEFT JOIN       aqbooksellers ON subscription.aqbooksellerid = 
aqbooksellers.id
         WHERE           subscription.subscriptionid = serial.subscriptionid
         AND             (planneddate < now() OR serial.STATUS = 3 OR 
serial.STATUS = 4)