From: Nick J. <nje...@us...> - 2002-02-11 00:19:21
|
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++; } |