Lines 2604-2609
sub ToggleNewStatus {
Link Here
|
2604 |
my $age = $rule->{age}; |
2604 |
my $age = $rule->{age}; |
2605 |
my $conditions = $rule->{conditions}; |
2605 |
my $conditions = $rule->{conditions}; |
2606 |
my $substitutions = $rule->{substitutions}; |
2606 |
my $substitutions = $rule->{substitutions}; |
|
|
2607 |
foreach ( @$substitutions ) { |
2608 |
( $_->{item_field} ) = ( $_->{field} =~ /items\.(.*)/ ); |
2609 |
} |
2607 |
my @params; |
2610 |
my @params; |
2608 |
|
2611 |
|
2609 |
my $query = q| |
2612 |
my $query = q| |
Lines 2640-2646
sub ToggleNewStatus {
Link Here
|
2640 |
my $itemnumber = $values->{itemnumber}; |
2643 |
my $itemnumber = $values->{itemnumber}; |
2641 |
for my $substitution ( @$substitutions ) { |
2644 |
for my $substitution ( @$substitutions ) { |
2642 |
next unless $substitution->{field}; |
2645 |
next unless $substitution->{field}; |
2643 |
C4::Items::ModItem( {$substitution->{field} => $substitution->{value}}, $biblionumber, $itemnumber ) |
2646 |
C4::Items::ModItem( { $substitution->{item_field} => $substitution->{value} }, $biblionumber, $itemnumber ) |
2644 |
unless $report_only; |
2647 |
unless $report_only; |
2645 |
push @{ $report->{$itemnumber} }, $substitution; |
2648 |
push @{ $report->{$itemnumber} }, $substitution; |
2646 |
} |
2649 |
} |
2647 |
- |
|
|