version 1.61, 2006/09/06 19:20:04
|
version 1.65, 2006/11/23 00:15:56
|
Line 286 sub display_actions_box {
|
Line 286 sub display_actions_box {
|
$result = &store_courseinit_setting($uname,$udom,$cid,$initpage); |
$result = &store_courseinit_setting($uname,$udom,$cid,$initpage); |
} |
} |
|
|
my %threshold = ( |
my %threshold = (); |
av_attempts => 2, |
|
degdiff => 0.5, |
|
numstudents => 2, |
|
); |
|
my %pagedesc = &Apache::lonlocal::texthash ( |
my %pagedesc = &Apache::lonlocal::texthash ( |
firstres => 'First resource', |
firstres => 'First resource', |
whatsnew => "What's New? page", |
whatsnew => "What's New? page", |
Line 468 sub display_threshold_config {
|
Line 464 sub display_threshold_config {
|
my $rowColor; |
my $rowColor; |
|
|
my @thresholditems = ("av_attempts","degdiff","numstudents"); |
my @thresholditems = ("av_attempts","degdiff","numstudents"); |
foreach my $item (@thresholditems) { |
|
$threshold{$item} = ''; |
|
} |
|
my %threshold_titles = &Apache::lonlocal::texthash( |
my %threshold_titles = &Apache::lonlocal::texthash( |
av_attempts => 'Average number of attempts', |
av_attempts => 'Average number of attempts', |
degdiff => 'Degree of difficulty', |
degdiff => 'Degree of difficulty', |
Line 883 sub check_thresholds {
|
Line 876 sub check_thresholds {
|
} |
} |
if ($warning) { |
if ($warning) { |
$$triggered{$symb}{title} = $resource->title; |
$$triggered{$symb}{title} = $resource->title; |
|
my $partcount = 0; |
|
@{$$triggered{$symb}{text}} = (); |
foreach my $part (@parts) { |
foreach my $part (@parts) { |
if (exists($stats{$part}{users})) { |
if (exists($stats{$part}{users})) { |
my $resetname = 'reset_'.&escape($symb."\0".$part); |
my $resetname = 'reset_'.&escape($symb."\0".$part); |
my $resettitle = 'title_'.&escape($symb."\0".$part); |
my $resettitle = 'title_'.&escape($symb."\0".$part); |
if ($$triggered{$symb}{numparts}) { |
|
$$triggered{$symb}{text} .= '<tr>'."\n"; |
|
} |
|
if (@parts > 1) { |
if (@parts > 1) { |
$$triggered{$symb}{text} .= ' |
$$triggered{$symb}{text}[$partcount] = ' |
<td>part - '.$part.'</td>'; |
<td>part - '.$part.'</td>'; |
} else { |
} else { |
$$triggered{$symb}{text} .= ' |
$$triggered{$symb}{text}[$partcount] = ' |
<td>single part</td>'; |
<td>single part</td>'; |
} |
} |
$$triggered{$symb}{text} .= ' |
$$triggered{$symb}{text}[$partcount] .= ' |
<td>'.$stats{$part}{users}.'</td> |
<td>'.$stats{$part}{users}.'</td> |
<td>'.$stats{$part}{attempts}.'</td> |
<td>'.$stats{$part}{attempts}.'</td> |
<td>'.$stats{$part}{degdiff}.'</td> |
<td>'.$stats{$part}{degdiff}.'</td> |
<td>'.$lastreset{$part}.'</td> |
<td>'.$lastreset{$part}.'</td> |
<td><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td> |
<td><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td>'; |
</tr>'; |
$partcount ++; |
$$triggered{$symb}{numparts} ++; |
|
} |
} |
|
$$triggered{$symb}{numparts} = $partcount; |
} |
} |
push(@{$warnings},$symb); |
push(@{$warnings},$symb); |
} |
} |
Line 914 sub check_thresholds {
|
Line 906 sub check_thresholds {
|
|
|
sub get_curr_thresholds { |
sub get_curr_thresholds { |
my ($threshold,$uname,$udom,$cid,$cdom,$crs) = @_; |
my ($threshold,$uname,$udom,$cid,$cdom,$crs) = @_; |
|
# set default values |
|
%$threshold = (av_attempts => 2, |
|
degdiff => 0.5, |
|
numstudents => 2 |
|
); |
my %thresholdsettings = &Apache::lonnet::dump('nohist_whatsnew',$udom, |
my %thresholdsettings = &Apache::lonnet::dump('nohist_whatsnew',$udom, |
$uname,$cid.':threshold'); |
$uname,$cid.':threshold'); |
my $thresholdcount = 0; |
my $thresholdcount = 0; |
Line 1005 sub process_update {
|
Line 1002 sub process_update {
|
next if ($_!~/^form\.(.+)\_setparmval$/); |
next if ($_!~/^form\.(.+)\_setparmval$/); |
my $name = $1; |
my $name = $1; |
my $value = $env{'form.'.$name.'_value'}; |
my $value = $env{'form.'.$name.'_value'}; |
if ($name && defined($value)) { |
if ($name && defined($value) && ($value ne '')) { |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
{$name=>$value},$udom,$uname); |
{$name=>$value},$udom,$uname); |
|
|
Line 1218 sub display_abovethreshold {
|
Line 1215 sub display_abovethreshold {
|
$rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"'; |
$rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"'; |
} |
} |
$linkurl .= '?symb='.&escape($res); |
$linkurl .= '?symb='.&escape($res); |
$r->print('<tr class="'.($row%2?'LC_odd_row':'').'">'. |
my $css_class = $row%2?'LC_odd_row':''; |
|
$r->print('<tr class="'.$css_class.'">'. |
'<td class="LC_first_item" '.$rowspan.'><a href="'.$linkurl.'">'. |
'<td class="LC_first_item" '.$rowspan.'><a href="'.$linkurl.'">'. |
$$triggered{$res}{title}.'</a></td>'. |
$$triggered{$res}{title}.'</a></td>'); |
$$triggered{$res}{text}); |
if (ref($$triggered{$res}{text}) eq 'ARRAY') { |
|
$r->print($$triggered{$res}{text}[0]); |
|
} |
|
$r->print('</tr>'); |
|
if (ref($$triggered{$res}{text}) eq 'ARRAY') { |
|
if (@{$$triggered{$res}{text}} > 1) { |
|
for (my $i=1; $i<@{$$triggered{$res}{text}}; $i++) { |
|
$r->print('<tr class="'.$css_class.'">'. |
|
$$triggered{$res}{text}[$i].'</tr>'); |
|
} |
|
} |
|
} |
} |
} |
$r->print('<tr class="LC_info_row"><td colspan="7"><br /><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></td></tr></form>'); |
$r->print('<tr class="LC_info_row"><td colspan="7"><br /><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></td></tr></form>'); |
} else { |
} else { |
$r->print('<tr class="LC_empty_row"><br />'.$lt{'nopr'}.'<br /></td></tr>'); |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); |
} |
} |
} |
} |
|
|