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

(-)a/catalogue/export.pl (+14 lines)
Lines 7-12 use C4::Auth; Link Here
7
use C4::Output;
7
use C4::Output;
8
use C4::Biblio;
8
use C4::Biblio;
9
use CGI;
9
use CGI;
10
use C4::Ris;
10
11
11
12
12
13
Lines 35-44 if ($op eq "export") { Link Here
35
			}
36
			}
36
			elsif ($format =~ /marcxml/) {
37
			elsif ($format =~ /marcxml/) {
37
				$marc = marc2marcxml($marc);
38
				$marc = marc2marcxml($marc);
39
                $format = "marcxml";
38
			}
40
			}
39
			elsif ($format=~ /mods/) {
41
			elsif ($format=~ /mods/) {
40
				$marc = marc2modsxml($marc);
42
				$marc = marc2modsxml($marc);
43
                $format = "mods";
41
			}
44
			}
45
            elsif ($format =~ /ris/) {
46
                $marc = marc2ris($marc);
47
                $format = "ris";
48
            }
49
            elsif ($format =~ /bibtex/) {
50
                $marc = marc2bibtex($marc);
51
                $format = "bibtex";
52
            }
42
			elsif ($format =~ /dc/) {
53
			elsif ($format =~ /dc/) {
43
				($error,$marc) = marc2dcxml($marc,1);
54
				($error,$marc) = marc2dcxml($marc,1);
44
				$format = "dublin-core.xml";
55
				$format = "dublin-core.xml";
Lines 46-59 if ($op eq "export") { Link Here
46
			elsif ($format =~ /marc8/) {
57
			elsif ($format =~ /marc8/) {
47
				$marc = changeEncoding($marc,"MARC","MARC21","MARC-8");
58
				$marc = changeEncoding($marc,"MARC","MARC21","MARC-8");
48
				$marc = $marc->as_usmarc();
59
				$marc = $marc->as_usmarc();
60
                $format = "marc8";
49
			}
61
			}
50
			elsif ($format =~ /utf8/) {
62
			elsif ($format =~ /utf8/) {
51
				C4::Charset::SetUTF8Flag($marc, 1);
63
				C4::Charset::SetUTF8Flag($marc, 1);
52
				$marc = $marc->as_usmarc();
64
				$marc = $marc->as_usmarc();
65
                $format = "utf8";
53
			}
66
			}
54
            elsif ($format =~ /marcstd/) {
67
            elsif ($format =~ /marcstd/) {
55
                C4::Charset::SetUTF8Flag($marc,1);
68
                C4::Charset::SetUTF8Flag($marc,1);
56
                ($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
69
                ($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
70
                $format = "marcstd";
57
            }
71
            }
58
			print $query->header(
72
			print $query->header(
59
				-type => 'application/octet-stream',
73
				-type => 'application/octet-stream',
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc (-5 / +5 lines)
Lines 173-185 CAN_user_serials_create_subscription ) %] Link Here
173
    <div class="btn-group">
173
    <div class="btn-group">
174
    <button class="btn btn-small dropdown-toggle" data-toggle="dropdown"><i class="icon-download-alt"></i> Save <span class="caret"></span></button>
174
    <button class="btn btn-small dropdown-toggle" data-toggle="dropdown"><i class="icon-download-alt"></i> Save <span class="caret"></span></button>
175
    <ul class="dropdown-menu">
175
    <ul class="dropdown-menu">
176
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=mods&amp;op=export&amp;bib=[% biblionumber %]">MODS (XML)</a></li>
176
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=bibtex&amp;op=export&amp;bib=[% biblionumber %]">BIBTEX</a></li>
177
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=dc&amp;op=export&amp;bib=[% biblionumber %]
177
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=dc&amp;op=export&amp;bib=[% biblionumber %]">Dublin Core (XML)</a></li>
178
">Dublic Core (XML)</a></li>
179
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=marcxml&amp;op=export&amp;bib=[% biblionumber %]">MARCXML</a></li>
178
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=marcxml&amp;op=export&amp;bib=[% biblionumber %]">MARCXML</a></li>
180
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=marc8&amp;op=export&amp;bib=[% biblionumber %]">MARC (non-Unicode/MARC-8)</a></li>
179
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=marc8&amp;op=export&amp;bib=[% biblionumber %]">MARC (non-Unicode/MARC-8)</a></li>
181
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=utf8&amp;op=export&amp;bib=[% biblionumber %]">MARC (Unicode/UTF-8</a></li>
180
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=utf8&amp;op=export&amp;bib=[% biblionumber %]">MARC (Unicode/UTF-8)</a></li>
182
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=marcstd&amp;op=export&amp;bib=[% biblionumber %]">MARC (Unicode/UTF-8, Standard)</a></li>
181
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=marcstd&amp;op=export&amp;bib=[% biblionumber %]">MARC (Unicode/UTF-8, Standard)</a></li>
182
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=mods&amp;op=export&amp;bib=[% biblionumber %]">MODS (XML)</a></li>
183
        <li><a href="/cgi-bin/koha/catalogue/export.pl?format=ris&amp;op=export&amp;bib=[% biblionumber %]">RIS</a></li>
183
    </ul>
184
    </ul>
184
    </div>
185
    </div>
185
186
186
- 

Return to bug 9665