|
Lines 35-41
my $input = new CGI;
Link Here
|
| 35 |
my $dbh = C4::Context->dbh; |
35 |
my $dbh = C4::Context->dbh; |
| 36 |
my $error = $input->param('error'); |
36 |
my $error = $input->param('error'); |
| 37 |
my $biblionumber = $input->param('biblionumber') || 0; |
37 |
my $biblionumber = $input->param('biblionumber') || 0; |
| 38 |
my $frameworkcode = $input->param('frameworkcode'); |
38 |
my $frameworkcode = $input->param('frameworkcode') || q{}; |
| 39 |
my $title = $input->param('title'); |
39 |
my $title = $input->param('title'); |
| 40 |
my $author = $input->param('author'); |
40 |
my $author = $input->param('author'); |
| 41 |
my $isbn = $input->param('isbn'); |
41 |
my $isbn = $input->param('isbn'); |
|
Lines 48-54
my $controlnumber = $input->param('controlnumber');
Link Here
|
| 48 |
my $stdid = $input->param('stdid'); |
48 |
my $stdid = $input->param('stdid'); |
| 49 |
my $srchany = $input->param('srchany'); |
49 |
my $srchany = $input->param('srchany'); |
| 50 |
my $random = $input->param('random') || rand(1000000000); # this var is not useful anymore just kept for rel2_2 compatibility |
50 |
my $random = $input->param('random') || rand(1000000000); # this var is not useful anymore just kept for rel2_2 compatibility |
| 51 |
my $op = $input->param('op'); |
51 |
my $op = $input->param('op') || q{}; |
| 52 |
|
52 |
|
| 53 |
my $page = $input->param('current_page') || 1; |
53 |
my $page = $input->param('current_page') || 1; |
| 54 |
$page = $input->param('goto_page') if $input->param('changepage_goto'); |
54 |
$page = $input->param('goto_page') if $input->param('changepage_goto'); |
| 55 |
- |
|
|