Bug 2617: Add strict (and warnings), partial fix.

These are some of the simpler scripts to add strict to.
Corrected perldoc for Bookfund.

Signed-off-by: Galen Charlton <[email protected]>

C4/Bookfund.pm

@@ -315,11 +315,13 @@ sub NewBookFund{
 
 =head3 ModBookFund
 
-&ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode) =
-this function update the bookfundname and the branchcode on aqbookfund table on database.
+&ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode)
+
+This function updates the bookfundname and the branchcode in the aqbookfund table.
 
 =cut
 
+# FIXME: use placeholders,  ->prepare(), ->execute()
 
 sub ModBookFund {
     my ($bookfundname,$bookfundid,$current_branch, $branchcode) = @_;
@@ -349,8 +351,6 @@ sub ModBookFund {
     }
 }
 
-
-
 #-------------------------------------------------------------#
 
 =head3 SearchBookFund

acqui/currency.pl

@@ -1,11 +1,9 @@
 #!/usr/bin/perl
 
-
 #written by [email protected]
 #9/10/2000
 #script to display and update currency rates
 
-
 # Copyright 2000-2002 Katipo Communications
 #
 # This file is part of Koha.
@@ -23,18 +21,21 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
+use strict;
+use warnings;
 use CGI;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Bookfund;
+use C4::Bookfund qw(ModCurrencies);
 
-my $input=new CGI;
+# FIXME: CHECK AUTH
+# FIXME: This should be part of another script, not a throwaway standalone.
+# FIXME: params should have better checks before passed to ModCurrencies
+# FIXME: need error handling if ModCurrencies FAILS.
 
-my @params=$input->param;
-foreach my $param (@params){
-	if ($param ne 'type' && $param !~ /submit/){
-		my $data=$input->param($param);
-		ModCurrencies($param,$data);
-}
+my $input = new CGI;
+
+foreach my $param ($input->param) {
+    if ($param ne 'type' && $param !~ /submit/) {
+        ModCurrencies($param, $input->param($param));
+    }
 }
 print $input->redirect('/cgi-bin/koha/acqui/acqui-home.pl');

admin/env_tz_test.pl

@@ -1,5 +1,7 @@
 #!/usr/bin/perl 
 
+use strict;
+use warnings;
 use CGI;
 # use Data::Dumper;
 

changelanguage.pl

@@ -15,7 +15,10 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-use C4::Output;
+use strict;
+use warnings;
+
+use C4::Output qw(setlanguagecookie);
 use CGI;
 
 my $query    = new CGI;

misc/sax_parser_print.pl

@@ -1,7 +1,11 @@
 #!/usr/bin/perl
 # check the current SAX Parser
+
+use strict;
+use warnings;
 use XML::SAX::ParserFactory;
-$parser = XML::SAX::ParserFactory->parser();
+
+my $parser = XML::SAX::ParserFactory->parser();
 print "Koha wants something like:
     XML::LibXML::SAX::Parser=HASH(0x81fe220)
 You have:

opac/opac-changelanguage.pl

@@ -15,12 +15,14 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-use C4::Output;
+use strict;
+use warnings;
+use C4::Output qw(setlanguagecookie);
 use CGI;
 
 my $query    = new CGI;
 my $language = $query->param('language');
 my $url      = $query->referer();
 
-warn "Language : $query // $language // $url";
+# warn "Language : $query // $language // $url";
 setlanguagecookie( $query, $language, $url );