Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv4995/lib/SandWeb
Modified Files:
Browse.pm
Log Message:
spaces were getting inserted into the location link for links that
go three or more directories deep.. fixed
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -U2 -r1.35 -r1.36
--- Browse.pm 2002/01/27 01:48:04 1.35
+++ Browse.pm 2002/01/28 20:24:42 1.36
@@ -83,4 +83,6 @@
$row_data{LOCATION_LINK} = "$link";
my $data = join(" ", @location_full);
+ $data =~ s/\ /$1/;
+
if ($location_link[$count]) {
push (@location_full, "/$location_link[$count]");
@@ -91,4 +93,5 @@
$count++;
}
+
$content->param(
PROGNAME => $progname,
|
