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("index") if $path =~ m|kpac/index|;
29 return $self->load_simple("category") if $path =~ m|kpac/category|;
30 return $self->load_simple("checkout") if $path =~ m|kpac/checkout|;
31 return $self->load_simple("checkout_results") if $path =~ m|kpac/checkout_results|;
33 # note: sets page=rresult
34 return $self->load_rresults if $path =~ m|kpac/search_results|; # inherited from tpac
36 # note: sets page=record
37 return $self->load_simple("detailed") if $path =~ m|kpac/detailed|;
39 # ----------------------------------------------------------------
40 # Everything below here requires SSL
41 # ----------------------------------------------------------------
42 return $self->redirect_ssl unless $self->cgi->https;
43 return $self->load_logout if $path =~ m|kpac/logout|;
45 if($path =~ m|kpac/login|) {
46 return $self->load_login unless $self->editor->requestor; # already logged in?
48 # This will be less confusing to users than to be shown a login form
49 # when they're already logged in.
50 return $self->generic_redirect(
52 "https://%s%s/kpac/index",
53 $self->apache->hostname, $self->ctx->{base_path}
59 # ----------------------------------------------------------------
60 # Everything below here requires authentication
61 # ----------------------------------------------------------------
62 return $self->redirect_auth unless $self->editor->requestor;
66 return Apache2::Const::OK;
70 sub load_kpac_config {
72 my $path = '/home/berick/code/Evergreen/Open-ILS/examples/kpac.xml'; # TODO: apache config
74 unless ($kpac_config) {
78 ForceArray => ['layout', 'page', 'cell'],
83 # TODO: make generic "whoami" sub for EGCatLoader.
84 my $ou = $self->ctx->{physical_loc} || $self->cgi->param('loc') || $self->ctx->{aou_tree}->()->id;
87 # Search up the org tree to find the nearest config for the context org unit
88 while (my $org = $self->ctx->{get_aou}->($ou)) {
89 ($layout) = grep {$_->{owner} eq $org->id} @{$kpac_config->{layout}};
91 $ou = $org->parent_ou;
94 $self->ctx->{kpac_layout} = $layout;
95 $self->ctx->{kpac_config} = $kpac_config;
96 $self->ctx->{kpac_root} = $self->ctx->{base_path} . "/kpac";