version 1.465, 2009/07/01 14:35:47
|
version 1.467, 2009/07/14 13:53:03
|
Line 1457 sub keysindisplayorderCategory {
|
Line 1457 sub keysindisplayorderCategory {
|
} ( @{$name}); |
} ( @{$name}); |
} |
} |
|
|
|
sub category_order { |
|
return ( |
|
'time_settings' => 1, |
|
'grading' => 2, |
|
'tries' => 3, |
|
'problem_appearance' => 4, |
|
'hiding' => 5, |
|
'behaviour_of_input_fields' => 6, |
|
'high_level_randomization' => 7, |
|
'slots' => 8, |
|
'file_submission' => 9, |
|
'misc' => 10 |
|
); |
|
|
|
} |
|
|
sub parmboxes { |
sub parmboxes { |
my ($r,$allparms,$pscat,$keyorder)=@_; |
my ($r,$allparms,$pscat,$keyorder)=@_; |
my $tempkey; |
my $tempkey; |
my $tempparameter; |
my $tempparameter; |
my %categories = &categories; |
my %categories = &categories; |
|
my %category_order = &category_order(); |
my %categoryList = ( |
my %categoryList = ( |
'time_settings' => [], |
'time_settings' => [], |
'grading' => [], |
'grading' => [], |
Line 1475 sub parmboxes {
|
Line 1491 sub parmboxes {
|
'file_submission' => [], |
'file_submission' => [], |
'misc' => [], |
'misc' => [], |
); |
); |
|
|
foreach $tempparameter (keys %$allparms) { |
foreach $tempparameter (keys %$allparms) { |
&whatIsMyCategory($tempparameter, \%categoryList); |
&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>' |
|
); |
); |
|
|
#Print parameters |
#Print parameters |
my ($category, $list) = undef; |
for my $key (sort { $category_order{$a} <=> $category_order{$b} } keys %categoryList) { |
while (($category, $list) = each %categoryList) { |
if(@{$categoryList{$key}} == 0) { |
if(@$list == 0) { |
|
next; |
next; |
} else { |
} else { |
$r->print('<tr>'); |
$r->print('<fieldset>' |
$r->print('<td><b>' .&mt($categories{$category}).'</b></td> </tr> <tr>'); |
.'<legend>' |
foreach $tempkey (&keysindisplayorderCategory($list,$keyorder)) { |
.&mt($categories{$key}) |
$r->print("\n".'<td><label><input type="checkbox" name="pscat" '); |
.'</legend>'."\n"); |
|
foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) { |
|
$r->print('<span class="LC_nobreak">' |
|
.'<label><input type="checkbox" name="pscat" '); |
$r->print('value="'.$tempkey.'" '); |
$r->print('value="'.$tempkey.'" '); |
$r->print('onclick="checkboxChecked(\''.$tempkey.'\')"'); |
$r->print('onclick="checkboxChecked(\''.$tempkey.'\')"'); |
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
Line 1503 sub parmboxes {
|
Line 1518 sub parmboxes {
|
} |
} |
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} |
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} |
: $tempkey) |
: $tempkey) |
.'</label></td>'); |
.'</label></span> '); |
} |
} |
$r->print('</tr>'); |
$r->print('</fieldset>'); |
} |
} |
} |
} |
$r->print( '</table>' |
$r->print('<hr />' |
.'<hr />' |
.'<a href="javascript:hideParms()">' |
.'<a href="javascript:hideParms()">' |
.&mt('Hide') |
.&mt('Hide') |
.'</a>' |
.'</a>' |
|
); |
); |
|
|
#&shortCuts($r,$allparms,$pscat,$keyorder); |
#&shortCuts($r,$allparms,$pscat,$keyorder); |