|
Lines 166-178
sub process_query {
Link Here
|
| 166 |
print "Processing bib $biblionumber ($totalissues issues)\n" |
166 |
print "Processing bib $biblionumber ($totalissues issues)\n" |
| 167 |
if $verbose; |
167 |
if $verbose; |
| 168 |
if ( not $test_only ) { |
168 |
if ( not $test_only ) { |
| 169 |
my $ret; |
169 |
my $ret = UpdateTotalIssues( $biblionumber, $incremental, $totalissues, 1 ); |
| 170 |
if ( $incremental && $totalissues > 0 ) { |
|
|
| 171 |
$ret = UpdateTotalIssues( $biblionumber, $totalissues ); |
| 172 |
} |
| 173 |
else { |
| 174 |
$ret = UpdateTotalIssues( $biblionumber, 0, $totalissues ); |
| 175 |
} |
| 176 |
unless ($ret) { |
170 |
unless ($ret) { |
| 177 |
print "Error while processing bib $biblionumber\n" if $verbose; |
171 |
print "Error while processing bib $biblionumber\n" if $verbose; |
| 178 |
$num_bibs_error++; |
172 |
$num_bibs_error++; |
| 179 |
- |
|
|