[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.15,1.16

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv20810/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:

the "Current location" bar now has selectable elements, so you
can go back one or more directories while you are browsing.

The colors make it hard to see though, I think I am going to make
clicked/unclicked links the same color in the browse.html template.



Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -U2 -r1.15 -r1.16
--- Browse.pm	2001/10/17 04:27:29	1.15
+++ Browse.pm	2001/10/21 04:02:40	1.16
@@ -53,7 +53,29 @@
         $location = '/';
     }
-        
-    $content->param( PROGNAME => $progname, 
-                     LOCATION => $location,
+    my @location_link;
+    push (@location_link, split( /\//, $location ));
+    my @loop_data = ();
+    my $count = 0;
+
+   unless ($count) {
+       my %row_data;
+       $row_data{LOCATION_LINK} = "/";
+       $row_data{LOCATION_FULL} = "/";
+       push (@loop_data, \%row_data);
+       $count++;
+   }
+   foreach my $link (@location_link) {
+       my %row_data;
+       $row_data{LOCATION_LINK} = "$link";
+       my $data = join(/ /, @location_full);
+       push (@location_full, "/$location_link[$count]");
+       $row_data{LOCATION_FULL} = "$data";
+       push (@loop_data, \%row_data);
+       $count++;
+    }           
+    $content->param(
+		PROGNAME => $progname, 
+                LOCATION => $location,
+		LOCATION_LOOP => \@loop_data,
     );