Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv11999/lib/SandWeb
Modified Files:
Browse.pm
Log Message:
fixed bug that broke the location changer, PROGNAME variable
was not being set inside the LOCATION_LOOP
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -U2 -r1.16 -r1.17
--- Browse.pm 2001/10/21 04:02:40 1.16
+++ Browse.pm 2001/11/15 20:11:42 1.17
@@ -59,18 +59,20 @@
unless ($count) {
- my %row_data;
- $row_data{LOCATION_LINK} = "/";
- $row_data{LOCATION_FULL} = "/";
- push (@loop_data, \%row_data);
- $count++;
+ my %row_data;
+ $row_data{LOCATION_LINK} = "/";
+ $row_data{LOCATION_FULL} = "/";
+ $row_data{PROGNAME} = "$progname";
+ 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++;
+ my %row_data;
+ $row_data{LOCATION_LINK} = "$link";
+ my $data = join(/ /, @location_full);
+ push (@location_full, "/$location_link[$count]");
+ $row_data{LOCATION_FULL} = "$data";
+ $row_data{PROGNAME} = "$progname";
+ push (@loop_data, \%row_data);
+ $count++;
}
$content->param(
|
