Bug 2505 - Add commented use warnings where missing in the misc/ directory

misc/batchCompareMARCvsFrameworks.pl

@@ -3,6 +3,7 @@
 
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/batchDeleteUnusedSubfields.pl

@@ -2,6 +2,7 @@
 # small script that rebuilds the non-MARC DB
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/batchImportMARCWithBiblionumbers.pl

@@ -2,6 +2,7 @@
 # load records that already have biblionumber set into a koha system
 # Written by TG on 10/04/2006
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/batchRebuildBiblioTables.pl

@@ -3,7 +3,7 @@
 # Formerly named rebuildnonmarc.pl
 
 use strict;
-# use warnings; FIXME someday
+#use warnings; FIXME - Bug 2505
 
 BEGIN {
     # find Koha's Perl modules

misc/batchupdateISBNs.pl

@@ -24,6 +24,7 @@
 =cut
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/bin/zebraqueue_daemon.pl

@@ -3,6 +3,7 @@
 # daemon to watch the zebraqueue and update zebra as needed
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/check_sysprefs.pl

@@ -5,6 +5,9 @@
 # export PERL5LIB
 # then ./check_sysprefs.pl path  (if path is blank it will use .)
 
+#use strict;
+#use warnings; FIXME - Bug 2505
+
 use File::Find;
 use C4::Context;
 

misc/commit_biblios_file.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/cronjobs/build_browser_and_cloud.pl

@@ -2,6 +2,7 @@
 # small script that builds the tag cloud
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/cronjobs/fines.pl

@@ -28,6 +28,7 @@
 
 # FIXME: use FinesMode as described or change syspref description
 use strict;
+#use warnings; FIXME - Bug 2505
 
 BEGIN {
     # find Koha's Perl modules

misc/cronjobs/holds/cancel_expired_holds.pl

@@ -17,6 +17,9 @@
 # with Koha; if not, write to the Free Software Foundation, Inc.,
 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
+#use strict;
+#use warnings; FIXME - Bug 2505
+
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/cronjobs/j2a.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl 
 #run nightly -- changes J to A on someone's 18th birthday
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/cronjobs/notifyMailsOp.pl

@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/cronjobs/smsoverdues.pl

@@ -27,6 +27,9 @@
 
 # $Id: sendoverdues.pl,v 1.1.2.1 2007/03/26 22:38:09 tgarip1957 Exp $
 
+#use strict;
+#use warnings; FIXME - Bug 2505
+
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/cronjobs/zebraqueue_start.pl

@@ -2,6 +2,7 @@
 # script that starts the zebraquee
 #  Written by TG on 01/08/2006
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/exportauth.pl

@@ -4,6 +4,7 @@
 #
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/kohalib.pl

@@ -39,6 +39,7 @@
 #
 
 use strict;
+#use warnings; FIXME - Bug 2505
 
 my $module_dir;
 BEGIN {

misc/link_bibs_to_authorities.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/maintenance/sync_items_in_marc_bib.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/22_to_30/export_Authorities.pl

@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/22_to_30/export_Authorities_xml.pl

@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/22_to_30/missing090field.pl

@@ -3,6 +3,7 @@
 #  Written by TG on 01/10/2005
 #  Revised by Joshua Ferraro on 03/31/2006
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/22_to_30/move_marc_to_authheader.pl

@@ -2,6 +2,8 @@
 
 # script to shift marc to biblioitems
 # scraped from updatedatabase for dev week by chris@katipo.co.nz
+use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this
@@ -13,7 +15,6 @@ use C4::AuthoritiesMarc;
 use MARC::Record;
 use MARC::File::XML ( BinaryEncoding => 'utf8' );
 
-use strict;
 print "moving MARC record to marc_header table\n";
 
 my $dbh = C4::Context->dbh();

misc/migration_tools/22_to_30/move_marc_to_biblioitems.pl

@@ -1,5 +1,6 @@
 #!/usr/bin/perl
-
+#use strict;
+#use warnings; FIXME - Bug 2505
 # script to shift marc to biblioitems
 # scraped from updatedatabase for dev week by chris@katipo.co.nz
 BEGIN {

misc/migration_tools/22_to_30/rebuild_leader.pl

@@ -3,6 +3,7 @@
 #  Written by TG on 01/10/2005
 #  Revised by Joshua Ferraro on 03/31/2006
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/22_to_30/rebuild_unimarc_100.pl

@@ -3,6 +3,7 @@
 #  Written by TG on 01/10/2005
 #  Revised by Joshua Ferraro on 03/31/2006
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/build6xx.pl

@@ -3,6 +3,7 @@
 
 # delete  FROM  `marc_subfield_table`  WHERE tag =  "606" AND subfieldcode = 9;
 use strict;
+#use warnings; FIXME - Bug 2505
 
 # Koha modules used
 use MARC::File::USMARC;

misc/migration_tools/buildCOUNTRY.pl

@@ -3,6 +3,7 @@
 
 # delete  FROM  `marc_subfield_table`  WHERE tag =  "606" AND subfieldcode = 9;
 use strict;
+#use warnings; FIXME - Bug 2505
 
 # Koha modules used
 use C4::Context;

misc/migration_tools/buildEDITORS.pl

@@ -2,6 +2,7 @@
 # script that rebuild EDITORS
 
 use strict;
+#use warnings; FIXME - Bug 2505
 
 # Koha modules used
 use MARC::File::USMARC;

misc/migration_tools/buildLANG.pl

@@ -3,6 +3,7 @@
 
 # delete  FROM  `marc_subfield_table`  WHERE tag =  "606" AND subfieldcode = 9;
 use strict;
+#use warnings; FIXME - Bug 2505
 
 # Koha modules used
 use C4::Context;

misc/migration_tools/bulkauthimport.pl

@@ -2,6 +2,7 @@
 # small script that import an iso2709 file into koha 2.0
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/fix_onloan.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use  C4::Context;
 use C4::Items;
 use C4::Biblio;
@@ -24,4 +25,4 @@ $|=1;
 while (my ($biblionumber,$itemnumber,$onloan)= $rqbiblios->fetchrow){
     ModItem({onloan => "$onloan"}, $biblionumber, $itemnumber);
     print "Onloan : $onloan for $biblionumber / $itemnumber\n";
-}
+}

misc/migration_tools/merge_authority.pl

@@ -2,6 +2,7 @@
 # script that rebuild thesaurus from biblio table.
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/migration_tools/rebuild_nozebra.pl

@@ -6,6 +6,7 @@ use C4::Biblio;
 use C4::AuthoritiesMarc;
 
 use strict;
+#use warnings; FIXME - Bug 2505
 # 
 # script that fills the nozebra table
 #

misc/migration_tools/rebuild_zebra.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 
 use C4::Context;
 use Getopt::Long;

misc/migration_tools/upgradeitems.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use  C4::Context;
 use C4::Items;
 use C4::Biblio;
@@ -27,4 +28,4 @@ while (my ($biblionumber)= $rqbiblios->fetchrow_array){
             warn $record->as_formatted;
        }    
     }  
-}
+}

