From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 16 Aug 2006 14:33:22 +0000 (+0000)
Subject: protecting against double slashes in some places ...
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b50375c73404d106909d5c3912ece740aca27bdb;p=evergreen%2Fpines.git

protecting against double slashes in some places ...


git-svn-id: svn://svn.open-ils.org/ILS/trunk@5530 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index 4b6fd5a351..3bb0adef6f 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -660,10 +660,13 @@ sub bookbag_feed {
 	}
 
 	my $url = $cgi->url(-path_info=>$add_path);
-	my $root = (split 'feed', $url)[0];
-	my $base = (split 'bookbag', $url)[0] . 'bookbag';
-	my $unapi = (split 'feed', $url)[0] . 'unapi';
+	my $root = (split 'feed', $url)[0] . '/';
+	my $base = (split 'bookbag', $url)[0] . '/bookbag';
+	my $unapi = (split 'feed', $url)[0] . '/unapi';
 
+	$root =~ s{(?<!http:)//}{/}go;
+	$base =~ s{(?<!http:)//}{/}go;
+	$unapi =~ s{(?<!http:)//}{/}go;
 
 	my $path = $cgi->path_info;
 	#warn "URL breakdown: $url -> $root -> $base -> $path -> $unapi";