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