From 16bbac7cd409c3c9fcc7b59abea90a2ad711276f Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 25 Aug 2010 16:58:09 +0000 Subject: [PATCH] added support for configuring redirect depth, skin, and locale during IP-based org unit redirection git-svn-id: svn://svn.open-ils.org/ILS/trunk@17337 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm index 3cc4a06f5f..be951de462 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm @@ -56,13 +56,18 @@ sub handler { my $apache_obj = shift; my $cgi = CGI->new( $apache_obj ); + + my $skin = $apache_obj->dir_config('OILSRedirectSkin') || 'default'; + my $depth = $apache_obj->dir_config('OILSRedirectDepth') || undef; + my $locale = $apache_obj->dir_config('OILSRedirectLocale') || 'en-US'; + my $hostname = $cgi->server_name(); my $port = $cgi->server_port(); my $proto = "http"; if($cgi->https) { $proto = "https"; } - my $url = "$proto://$hostname:$port/opac/en-US/skin/default/xml/index.xml"; + my $url = "$proto://$hostname:$port/opac/$locale/skin/$skin/xml/index.xml"; my $path = $apache_obj->path_info(); @@ -77,7 +82,10 @@ sub handler { 'open-ils.actor.org_unit.retrieve_by_shortname', $shortname)->gather(1); - if($org) { $url .= "?ol=" . $org->id; } + if($org) { + $url .= "?ol=" . $org->id; + $url .= "d=$depth" if defined $depth; + } } print "Location: $url\n\n"; -- 2.43.2