X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Flateorders.pl;h=1a64a4cb72193b2ce64606536795ee4f598a5e4c;hb=9c5e40e4923179bf0b2b630d3e09797dc4c1fdb0;hp=720dd8e2ad1c0acdc6d64b806da70731fd8a6646;hpb=989ca913394b2e68bfa919d48dcd3bcd31bbb8a5;p=koha.git diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl index 720dd8e2ad..1a64a4cb72 100755 --- a/acqui/lateorders.pl +++ b/acqui/lateorders.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl + +# Copyright 2005 Biblibre # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it under the @@ -11,83 +13,166 @@ # 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 +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +=head1 NAME + +lateorders.pl + +=head1 DESCRIPTION + +this script shows late orders for a specific supplier, branch and delay +given on input arg. + +=head1 CGI PARAMETERS + +=over 4 + +=item booksellerid +To know on which supplier this script have to display late order. + +=item delay +To know the time boundary. Default value is 30 days. + +=item branch +To know on which branch this script have to display late order. -# $Id$ +=back -use strict; +=cut + +use Modern::Perl; use CGI; -use C4::Acquisition; +use C4::Bookseller qw( GetBooksellersWithLateOrders ); use C4::Auth; use C4::Koha; use C4::Output; -use C4::Interface::CGI::Output; use C4::Context; -use HTML::Template; - -my $query = new CGI; -my ($template, $loggedinuser, $cookie) -= get_template_and_user({template_name => "acqui/lateorders.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {acquisition => 1}, - debug => 1, - }); -# my $title = $query->param('title'); -# my $ISSN = $query->param('ISSN'); -# my @subscriptions = GetSubscriptions($title,$ISSN); - -my $supplierid = $query->param('supplierid'); -my $delay = $query->param('delay'); -my $branch = $query->param('branch'); - -$delay =($delay?$delay:30); - -my %supplierlist = getsupplierlistwithlateorders($delay,$branch); -my @select_supplier; -push @select_supplier,""; -foreach my $supplierid (keys %supplierlist){ - push @select_supplier, $supplierid; +use C4::Acquisition; +use C4::Letters; +use C4::Branch; # GetBranches +use Koha::DateUtils; + +my $input = new CGI; +my ($template, $loggedinuser, $cookie) = get_template_and_user({ + template_name => "acqui/lateorders.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {acquisition => 'order_receive'}, + debug => 1, +}); + +my $booksellerid = $input->param('booksellerid') || undef; # we don't want "" or 0 +my $delay = $input->param('delay') // 0; + +# Get the "date from" param if !defined is today +my $estimateddeliverydatefrom = $input->param('estimateddeliverydatefrom'); +my $estimateddeliverydateto = $input->param('estimateddeliverydateto'); + +my $estimateddeliverydatefrom_dt = + $estimateddeliverydatefrom + ? dt_from_string($estimateddeliverydatefrom) + : undef; + +# Get the "date to" param. If it is not defined and $delay is not defined too, it is the today's date. +my $estimateddeliverydateto_dt = $estimateddeliverydateto + ? dt_from_string($estimateddeliverydateto) + : ( not defined $delay and not defined $estimateddeliverydatefrom) + ? dt_from_string() + : undef; + +# Format the output of "date from" and "date to" +if ($estimateddeliverydatefrom_dt) { + $estimateddeliverydatefrom = output_pref({dt => $estimateddeliverydatefrom_dt, dateonly => 1}); } -my $CGIsupplier=CGI::scrolling_list( -name => 'supplierid', - -values => \@select_supplier, - -default => $supplierid, - -labels => \%supplierlist, - -size => 1, - -tabindex=>'', - -multiple => 0 ); - -$template->param(Supplier=>$supplierlist{$supplierid}) if ($supplierid); - -my $branches = getbranches; -my @branchloop; -foreach my $thisbranch (sort keys %$branches) { - my %row =(value => $thisbranch, - branchname => $branches->{$thisbranch}->{'branchname'}, - ); - push @branchloop, \%row; +if ($estimateddeliverydateto_dt) { + $estimateddeliverydateto = output_pref({dt => $estimateddeliverydateto_dt, dateonly => 1}); } -my $CGIbranch=CGI::scrolling_list( -name => 'branch', - -values => \@select_branches, - -labels => \%select_branches, - -size => 1, - -tabindex=>'', - -multiple => 0 ); - -my ($count, @lateorders) = getlateorders($delay,$supplierid,$branch); + +my $branch = $input->param('branch'); +my $op = $input->param('op'); + +my @errors = (); +if ( $delay and not $delay =~ /^\d{1,3}$/ ) { + push @errors, {delay_digits => 1, bad_delay => $delay}; +} + +if ($op and $op eq "send_alert"){ + my @ordernums = $input->param("ordernumber");# FIXME: Fallback values? + my $err; + eval { + $err = SendAlerts( 'claimacquisition', \@ordernums, $input->param("letter_code") ); # FIXME: Fallback value? + if ( not ref $err or not exists $err->{error} ) { + AddClaim ( $_ ) for @ordernums; + } + }; + + if ( $@ ) { + $template->param(error_claim => $@); + } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_email" ) { + $template->{VARS}->{'error_claim'} = "no_email"; + } else { + $template->{VARS}->{'info_claim'} = 1; + } +} + +my @parameters = ( $delay ); +push @parameters, $estimateddeliverydatefrom_dt + ? $estimateddeliverydatefrom_dt->ymd() + : undef; + +push @parameters, $estimateddeliverydateto_dt + ? $estimateddeliverydateto_dt->ymd() + : undef; + +my %supplierlist = GetBooksellersWithLateOrders(@parameters); + +my (@sloopy); # supplier loop +foreach (keys %supplierlist){ + push @sloopy, (($booksellerid and $booksellerid eq $_ ) ? + {id=>$_, name=>$supplierlist{$_}, selected=>1} : + {id=>$_, name=>$supplierlist{$_}} ) ; +} +$template->param(SUPPLIER_LOOP => \@sloopy); + +$template->param(Supplier=>$supplierlist{$booksellerid}) if ($booksellerid); +$template->param(booksellerid=>$booksellerid) if ($booksellerid); + +@parameters = + ( $delay, $booksellerid, $branch ); +if ($estimateddeliverydatefrom_dt) { + push @parameters, $estimateddeliverydatefrom_dt->ymd(); +} +else { + push @parameters, undef; +} +if ($estimateddeliverydateto_dt) { + push @parameters, $estimateddeliverydateto_dt->ymd(); +} +my @lateorders = GetLateOrders( @parameters ); + my $total; -foreach my $lateorder (@lateorders){ - $total+=$lateorder->{subtotal}; +foreach (@lateorders){ + $total += $_->{subtotal}; +} + +my @letters; +my $letters=GetLetters("claimacquisition"); +foreach (keys %$letters){ + push @letters, {code=>$_,name=>$letters->{$_}}; } -$template->param(delay=>$delay) if ($delay); +$template->param(letters=>\@letters) if (@letters); + +$template->param(ERROR_LOOP => \@errors) if (@errors); $template->param( - branchloop => \@branchloop, - CGIsupplier => $CGIsupplier, lateorders => \@lateorders, - total=>$total, + delay => $delay, + estimateddeliverydatefrom => $estimateddeliverydatefrom, + estimateddeliverydateto => $estimateddeliverydateto, + total => $total, intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), - ); -output_html_with_http_headers $query, $cookie, $template->output; +); +output_html_with_http_headers $input, $cookie, $template->output;