3c83e11786
This patch allows the user to use a CSV export profile to create the fields to export the basket as CSV in a basket page.
Test plan:
1) Apply the patch
2) Go to Tools › CSV export profiles and create a profile of type "SQL for basket export in acquisition"
example:
biblionumber=biblio.biblionumber|auteur=biblio.author|titre=biblio.title|date=biblioitems.copyrightdate|editeur=biblioitems.publishercode|isbn=biblioitems.isbn|quantite=aqorders.quantity|prix=aqorders.rrp|panier=aqorders.basketno
3) In acquisition module, create a new basket and add an order to the basket
4) On basket detail page, there should be the split button labelled "Export to CSV"
5) Try to use the button and export CSV with your CSV profile you defined in step 2
6) Validate the CSV file.
7) Repeat 4-6 with a closed basket.
a) close the basket
b) View the basket
c) validate that there is an export button
d) test it with an export
8) prove t/db_dependent/Acquisition/GetBasketAsCSV.t t/db_dependent/Koha/CsvProfiles.t
Initial work:
Sponsored by: CCSR
Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: mehdi <mehdi.hamidi@inlibro.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
111 lines
3.6 KiB
Perl
Executable file
111 lines
3.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Parts Copyright 2010 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 3 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, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
use CGI qw ( -utf8 );
|
|
use C4::Auth;
|
|
use C4::Serials;
|
|
use C4::Acquisition;
|
|
use C4::Output;
|
|
use C4::Context;
|
|
use C4::Letters;
|
|
use C4::Koha qw( GetAuthorisedValues );
|
|
|
|
use Koha::AdditionalField;
|
|
use Koha::CsvProfiles;
|
|
|
|
my $input = CGI->new;
|
|
|
|
my $serialid = $input->param('serialid');
|
|
my $op = $input->param('op');
|
|
my $claimletter = $input->param('claimletter');
|
|
my $supplierid = $input->param('supplierid');
|
|
my $suppliername = $input->param('suppliername');
|
|
|
|
# open template first (security & userenv set here)
|
|
my ($template, $loggedinuser, $cookie)
|
|
= get_template_and_user({template_name => 'serials/claims.tt',
|
|
query => $input,
|
|
type => 'intranet',
|
|
authnotrequired => 0,
|
|
flagsrequired => {serials => 'claim_serials'},
|
|
debug => 1,
|
|
});
|
|
|
|
# supplierlist is returned in name order
|
|
my $supplierlist = GetSuppliersWithLateIssues();
|
|
for my $s (@{$supplierlist} ) {
|
|
$s->{count} = scalar GetLateOrMissingIssues($s->{id});
|
|
if ($supplierid && $s->{id} == $supplierid) {
|
|
$s->{selected} = 1;
|
|
}
|
|
}
|
|
|
|
my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription', searchable => 1 } );
|
|
for my $field ( @$additional_fields ) {
|
|
if ( $field->{authorised_value_category} ) {
|
|
$field->{authorised_value_choices} = GetAuthorisedValues( $field->{authorised_value_category} );
|
|
}
|
|
}
|
|
|
|
|
|
my @serialnums=$input->multi_param('serialid');
|
|
if (@serialnums) { # i.e. they have been flagged to generate claims
|
|
my $err;
|
|
eval {
|
|
$err = SendAlerts('claimissues',\@serialnums,$input->param("letter_code"));
|
|
if ( not ref $err or not exists $err->{error} ) {
|
|
C4::Serials::updateClaim( \@serialnums );
|
|
}
|
|
};
|
|
if ( $@ ) {
|
|
$template->param(error_claim => $@);
|
|
} elsif ( ref $err and exists $err->{error} ) {
|
|
if ( $err->{error} eq "no_email" ) {
|
|
$template->param( error_claim => 'no_vendor_email' );
|
|
} elsif ( $err->{error} =~ m|Bad or missing From address| ) {
|
|
$template->param( error_claim => 'bad_or_missing_sender' );
|
|
}
|
|
} else {
|
|
$template->param( info_claim => 1 );
|
|
}
|
|
}
|
|
|
|
my $letters = GetLetters({ module => 'claimissues' });
|
|
|
|
my @missingissues;
|
|
if ($supplierid) {
|
|
@missingissues = GetLateOrMissingIssues($supplierid);
|
|
foreach my $issue (@missingissues) {
|
|
$issue->{cannot_claim} = 1
|
|
unless C4::Serials::can_claim_subscription($issue);
|
|
}
|
|
}
|
|
|
|
$template->param(
|
|
suploop => $supplierlist,
|
|
missingissues => \@missingissues,
|
|
supplierid => $supplierid,
|
|
claimletter => $claimletter,
|
|
additional_fields_for_subscription => $additional_fields,
|
|
csv_profiles => [ Koha::CsvProfiles->search({ type => 'late_issues' }) ],
|
|
letters => $letters,
|
|
(uc(C4::Context->preference("marcflavour"))) => 1
|
|
);
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|