From b04e091da415a1bb1d00ffd10a913a13c4175d1b Mon Sep 17 00:00:00 2001 From: senator Date: Thu, 10 Feb 2011 17:24:05 -0500 Subject: [PATCH] advanced page doesn't need login first --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm index 3a62f4ff10..f303af7941 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm @@ -71,7 +71,8 @@ sub load { my $path = $self->apache->path_info; - return $self->load_home if $path =~ /opac\/home/; + return $self->load_simple("home") if $path =~ /opac\/home/; + return $self->load_simple("advanced") if $path =~ /opac\/advanced/; return $self->load_login if $path =~ /opac\/login/; return $self->load_logout if $path =~ /opac\/logout/; return $self->load_rresults if $path =~ /opac\/results/; @@ -243,9 +244,9 @@ sub load_common { return Apache2::Const::OK; } -sub load_home { - my $self = shift; - $self->ctx->{page} = 'home'; +sub load_simple { + my ($self, $page) = @_; + $self->ctx->{page} = $page; return Apache2::Const::OK; } -- 2.11.0