View | Details | Raw Unified | Return to bug 9665
Collapse All | Expand All

(-)a/catalogue/export.pl (-30 / +29 lines)
Lines 25-47 my $op=$query->param("op"); Link Here
25
my $format=$query->param("format");
25
my $format=$query->param("format");
26
my $error = '';
26
my $error = '';
27
if ($op eq "export") {
27
if ($op eq "export") {
28
	my $biblionumber = $query->param("bib");
28
    my $biblionumber = $query->param("bib");
29
		if ($biblionumber){
29
        if ($biblionumber){
30
30
31
			my $marc = GetMarcBiblio($biblionumber, 1);
31
            my $marc = GetMarcBiblio($biblionumber, 1);
32
32
33
			if ($format =~ /endnote/) {
33
            if ($format =~ /endnote/) {
34
				$marc = marc2endnote($marc);
34
                $marc = marc2endnote($marc);
35
				$format = 'endnote';
35
                $format = 'endnote';
36
			}
36
            }
37
			elsif ($format =~ /marcxml/) {
37
            elsif ($format =~ /marcxml/) {
38
				$marc = marc2marcxml($marc);
38
                $marc = marc2marcxml($marc);
39
                $format = "marcxml";
39
                $format = "marcxml";
40
			}
40
            }
41
			elsif ($format=~ /mods/) {
41
            elsif ($format=~ /mods/) {
42
				$marc = marc2modsxml($marc);
42
                $marc = marc2modsxml($marc);
43
                $format = "mods";
43
                $format = "mods";
44
			}
44
            }
45
            elsif ($format =~ /ris/) {
45
            elsif ($format =~ /ris/) {
46
                $marc = marc2ris($marc);
46
                $marc = marc2ris($marc);
47
                $format = "ris";
47
                $format = "ris";
Lines 50-77 if ($op eq "export") { Link Here
50
                $marc = marc2bibtex($marc);
50
                $marc = marc2bibtex($marc);
51
                $format = "bibtex";
51
                $format = "bibtex";
52
            }
52
            }
53
			elsif ($format =~ /dc/) {
53
            elsif ($format =~ /dc/) {
54
				($error,$marc) = marc2dcxml($marc,1);
54
                ($error,$marc) = marc2dcxml($marc,1);
55
				$format = "dublin-core.xml";
55
                $format = "dublin-core.xml";
56
			}
56
            }
57
			elsif ($format =~ /marc8/) {
57
            elsif ($format =~ /marc8/) {
58
				$marc = changeEncoding($marc,"MARC","MARC21","MARC-8");
58
                $marc = changeEncoding($marc,"MARC","MARC21","MARC-8");
59
				$marc = $marc->as_usmarc();
59
                $marc = $marc->as_usmarc();
60
                $format = "marc8";
60
                $format = "marc8";
61
			}
61
            }
62
			elsif ($format =~ /utf8/) {
62
            elsif ($format =~ /utf8/) {
63
				C4::Charset::SetUTF8Flag($marc, 1);
63
                C4::Charset::SetUTF8Flag($marc, 1);
64
				$marc = $marc->as_usmarc();
64
                $marc = $marc->as_usmarc();
65
                $format = "utf8";
65
                $format = "utf8";
66
			}
66
            }
67
            elsif ($format =~ /marcstd/) {
67
            elsif ($format =~ /marcstd/) {
68
                C4::Charset::SetUTF8Flag($marc,1);
68
                C4::Charset::SetUTF8Flag($marc,1);
69
                ($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
69
                ($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
70
                $format = "marcstd";
70
                $format = "marcstd";
71
            }
71
            }
72
			print $query->header(
72
            print $query->header(
73
				-type => 'application/octet-stream',
73
                -type => 'application/octet-stream',
74
                -attachment=>"bib-$biblionumber.$format");
74
                -attachment=>"bib-$biblionumber.$format");
75
			print $marc;
75
            print $marc;
76
		}
76
        }
77
}
77
}
78
- 

Return to bug 9665