|
Lines 2651-2656
sub ToggleNewStatus {
Link Here
|
| 2651 |
my $age = $rule->{age}; |
2651 |
my $age = $rule->{age}; |
| 2652 |
my $conditions = $rule->{conditions}; |
2652 |
my $conditions = $rule->{conditions}; |
| 2653 |
my $substitutions = $rule->{substitutions}; |
2653 |
my $substitutions = $rule->{substitutions}; |
|
|
2654 |
foreach ( @$substitutions ) { |
| 2655 |
( $_->{item_field} ) = ( $_->{field} =~ /items\.(.*)/ ); |
| 2656 |
} |
| 2654 |
my @params; |
2657 |
my @params; |
| 2655 |
|
2658 |
|
| 2656 |
my $query = q| |
2659 |
my $query = q| |
|
Lines 2688-2694
sub ToggleNewStatus {
Link Here
|
| 2688 |
my $item = C4::Items::GetItem( $itemnumber ); |
2691 |
my $item = C4::Items::GetItem( $itemnumber ); |
| 2689 |
for my $substitution ( @$substitutions ) { |
2692 |
for my $substitution ( @$substitutions ) { |
| 2690 |
next unless $substitution->{field}; |
2693 |
next unless $substitution->{field}; |
| 2691 |
C4::Items::ModItem( {$substitution->{field} => $substitution->{value}}, $biblionumber, $itemnumber ) |
2694 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
| 2692 |
unless $report_only; |
2695 |
unless $report_only; |
| 2693 |
push @{ $report->{$itemnumber} }, $substitution; |
2696 |
push @{ $report->{$itemnumber} }, $substitution; |
| 2694 |
} |
2697 |
} |
| 2695 |
- |
|
|