[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.81,1.82

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv8351/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
fix the bug that prevented browse_menu from not showing anything when
pointing at a module that just contained a single directory, turns
out we weren't escaping the . character when trying to get rid of the
"." and ".." dirs (we don't need those, we have the location bar ).

closing associated bug on sf.net ( bug#692770 )


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.81
retrieving revision 1.82
diff -U2 -r1.81 -r1.82
--- Browse.pm	6 Jan 2003 09:41:10 -0000	1.81
+++ Browse.pm	28 Feb 2003 11:04:06 -0000	1.82
@@ -265,10 +265,12 @@
 	my @entries = readdir(SANDBOX);
 	chomp @entries;
+	$log->debug("Entries : @entries");
 	foreach my $entry (@entries) {
-			next if ($entry =~ /^.$/);
-			next if ($entry =~ /^.\.$/);
+			next if ($entry =~ /^\.$/);
+			next if ($entry =~ /^\.\.$/);
 			push @return, $entry;
 	}
 	closedir SANDBOX;
+	$log->debug("Return: @return");
 	
 	if ( $sort ) {
@@ -303,4 +305,5 @@
 			$row_data{FILESIZE} = $file->get_size();
 			$row_data{FILEAGE} = $file->get_age();
+
 			if ( $file->get_file_type() eq "Directory" ) {
 				if ($repo_type eq "CVS") {