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,
);
|
