projects
/
srvgit
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge remote branch 'kc/new/bug_4218' into kcmaster
[srvgit]
/
opac
/
opac-export.pl
diff --git
a/opac/opac-export.pl
b/opac/opac-export.pl
index
0093ce0
..
4c53aff
100755
(executable)
--- a/
opac/opac-export.pl
+++ b/
opac/opac-export.pl
@@
-1,6
+1,7
@@
#!/usr/bin/perl
use HTML::Template::Pro;
use strict;
#!/usr/bin/perl
use HTML::Template::Pro;
use strict;
+use warnings;
use C4::Record;
use C4::Auth;
use C4::Record;
use C4::Auth;
@@
-8,6
+9,7
@@
use C4::Output;
use C4::Biblio;
use CGI;
use C4::Auth;
use C4::Biblio;
use CGI;
use C4::Auth;
+use C4::Ris;
my $query = new CGI;
my $op=$query->param("op");
my $query = new CGI;
my $op=$query->param("op");
@@
-33,7
+35,12
@@
if ($op eq "export") {
elsif ($format=~ /mods/) {
$marc = marc2modsxml($marc);
}
elsif ($format=~ /mods/) {
$marc = marc2modsxml($marc);
}
- elsif ($format =~ /dc/) {
+ elsif ($format =~ /ris/) {
+ $marc = marc2ris(MARC::Record->new_from_usmarc($marc));
+ }
+ elsif ($format =~ /bibtex/) {
+ $marc = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
+ }elsif ($format =~ /dc/) {
my $error;
($error,$marc) = marc2dcxml($marc,1);
$format = "dublin-core.xml";
my $error;
($error,$marc) = marc2dcxml($marc,1);
$format = "dublin-core.xml";