Lines 20-34
Link Here
|
20 |
|
20 |
|
21 |
use strict; |
21 |
use strict; |
22 |
use warnings; |
22 |
use warnings; |
|
|
23 |
$|=1; |
23 |
|
24 |
|
24 |
use C4::Context; |
25 |
use C4::Context; |
25 |
use C4::Biblio; |
26 |
use C4::Biblio; |
26 |
use Getopt::Long; |
27 |
use Getopt::Long; |
27 |
|
28 |
|
28 |
my ($wherestring, $run, $want_help); |
29 |
my ($wherestring, $run, $silent, $want_help); |
29 |
my $result = GetOptions( |
30 |
my $result = GetOptions( |
30 |
'where:s' => \$wherestring, |
31 |
'where:s' => \$wherestring, |
31 |
'--run' => \$run, |
32 |
'--run' => \$run, |
|
|
33 |
'--silent' => \$silent, |
32 |
'help|h' => \$want_help, |
34 |
'help|h' => \$want_help, |
33 |
); |
35 |
); |
34 |
|
36 |
|
Lines 38-48
if ( not $result or not $run or $want_help ) {
Link Here
|
38 |
} |
40 |
} |
39 |
|
41 |
|
40 |
my $dbh = C4::Context->dbh; |
42 |
my $dbh = C4::Context->dbh; |
|
|
43 |
my $count = 0; |
41 |
my $querysth = qq{SELECT biblionumber from biblioitems }; |
44 |
my $querysth = qq{SELECT biblionumber from biblioitems }; |
42 |
$querysth .= " WHERE $wherestring " if ($wherestring); |
45 |
$querysth .= " WHERE $wherestring " if ($wherestring); |
43 |
my $query = $dbh->prepare($querysth); |
46 |
my $query = $dbh->prepare($querysth); |
44 |
$query->execute; |
47 |
$query->execute; |
45 |
while (my $biblionumber = $query->fetchrow){ |
48 |
while (my $biblionumber = $query->fetchrow){ |
|
|
49 |
$count++; |
50 |
print "." unless $silent; |
51 |
print "\r$count" unless ($silent or ($count % 100)); |
46 |
my $record = GetMarcBiblio($biblionumber); |
52 |
my $record = GetMarcBiblio($biblionumber); |
47 |
|
53 |
|
48 |
if ($record) { |
54 |
if ($record) { |
Lines 53-58
while (my $biblionumber = $query->fetchrow){
Link Here
|
53 |
} |
59 |
} |
54 |
} |
60 |
} |
55 |
|
61 |
|
|
|
62 |
print "\n\n$count records processed.\n" unless $silent; |
63 |
|
56 |
sub print_usage { |
64 |
sub print_usage { |
57 |
print <<_USAGE_; |
65 |
print <<_USAGE_; |
58 |
$0: removes items from selected biblios |
66 |
$0: removes items from selected biblios |
Lines 66-71
should be run using rebuild_zebra.pl -b -r.
Link Here
|
66 |
Parameters: |
74 |
Parameters: |
67 |
-where use this to limit modifications to selected biblios |
75 |
-where use this to limit modifications to selected biblios |
68 |
--run perform the update |
76 |
--run perform the update |
|
|
77 |
--silent run silently |
69 |
--help or -h show this message |
78 |
--help or -h show this message |
70 |
_USAGE_ |
79 |
_USAGE_ |
71 |
} |
80 |
} |
72 |
- |
|
|