|
Lines 19-24
Link Here
|
| 19 |
|
19 |
|
| 20 |
|
20 |
|
| 21 |
use strict; |
21 |
use strict; |
|
|
22 |
use warnings; |
| 23 |
|
| 22 |
use CGI; |
24 |
use CGI; |
| 23 |
use C4::Auth; |
25 |
use C4::Auth; |
| 24 |
use C4::Dates; |
26 |
use C4::Dates; |
|
Lines 30-42
use C4::Serials;
Link Here
|
| 30 |
|
32 |
|
| 31 |
|
33 |
|
| 32 |
my $query = new CGI; |
34 |
my $query = new CGI; |
| 33 |
my $op = $query->param('op'); |
35 |
my $op = $query->param('op') || ''; |
| 34 |
my $dbh = C4::Context->dbh; |
36 |
my $dbh = C4::Context->dbh; |
| 35 |
|
37 |
|
| 36 |
my $sth; |
38 |
my $sth; |
| 37 |
my ( $template, $loggedinuser, $cookie ); |
39 |
my ( $template, $loggedinuser, $cookie ); |
| 38 |
my $externalid = $query->param('externalid'); |
40 |
my $externalid = $query->param('externalid'); |
| 39 |
my $alerttype = $query->param('alerttype'); |
41 |
my $alerttype = $query->param('alerttype') || ''; |
| 40 |
my $biblionumber = $query->param('biblionumber'); |
42 |
my $biblionumber = $query->param('biblionumber'); |
| 41 |
|
43 |
|
| 42 |
( $template, $loggedinuser, $cookie ) = get_template_and_user( |
44 |
( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 43 |
- |
|
|