version 1.64, 2006/11/23 00:02:38
|
version 1.65, 2006/11/23 00:15:56
|
Line 1002 sub process_update {
|
Line 1002 sub process_update {
|
next if ($_!~/^form\.(.+)\_setparmval$/); |
next if ($_!~/^form\.(.+)\_setparmval$/); |
my $name = $1; |
my $name = $1; |
my $value = $env{'form.'.$name.'_value'}; |
my $value = $env{'form.'.$name.'_value'}; |
if ($name && defined($value)) { |
if ($name && defined($value) && ($value ne '')) { |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
{$name=>$value},$udom,$uname); |
{$name=>$value},$udom,$uname); |
|
|