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 |
my $numberpending; |
52 |
my $numberpending; |
53 |
my $attr = ''; |
53 |
my $attr = ''; |
54 |
my $term; |
54 |
my $term; |
55 |
- |
|
|