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

(-)a/svc/hold/resume (-54 lines)
Lines 1-54 Link Here
1
#!/usr/bin/perl
2
3
# Copyright 2015 ByWater Solutions
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use CGI;
23
use JSON qw(to_json);
24
25
use C4::Context;
26
use C4::Output qw(output_with_http_headers);
27
use C4::Auth qw(check_cookie_auth);
28
use Koha::DateUtils qw(dt_from_string);
29
use Koha::Holds;
30
31
my $input = CGI->new;
32
33
my ( $auth_status ) =
34
  check_cookie_auth( $input->cookie('CGISESSID'), { circulate => 'circulate_remaining_permissions' } );
35
36
if ( $auth_status ne "ok" ) {
37
    print $input->header(-type => 'text/plain', -status => '403 Forbidden');
38
    exit 0;
39
}
40
41
my $reserve_id = $input->param('reserve_id');
42
43
my $hold = Koha::Holds->find( $reserve_id );
44
45
unless ( $hold ) {
46
    my $json = to_json( { success => 0, error => "HOLD_NOT_FOUND" } );
47
    output_with_http_headers( $input, undef, $json, "json" );
48
    exit;
49
}
50
51
$hold->resume();
52
53
my $json = to_json( { success => !$hold->suspend() } );
54
output_with_http_headers( $input, undef, $json, "json" );
(-)a/svc/hold/suspend (-65 lines)
Lines 1-64 Link Here
1
#!/usr/bin/perl
2
3
# Copyright 2015 ByWater Solutions
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use CGI;
23
use JSON qw(to_json);
24
25
use C4::Context;
26
use C4::Output qw(output_with_http_headers);
27
use C4::Auth qw(check_cookie_auth);
28
use Koha::DateUtils qw(dt_from_string);
29
use Koha::Holds;
30
31
my $input = CGI->new;
32
33
my ( $auth_status ) =
34
  check_cookie_auth( $input->cookie('CGISESSID'), { circulate => 'circulate_remaining_permissions' } );
35
36
if ( $auth_status ne "ok" ) {
37
    print $input->header(-type => 'text/plain', -status => '403 Forbidden');
38
    exit 0;
39
}
40
41
my $reserve_id = $input->param('reserve_id');
42
43
my $suspend_until = $input->param('suspend_until') || undef;
44
if ($suspend_until) {
45
    eval { $suspend_until = dt_from_string($suspend_until) };
46
47
    if ($@) {
48
        my $json = to_json( { success => 0, error => 'INVALID_DATE' } );
49
        output_with_http_headers( $input, undef, $json, "json" );
50
        exit;
51
    }
52
}
53
54
my $hold = Koha::Holds->find($reserve_id);
55
unless ($hold) {
56
    my $json = to_json( { success => 0, error => 'HOLD_NOT_FOUND' } );
57
    output_with_http_headers( $input, undef, $json, "json" );
58
    exit;
59
}
60
61
$hold->suspend_hold($suspend_until);
62
63
my $json = to_json( { success => $hold->suspend() } );
64
output_with_http_headers( $input, undef, $json, "json" );
65
- 

Return to bug 28377