-my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
-my @missingissues;
-my @supplierinfo;
-if ($supplierid) {
- @missingissues = GetLateOrMissingIssues($supplierid,$serialid,$order);
- @supplierinfo=GetBookSeller($supplierid);
+my $branchloop = GetBranchesLoop();
+
+my @serialnums=$input->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} ) {
+ UpdateClaimdateIssues(\@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 => 'no_loggedin_user_email' );
+ }
+ } else {
+ $template->param( info_claim => 1 );
+ }