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