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