#!/usr/bin/perl
use HTML::Template::Pro;
use strict;
+use warnings;
use C4::Record;
use C4::Auth;
use C4::Biblio;
use CGI;
use C4::Auth;
+use C4::Ris;
my $query = new CGI;
my $op=$query->param("op");
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";