View | Details | Raw Unified | Return to bug 17447
Collapse All | Expand All

(-)a/misc/batchRebuildItemsTables.pl (-12 / +12 lines)
Lines 1-14 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
use Modern::Perl;
3
use Modern::Perl;
4
3
use Getopt::Long;
5
use Getopt::Long;
6
use MARC::Field;
7
use MARC::Record;
8
use Pod::Usage;
9
use Time::HiRes qw(gettimeofday);
10
4
use C4::Context;
11
use C4::Context;
5
use C4::Biblio;
12
use C4::Biblio;
6
use C4::Items;
13
use C4::Items;
7
use MARC::Record;
8
use MARC::Field;
9
use Data::Dumper;
10
use Time::HiRes qw(gettimeofday);
11
use Pod::Usage;
12
14
13
=head1 NAME
15
=head1 NAME
14
16
Lines 41-47 GetOptions( Link Here
41
    'where:s' => \$where,
43
    'where:s' => \$where,
42
) or pod2usage(2);
44
) or pod2usage(2);
43
45
44
pod2usage(1) if ( $help || ( !$confirm ) );
46
pod2usage(1) if $help || ( !$confirm && !$test_parameter );
45
print "### Database will not be modified ###\n" if $test_parameter;
47
print "### Database will not be modified ###\n" if $test_parameter;
46
48
47
#dbh
49
#dbh
Lines 68-79 $sth->execute(); Link Here
68
while ( my ( $biblionumber, $biblioitemnumber, $frameworkcode ) = $sth->fetchrow ) {
70
while ( my ( $biblionumber, $biblioitemnumber, $frameworkcode ) = $sth->fetchrow ) {
69
    $count++;
71
    $count++;
70
    warn $count unless $count % 1000;
72
    warn $count unless $count % 1000;
71
    my $extkey;
72
    my $record = GetMarcBiblio( $biblionumber, 1 );
73
    my $record = GetMarcBiblio( $biblionumber, 1 );
73
    unless ($record) { push @errors, "bad record biblionumber $biblionumber"; next; }
74
    unless ($record) { push @errors, "bad record biblionumber $biblionumber"; next; }
74
    my ( $tmptestfields, $tmptestdirectory, $reclen, $tmptestbaseaddress ) = MARC::File::USMARC::_build_tag_directory($record);
75
75
76
    #print "\n################################ record before ##################################\n".$record->as_formatted;#!test
77
    unless ($test_parameter) {
76
    unless ($test_parameter) {
78
        my $rqitemnumber = $dbh->prepare("SELECT itemnumber, biblionumber from items where itemnumber = ? and biblionumber = ?");
77
        my $rqitemnumber = $dbh->prepare("SELECT itemnumber, biblionumber from items where itemnumber = ? and biblionumber = ?");
79
        foreach my $itemfield ( $record->field($itemfield) ) {
78
        foreach my $itemfield ( $record->field($itemfield) ) {
Lines 109-113 if ( scalar(@errors) > 0 ) { Link Here
109
    print "Some biblionumber could not be processed though: ", join( " ", @errors );
108
    print "Some biblionumber could not be processed though: ", join( " ", @errors );
110
}
109
}
111
110
112
sub defnonull { my $var = shift; defined $var and $var ne "" }
111
sub defnonull {
113
__END__
112
    my $var = shift;
113
    defined $var and $var ne "";
114
}
114
- 

Return to bug 17447