|
Lines 25-51
use Modern::Perl;
Link Here
|
| 25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
| 26 |
use C4::Acquisition qw( SearchOrders ); |
26 |
use C4::Acquisition qw( SearchOrders ); |
| 27 |
use C4::Auth qw( get_template_and_user get_session ); |
27 |
use C4::Auth qw( get_template_and_user get_session ); |
| 28 |
use C4::Koha qw( GetNormalizedEAN getitemtypeimagelocation GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN ); |
28 |
use C4::Koha qw( |
|
|
29 |
getitemtypeimagelocation |
| 30 |
GetNormalizedEAN |
| 31 |
GetNormalizedISBN |
| 32 |
GetNormalizedOCLCNumber |
| 33 |
GetNormalizedUPC |
| 34 |
); |
| 29 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
35 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
| 30 |
use C4::Output qw( parametrized_url output_html_with_http_headers ); |
36 |
use C4::Output qw( parametrized_url output_html_with_http_headers ); |
| 31 |
use C4::Biblio qw( GetMarcBiblio GetBiblioData CountItemsIssued GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcControlnumber GetMarcISSN ); |
37 |
use C4::Biblio qw( |
| 32 |
use C4::Items qw( GetItemsInfo GetHiddenItemnumbers sub ); |
38 |
CountItemsIssued |
|
|
39 |
GetBiblioData |
| 40 |
GetMarcAuthors |
| 41 |
GetMarcBiblio |
| 42 |
GetMarcControlnumber |
| 43 |
GetMarcISBN |
| 44 |
GetMarcISSN |
| 45 |
GetMarcSeries |
| 46 |
GetMarcSubjects |
| 47 |
GetMarcUrls |
| 48 |
); |
| 49 |
use C4::Items qw( GetHiddenItemnumbers GetItemsInfo ); |
| 33 |
use C4::Circulation qw( GetTransfers ); |
50 |
use C4::Circulation qw( GetTransfers ); |
| 34 |
use C4::Tags qw( get_tags get_tag ); |
51 |
use C4::Tags qw( get_tags ); |
| 35 |
use C4::XISBN qw( get_xisbns ); |
52 |
use C4::XISBN qw( get_xisbns ); |
| 36 |
use C4::External::Amazon; |
53 |
use C4::External::Amazon qw( get_amazon_tld ); |
| 37 |
use C4::External::BakerTaylor qw( image_url link_url ); |
54 |
use C4::External::BakerTaylor qw( image_url link_url ); |
| 38 |
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes ); |
55 |
use C4::External::Syndetics qw( |
|
|
56 |
get_syndetics_anotes |
| 57 |
get_syndetics_excerpt |
| 58 |
get_syndetics_index |
| 59 |
get_syndetics_reviews |
| 60 |
get_syndetics_summary |
| 61 |
get_syndetics_toc |
| 62 |
); |
| 39 |
use C4::Members; |
63 |
use C4::Members; |
| 40 |
use C4::XSLT; |
64 |
use C4::XSLT; |
| 41 |
use C4::ShelfBrowser qw( GetNearbyItems ); |
65 |
use C4::ShelfBrowser qw( GetNearbyItems ); |
| 42 |
use C4::Reserves qw( GetReserveStatus ); |
66 |
use C4::Reserves qw( GetReserveStatus ); |
| 43 |
use C4::Charset qw( SetUTF8Flag ); |
67 |
use C4::Charset qw( SetUTF8Flag ); |
| 44 |
use C4::Letters; |
|
|
| 45 |
use MARC::Record; |
| 46 |
use MARC::Field; |
68 |
use MARC::Field; |
| 47 |
use List::MoreUtils qw/any none/; |
69 |
use List::MoreUtils qw( any ); |
| 48 |
use Koha::DateUtils; |
|
|
| 49 |
use C4::HTML5Media; |
70 |
use C4::HTML5Media; |
| 50 |
use C4::CourseReserves qw( GetItemCourseReservesInfo ); |
71 |
use C4::CourseReserves qw( GetItemCourseReservesInfo ); |
| 51 |
|
72 |
|
|
Lines 63-69
use Koha::Ratings;
Link Here
|
| 63 |
use Koha::Reviews; |
84 |
use Koha::Reviews; |
| 64 |
use Koha::SearchEngine::Search; |
85 |
use Koha::SearchEngine::Search; |
| 65 |
|
86 |
|
| 66 |
use Try::Tiny; |
|
|
| 67 |
|
87 |
|
| 68 |
my $query = CGI->new(); |
88 |
my $query = CGI->new(); |
| 69 |
|
89 |
|
|
Lines 228-234
my $session = get_session($query->cookie("CGISESSID"));
Link Here
|
| 228 |
my %paging = (previous => {}, next => {}); |
248 |
my %paging = (previous => {}, next => {}); |
| 229 |
if ($session->param('busc')) { |
249 |
if ($session->param('busc')) { |
| 230 |
use C4::Search; |
250 |
use C4::Search; |
| 231 |
use URI::Escape; |
251 |
use URI::Escape qw( uri_escape_utf8 uri_unescape ); |
| 232 |
|
252 |
|
| 233 |
# Rebuild the string to store on session |
253 |
# Rebuild the string to store on session |
| 234 |
# param value is URI encoded and params separator is HTML encode (&) |
254 |
# param value is URI encoded and params separator is HTML encode (&) |