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

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

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(