version 1.466, 2009/07/01 17:11:38
|
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); |
} |
} |
Line 1485 sub parmboxes {
|
Line 1500 sub parmboxes {
|
); |
); |
|
|
#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('<fieldset>' |
$r->print('<fieldset>' |
.'<legend>' |
.'<legend>' |
.&mt($categories{$category}) |
.&mt($categories{$key}) |
.'</legend>'."\n"); |
.'</legend>'."\n"); |
foreach $tempkey (&keysindisplayorderCategory($list,$keyorder)) { |
foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) { |
$r->print('<span class="LC_nobreak">' |
$r->print('<span class="LC_nobreak">' |
.'<label><input type="checkbox" name="pscat" '); |
.'<label><input type="checkbox" name="pscat" '); |
$r->print('value="'.$tempkey.'" '); |
$r->print('value="'.$tempkey.'" '); |