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