misc/perlmodule_ls.pl

@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+#use strict;
+#use warnings; FIXME - Bug 2505
+
 use ExtUtils::Installed;
 my $instmod = ExtUtils::Installed->new();
 foreach my $module ($instmod->modules()) {

misc/sax_parser_test.pl

@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
 use XML::SAX;
 my $parser = XML::SAX::ParserFactory->parser(
 Handler => MySAXHandler->new

misc/stage_biblios_file.pl

@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this

misc/translator/stats.pl

@@ -18,6 +18,8 @@
 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 #
 
+#use strict;
+#use warnings; FIXME - Bug 2505
 
 my $PACKAGE="koha";
 

misc/translator/text-extract.pl

@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
 use HTML::Tree;
 use Getopt::Std;
 getopt("f:");

misc/translator/text-extract2.pl

@@ -14,10 +14,11 @@
 # --> This will be relatively major rework, and requires corresponding
 # rework in tmpl_process.pl
 
+use strict;
+#use warnings; FIXME - Bug 2505
 use Getopt::Long;
 use TmplTokenizer;
 use VerboseWarnings;
-use strict;
 
 use vars qw( $input );
 use vars qw( $debug_dump_only_p );

misc/translator/tmpl_process3.pl

@@ -12,6 +12,7 @@ using gettext-compatible translation files
 =cut
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use Getopt::Long;
 use Locale::PO;
 use File::Temp qw( :POSIX );