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

(-)a/Koha/REST/V1/ERM/EHoldings/Packages/EBSCO.pm (-3 / +3 lines)
Lines 26-32 use Scalar::Util qw( blessed ); Link Here
26
use Try::Tiny qw( catch try );
26
use Try::Tiny qw( catch try );
27
27
28
sub list {
28
sub list {
29
    my $c = shift->openapi->valid_input or return;
29
    my $c = shift or return;
30
30
31
    return try {
31
    return try {
32
32
Lines 87-93 sub list { Link Here
87
}
87
}
88
88
89
sub get {
89
sub get {
90
    my $c = shift->openapi->valid_input or return;
90
    my $c = shift or return;
91
91
92
    return try {
92
    return try {
93
        my ( $vendor_id, $package_id ) = split '-',
93
        my ( $vendor_id, $package_id ) = split '-',
Lines 119-125 sub get { Link Here
119
}
119
}
120
120
121
sub edit {
121
sub edit {
122
    my $c = shift->openapi->valid_input or return;
122
    my $c = shift or return;
123
123
124
    return try {
124
    return try {
125
        my $body        = $c->validation->param('body');
125
        my $body        = $c->validation->param('body');
(-)a/Koha/REST/V1/ERM/EHoldings/Packages/Local.pm (-5 / +5 lines)
Lines 33-39 use Try::Tiny qw( catch try ); Link Here
33
=cut
33
=cut
34
34
35
sub list {
35
sub list {
36
    my $c = shift->openapi->valid_input or return;
36
    my $c = shift or return;
37
    return try {
37
    return try {
38
        my $packages_set =
38
        my $packages_set =
39
          Koha::ERM::EHoldings::Packages->search( { 'me.external_id' => undef } );
39
          Koha::ERM::EHoldings::Packages->search( { 'me.external_id' => undef } );
Lines 50-56 sub list { Link Here
50
=cut
50
=cut
51
51
52
sub get {
52
sub get {
53
    my $c = shift->openapi->valid_input or return;
53
    my $c = shift or return;
54
54
55
    return try {
55
    return try {
56
        my $package_id = $c->validation->param('package_id');
56
        my $package_id = $c->validation->param('package_id');
Lines 81-87 Controller function that handles adding a new Koha::ERM::EHoldings::Package obje Link Here
81
=cut
81
=cut
82
82
83
sub add {
83
sub add {
84
    my $c = shift->openapi->valid_input or return;
84
    my $c = shift or return;
85
85
86
    return try {
86
    return try {
87
        Koha::Database->new->schema->txn_do(
87
        Koha::Database->new->schema->txn_do(
Lines 147-153 Controller function that handles updating a Koha::ERM::EHoldings::Package object Link Here
147
=cut
147
=cut
148
148
149
sub update {
149
sub update {
150
    my $c = shift->openapi->valid_input or return;
150
    my $c = shift or return;
151
151
152
    my $package_id = $c->validation->param('package_id');
152
    my $package_id = $c->validation->param('package_id');
153
    my $package = Koha::ERM::EHoldings::Packages->find( $package_id );
153
    my $package = Koha::ERM::EHoldings::Packages->find( $package_id );
Lines 217-223 sub update { Link Here
217
=cut
217
=cut
218
218
219
sub delete {
219
sub delete {
220
    my $c = shift->openapi->valid_input or return;
220
    my $c = shift or return;
221
221
222
    my $package = Koha::ERM::EHoldings::Packages->find( $c->validation->param('package_id') );
222
    my $package = Koha::ERM::EHoldings::Packages->find( $c->validation->param('package_id') );
223
    unless ($package) {
223
    unless ($package) {
(-)a/Koha/REST/V1/ERM/EHoldings/Resources/EBSCO.pm (-3 / +3 lines)
Lines 34-40 use Try::Tiny; Link Here
34
=cut
34
=cut
35
35
36
sub list {
36
sub list {
37
    my $c = shift->openapi->valid_input or return;
37
    my $c = shift or return;
38
38
39
    return try {
39
    return try {
40
40
Lines 121-127 sub list { Link Here
121
=cut
121
=cut
122
122
123
sub get {
123
sub get {
124
    my $c = shift->openapi->valid_input or return;
124
    my $c = shift or return;
125
125
126
    return try {
126
    return try {
127
        my ( $vendor_id, $package_id, $resource_id ) = split '-',
127
        my ( $vendor_id, $package_id, $resource_id ) = split '-',
Lines 177-183 sub get { Link Here
177
=cut
177
=cut
178
178
179
sub edit {
179
sub edit {
180
    my $c = shift->openapi->valid_input or return;
180
    my $c = shift or return;
181
181
182
    return try {
182
    return try {
183
        my $body        = $c->validation->param('body');
183
        my $body        = $c->validation->param('body');
(-)a/Koha/REST/V1/ERM/EHoldings/Resources/Local.pm (-2 / +2 lines)
Lines 33-39 use Try::Tiny qw( catch try ); Link Here
33
=cut
33
=cut
34
34
35
sub list {
35
sub list {
36
    my $c = shift->openapi->valid_input or return;
36
    my $c = shift or return;
37
37
38
    return try {
38
    return try {
39
        my $package_id = $c->validation->param('package_id');
39
        my $package_id = $c->validation->param('package_id');
Lines 57-63 Controller function that handles retrieving a single Koha::ERM::EHoldings::Resou Link Here
57
=cut
57
=cut
58
58
59
sub get {
59
sub get {
60
    my $c = shift->openapi->valid_input or return;
60
    my $c = shift or return;
61
61
62
    return try {
62
    return try {
63
        my $resource_id = $c->validation->param('resource_id');
63
        my $resource_id = $c->validation->param('resource_id');
(-)a/Koha/REST/V1/ERM/EHoldings/Titles/EBSCO.pm (-2 / +2 lines)
Lines 34-40 use Try::Tiny qw( catch try ); Link Here
34
=cut
34
=cut
35
35
36
sub list {
36
sub list {
37
    my $c = shift->openapi->valid_input or return;
37
    my $c = shift or return;
38
38
39
    return try {
39
    return try {
40
40
Lines 114-120 sub list { Link Here
114
=cut
114
=cut
115
115
116
sub get {
116
sub get {
117
    my $c = shift->openapi->valid_input or return;
117
    my $c = shift or return;
118
118
119
    return try {
119
    return try {
120
        my $title_id = $c->validation->param('title_id');
120
        my $title_id = $c->validation->param('title_id');
(-)a/Koha/REST/V1/ERM/EHoldings/Titles/Local.pm (-7 / +6 lines)
Lines 34-40 use Try::Tiny qw( catch try ); Link Here
34
=cut
34
=cut
35
35
36
sub list {
36
sub list {
37
    my $c = shift->openapi->valid_input or return;
37
    my $c = shift or return;
38
38
39
    return try {
39
    return try {
40
        my $titles_set = Koha::ERM::EHoldings::Titles->new;
40
        my $titles_set = Koha::ERM::EHoldings::Titles->new;
Lines 54-60 Controller function that handles retrieving a single Koha::ERM::EHoldings::Title Link Here
54
=cut
54
=cut
55
55
56
sub get {
56
sub get {
57
    my $c = shift->openapi->valid_input or return;
57
    my $c = shift or return;
58
58
59
    return try {
59
    return try {
60
        my $title_id = $c->validation->param('title_id');
60
        my $title_id = $c->validation->param('title_id');
Lines 84-90 Controller function that handles adding a new Koha::ERM::EHoldings::Title object Link Here
84
=cut
84
=cut
85
85
86
sub add {
86
sub add {
87
    my $c = shift->openapi->valid_input or return;
87
    my $c = shift or return;
88
88
89
    return try {
89
    return try {
90
        Koha::Database->new->schema->txn_do(
90
        Koha::Database->new->schema->txn_do(
Lines 150-156 Controller function that handles updating a Koha::ERM::EHoldings::Title object Link Here
150
=cut
150
=cut
151
151
152
sub update {
152
sub update {
153
    my $c = shift->openapi->valid_input or return;
153
    my $c = shift or return;
154
154
155
    my $title_id = $c->validation->param('title_id');
155
    my $title_id = $c->validation->param('title_id');
156
    my $title = Koha::ERM::EHoldings::Titles->find( $title_id );
156
    my $title = Koha::ERM::EHoldings::Titles->find( $title_id );
Lines 217-223 sub update { Link Here
217
=cut
217
=cut
218
218
219
sub delete {
219
sub delete {
220
    my $c = shift->openapi->valid_input or return;
220
    my $c = shift or return;
221
221
222
    my $title = Koha::ERM::EHoldings::Titles->find( $c->validation->param('title_id') );
222
    my $title = Koha::ERM::EHoldings::Titles->find( $c->validation->param('title_id') );
223
    unless ($title) {
223
    unless ($title) {
Lines 244-250 sub delete { Link Here
244
=cut
244
=cut
245
245
246
sub import_from_list {
246
sub import_from_list {
247
    my $c = shift->openapi->valid_input or return;
247
    my $c = shift or return;
248
248
249
    my $body       = $c->validation->param('body');
249
    my $body       = $c->validation->param('body');
250
    my $list_id    = $body->{list_id};
250
    my $list_id    = $body->{list_id};
251
- 

Return to bug 32923