From 0e0403372e608dc04d12ce5800a997dd3059e3df Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Thu, 13 Jun 2013 20:36:36 +1200 Subject: [PATCH] Bug 9665: QA follow up fixing tabs Signed-off-by: Galen Charlton --- catalogue/export.pl | 58 ++++++++++++++++++++++----------------------- 1 file changed, 29 insertions(+), 29 deletions(-) diff --git a/catalogue/export.pl b/catalogue/export.pl index 935dd6bd73..efdf0eec2a 100755 --- a/catalogue/export.pl +++ b/catalogue/export.pl @@ -25,23 +25,23 @@ my $op=$query->param("op"); my $format=$query->param("format"); my $error = ''; if ($op eq "export") { - my $biblionumber = $query->param("bib"); - if ($biblionumber){ + my $biblionumber = $query->param("bib"); + if ($biblionumber){ - my $marc = GetMarcBiblio($biblionumber, 1); + my $marc = GetMarcBiblio($biblionumber, 1); - if ($format =~ /endnote/) { - $marc = marc2endnote($marc); - $format = 'endnote'; - } - elsif ($format =~ /marcxml/) { - $marc = marc2marcxml($marc); + if ($format =~ /endnote/) { + $marc = marc2endnote($marc); + $format = 'endnote'; + } + elsif ($format =~ /marcxml/) { + $marc = marc2marcxml($marc); $format = "marcxml"; - } - elsif ($format=~ /mods/) { - $marc = marc2modsxml($marc); + } + elsif ($format=~ /mods/) { + $marc = marc2modsxml($marc); $format = "mods"; - } + } elsif ($format =~ /ris/) { $marc = marc2ris($marc); $format = "ris"; @@ -50,28 +50,28 @@ if ($op eq "export") { $marc = marc2bibtex($marc); $format = "bibtex"; } - elsif ($format =~ /dc/) { - ($error,$marc) = marc2dcxml($marc,1); - $format = "dublin-core.xml"; - } - elsif ($format =~ /marc8/) { - $marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); - $marc = $marc->as_usmarc(); + elsif ($format =~ /dc/) { + ($error,$marc) = marc2dcxml($marc,1); + $format = "dublin-core.xml"; + } + elsif ($format =~ /marc8/) { + $marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); + $marc = $marc->as_usmarc(); $format = "marc8"; - } - elsif ($format =~ /utf8/) { - C4::Charset::SetUTF8Flag($marc, 1); - $marc = $marc->as_usmarc(); + } + elsif ($format =~ /utf8/) { + C4::Charset::SetUTF8Flag($marc, 1); + $marc = $marc->as_usmarc(); $format = "utf8"; - } + } elsif ($format =~ /marcstd/) { C4::Charset::SetUTF8Flag($marc,1); ($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); $format = "marcstd"; } - print $query->header( - -type => 'application/octet-stream', + print $query->header( + -type => 'application/octet-stream', -attachment=>"bib-$biblionumber.$format"); - print $marc; - } + print $marc; + } } -- 2.39.5