--- loncom/interface/lonparmset.pm 2004/01/14 22:08:23 1.147 +++ loncom/interface/lonparmset.pm 2004/06/04 22:56:45 1.163 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.147 2004/01/14 22:08:23 www Exp $ +# $Id: lonparmset.pm,v 1.163 2004/06/04 22:56:45 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -306,7 +306,10 @@ sub startpage { 'oi' => "or ID", 'ad' => "at Domain" ); - my $overallhelp=&Apache::loncommon::help_open_topic("Course_Setting_Parameters","Parameters"); + my $overallhelp= + &Apache::loncommon::help_open_topic("Course_Setting_Parameters"). + &Apache::loncommon::help_open_faq(10). + &Apache::loncommon::help_open_bug('Instructor Interface'); my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters"); $r->print(< @@ -356,7 +359,7 @@ sub startpage { $selscript $bodytag -$overallhelp + ENDHEAD unless ($trimheader) {$r->print(<print(''.&mt('Select Parameter Level').''); + $r->print(''.&mt('Select Parameter Level'). + &Apache::loncommon::help_open_topic('Course_Parameter_Levels'). + ''); $r->print(''; } + my %lt=&Apache::lonlocal::texthash( + 'par' => 'Parameter', + 'val' => 'Value', + 'set' => 'Set', + 'sce' => 'Set Course Environment' + ); + my $Parameter=&mt('Parameter'); my $Value=&mt('Value'); my $Set=&mt('Set'); + my $browse_js=&Apache::loncommon::browser_and_searcher_javascript(); $r->print(< LON-CAPA Course Environment @@ -1699,10 +1712,10 @@ $bodytag $setoutput

- + $output
$Parameter$Value$Set?
$lt{'par'}$lt{'val'}$lt{'set'}?
- + @@ -1763,7 +1776,7 @@ ENDOVER push (@deldata,$thiskey); } elsif ($cmd eq 'datepointer') { 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; } } } }