[Koha-cvs] koha/C4 Serials.pm

[Henri-Damien LAURENT]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	Henri-Damien LAURENT <hdl>	07/05/18 09:23:50

Modified files:
	C4             : Serials.pm 

Log message:
	Adding First tab information

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

Patches:
Index: Serials.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Serials.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- Serials.pm	27 Apr 2007 14:00:49 -0000	1.14
+++ Serials.pm	18 May 2007 09:23:49 -0000	1.15
@@ -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.14 2007/04/27 14:00:49 hdl Exp $
+# $Id: Serials.pm,v 1.15 2007/05/18 09:23:49 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.14 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.15 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -488,6 +488,7 @@
     foreach my $key ( sort { $b cmp $a } keys %tmpresults ) {
         push @res, $tmpresults{$key};
     }
+    $res[0]->{'first'}=1;  
     return \@res;
 }
 
@@ -772,7 +773,7 @@
     return ( $totalissues, @serials );
 }
 
-=head2 GetSerials
+=head2 GetSerials2
 
 =over 4