version 1.152, 2004/04/01 15:12:27
|
version 1.153, 2004/04/12 20:03:31
|
Line 1499 sub crsenv {
|
Line 1499 sub crsenv {
|
} |
} |
# |
# |
# Let the user know we made the changes |
# Let the user know we made the changes |
if ($name) { |
if ($name && defined($value)) { |
my $put_result = &Apache::lonnet::put('environment', |
my $put_result = &Apache::lonnet::put('environment', |
{$name=>$value},$dom,$crs); |
{$name=>$value},$dom,$crs); |
if ($put_result eq 'ok') { |
if ($put_result eq 'ok') { |
Line 1776 ENDOVER
|
Line 1776 ENDOVER
|
push (@deldata,$thiskey); |
push (@deldata,$thiskey); |
} elsif ($cmd eq 'datepointer') { |
} elsif ($cmd eq 'datepointer') { |
my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_}); |
my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_}); |
if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; } |
if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; } |
} |
} |
} |
} |
} |
} |