|
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 1081-1086
EOF
Link Here
|
| 1081 |
my $result = sendmail(%mail); |
1081 |
my $result = sendmail(%mail); |
| 1082 |
if ( $result ) { |
1082 |
if ( $result ) { |
| 1083 |
$self->status("GENREQ")->store; |
1083 |
$self->status("GENREQ")->store; |
|
|
1084 |
$self->_backend_capability( |
| 1085 |
'set_requested_partners', |
| 1086 |
{ |
| 1087 |
request => $self, |
| 1088 |
to => $to |
| 1089 |
} |
| 1090 |
); |
| 1084 |
return { |
1091 |
return { |
| 1085 |
error => 0, |
1092 |
error => 0, |
| 1086 |
status => '', |
1093 |
status => '', |
|
Lines 1164-1169
sub store {
Link Here
|
| 1164 |
return $ret; |
1171 |
return $ret; |
| 1165 |
} |
1172 |
} |
| 1166 |
|
1173 |
|
|
|
1174 |
=head3 requested_partners |
| 1175 |
|
| 1176 |
my $partners_string = $illRequest->requested_partners; |
| 1177 |
|
| 1178 |
Return the string representing the email addresses of the partners to |
| 1179 |
whom a request has been sent |
| 1180 |
|
| 1181 |
=cut |
| 1182 |
|
| 1183 |
sub requested_partners { |
| 1184 |
my ( $self ) = @_; |
| 1185 |
return $self->_backend_capability( |
| 1186 |
'get_requested_partners', |
| 1187 |
{ request => $self } |
| 1188 |
); |
| 1189 |
} |
| 1190 |
|
| 1167 |
=head3 TO_JSON |
1191 |
=head3 TO_JSON |
| 1168 |
|
1192 |
|
| 1169 |
$json = $illrequest->TO_JSON |
1193 |
$json = $illrequest->TO_JSON |
|
Lines 1198-1203
sub _type {
Link Here
|
| 1198 |
=head1 AUTHOR |
1222 |
=head1 AUTHOR |
| 1199 |
|
1223 |
|
| 1200 |
Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com> |
1224 |
Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com> |
|
|
1225 |
Andrew Isherwood <andrew.isherwood@ptfs-europe.com> |
| 1201 |
|
1226 |
|
| 1202 |
=cut |
1227 |
=cut |
| 1203 |
|
1228 |
|