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") || '';
}
|
