View | Details | Raw Unified | Return to bug 4517
Collapse All | Expand All

(-)a/serials/reorder_members.pl (-1 / +5 lines)
Lines 21-32 Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use CGI;
23
use CGI;
24
use C4::Auth qw( checkauth );
25
use C4::Serials qw( reorder_members );
24
26
25
my $query          = CGI->new;
27
my $query          = CGI->new;
26
my $subscriptionid = $query->param('subscriptionid');
28
my $subscriptionid = $query->param('subscriptionid');
27
my $routingid      = $query->param('routingid');
29
my $routingid      = $query->param('routingid');
28
my $rank           = $query->param('rank');
30
my $rank           = $query->param('rank');
29
31
32
my ( $user, $cookie, $sesion_id, $flags ) =
33
  checkauth( $query, 0, { serials => 1 }, 'intranet' );
34
30
reorder_members( $subscriptionid, $routingid, $rank );
35
reorder_members( $subscriptionid, $routingid, $rank );
31
36
32
print $query->redirect(
37
print $query->redirect(
33
- 

Return to bug 4517