[Sandweb-commit] CVS: sandweb/lib/SandWeb UI.pm,1.19,1.20

[Rob H. <for...@us...>]

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;