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 4b6fd5a..3bb0ade 100644 (file)
--- 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";