|
Lines 110-124
sub send_sms {
Link Here
|
| 110 |
|
110 |
|
| 111 |
# Extract additional SMS::Send arguments from the syspref |
111 |
# Extract additional SMS::Send arguments from the syspref |
| 112 |
# Merge with any arguments from file with syspref taking precedence |
112 |
# Merge with any arguments from file with syspref taking precedence |
| 113 |
my $sms_send_config_syspref = C4::Context->preference('SMSSendAdditionalOptions'); |
113 |
if ( C4::Context->preference('SMSSendAdditionalOptions') ) { |
| 114 |
if ( $sms_send_config_syspref ) { |
114 |
my $sms_send_config_syspref = C4::Context->yaml_preference('SMSSendAdditionalOptions'); |
| 115 |
require YAML::XS; |
115 |
%args = ( %args, %$sms_send_config_syspref ) if $sms_send_config_syspref; |
| 116 |
|
|
|
| 117 |
$sms_send_config_syspref = "$sms_send_config_syspref\n\n"; |
| 118 |
my $yaml; |
| 119 |
eval { $yaml = YAML::XS::Load(Encode::encode_utf8($yaml)); }; |
| 120 |
my %syspref_args = map { q{_} . $_ => $conf->{$_} } keys %$conf; |
| 121 |
%args = ( %args, %syspref_args ); |
| 122 |
} |
116 |
} |
| 123 |
|
117 |
|
| 124 |
eval { |
118 |
eval { |
| 125 |
- |
|
|