version 1.14, 2005/05/24 15:54:19
|
version 1.15, 2005/06/01 19:24:50
|
Line 105 sub display_main_box {
|
Line 105 sub display_main_box {
|
degdiff => 'Degree of difficulty', |
degdiff => 'Degree of difficulty', |
numstudents => 'Total number of students with submissions', |
numstudents => 'Total number of students with submissions', |
); |
); |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
|
if ($command eq 'chgthreshold') { |
if ($command eq 'chgthreshold') { |
&display_config_box($r,$command,$tabbg,\%threshold_titles); |
&display_config_box($r,$command,$tabbg,\%threshold_titles,$cdom,$crs); |
} else { |
} else { |
&display_actions_box($r,$command,\%threshold_titles); |
&display_actions_box($r,$command,\%threshold_titles,$cdom,$crs); |
} |
} |
$r->print(<<END_OF_BLOCK); |
$r->print(<<END_OF_BLOCK); |
</td> |
</td> |
Line 146 ENDHEAD
|
Line 149 ENDHEAD
|
#------------------------------- |
#------------------------------- |
|
|
sub display_actions_box() { |
sub display_actions_box() { |
my ($r,$command,$threshold_titles) = @_; |
my ($r,$command,$threshold_titles,$cdom,$crs) = @_; |
|
|
my $rowColor1 = "#ffffff"; |
my $rowColor1 = "#ffffff"; |
my $rowColor2 = "#eeeeee"; |
my $rowColor2 = "#eeeeee"; |
Line 187 sub display_actions_box() {
|
Line 190 sub display_actions_box() {
|
} |
} |
|
|
my $result; |
my $result; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
|
|
if ($command eq 'reset') { |
if ($command eq 'reset') { |
$result = &process_reset($cdom,$crs); |
$result = &process_reset($cdom,$crs); |
Line 437 END
|
Line 438 END
|
#------------------------------- |
#------------------------------- |
|
|
sub display_config_box() { |
sub display_config_box() { |
my ($r,$command,$tabbg,$threshold_titles) = @_; |
my ($r,$command,$tabbg,$threshold_titles,$cdom,$crs) = @_; |
my %threshold = (); |
my %threshold = (); |
my $rowColor1 = "#ffffff"; |
my $rowColor1 = "#ffffff"; |
my $rowColor2 = "#eeeeee"; |
my $rowColor2 = "#eeeeee"; |
Line 449 sub display_config_box() {
|
Line 450 sub display_config_box() {
|
degdiff => 'Degree of difficulty', |
degdiff => 'Degree of difficulty', |
numstudents => 'Total number of students with submissions', |
numstudents => 'Total number of students with submissions', |
); |
); |
&get_curr_thresholds(\%threshold); |
&get_curr_thresholds(\%threshold,$cdom,$crs); |
|
|
$r->print('<br /><form name="thresholdform" method="post"><table border="0" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%"> |
$r->print('<br /><form name="thresholdform" method="post"><table border="0" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%"> |
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
Line 668 sub get_counter_resets {
|
Line 669 sub get_counter_resets {
|
my $lastreset = 'None'; |
my $lastreset = 'None'; |
if ($$resethash{'version'}) { |
if ($$resethash{'version'}) { |
for (my $version=1;$version<=$$resethash{'version'};$version++) { |
for (my $version=1;$version<=$$resethash{'version'};$version++) { |
if (exists($$resethash{$version.':'.$part.'prev_attempts'})) { |
if (exists($$resethash{$version.':'.$part."\0".'prev_attempts'})) { |
$lastreset = $$resethash{$version.':timestamp'}; |
$lastreset = $$resethash{$version.':timestamp'}; |
} |
} |
} |
} |
} |
} |
Line 737 sub process_reset {
|
Line 738 sub process_reset {
|
|
|
sub process_update { |
sub process_update { |
my ($dom,$crs,$threshold_titles) = @_; |
my ($dom,$crs,$threshold_titles) = @_; |
my $setoutput = '<b>Changes to threshold(s):</b><br />'; |
my $setoutput = '<b>Changes to threshold(s) for problem tracking:</b><br />'; |
foreach (keys %env) { |
foreach (keys %env) { |
next if ($_!~/^form\.(.+)\_setparmval$/); |
next if ($_!~/^form\.(.+)\_setparmval$/); |
my $name = $1; |
my $name = $1; |