Henri-Damien LAURENT
15 years ago
6 changed files with 220 additions and 0 deletions
@ -0,0 +1,24 @@ |
|||
<!-- TMPL_INCLUDE NAME="doc-head-open.inc" -->Download shelf<!-- TMPL_INCLUDE NAME="doc-head-close.inc" --> |
|||
</head> |
|||
<body> |
|||
<!-- TMPL_IF NAME="format" --> |
|||
Your Download should automatically start |
|||
<!-- TMPL_ELSE --> |
|||
<div id="export" class="detailtagcell"> <form method="post" action="/cgi-bin/koha/opac-downloadcart.pl"> |
|||
<label for="format">Download cart:</label> |
|||
<select name="format" id="format"> |
|||
<option value="">-- Choose Format --</option> |
|||
<option value="iso2709">iso2709</option> |
|||
<option value="ris">RIS</option> |
|||
<option value="bibtex">BibTex</option> |
|||
</select> |
|||
<input type="hidden" name="bib_list" value="<!-- TMPL_VAR NAME="bib_list" -->" /> |
|||
<input type="submit" name="save" value="Go" /> |
|||
</form> |
|||
|
|||
<p><a class="button" href="#" onclick="javascript:window.close()">Close this window</a></p> |
|||
</div> |
|||
|
|||
<!-- /TMPL_IF --> |
|||
</body> |
|||
</html> |
@ -0,0 +1,24 @@ |
|||
<!-- TMPL_INCLUDE NAME="doc-head-open.inc" -->Download shelf<!-- TMPL_INCLUDE NAME="doc-head-close.inc" --> |
|||
</head> |
|||
<body> |
|||
<!-- TMPL_IF NAME="format" --> |
|||
Your Download should automatically start |
|||
<!-- TMPL_ELSE --> |
|||
<div id="export" class="detailtagcell"> <form method="post" action="/cgi-bin/koha/opac-downloadshelf.pl"> |
|||
<label for="format">Download shelf:</label> |
|||
<select name="format" id="format"> |
|||
<option value="">-- Choose Format --</option> |
|||
<option value="iso2709">iso2709</option> |
|||
<option value="ris">RIS</option> |
|||
<option value="bibtex">BibTex</option> |
|||
</select> |
|||
<input type="hidden" name="shelfid" value="<!-- TMPL_VAR NAME="shelfid" -->" /> |
|||
<input type="submit" name="save" value="Go" /> |
|||
</form> |
|||
|
|||
<p><a class="button" href="#" onclick="javascript:window.close()">Close this window</a></p> |
|||
</div> |
|||
|
|||
<!-- /TMPL_IF --> |
|||
</body> |
|||
</html> |
@ -0,0 +1,80 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
# Copyright 2009 BibLibre |
|||
# |
|||
# This file is part of Koha. |
|||
# |
|||
# Koha is free software; you can redistribute it and/or modify it under the |
|||
# terms of the GNU General Public License as published by the Free Software |
|||
# Foundation; either version 2 of the License, or (at your option) any later |
|||
# version. |
|||
# |
|||
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY |
|||
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
|||
# A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
|||
# |
|||
# You should have received a copy of the GNU General Public License along with |
|||
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, |
|||
# Suite 330, Boston, MA 02111-1307 USA |
|||
|
|||
use strict; |
|||
use warnings; |
|||
|
|||
use CGI; |
|||
use Encode qw(encode); |
|||
use Switch; |
|||
|
|||
use C4::Auth; |
|||
use C4::Biblio; |
|||
use C4::Items; |
|||
use C4::Output; |
|||
use C4::VirtualShelves; |
|||
use C4::Record; |
|||
use C4::Ris; |
|||
use utf8; |
|||
use open qw( :std :utf8); |
|||
my $query = new CGI; |
|||
|
|||
my ( $template, $borrowernumber, $cookie ) = get_template_and_user ( |
|||
{ |
|||
template_name => "opac-downloadcart.tmpl", |
|||
query => $query, |
|||
type => "opac", |
|||
authnotrequired => 1, |
|||
flagsrequired => { borrow => 1 }, |
|||
} |
|||
); |
|||
|
|||
my $bib_list = $query->param('bib_list'); |
|||
my $format = $query->param('format'); |
|||
my $dbh = C4::Context->dbh; |
|||
|
|||
if ($bib_list && $format) { |
|||
|
|||
my @bibs = split( /\//, $bib_list ); |
|||
|
|||
my $marcflavour = C4::Context->preference('marcflavour'); |
|||
my $output; |
|||
|
|||
# retrieve biblios from shelf |
|||
foreach my $biblio (@bibs) { |
|||
|
|||
my $record = GetMarcBiblio($biblio); |
|||
|
|||
switch ($format) { |
|||
case "iso2709" { $output .= $record->as_usmarc(); } |
|||
case "ris" { $output .= marc2ris($record); } |
|||
case "bibtex" { $output .= marc2bibtex($record, $biblio); } |
|||
} |
|||
} |
|||
|
|||
print $query->header( |
|||
-type => 'application/octet-stream', |
|||
-'Content-Transfer-Encoding' => 'binary', |
|||
-attachment=>"cart.$format"); |
|||
print $output; |
|||
|
|||
} else { |
|||
$template->param(bib_list => $bib_list); |
|||
output_html_with_http_headers $query, $cookie, $template->output; |
|||
} |
@ -0,0 +1,81 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
# Copyright 2009 BibLibre |
|||
# |
|||
# This file is part of Koha. |
|||
# |
|||
# Koha is free software; you can redistribute it and/or modify it under the |
|||
# terms of the GNU General Public License as published by the Free Software |
|||
# Foundation; either version 2 of the License, or (at your option) any later |
|||
# version. |
|||
# |
|||
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY |
|||
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
|||
# A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
|||
# |
|||
# You should have received a copy of the GNU General Public License along with |
|||
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, |
|||
# Suite 330, Boston, MA 02111-1307 USA |
|||
|
|||
use strict; |
|||
use warnings; |
|||
|
|||
use CGI; |
|||
use Encode qw(encode); |
|||
use Switch; |
|||
|
|||
use C4::Auth; |
|||
use C4::Biblio; |
|||
use C4::Items; |
|||
use C4::Output; |
|||
use C4::VirtualShelves; |
|||
use C4::Record; |
|||
use C4::Ris; |
|||
use utf8; |
|||
use open qw( :std :utf8); |
|||
my $query = new CGI; |
|||
|
|||
my ( $template, $borrowernumber, $cookie ) = get_template_and_user ( |
|||
{ |
|||
template_name => "opac-downloadshelf.tmpl", |
|||
query => $query, |
|||
type => "opac", |
|||
authnotrequired => 1, |
|||
flagsrequired => { borrow => 1 }, |
|||
} |
|||
); |
|||
|
|||
my $shelfid = $query->param('shelfid'); |
|||
my $format = $query->param('format'); |
|||
my $dbh = C4::Context->dbh; |
|||
|
|||
if ($shelfid && $format) { |
|||
|
|||
my @shelf = GetShelf($shelfid); |
|||
my ($items, $totitems) = GetShelfContents($shelfid); |
|||
my $marcflavour = C4::Context->preference('marcflavour'); |
|||
my $output; |
|||
|
|||
# retrieve biblios from shelf |
|||
foreach my $biblio (@$items) { |
|||
my $biblionumber = $biblio->{biblionumber}; |
|||
|
|||
my $record = GetMarcBiblio($biblionumber); |
|||
|
|||
switch ($format) { |
|||
case "iso2709" { $output .= $record->as_usmarc(); } |
|||
case "ris" { $output .= marc2ris($record); } |
|||
case "bibtex" { $output .= marc2bibtex($record, $biblionumber); } |
|||
} |
|||
} |
|||
|
|||
print $query->header( |
|||
-type => 'application/octet-stream', |
|||
-'Content-Transfer-Encoding' => 'binary', |
|||
-attachment=>"shelf.$format"); |
|||
print $output; |
|||
|
|||
} else { |
|||
$template->param(shelfid => $shelfid); |
|||
output_html_with_http_headers $query, $cookie, $template->output; |
|||
} |
Loading…
Reference in new issue