Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv2492/lib/SandWeb
Modified Files:
Browse.pm
Log Message:
"current location" bug - getting spaces at the end of data
in odd circumstances ( three dirs deep, click on a dir w/ spaces )..
spaces are not allowed at the end of filenames, so stripped them out
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -U2 -r1.41 -r1.42
--- Browse.pm 2002/02/03 03:54:52 1.41
+++ Browse.pm 2002/02/05 05:25:14 1.42
@@ -81,9 +81,12 @@
foreach my $link (@location_link) {
my %row_data;
+
if ( $link ) {
+ $link =~ s/$\ /$1/;
$row_data{LOCATION_LINK} = "[$link]";
}
my $data = join(" ", @location_full);
+ $data =~ s/$\ /$1/;
if ($location_link[$count]) {
push (@location_full, "/$location_link[$count]");
|
