From 6f2f99077a14ddbedc152d5a5134d1bedc063003 Mon Sep 17 00:00:00 2001 From: Owen Leonard Date: Fri, 31 May 2013 11:03:56 -0400 Subject: [PATCH] Bug 9665 [Revised] Staff client bibliographic record export missing some options available in the OPAC The OPAC offers RIS and BIBTEX as choices for bibliographic downloads, but the staff client is missing these options. This patch adds them. To test, view a record in the staff client (detail.pl, MARCdetail.pl, etc.) and click the "Save..." toolbar button. BIBTEX and RIS should be available and functional. Revision reimplements the changes on the new Bootstrap version of the menu. Signed-off-by: David Cook Signed-off-by: Chris Cormack --- catalogue/export.pl | 14 ++++++++++++++ koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc | 9 +++++---- 2 files changed, 19 insertions(+), 4 deletions(-) diff --git a/catalogue/export.pl b/catalogue/export.pl index 26e189b..935dd6b 100755 --- a/catalogue/export.pl +++ b/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', diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc index f669d2c..3683ac9 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc +++ b/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc @@ -173,13 +173,14 @@ CAN_user_serials_create_subscription ) %] -- 1.8.1.2