version 1.464, 2009/06/30 14:59:17
|
version 1.466, 2009/07/01 17:11:38
|
Line 1368 ENDSCRIPT
|
Line 1368 ENDSCRIPT
|
|
|
$r->print(&Apache::lonhtmlcommon::row_closure(1)); |
$r->print(&Apache::lonhtmlcommon::row_closure(1)); |
} |
} |
|
# return a hash |
|
sub categories { |
|
return ('time_settings' => 'Time Settings', |
|
'grading' => 'Grading', |
|
'tries' => 'Tries', |
|
'problem_appearance' => 'Problem Appearance', |
|
'behaviour_of_input_fields' => 'Behaviour of Input Fields', |
|
'hiding' => 'Hiding', |
|
'high_level_randomization' => 'High Level Randomization', |
|
'slots' => 'Slots', |
|
'file_submission' => 'File Submission', |
|
'misc' => 'Miscellaneous' ); |
|
} |
|
|
|
# return a hash. Like a look-up table |
|
sub lookUpTableParameter { |
|
|
|
return ( |
|
'opendate' => 'time_settings', |
|
'duedate' => 'time_settings', |
|
'answerdate' => 'time_settings', |
|
'interval' => 'time_settings', |
|
'contentopen' => 'time_settings', |
|
'contentclose' => 'time_settings', |
|
'discussend' => 'time_settings', |
|
'weight' => 'grading', |
|
'handgrade' => 'grading', |
|
'maxtries' => 'tries', |
|
'hinttries' => 'tries', |
|
'type' => 'problem_appearance', |
|
'problemstatus' => 'problem_appearance', |
|
'display' => 'problem_appearance', |
|
'ordered' => 'problem_appearance', |
|
'numbubbles' => 'problem_appearance', |
|
'tol' => 'behaviour_of_input_fields', |
|
'sig' => 'behaviour_of_input_fields', |
|
'turnoffunit' => 'behaviour_of_input_fields', |
|
'hiddenresource' => 'hiding', |
|
'hiddenparts' => 'hiding', |
|
'discusshide' => 'hiding', |
|
'buttonshide' => 'hiding', |
|
'turnoffeditor' => 'hiding', |
|
'encrypturl' => 'hiding', |
|
'randomorder' => 'high_level_randomization', |
|
'randompick' => 'high_level_randomization', |
|
'available' => 'slots', |
|
'useslots' => 'slots', |
|
'availablestudent' => 'slots', |
|
'uploadedfiletypes' => 'file_submission', |
|
'maxfilesize' => 'file_submission', |
|
'cssfile' => 'misc', |
|
'mapalias' => 'misc', |
|
'acc' => 'misc', |
|
'maxcollaborators' => 'misc', |
|
'scoreformat' => 'misc', |
|
|
|
); |
|
} |
|
|
|
sub whatIsMyCategory { |
|
my $name = shift; |
|
my $catList = shift; |
|
my @list; |
|
my %lookUpList = &lookUpTableParameter; #Initilize the lookupList |
|
my $cat = $lookUpList{$name}; |
|
if (defined($cat)) { |
|
if (!defined($$catList{$cat})){ |
|
push @list, ($name); |
|
$$catList{$cat} = \@list; |
|
} else { |
|
push @{${$catList}{$cat}}, ($name); |
|
} |
|
} else { |
|
if (!defined($$catList{'misc'})){ |
|
push @list, ($name); |
|
$$catList{'misc'} = \@list; |
|
} else { |
|
push @{${$catList}{'misc'}}, ($name); |
|
} |
|
} |
|
} |
|
|
|
sub keysindisplayorderCategory { |
|
my ($name,$keyorder)=@_; |
|
return sort { |
|
$$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b}; |
|
} ( @{$name}); |
|
} |
|
|
|
|
sub parmboxes { |
sub parmboxes { |
my ($r,$allparms,$pscat,$keyorder)=@_; |
my ($r,$allparms,$pscat,$keyorder)=@_; |
my $tempkey; |
my $tempkey; |
|
my $tempparameter; |
|
my %categories = &categories; |
|
my %categoryList = ( |
|
'time_settings' => [], |
|
'grading' => [], |
|
'tries' => [], |
|
'problem_appearance' => [], |
|
'behaviour_of_input_fields' => [], |
|
'hiding' => [], |
|
'high_level_randomization' => [], |
|
'slots' => [], |
|
'file_submission' => [], |
|
'misc' => [], |
|
); |
|
|
|
foreach $tempparameter (keys %$allparms) { |
|
&whatIsMyCategory($tempparameter, \%categoryList); |
|
} |
#part to print the parm-list |
#part to print the parm-list |
$r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">' |
$r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">' |
.'<legend>'.&mt('Parameter').'</legend>' |
.'<legend>'.&mt('Parameter').'</legend>'."\n" |
."\n" |
|
.'<table>' |
|
); |
); |
my $cnt=0; |
|
|
|
$r->print('<tr>'); |
#Print parameters |
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
my ($category, $list) = undef; |
$r->print("\n".'<td><label><input type="checkbox" name="pscat" '); |
while (($category, $list) = each %categoryList) { |
$r->print('value="'.$tempkey.'" '); |
if(@$list == 0) { |
$r->print('onclick="checkboxChecked(\''.$tempkey.'\')"'); |
next; |
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
} else { |
$r->print(' checked="checked"'); |
$r->print('<fieldset>' |
} |
.'<legend>' |
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} |
.&mt($categories{$category}) |
: $tempkey) |
.'</legend>'."\n"); |
.'</label></td>'); |
foreach $tempkey (&keysindisplayorderCategory($list,$keyorder)) { |
$cnt++; |
$r->print('<span class="LC_nobreak">' |
if ($cnt==4) { |
.'<label><input type="checkbox" name="pscat" '); |
$r->print("</tr>\n<tr>"); |
$r->print('value="'.$tempkey.'" '); |
$cnt=0; |
$r->print('onclick="checkboxChecked(\''.$tempkey.'\')"'); |
} |
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
|
$r->print(' checked="checked"'); |
|
} |
|
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} |
|
: $tempkey) |
|
.'</label></span> '); |
|
} |
|
$r->print('</fieldset>'); |
|
} |
} |
} |
$r->print('</tr>' |
$r->print('<hr />' |
.'</table>' |
|
.'<hr />' |
|
.'<a href="javascript:hideParms()">' |
.'<a href="javascript:hideParms()">' |
.&mt('Hide') |
.&mt('Hide') |
.'</a>' |
.'</a>' |