Lines 8-14
use C4::Biblio qw( GetMarcControlnumber );
Link Here
|
8 |
use CGI qw ( -utf8 ); |
8 |
use CGI qw ( -utf8 ); |
9 |
use C4::Ris qw( marc2ris ); |
9 |
use C4::Ris qw( marc2ris ); |
10 |
use C4::XSLT qw( XSLTParse4Display ); |
10 |
use C4::XSLT qw( XSLTParse4Display ); |
11 |
|
11 |
use Koha::Biblios; |
12 |
|
12 |
|
13 |
|
13 |
|
14 |
|
14 |
|
Lines 92-98
if ($op eq "export") {
Link Here
|
92 |
my $biblionumber = $query->param("bib"); |
92 |
my $biblionumber = $query->param("bib"); |
93 |
if ($biblionumber){ |
93 |
if ($biblionumber){ |
94 |
my $xslFile = $query->param("file"); |
94 |
my $xslFile = $query->param("file"); |
95 |
my $marc = GetMarcBiblio( { biblionumber => $biblionumber, embed_items => 1 } ); |
95 |
my $biblio = Koha::Biblios->find($biblionumber); |
|
|
96 |
my $marc = $biblio->metadata->record( { embed_items => 1 } ); |
96 |
my $format=$query->param("format")||'txt'; |
97 |
my $format=$query->param("format")||'txt'; |
97 |
my @hiddenitems; |
98 |
my @hiddenitems; |
98 |
|
99 |
|