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;
}
|
