1 package OpenILS::WWW::EGKPacLoader;
2 use base 'OpenILS::WWW::EGCatLoader';
3 use strict; use warnings;
5 use Apache2::Const -compile => qw(OK DECLINED FORBIDDEN HTTP_INTERNAL_SERVER_ERROR REDIRECT HTTP_BAD_REQUEST);
6 use OpenSRF::Utils::Logger qw/$logger/;
7 use OpenILS::Application::AppUtils;
8 use OpenILS::Utils::CStoreEditor qw/:funcs/;
9 my $U = 'OpenILS::Application::AppUtils';
12 # -----------------------------------------------------------------------------
13 # Override our parent's load() sub so we can do kpac-specific path routing.
14 # -----------------------------------------------------------------------------
18 $self->init_ro_object_cache;
20 my $stat = $self->load_common;
21 return $stat unless $stat == Apache2::Const::OK;
23 $self->load_kpac_config;
25 my $path = $self->apache->path_info;
26 ($self->ctx->{page} = $path) =~ s#.*/(.*)#$1#g;
28 return $self->load_simple("home") if $path =~ m|kpac/home|;
29 return $self->load_simple("category") if $path =~ m|kpac/category|;
30 return $self->load_rresults if $path =~ m|kpac/results|;
31 return $self->load_record(no_search => 1) if $path =~ m|kpac/record|;
33 # ----------------------------------------------------------------
34 # Everything below here requires SSL
35 # ----------------------------------------------------------------
36 return $self->redirect_ssl unless $self->cgi->https;
38 return $self->load_simple("getit_results") if $path =~ m|kpac/getit_results|;
39 return $self->load_getit if $path =~ m|kpac/getit|;
41 # ----------------------------------------------------------------
42 # Everything below here requires authentication
43 # ----------------------------------------------------------------
44 return $self->redirect_auth unless $self->editor->requestor;
48 return Apache2::Const::OK;
55 # first load the record
56 my $stat = $self->load_record(no_search => 1);
57 return $stat unless $stat == Apache2::Const::OK;
59 $self->ctx->{page} = 'getit'; # repair the page
61 # if the user is logged in, fetch his bookbags
63 $ctx->{bookbags} = $self->editor->search_container_biblio_record_entry_bucket(
65 owner => $ctx->{user}->id,
68 order_by => {cbreb => 'name'},
69 limit => $self->cgi->param('bbag_limit') || 100,
75 $self->ctx->{page} = 'getit'; # repair the page
76 return Apache2::Const::OK;
80 sub load_kpac_config {
84 my $path = $self->apache->dir_config('KPacConfigFile');
87 $self->apache->log->error("KPacConfigFile required!");
94 ForceArray => ['layout', 'page', 'cell'],
99 my $ou = $self->ctx->{physical_loc} || $self->_get_search_lib;
102 # Search up the org tree to find the nearest config for the context org unit
103 while (my $org = $self->ctx->{get_aou}->($ou)) {
104 ($layout) = grep {$_->{owner} eq $org->id} @{$kpac_config->{layout}};
106 $ou = $org->parent_ou;
109 $self->ctx->{kpac_layout} = $layout;
110 $self->ctx->{kpac_config} = $kpac_config;
111 $self->ctx->{kpac_root} = $self->ctx->{base_path} . "/kpac";