loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.101.2.1.2.2 and 1.108

version 1.101.2.1.2.2, 2012/02/11 17:58:17	version 1.108, 2012/10/04 11:31:58
Line 917 sub display_launcher {	Line 917 sub display_launcher {
} elsif ($action eq 'crslogin') { #LAST LOGIN	} elsif ($action eq 'crslogin') { #LAST LOGIN
&display_crslogins($r,$logincount,$loggedin,$interval->{'crslogin'},	&display_crslogins($r,$logincount,$loggedin,$interval->{'crslogin'},
$crstype);	$crstype);

}	}
}	}
&end_box($r);	&end_box($r);
Line 1097 sub check_thresholds {	Line 1096 sub check_thresholds {
$av_attempts = $attempts/$users;	$av_attempts = $attempts/$users;
$av_attempts = sprintf("%.2f",$av_attempts);	$av_attempts = sprintf("%.2f",$av_attempts);
}	}
	&Apache::lonnet::statslog($symb,$part,$users,$av_attempts,$degdiff);
if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) \|\| ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) {	if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) \|\| ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) {
$stats{$part}{degdiff} = $degdiff;	$stats{$part}{degdiff} = $degdiff;
$stats{$part}{attempts} = $av_attempts;	$stats{$part}{attempts} = $av_attempts;
Line 1604 sub display_handgrade {	Line 1604 sub display_handgrade {
foreach my $res (@{$tograde}) {	foreach my $res (@{$tograde}) {
$rowNum ++;	$rowNum ++;
my $css_class = $rowNum%2?' class="LC_odd_row"':'';	my $css_class = $rowNum%2?' class="LC_odd_row"':'';
my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);	my $linkurl='/adm/grades';
my $linkurl=&Apache::lonnet::clutter($url);
$linkurl .= '?symb='.&escape($res);
if ($$ungraded{$res}{'enclink'}) {	if ($$ungraded{$res}{'enclink'}) {
$linkurl =	$linkurl.='?symb='.$$ungraded{$res}{'encsymb'};
$$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};	} else {
}	$linkurl.='?symb='.&escape($res);
	}
	$linkurl.='&command=ungraded';
$r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>');	$r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>');
}	}
} elsif ($itemserror) {	} elsif ($itemserror) {
Line 1698 sub display_abovethreshold {	Line 1698 sub display_abovethreshold {
if (ref($$triggered{$res}{text}) eq 'ARRAY') {	if (ref($$triggered{$res}{text}) eq 'ARRAY') {
if (@{$$triggered{$res}{text}} > 1) {	if (@{$$triggered{$res}{text}} > 1) {
for (my $i=1; $i<@{$$triggered{$res}{text}}; $i++) {	for (my $i=1; $i<@{$$triggered{$res}{text}}; $i++) {
$r->print('<tr class="'.$css_class.'">'.	$r->print('<tr '.$css_class.'>'.
$$triggered{$res}{text}[$i].'</tr>');	$$triggered{$res}{text}[$i].'</tr>');
}	}
}	}
Line 1921 sub display_coursediscussion {	Line 1921 sub display_coursediscussion {
my $forum_title = $$unread{$ressymb}{'title'};	my $forum_title = $$unread{$ressymb}{'title'};
my $type = 'Resource';	my $type = 'Resource';
my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb);	my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb);
my $disclink = $feedurl.'?symb='.$$unread{$ressymb}{symb};	my $disclink = $feedurl.'?symb='. &escape($$unread{$ressymb}{symb});
if ($feedurl =~ /bulletinboard/) {	if ($feedurl =~ /bulletinboard/) {
$type = 'Discussion Board';	$type = 'Discussion Board';
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.101.2.1.2.2
changed lines
	Added in v.1.108