use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
# 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
# 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
# Formerly named rebuildnonmarc.pl
use strict;
-# use warnings; FIXME someday
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
=cut
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
# 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
# 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;
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
# 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
# FIXME: use FinesMode as described or change syspref description
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# 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
#!/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
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
# $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
# 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
#
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
#
use strict;
+#use warnings; FIXME - Bug 2505
my $module_dir;
BEGIN {
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
#!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
#!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
# 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
# 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
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();
#!/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 {
# 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
# 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
# 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;
# delete FROM `marc_subfield_table` WHERE tag = "606" AND subfieldcode = 9;
use strict;
+#use warnings; FIXME - Bug 2505
# Koha modules used
use C4::Context;
# script that rebuild EDITORS
use strict;
+#use warnings; FIXME - Bug 2505
# Koha modules used
use MARC::File::USMARC;
# delete FROM `marc_subfield_table` WHERE tag = "606" AND subfieldcode = 9;
use strict;
+#use warnings; FIXME - Bug 2505
# Koha modules used
use C4::Context;
# 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
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
use C4::Context;
use C4::Items;
use C4::Biblio;
while (my ($biblionumber,$itemnumber,$onloan)= $rqbiblios->fetchrow){
ModItem({onloan => "$onloan"}, $biblionumber, $itemnumber);
print "Onloan : $onloan for $biblionumber / $itemnumber\n";
-}
\ No newline at end of file
+}
# 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
use C4::AuthoritiesMarc;
use strict;
+#use warnings; FIXME - Bug 2505
#
# script that fills the nozebra table
#
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
use C4::Context;
use Getopt::Long;
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
use C4::Context;
use C4::Items;
use C4::Biblio;
warn $record->as_formatted;
}
}
-}
\ No newline at end of file
+}
#!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
+
use ExtUtils::Installed;
my $instmod = ExtUtils::Installed->new();
foreach my $module ($instmod->modules()) {
#!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
use XML::SAX;
my $parser = XML::SAX::ParserFactory->parser(
Handler => MySAXHandler->new
#!/usr/bin/perl
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#
+#use strict;
+#use warnings; FIXME - Bug 2505
my $PACKAGE="koha";
#!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
use HTML::Tree;
use Getopt::Std;
getopt("f:");
# --> 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 );
=cut
use strict;
+#use warnings; FIXME - Bug 2505
use Getopt::Long;
use Locale::PO;
use File::Temp qw( :POSIX );