Bug 31854: (QA follow-up) Terminology: loans > checkouts
[srvgit] / misc / cronjobs / advance_notices.pl
index 9ec0765..efa0f49 100755 (executable)
@@ -185,6 +185,8 @@ my $itemscontent = join(',',qw( date_due title author barcode ));
 my $help    = 0;
 my $man     = 0;
 
+my $command_line_options = join(" ",@ARGV);
+
 GetOptions(
             'help|?'         => \$help,
             'man'            => \$man,
@@ -215,7 +217,7 @@ END_WARN
 unless ($confirm) {
      pod2usage(1);
 }
-cronlogaction();
+cronlogaction({ info => $command_line_options });
 
 my %branches = ();
 if (@branchcodes) {
@@ -298,6 +300,7 @@ UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
 
             ## Get branch info for borrowers home library.
             foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
+                next if $transport eq 'itiva';
                 my $letter = parse_letter( { letter_code    => $letter_type,
                                       borrowernumber => $upcoming->{'borrowernumber'},
                                       branchcode     => $branchcode,
@@ -345,6 +348,7 @@ UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
 
             ## Get branch info for borrowers home library.
             foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
+                next if $transport eq 'itiva';
                 my $letter = parse_letter( { letter_code    => $letter_type,
                                       borrowernumber => $upcoming->{'borrowernumber'},
                                       branchcode     => $branchcode,
@@ -595,6 +599,7 @@ sub send_digests {
         }
 
         foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
+            next if $transport eq 'itiva';
             my $letter = parse_letter(
                 {
                     letter_code    => $params->{letter_code},
@@ -635,6 +640,7 @@ sub send_digests {
     }
 }
 
+cronlogaction({ action => 'End', info => "COMPLETED" });
 
 1;