[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.321,1.322

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

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

Modified Files:
	sandweb.cgi 
Log Message:
ah, NOW i get it...

If a field is checked, it's like - <input type="checkbox" checked="on">
if it's not checked, it's like - <input type="checkbox">

got it.



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.321
retrieving revision 1.322
diff -U2 -r1.321 -r1.322
--- sandweb.cgi	5 Oct 2002 05:34:32 -0000	1.321
+++ sandweb.cgi	5 Oct 2002 05:57:40 -0000	1.322
@@ -853,9 +853,10 @@
 	load_config(1); # load prefs and do not log error msg
 	my $username = $auth->get_username();
-	my $full_name = $user->get_full_name();
-	my $confirm_delete = $user->get_confirm_delete();
+	my $full_name = $user->get_full_name() || '';
+	my $confirm_delete = $user->get_confirm_delete() || '';
+	my $confirm_delete_checked;
 
-	unless ($confirm_delete eq "on" || $confirm_delete eq "off") {
-		$confirm_delete = "on";
+	if ($confirm_delete) {
+		$confirm_delete_checked = 'checked="on"';
 	}
 
@@ -864,5 +865,5 @@
 		PROGNAME => $progname,
 		FULL_NAME => $full_name,
-		CONFIRM_DELETE => $confirm_delete,
+		CONFIRM_DELETE => $confirm_delete_checked,
 	);
 
@@ -2549,7 +2550,5 @@
 
 	foreach my $param (@personal_params) {
-		if ( $cgi->param("$param") ) {
-			$user->{'personal'}->{"$param"} = param("$param");
-		}
+		$user->{'personal'}->{"$param"} = param("$param") || '';
 	}