|
Lines 19-55
package Koha::ArticleRequest::Status;
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
|
|
22 |
use constant Requested => 'REQUESTED'; |
| 23 |
use constant Pending => 'PENDING'; |
| 24 |
use constant Processing => 'PROCESSING'; |
| 25 |
use constant Completed => 'COMPLETED'; |
| 26 |
use constant Canceled => 'CANCELED'; |
| 27 |
|
| 22 |
=head1 AUTHOR |
28 |
=head1 AUTHOR |
| 23 |
|
29 |
|
| 24 |
Kyle M Hall <kyle@bywatersolutions.com> |
30 |
Kyle M Hall <kyle@bywatersolutions.com> |
| 25 |
|
31 |
|
| 26 |
=cut |
32 |
=cut |
| 27 |
|
33 |
|
| 28 |
=head2 Requested |
|
|
| 29 |
|
| 30 |
returns constant string 'REQUESTED' |
| 31 |
|
| 32 |
=cut |
| 33 |
|
| 34 |
sub Requested { |
| 35 |
return 'REQUESTED'; |
| 36 |
} |
| 37 |
|
| 38 |
sub Pending { |
| 39 |
return 'PENDING'; |
| 40 |
} |
| 41 |
|
| 42 |
sub Processing { |
| 43 |
return 'PROCESSING'; |
| 44 |
} |
| 45 |
|
| 46 |
sub Completed { |
| 47 |
return 'COMPLETED'; |
| 48 |
} |
| 49 |
|
| 50 |
sub Canceled { |
| 51 |
return 'CANCELED'; |
| 52 |
} |
| 53 |
|
| 54 |
|
| 55 |
1; |
34 |
1; |
| 56 |
- |
|
|