Lines 19-26
use Modern::Perl;
Link Here
|
19 |
|
19 |
|
20 |
use Mojo::Base 'Mojolicious::Controller'; |
20 |
use Mojo::Base 'Mojolicious::Controller'; |
21 |
use Mojo::JSON; |
21 |
use Mojo::JSON; |
22 |
use Digest::MD5 qw( md5_base64 ); |
|
|
23 |
use Encode; |
24 |
|
22 |
|
25 |
use C4::Auth qw( haspermission ); |
23 |
use C4::Auth qw( haspermission ); |
26 |
use C4::Context; |
24 |
use C4::Context; |
Lines 102-108
sub get {
Link Here
|
102 |
}; |
100 |
}; |
103 |
} |
101 |
} |
104 |
|
102 |
|
105 |
=head3 get_availablity |
103 |
=head3 get_availability |
106 |
|
104 |
|
107 |
Controller function that handles retrieval of Checkout availability |
105 |
Controller function that handles retrieval of Checkout availability |
108 |
|
106 |
|
Lines 205-211
sub add {
Link Here
|
205 |
if ( keys %{$confirmation} ) { |
203 |
if ( keys %{$confirmation} ) { |
206 |
my $confirmed = 0; |
204 |
my $confirmed = 0; |
207 |
|
205 |
|
208 |
# Check for existance of confirmation token |
206 |
# Check for existence of confirmation token |
209 |
# and if exists check validity |
207 |
# and if exists check validity |
210 |
if ( my $token = $c->param('confirmation') ) { |
208 |
if ( my $token = $c->param('confirmation') ) { |
211 |
my $confirm_keys = join( ":", sort keys %{$confirmation} ); |
209 |
my $confirm_keys = join( ":", sort keys %{$confirmation} ); |
212 |
- |
|
|