|
Lines 2643-2648
sub ToggleNewStatus {
Link Here
|
| 2643 |
my $itemnumber = $values->{itemnumber}; |
2643 |
my $itemnumber = $values->{itemnumber}; |
| 2644 |
for my $substitution ( @$substitutions ) { |
2644 |
for my $substitution ( @$substitutions ) { |
| 2645 |
next unless $substitution->{field}; |
2645 |
next unless $substitution->{field}; |
|
|
2646 |
next if ( $item->{ $substitution->{item_field} } eq $substitution->{value} ); |
| 2646 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
2647 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
| 2647 |
unless $report_only; |
2648 |
unless $report_only; |
| 2648 |
push @{ $report->{$itemnumber} }, $substitution; |
2649 |
push @{ $report->{$itemnumber} }, $substitution; |
| 2649 |
- |
|
|