|
Lines 121-126
if ( $op eq 'add_form' ) {
Link Here
|
| 121 |
if ($loggedinuser) { |
121 |
if ($loggedinuser) { |
| 122 |
my $allow_changes_from = $query->param('allow_changes_from'); |
122 |
my $allow_changes_from = $query->param('allow_changes_from'); |
| 123 |
eval { |
123 |
eval { |
|
|
124 |
if ( $public && !C4::Context->preference('OpacAllowPublicListCreation') ) { |
| 125 |
die "Public list creation is not authorized\n"; |
| 126 |
} elsif ( !$public && !C4::Context->preference('OpacAllowPrivateListCreation') ) { |
| 127 |
die "Private list creation is not authorized\n"; |
| 128 |
} |
| 129 |
|
| 124 |
$shelf = Koha::Virtualshelf->new( |
130 |
$shelf = Koha::Virtualshelf->new( |
| 125 |
{ |
131 |
{ |
| 126 |
shelfname => scalar $query->param('shelfname'), |
132 |
shelfname => scalar $query->param('shelfname'), |
| 127 |
- |
|
|