#!/usr/bin/perl
-use HTML::Template;
+use HTML::Template::Pro;
use strict;
require Exporter;
use C4::Record;
while (my ($marc) = $sth->fetchrow) {
if ($marc){
- if ($format =~ /marcxml/) {
+ if ($format =~ /endnote/) {
+ $marc = marc2endnote($marc);
+ $format = 'endnote';
+ }
+ elsif ($format =~ /marcxml/) {
$marc = marc2marcxml($marc);
}
elsif ($format=~ /mods/) {