|
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 |
|