|
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 |
- |
|
|