Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv28223/lib/SandWeb
Modified Files:
UI.pm
Log Message:
implemented view and edit more correctly, now they let you view or
edit a non-Text file but you get a warning. Sweet.
Index: UI.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/UI.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -U2 -r1.19 -r1.20
--- UI.pm 2001/10/06 07:51:56 1.19
+++ UI.pm 2001/11/22 00:57:16 1.20
@@ -185,5 +185,5 @@
}
-sub get_file {
+sub view_file {
my $self = shift;
my %args = @_;
@@ -202,4 +202,26 @@
# generate content data
my $tmp = HTML::Template->new(filename => "$template_dir/view_file.html");
+ $tmp->param( %defaults, %args );
+ my @contents = $tmp->output;
+ return join('', @contents);
+}
+
+sub edit_file {
+ my $self = shift;
+ my %args = @_;
+
+ my $template_dir = $self->_get_template_dir();
+ my $filename = $args{'filename'};
+ my $log = $self->_logobj();
+
+ # this will eventually be $conf->defaults()
+ my %defaults = (
+ # CGI_PATH => $self->_get_cgi_path(),
+ # CGI_EXEC => $self->_get_cgi_exec(),
+ FILENAME => $filename,
+ );
+
+ # generate content data
+ my $tmp = HTML::Template->new(filename => "$template_dir/edit_file.html");
$tmp->param( %defaults, %args );
my @contents = $tmp->output;
|
