my $help = 0;
my $man = 0;
+my $command_line_options = join(" ",@ARGV);
+
GetOptions(
'help|?' => \$help,
'man' => \$man,
unless ($confirm) {
pod2usage(1);
}
-cronlogaction();
+cronlogaction({ info => $command_line_options });
my %branches = ();
if (@branchcodes) {
## 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,
## 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,
}
foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
+ next if $transport eq 'itiva';
my $letter = parse_letter(
{
letter_code => $params->{letter_code},
}
}
+cronlogaction({ action => 'End', info => "COMPLETED" });
1;