--- loncom/interface/lonparmset.pm 2003/12/12 15:03:26 1.144 +++ loncom/interface/lonparmset.pm 2004/01/14 22:08:23 1.147 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.144 2003/12/12 15:03:26 www Exp $ +# $Id: lonparmset.pm,v 1.147 2004/01/14 22:08:23 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -306,6 +306,8 @@ sub startpage { 'oi' => "or ID", 'ad' => "at Domain" ); + my $overallhelp=&Apache::loncommon::help_open_topic("Course_Setting_Parameters","Parameters"); + my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters"); $r->print(< @@ -354,6 +356,7 @@ sub startpage { $selscript $bodytag +$overallhelp ENDHEAD unless ($trimheader) {$r->print(<
+$assessparmhelp

$lt{'caphm'}

@@ -1790,6 +1794,7 @@ ENDOVER my $oldpart=''; my $pointer=0; $tableopen=0; + my $foundkeys=0; foreach my $thiskey (sort keys %resourcedata) { if ($resourcedata{$thiskey.'.type'}) { my ($course,$middle,$part,$name)= @@ -1827,6 +1832,7 @@ ENDOVER $r->print(&tablestart().''.$name. ':'); + $foundkeys++; if ($resourcedata{$thiskey.'.type'}=~/^date/) { my $jskey='key_'.$pointer; $pointer++; @@ -1845,8 +1851,8 @@ ENDOVER } } - $r->print(&tableend(). - '

'); + $r->print(&tableend().'

'. + ($foundkeys?'':&mt('There are no course or section parameters.')).'

'); } ##################################################