|
Lines 175-181
if($input->param('field') and not defined $op){
Link Here
|
| 175 |
my @repvals = $input->param('repval'); |
175 |
my @repvals = $input->param('repval'); |
| 176 |
foreach my $biblionumber ( @biblionumbers ){ |
176 |
foreach my $biblionumber ( @biblionumbers ){ |
| 177 |
my $record = GetMarcBiblio($biblionumber); |
177 |
my $record = GetMarcBiblio($biblionumber); |
| 178 |
my $biblio = GetBiblio($biblionumber); |
178 |
my ($count, $biblio) = GetBiblio($biblionumber); |
| 179 |
my $report = 0; |
179 |
my $report = 0; |
| 180 |
my @failed_actions; |
180 |
my @failed_actions; |
| 181 |
for(my $i = 0 ; $i < scalar(@fields) ; $i++ ){ |
181 |
for(my $i = 0 ; $i < scalar(@fields) ; $i++ ){ |
|
Lines 209-215
if($input->param('field') and not defined $op){
Link Here
|
| 209 |
my @biblioinfos; |
209 |
my @biblioinfos; |
| 210 |
|
210 |
|
| 211 |
for my $biblionumber (@biblionumbers){ |
211 |
for my $biblionumber (@biblionumbers){ |
| 212 |
my $biblio = GetBiblio($biblionumber); |
212 |
my ($count,$biblio) = GetBiblio($biblionumber); |
| 213 |
if (defined $op){ |
213 |
if (defined $op){ |
| 214 |
$biblio->{$report_actions{$biblionumber}->{status}}=1; |
214 |
$biblio->{$report_actions{$biblionumber}->{status}}=1; |
| 215 |
$biblio->{failed_actions}=$report_actions{$biblionumber}->{failed_actions}; |
215 |
$biblio->{failed_actions}=$report_actions{$biblionumber}->{failed_actions}; |
| 216 |
- |
|
|