=over 4
-=item supplierid
+=item booksellerid
To know on which supplier this script have to display late order.
=item delay
debug => 1,
});
-my $supplierid = $input->param('supplierid') || undef; # we don't want "" or 0
+my $booksellerid = $input->param('booksellerid') || undef; # we don't want "" or 0
my $delay = $input->param('delay');
my $branch = $input->param('branch');
my $op = $input->param('op');
$delay = 30; #default value for delay
}
+if ($op and $op eq "send_alert"){
+ my @ordernums = $input->param("claim_for");# FIXME: Fallback values?
+ my $err;
+ eval {
+ $err = SendAlerts( 'claimacquisition', \@ordernums, $input->param("letter_code") ); # FIXME: Fallback value?
+ AddClaim ( $_ ) for @ordernums;
+ };
+ if ( $@ ) {
+ $template->param(error_claim => $@);
+ } elsif ( defined $err->{error} and $err->{error} eq "no_email" ) {
+ $template->{VARS}->{'error_claim'} = "no_email";
+ } else {
+ $template->{VARS}->{'info_claim'} = 1;
+ }
+}
+
my %supplierlist = GetBooksellersWithLateOrders($delay);
my (@sloopy); # supplier loop
foreach (keys %supplierlist){
- push @sloopy, (($supplierid and $supplierid eq $_ ) ?
+ push @sloopy, (($booksellerid and $booksellerid eq $_ ) ?
{id=>$_, name=>$supplierlist{$_}, selected=>1} :
{id=>$_, name=>$supplierlist{$_}} ) ;
}
$template->param(SUPPLIER_LOOP => \@sloopy);
-$template->param(Supplier=>$supplierlist{$supplierid}) if ($supplierid);
-my @lateorders = GetLateOrders($delay,$supplierid,$branch);
+$template->param(Supplier=>$supplierlist{$booksellerid}) if ($booksellerid);
+$template->param(booksellerid=>$booksellerid) if ($booksellerid);
+
+my @lateorders = GetLateOrders($delay,$booksellerid,$branch);
my $total;
foreach (@lateorders){
}
$template->param(letters=>\@letters) if (@letters);
-if ($op and $op eq "send_alert"){
- my @ordernums = $input->param("claim_for"); # FIXME: Fallback values?
- SendAlerts('claimacquisition',\@ordernums,$input->param("letter_code")); # FIXME: Fallback value?
-}
-
$template->param(ERROR_LOOP => \@errors) if (@errors);
$template->param(
lateorders => \@lateorders,