Attachment #122857 for bug #27944

View | Details | Raw Unified | Return to bug 27944
Collapse All | Expand All





use Modern::Perl;

use constant Requested  => 'REQUESTED';
use constant Pending    => 'PENDING';
use constant Processing => 'PROCESSING';
use constant Completed  => 'COMPLETED';
use constant Canceled   => 'CANCELED';

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

=head2 Requested

    returns constant string 'REQUESTED'

=cut

sub Requested {
    return 'REQUESTED';
}

sub Pending {
    return 'PENDING';
}

sub Processing {
    return 'PROCESSING';
}

sub Completed {
    return 'COMPLETED';
}

sub Canceled {
    return 'CANCELED';
}


1;
- 

Return to bug 27944

Lines 19-55 package Koha::ArticleRequest::Status; Link Here

(-)a/Koha/ArticleRequest/Status.pm (-28 / +6 lines)
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	-