Lines 25-30
Link Here
|
25 |
# Suite 330, Boston, MA 02111-1307 USA |
25 |
# Suite 330, Boston, MA 02111-1307 USA |
26 |
|
26 |
|
27 |
use strict; |
27 |
use strict; |
|
|
28 |
use warnings; |
28 |
|
29 |
|
29 |
# standard or CPAN modules used |
30 |
# standard or CPAN modules used |
30 |
use CGI; |
31 |
use CGI; |
Lines 41-47
use XML::LibXML;
Link Here
|
41 |
my $input = new CGI; |
42 |
my $input = new CGI; |
42 |
my $biblionumber = $input->param('id'); |
43 |
my $biblionumber = $input->param('id'); |
43 |
my $importid = $input->param('importid'); |
44 |
my $importid = $input->param('importid'); |
44 |
my $view = $input->param('viewas'); |
45 |
my $view = $input->param('viewas') || 'marc'; |
45 |
|
46 |
|
46 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ |
47 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ |
47 |
template_name => "opac-showmarc.tmpl", |
48 |
template_name => "opac-showmarc.tmpl", |
48 |
- |
|
|