Lines 56-62
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
56 |
} |
56 |
} |
57 |
); |
57 |
); |
58 |
|
58 |
|
59 |
my $op = $cgi->param('op') // 'cud-show'; |
59 |
my $op = $cgi->param('op') // 'show'; |
60 |
|
60 |
|
61 |
my $syspref_name = q|automatic_item_modification_by_age_configuration|; |
61 |
my $syspref_name = q|automatic_item_modification_by_age_configuration|; |
62 |
if ( $op eq 'cud-update' ) { |
62 |
if ( $op eq 'cud-update' ) { |
Lines 96-102
if ( $op eq 'cud-update' ) {
Link Here
|
96 |
my $syspref_content = to_json( \@rules ); |
96 |
my $syspref_content = to_json( \@rules ); |
97 |
C4::Context->set_preference($syspref_name, $syspref_content); |
97 |
C4::Context->set_preference($syspref_name, $syspref_content); |
98 |
|
98 |
|
99 |
$op = 'cud-show'; |
99 |
$op = 'show'; |
100 |
} |
100 |
} |
101 |
|
101 |
|
102 |
my @messages; |
102 |
my @messages; |
103 |
- |
|
|