|
Lines 21-34
package Koha::Illrequest;
Link Here
|
| 21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
| 22 |
|
22 |
|
| 23 |
use Clone 'clone'; |
23 |
use Clone 'clone'; |
| 24 |
use File::Basename qw/basename/; |
24 |
use File::Basename qw( basename ); |
|
|
25 |
use Encode qw( encode ); |
| 26 |
use Mail::Sendmail; |
| 27 |
use Try::Tiny; |
| 28 |
|
| 25 |
use Koha::Database; |
29 |
use Koha::Database; |
| 26 |
use Koha::Email; |
30 |
use Koha::Email; |
| 27 |
use Koha::Exceptions::Ill; |
31 |
use Koha::Exceptions::Ill; |
| 28 |
use Koha::Illrequestattributes; |
32 |
use Koha::Illrequestattributes; |
| 29 |
use Koha::Patron; |
33 |
use Koha::Patron; |
| 30 |
use Mail::Sendmail; |
|
|
| 31 |
use Try::Tiny; |
| 32 |
|
34 |
|
| 33 |
use base qw(Koha::Object); |
35 |
use base qw(Koha::Object); |
| 34 |
|
36 |
|
| 35 |
- |
|
|