--- loncom/interface/lonparmset.pm 2004/09/10 21:29:54 1.175 +++ loncom/interface/lonparmset.pm 2004/11/23 20:36:46 1.177 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.175 2004/09/10 21:29:54 albertel Exp $ +# $Id: lonparmset.pm,v 1.177 2004/11/23 20:36:46 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1002,23 +1002,36 @@ sub assessparms { $r->print(''.&mt('Select Parameters to View').''); - $r->print(''); - $r->print(''); - + $r->print('
print(' checked') unless (@pscat); - $r->print('>'.&mt('All Parameters').'
'); my $cnt=0; foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} } keys %allparms ) { ++$cnt; - $r->print('') unless ($cnt%2); + $r->print('') if ($cnt%2); $r->print(''); + $r->print('>'.$allparms{$tempkey}.''); + } + $r->print(' + +'); $r->print('
print('value="'.$tempkey.'"'); if ($pscat[0] eq "all" || grep $_ eq $tempkey, @pscat) { $r->print(' checked'); } - $r->print('>'.$allparms{$tempkey}.'
+ + + + +
'); # $r->print('
Select Parts'); @@ -1549,6 +1562,7 @@ sub crsenv { 'courseid' => ''.&mt('Course ID or number'). '
'. '('.&mt('internal').', '.&mt('optional').')', + 'cloners' => ''.&mt('Users allowed to clone course').'
(user:domain,user:domain)
'.&mt('Users with active Course Coordinator role in the course automatically have the right to clone it, and can be omitted from list.'), 'grading' => ''.&mt('Grading').'
'. '"standard", "external", or "spreadsheet" '.&Apache::loncommon::help_open_topic('GradingOptions'), 'default_xml_style' => ''.&mt('Default XML Style File').' '. @@ -1644,7 +1658,7 @@ sub crsenv { 'tthoptions' => ''.&mt('Default set of options to pass to tth/m when converting tex').'' ); - my @Display_Order = ('url','description','courseid','grading', + my @Display_Order = ('url','description','courseid','cloners','grading', 'default_xml_style','pageseparators', 'question.email','comment.email','policy.email', 'student_classlist_view',