From b50375c73404d106909d5c3912ece740aca27bdb Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 16 Aug 2006 14:33:22 +0000
Subject: [PATCH] protecting against double slashes in some places ...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5530 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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";
-- 
2.43.2