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