-$delay = 30 unless defined $delay;
-unless ($delay =~ /^\d{1,3}$/) {
- push @errors, {delay_digits => 1, bad_delay => $delay};
- $delay = 30; #default value for delay
+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("claim_for");# 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;
+ }