Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv19486
Modified Files:
Browse.pm
Log Message:
* changed some indenting
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -U2 -r1.44 -r1.45
--- Browse.pm 10 Feb 2002 09:09:22 -0000 1.44
+++ Browse.pm 11 Feb 2002 00:19:15 -0000 1.45
@@ -71,28 +71,28 @@
my @location_full = ();
- unless ($count) {
- my %row_data;
- $row_data{LOCATION_LINK} = "[root]";
- $row_data{LOCATION_FULL} = "/";
- $row_data{PROGNAME} = "$progname";
- push (@loop_data, \%row_data);
- $count++;
- }
+ unless ($count) {
+ my %row_data;
+ $row_data{LOCATION_LINK} = "[root]";
+ $row_data{LOCATION_FULL} = "/";
+ $row_data{PROGNAME} = "$progname";
+ push (@loop_data, \%row_data);
+ $count++;
+ }
- foreach my $link (@location_link) {
- my %row_data;
+ foreach my $link (@location_link) {
+ my %row_data;
- if ( $link ) {
- $row_data{LOCATION_LINK} = "[$link]";
- }
- my $data = join("/", @location_full);
+ if ( $link ) {
+ $row_data{LOCATION_LINK} = "[$link]";
+ }
+ my $data = join("/", @location_full);
- if ($location_link[$count]) {
- push (@location_full, "/$location_link[$count]");
- }
- $row_data{LOCATION_FULL} = "$data";
- $row_data{PROGNAME} = "$progname";
- push (@loop_data, \%row_data);
- $count++;
+ if ($location_link[$count]) {
+ push (@location_full, "/$location_link[$count]");
+ }
+ $row_data{LOCATION_FULL} = "$data";
+ $row_data{PROGNAME} = "$progname";
+ push (@loop_data, \%row_data);
+ $count++;
}
|
