sandweb-commit

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

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv22094/bin

Modified Files:
	sandweb.cgi 
Log Message:
edit is now implemented as a <TMPL_IF> instead of hard-coded
HTML in the CGI.

Also removed "FULLPATH" variable from CGI, that's old
stuff from before the File object existed.


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.148
retrieving revision 1.149
diff -U2 -r1.148 -r1.149
--- sandweb.cgi	2002/02/03 03:24:44	1.148
+++ sandweb.cgi	2002/02/03 03:45:05	1.149
@@ -663,5 +663,5 @@
 		$file_content =~ s/>/&gt;/g;
 
-		my $edit = "";
+		my $edit = 0;
 
 		if ( $file->get_file_type() ne "Text" ) {
@@ -670,5 +670,5 @@
 			$file_content = "";
 		} else {
-			$edit = "\<a href\=\"$progname\/$filename\?action\=file\&file_command\=edit\&location\=$location\&filename\=$filename\"\>edit\<\/a\>"
+			$edit = 1;
 		}
 
@@ -740,5 +740,4 @@
 			LOCATION => $location,
 			FILENAME => $filename,
-			FULLPATH => "$users_dir/$username/$location",
 		);
 
@@ -769,5 +768,4 @@
 			PROGNAME => $progname,
 			LOCATION => $location,
-			FULLPATH => "$users_dir/$username/$location",
 		);
 
@@ -797,5 +795,4 @@
 			PROGNAME => $progname,
 			LOCATION => $location,
-			FULLPATH => "$users_dir/$username/$location",
 		);
 		print CGI::header( -cookie => $ck_auth );
@@ -836,5 +833,4 @@
 			PROGNAME => $progname,
 			FILENAME => $filename,
-			FULLPATH => "$users_dir/$username/$location",
 		);
 		print CGI::header( -cookie => $ck_auth );
@@ -930,5 +926,4 @@
 			LOCATION => $location,
 			PROGNAME => $progname,
-			FULLPATH => "$users_dir/$username/$location",
 		);
 		print CGI::header( -cookie => $ck_auth );
@@ -960,5 +955,4 @@
 				LOCATION => $location,
 				PROGNAME => $progname,
-				FULLPATH => "$users_dir/$username/$location",
 				VCS_OUTPUT => "@vcs_output",
 				VCS_ERROR => "@vcs_error",
@@ -979,5 +973,4 @@
 			LOCATION => $location,
 			PROGNAME => $progname,
-			FULLPATH => "$users_dir/$username/$location",
 			FILENAME => "@filename",
 		);
@@ -1010,5 +1003,4 @@
 			FILENAME => "@filename",
 			PROGNAME => $progname,
-			FULLPATH => "$users_dir/$username/$location",
 			VCS_OUTPUT => "@vcs_output",
 			VCS_ERROR => "@vcs_error",