[Koha-cvs] koha search.marc/search.pl serials/acqui-search...

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/21 09:36:42

Modified files:
        search.marc    : search.pl 
        serials        : acqui-search.pl acqui-search-result.pl 

Log message:
        subs renamed & POD added

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/search.marc/search.pl?cvsroot=koha&r1=1.31&r2=1.32
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search-result.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: search.marc/search.pl
===================================================================
RCS file: /sources/koha/koha/search.marc/search.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- search.marc/search.pl       4 Jul 2006 14:36:52 -0000       1.31
+++ search.marc/search.pl       21 Jul 2006 09:36:42 -0000      1.32
@@ -353,7 +353,7 @@
        my @branches;
        my @select_branch;
        my %select_branches;
-       my $branches=getbranches();
+       my $branches=GetBranches();
        my @branchloop;
        foreach my $thisbranch (sort keys %$branches) {
 #              my $selected = 1 if $thisbranch eq $branch;

Index: serials/acqui-search.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- serials/acqui-search.pl     7 Jul 2006 09:05:23 -0000       1.2
+++ serials/acqui-search.pl     21 Jul 2006 09:36:42 -0000      1.3
@@ -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: acqui-search.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+# $Id: acqui-search.pl,v 1.3 2006/07/21 09:36:42 toins Exp $
 
 use strict;
 use CGI;
@@ -45,7 +45,9 @@
 my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where 
borrowernumber = ?");
 $sthtemp->execute($loggedinuser);
 my ($flags, $homebranch)=$sthtemp->fetchrow;
-my ($count,@results)=bookfunds($homebranch);
+my @results=GetBookFunds($homebranch);
+my $count = scalar(@results);
+
 my $classlist='';
 my $total=0;
 my $totspent=0;
@@ -53,7 +55,7 @@
 my $totavail=0;
 my @loop_budget = ();
 for (my $i=0;$i<$count;$i++){
-       my ($spent,$comtd)=bookfundbreakdown($results[$i]->{'bookfundid'});
+       my ($spent,$comtd)=GetBookFundBreakdown($results[$i]->{'bookfundid'});
        my $avail=$results[$i]->{'budgetamount'}-($spent+$comtd);
        my %line;
        $line{bookfundname} = $results[$i]->{'bookfundname'};
@@ -68,7 +70,9 @@
        $totavail+=$avail;
 }
 #currencies
-my ($count,$rates)=getcurrencies();
+my $rates=GetCurrencies();
+my $count = scalar @$rates;
+
 my @loop_currency = ();
 for (my $i=0;$i<$count;$i++){
        my %line;

Index: serials/acqui-search-result.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search-result.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- serials/acqui-search-result.pl      7 Jul 2006 09:05:23 -0000       1.2
+++ serials/acqui-search-result.pl      21 Jul 2006 09:36:42 -0000      1.3
@@ -20,7 +20,25 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: acqui-search-result.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+# $Id: acqui-search-result.pl,v 1.3 2006/07/21 09:36:42 toins Exp $
+
+=head1 NAME
+
+acqui-search-result.pl
+
+=head1 DESCRIPTION
+ TODO
+ 
+=head1 PARAMETERS
+
+=over 4
+
+=item supplier
+
+=back
+
+=cut
+
 
 use strict;
 use C4::Auth;
@@ -44,13 +62,16 @@
                             });
 
 my $supplier=$query->param('supplier');
-my ($count,@suppliers)=bookseller($supplier);
+my @suppliers = GetBookSeller($supplier);
+my $count = scalar @suppliers;
 
-#build reult page
+#build result page
 my $toggle=0;
 my @loop_suppliers;
 for (my $i=0; $i<$count; $i++) {
-       my ($ordcount,$orders)=getorders($suppliers[$i]->{'id'});
+    my $orders = GetOrders($suppliers[$i]->{'id'});
+    my $ordcount = scalar @$orders;
+    
        my %line;
        if ($toggle==0){
                $line{even}=1;