[Koha-cvs] koha/C4 Serials.pm

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/07/12 10:01:20

Modified files:
        C4             : Serials.pm 

Log message:
        Bug Fixing : GetNextSeq did not pass through innerloop parameters.

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

Patches:
Index: Serials.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Serials.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- Serials.pm  30 Jun 2007 05:26:25 -0000      1.25
+++ Serials.pm  12 Jul 2007 10:01:20 -0000      1.26
@@ -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.25 2007/06/30 05:26:25 hdl Exp $
+# $Id: Serials.pm,v 1.26 2007/07/12 10:01:20 hdl 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.25 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.26 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -972,7 +972,8 @@
   $newlastvalue3=$val->{setto3} if ($newlastvalue3>$val->{whenmorethan3}); # 
reset counter if needed.
   $calculated =~ s/\{Z\}/$newlastvalue3/g;
     
-  return ( $calculated, $newlastvalue1, $newlastvalue2, $newlastvalue3 );
+  return ( $calculated, $newlastvalue1, $newlastvalue2, $newlastvalue3 ,
+           $newinnerloop1, $newinnerloop2, $newinnerloop3);
 }
 
 =head2 GetSeq