Lines 2691-2696
sub ToggleNewStatus {
Link Here
|
2691 |
my $item = C4::Items::GetItem( $itemnumber ); |
2691 |
my $item = C4::Items::GetItem( $itemnumber ); |
2692 |
for my $substitution ( @$substitutions ) { |
2692 |
for my $substitution ( @$substitutions ) { |
2693 |
next unless $substitution->{field}; |
2693 |
next unless $substitution->{field}; |
|
|
2694 |
next if ( $item->{ $substitution->{item_field} } eq $substitution->{value} ); |
2694 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
2695 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
2695 |
unless $report_only; |
2696 |
unless $report_only; |
2696 |
push @{ $report->{$itemnumber} }, $substitution; |
2697 |
push @{ $report->{$itemnumber} }, $substitution; |
2697 |
- |
|
|