Lines 2643-2649
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 ( $values->{ $substitution->{item_field} } eq $substitution->{value} ); |
2646 |
next if ( defined $values->{ $substitution->{item_field} } and $values->{ $substitution->{item_field} } eq $substitution->{value} ); |
2647 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
2647 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
2648 |
unless $report_only; |
2648 |
unless $report_only; |
2649 |
push @{ $report->{$itemnumber} }, $substitution; |
2649 |
push @{ $report->{$itemnumber} }, $substitution; |
2650 |
- |
|
|