loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);