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