View | Details | Raw Unified | Return to bug 37968
Collapse All | Expand All

(-)a/C4/Letters.pm (-2 / +2 lines)
Lines 1018-1025 Returns number of messages sent. Link Here
1018
1018
1019
sub SendQueuedMessages {
1019
sub SendQueuedMessages {
1020
    my $params = shift;
1020
    my $params = shift;
1021
    my $limit = $params->{limit};
1021
    my $limit      = $params->{limit};
1022
    my $where = $params->{where};
1022
    my $where      = $params->{where};
1023
    my $branchcode = $params->{branchcode};
1023
    my $branchcode = $params->{branchcode};
1024
1024
1025
    Koha::Exceptions::BadParameter->throw("Parameter message_id cannot be empty if passed.")
1025
    Koha::Exceptions::BadParameter->throw("Parameter message_id cannot be empty if passed.")
(-)a/misc/cronjobs/process_message_queue.pl (-19 / +18 lines)
Lines 26-56 use C4::Log qw( cronlogaction ); Link Here
26
use Getopt::Long qw( GetOptions );
26
use Getopt::Long qw( GetOptions );
27
use Try::Tiny qw( catch try );
27
use Try::Tiny qw( catch try );
28
28
29
my $username = undef;
29
my $username   = undef;
30
my $password = undef;
30
my $password   = undef;
31
my $limit    = undef;
31
my $limit      = undef;
32
my $branchcode = undef;
32
my $branchcode = undef;
33
my $method = 'LOGIN';
33
my $method     = 'LOGIN';
34
my $help = 0;
34
my $help       = 0;
35
my $verbose = 0;
35
my $verbose    = 0;
36
my $where;
36
my $where;
37
my @type;
37
my @type;
38
my @letter_code;
38
my @letter_code;
39
my $exit_on_plugin_failure = 0;
39
my $exit_on_plugin_failure = 0;
40
40
41
my $command_line_options = join(" ",@ARGV);
41
my $command_line_options = join( " ", @ARGV );
42
42
43
GetOptions(
43
GetOptions(
44
    'u|username:s'      => \$username,
44
    'u|username:s'             => \$username,
45
    'p|password:s'      => \$password,
45
    'p|password:s'             => \$password,
46
    'l|limit:s'         => \$limit,
46
    'l|limit:s'                => \$limit,
47
    'b|branchcode:s'    => \$branchcode,
47
    'b|branchcode:s'           => \$branchcode,
48
    'm|method:s'        => \$method,
48
    'm|method:s'               => \$method,
49
    'h|help|?'          => \$help,
49
    'h|help|?'                 => \$help,
50
    'v|verbose'         => \$verbose,
50
    'v|verbose'                => \$verbose,
51
    't|type:s'          => \@type,
51
    't|type:s'                 => \@type,
52
    'c|code:s'          => \@letter_code,
52
    'c|code:s'                 => \@letter_code,
53
    'w|where:s'         => \$where,
53
    'w|where:s'                => \$where,
54
    'e|exit-on-plugin-failure' => \$exit_on_plugin_failure,
54
    'e|exit-on-plugin-failure' => \$exit_on_plugin_failure,
55
);
55
);
56
my $usage = << 'ENDUSAGE';
56
my $usage = << 'ENDUSAGE';
Lines 130-136 C4::Letters::SendQueuedMessages( Link Here
130
        type        => \@type,
130
        type        => \@type,
131
        letter_code => \@letter_code,
131
        letter_code => \@letter_code,
132
        where       => $where,
132
        where       => $where,
133
        branchcode => $branchcode,
133
        branchcode  => $branchcode,
134
    }
134
    }
135
);
135
);
136
136
137
- 

Return to bug 37968