# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
+use C4::Auth qw( checkauth );
use C4::Context;
-use C4::Biblio;
-use C4::Items;
use C4::Output;
-use C4::Circulation;
+use C4::Circulation qw( LostItem );
use C4::Reserves;
-my $cgi= new CGI;
+my $cgi= CGI->new;
checkauth($cgi, 0, {circulate => 'circulate_remaining_permissions'}, 'intranet');
}
}
+my $messages = q{};
+
# modify MARC item if input differs from items table.
if ( $op eq "set_non_public_note" ) {
checkauth($cgi, 0, {editcatalogue => 'edit_items'}, 'intranet');
$item->withdrawn($withdrawn);
} elsif ( $op eq "set_exclude_priority" && $exclude_from_local_holds_priority ne $item_data_hashref->{'exclude_from_local_holds_priority'}) {
$item->exclude_from_local_holds_priority($exclude_from_local_holds_priority);
+ $messages = "updated_exclude_from_local_holds_priority=$exclude_from_local_holds_priority&";
} elsif ( $op eq "set_damaged" && $damaged ne $item_data_hashref->{'damaged'}) {
$item->damaged($damaged);
} else {
LostItem($itemnumber, 'moredetail') if $op eq "set_lost";
-print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
+print $cgi->redirect("moredetail.pl?" . $messages . "biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");