@@ -, +, @@ --- tools/showdiffmarc.pl | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) --- a/tools/showdiffmarc.pl +++ a/tools/showdiffmarc.pl @@ -22,8 +22,7 @@ use Modern::Perl; # standard or CPAN modules used -use CGI qw(:standard); -use DBI; +use CGI qw(:standard -utf8); # Koha modules used use C4::Context; @@ -31,9 +30,6 @@ use C4::Output; use C4::Auth; use C4::Biblio; use C4::ImportBatch; -use XML::LibXSLT; -use XML::LibXML; - # Input params my $input = new CGI; @@ -41,16 +37,13 @@ my $biblionumber = $input->param('id'); my $importid = $input->param('importid'); my $batchid = $input->param('batchid'); - if ( not $biblionumber or not $importid ) { print $input->redirect("/cgi-bin/koha/errors/404.pl"); exit; } # Init vars -my ($recordBiblionumber, $recordImportid, $biblioTitle, $importTitle, $formatted1, $formatted2, - $errorFormatted1, $errorFormatted2); - +my ($recordBiblionumber, $recordImportid, $biblioTitle, $importTitle, $formatted1, $formatted2, $errorFormatted1, $errorFormatted2); # Prepare template my ( $template, $loggedinuser, $cookie ) = get_template_and_user( @@ -64,7 +57,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); - $recordBiblionumber = GetMarcBiblio($biblionumber, 'embed_items'); if( $recordBiblionumber ) { $formatted1 = $recordBiblionumber->as_formatted; @@ -83,7 +75,6 @@ if( $importid ) { $errorFormatted2 = 1; } - $template->param( SCRIPT_NAME => '/cgi-bin/koha/tools/showdiffmarc.pl', BIBLIONUMBER => $biblionumber, --