Lines 1-6
Link Here
|
1 |
package Koha::Illrequest; |
1 |
package Koha::Illrequest; |
2 |
|
2 |
|
3 |
# Copyright PTFS Europe 2016 |
3 |
# Copyright PTFS Europe 2016,2018 |
4 |
# |
4 |
# |
5 |
# This file is part of Koha. |
5 |
# This file is part of Koha. |
6 |
# |
6 |
# |
Lines 1119-1124
EOF
Link Here
|
1119 |
my $result = sendmail(%mail); |
1119 |
my $result = sendmail(%mail); |
1120 |
if ( $result ) { |
1120 |
if ( $result ) { |
1121 |
$self->status("GENREQ")->store; |
1121 |
$self->status("GENREQ")->store; |
|
|
1122 |
$self->_backend_capability( |
1123 |
'set_requested_partners', |
1124 |
{ |
1125 |
request => $self, |
1126 |
to => $to |
1127 |
} |
1128 |
); |
1122 |
return { |
1129 |
return { |
1123 |
error => 0, |
1130 |
error => 0, |
1124 |
status => '', |
1131 |
status => '', |
Lines 1205-1210
sub store {
Link Here
|
1205 |
return $ret; |
1212 |
return $ret; |
1206 |
} |
1213 |
} |
1207 |
|
1214 |
|
|
|
1215 |
=head3 requested_partners |
1216 |
|
1217 |
my $partners_string = $illRequest->requested_partners; |
1218 |
|
1219 |
Return the string representing the email addresses of the partners to |
1220 |
whom a request has been sent |
1221 |
|
1222 |
=cut |
1223 |
|
1224 |
sub requested_partners { |
1225 |
my ( $self ) = @_; |
1226 |
return $self->_backend_capability( |
1227 |
'get_requested_partners', |
1228 |
{ request => $self } |
1229 |
); |
1230 |
} |
1231 |
|
1208 |
=head3 TO_JSON |
1232 |
=head3 TO_JSON |
1209 |
|
1233 |
|
1210 |
$json = $illrequest->TO_JSON |
1234 |
$json = $illrequest->TO_JSON |
Lines 1239-1244
sub _type {
Link Here
|
1239 |
=head1 AUTHOR |
1263 |
=head1 AUTHOR |
1240 |
|
1264 |
|
1241 |
Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com> |
1265 |
Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com> |
|
|
1266 |
Andrew Isherwood <andrew.isherwood@ptfs-europe.com> |
1242 |
|
1267 |
|
1243 |
=cut |
1268 |
=cut |
1244 |
|
1269 |
|