@@ -, +, @@ missing some options available in the OPAC --- catalogue/export.pl | 14 ++++++++++++++ .../intranet-tmpl/prog/en/includes/cat-toolbar.inc | 7 ++++--- 2 files changed, 18 insertions(+), 3 deletions(-) --- a/catalogue/export.pl +++ a/catalogue/export.pl @@ -7,6 +7,7 @@ use C4::Auth; use C4::Output; use C4::Biblio; use CGI; +use C4::Ris; @@ -35,10 +36,20 @@ if ($op eq "export") { } elsif ($format =~ /marcxml/) { $marc = marc2marcxml($marc); + $format = "marcxml"; } elsif ($format=~ /mods/) { $marc = marc2modsxml($marc); + $format = "mods"; } + elsif ($format =~ /ris/) { + $marc = marc2ris($marc); + $format = "ris"; + } + elsif ($format =~ /bibtex/) { + $marc = marc2bibtex($marc); + $format = "bibtex"; + } elsif ($format =~ /dc/) { ($error,$marc) = marc2dcxml($marc,1); $format = "dublin-core.xml"; @@ -46,14 +57,17 @@ if ($op eq "export") { 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(); + $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', --- a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc @@ -173,13 +173,14 @@ CAN_user_serials_create_subscription ) %]
--