Lines 54-59
if ( !$output_directory || !-d $output_directory || !-w $output_directory ) {
Link Here
|
54 |
-msg => qq{\nError: You must specify a valid and writeable directory to dump the print notices in.\n}, |
54 |
-msg => qq{\nError: You must specify a valid and writeable directory to dump the print notices in.\n}, |
55 |
}); |
55 |
}); |
56 |
} |
56 |
} |
|
|
57 |
my $sys_pref_emails = C4::Context->preference("SendPrintNoticesEmails"); |
58 |
if($sys_pref_emails) |
59 |
{ |
60 |
my @split_pref_emails = split(/,/, $sys_pref_emails); |
61 |
my $sys_pref_combine = C4::Context->preference("SendPrintNoticesCombineEmails"); |
62 |
if($sys_pref_combine) |
63 |
{ |
64 |
@emails = (@emails, @split_pref_emails); |
65 |
} |
66 |
else |
67 |
{ |
68 |
@emails = @split_pref_emails; |
69 |
} |
70 |
} |
71 |
else |
72 |
{ |
73 |
cronlogaction({info => "SendPrintNotices system pref ignored because it was null or empty."}); |
74 |
} |
75 |
|
76 |
# uncomment the line below to test the system pref even if you have no files to send |
77 |
# say $_ for @emails; |
57 |
|
78 |
|
58 |
# Default value is html |
79 |
# Default value is html |
59 |
$html = 1 if not $html and not $csv and not $ods; |
80 |
$html = 1 if not $html and not $csv and not $ods; |
60 |
- |
|
|