[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.41,1.42

[Rob H. <for...@us...>]

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]");