X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=serials%2Freorder_members.pl;h=8b64fc7723fed28d815e4e42ee8eb1fc947ee44a;hb=HEAD;hp=66d4ab2f172ca29e1c30b45c1ebc74bfe6c2cfe1;hpb=aec1a31b23355f4d2b14e540b6788430bcc26326;p=koha.git diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl index 66d4ab2f17..8b64fc7723 100755 --- a/serials/reorder_members.pl +++ b/serials/reorder_members.pl @@ -21,12 +21,16 @@ use strict; use warnings; use CGI; +use C4::Auth qw( checkauth ); +use C4::Serials qw( reorder_members ); my $query = CGI->new; my $subscriptionid = $query->param('subscriptionid'); my $routingid = $query->param('routingid'); my $rank = $query->param('rank'); +checkauth( $query, 0, { serials => 1 }, 'intranet' ); + reorder_members( $subscriptionid, $routingid, $rank ); print $query->redirect(