[Koha-cvs] koha/acqui booksellers.pl [rel_3_0]

paul poulain paul at koha-fr.org
Wed Nov 1 22:20:03 CET 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	06/11/01 21:20:03

Modified files:
	acqui          : booksellers.pl 

Log message:
	minor reindenting

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/booksellers.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.1&r2=1.2.2.2

Patches:
Index: booksellers.pl
===================================================================
RCS file: /sources/koha/koha/acqui/booksellers.pl,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -u -b -r1.2.2.1 -r1.2.2.2
--- booksellers.pl	28 Aug 2006 16:51:06 -0000	1.2.2.1
+++ booksellers.pl	1 Nov 2006 21:20:03 -0000	1.2.2.2
@@ -20,7 +20,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: booksellers.pl,v 1.2.2.1 2006/08/28 16:51:06 toins Exp $
+# $Id: booksellers.pl,v 1.2.2.2 2006/11/01 21:20:03 tipaul Exp $
 
 =head1 NAME
 
@@ -96,13 +96,11 @@
 for ( my $i = 0 ; $i < $count ; $i++ ) {
     my $orders  = GetPendingOrders( $suppliers[$i]->{'id'} );
     my $ordcount = scalar @$orders;
-
     my %line;
     if ( $toggle == 0 ) {
         $line{even} = 1;
         $toggle = 1;
-    }
-    else {
+    } else {
         $line{even} = 0;
         $toggle = 0;
     }
@@ -117,8 +115,7 @@
         $inner_line{authorisedby} = $orders->[$i2]{'authorisedby'};
         $inner_line{surname}      = $orders->[$i2]{'firstname'};
         $inner_line{firstname}    = $orders->[$i2]{'surname'};
-        $inner_line{creationdate} =
-          format_date( $orders->[$i2]{'creationdate'} );
+        $inner_line{creationdate} = format_date( $orders->[$i2]{'creationdate'} );
         $inner_line{closedate} = format_date( $orders->[$i2]{'closedate'} );
         push @loop_basket, \%inner_line;
     }





More information about the Koha-cvs mailing list