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 |
- |
|
|