From: Rob H. <for...@us...> - 2002-02-25 21:50:50
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv14153/lib/SandWeb Modified Files: Browse.pm Log Message: Browse->get_browser() no longer uses HTML::Template, returns reference to array that contains reference to a hash for each file Index: Browse.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v retrieving revision 1.63 retrieving revision 1.64 diff -U2 -r1.63 -r1.64 --- Browse.pm 24 Feb 2002 06:10:21 -0000 1.63 +++ Browse.pm 25 Feb 2002 21:49:15 -0000 1.64 @@ -57,5 +57,5 @@ } - my $content = HTML::Template->new( filename => "$template_dir/browse_module.html" ); + my @content; my @return = (); @@ -134,5 +134,4 @@ $row_data{PROGNAME} = $progname; push(@loop_data, \%row_data); - $content->param(ENTRY_LOOP => \@loop_data); if ($counter eq "1") { @@ -143,11 +142,9 @@ } } else { - $content->param(STATUS => 'No files.'); + @content = ('STATUS','No files.'); } - @loop_data = (); - - - return $content->output(); + @content = ('ENTRY_LOOP', \@loop_data); + return @content; } |