Lines 38-50
sub list {
Link Here
|
38 |
|
38 |
|
39 |
return try { |
39 |
return try { |
40 |
|
40 |
|
41 |
my $args = $c->validation->output; |
41 |
my $ebsco = Koha::ERM::Providers::EBSCO->new; |
42 |
my $ebsco = Koha::ERM::Providers::EBSCO->new; |
|
|
43 |
|
42 |
|
44 |
# FIXME Do we need more validation here? Don't think so we have the API specs. |
43 |
# FIXME Do we need more validation here? Don't think so we have the API specs. |
45 |
my ( $vendor_id, $package_id ) = split '-', |
44 |
my ( $vendor_id, $package_id ) = split '-', |
46 |
$c->validation->param('package_id') || q{}; |
45 |
$c->param('package_id') || q{}; |
47 |
my $title_id = $c->validation->param('title_id') || q{}; |
46 |
my $title_id = $c->param('title_id') || q{}; |
48 |
|
47 |
|
49 |
my $url = |
48 |
my $url = |
50 |
$title_id |
49 |
$title_id |
Lines 74-80
sub list {
Link Here
|
74 |
|
73 |
|
75 |
my $base_total = $result->{totalResults}; |
74 |
my $base_total = $result->{totalResults}; |
76 |
|
75 |
|
77 |
my ( $per_page, $page ) = $ebsco->build_query_pagination($args); |
76 |
my ( $per_page, $page ) = $ebsco->build_query_pagination( |
|
|
77 |
{ |
78 |
per_page => $c->stash('koha.pagination.per_page'), |
79 |
page => $c->stash('koha.pagination.page'), |
80 |
} |
81 |
); |
78 |
|
82 |
|
79 |
my $additional_params = $ebsco->build_additional_params( $c->req->params->to_hash ); |
83 |
my $additional_params = $ebsco->build_additional_params( $c->req->params->to_hash ); |
80 |
my $searchfield = 'titlename'; |
84 |
my $searchfield = 'titlename'; |
Lines 107-113
sub list {
Link Here
|
107 |
base_total => $base_total, |
111 |
base_total => $base_total, |
108 |
page => $page, |
112 |
page => $page, |
109 |
per_page => $per_page, |
113 |
per_page => $per_page, |
110 |
query_params => $args, |
|
|
111 |
total => $total, |
114 |
total => $total, |
112 |
} |
115 |
} |
113 |
); |
116 |
); |
Lines 127-133
sub get {
Link Here
|
127 |
|
130 |
|
128 |
return try { |
131 |
return try { |
129 |
my ( $vendor_id, $package_id, $resource_id ) = split '-', |
132 |
my ( $vendor_id, $package_id, $resource_id ) = split '-', |
130 |
$c->validation->param('resource_id'); |
133 |
$c->param('resource_id'); |
131 |
my $ebsco = Koha::ERM::Providers::EBSCO->new; |
134 |
my $ebsco = Koha::ERM::Providers::EBSCO->new; |
132 |
my $t = try { |
135 |
my $t = try { |
133 |
return $ebsco->request( GET => '/vendors/' |
136 |
return $ebsco->request( GET => '/vendors/' |
Lines 182-191
sub edit {
Link Here
|
182 |
my $c = shift or return; |
185 |
my $c = shift or return; |
183 |
|
186 |
|
184 |
return try { |
187 |
return try { |
185 |
my $body = $c->validation->param('body'); |
188 |
my $body = $c->req->json; |
186 |
my $is_selected = $body->{is_selected}; |
189 |
my $is_selected = $body->{is_selected}; |
187 |
my ( $vendor_id, $package_id, $resource_id ) = split '-', |
190 |
my ( $vendor_id, $package_id, $resource_id ) = split '-', |
188 |
$c->validation->param('resource_id'); |
191 |
$c->param('resource_id'); |
189 |
|
192 |
|
190 |
my $ebsco = Koha::ERM::Providers::EBSCO->new; |
193 |
my $ebsco = Koha::ERM::Providers::EBSCO->new; |
191 |
my $t = try { |
194 |
my $t = try { |