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.110

version 1.101.2.1.2.2, 2012/02/11 17:58:17	version 1.110, 2012/12/13 22:03:24
Line 285 END	Line 285 END
$scripttag.='document.visible.submit();	$scripttag.='document.visible.submit();
}	}

	function thresholdreset() {
	document.visible.command.value="reset";
	document.visible.submit();
	}

function togglelogins() {	function togglelogins() {
var total = document.visible.logincount.value;	var total = document.visible.logincount.value;
var sumrow = document.visible.loginrow.value;	var sumrow = document.visible.loginrow.value;
Line 917 sub display_launcher {	Line 922 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 1101 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 1609 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 1663 sub display_abovethreshold {	Line 1668 sub display_abovethreshold {
);	);
if (@{$warnings} > 0) {	if (@{$warnings} > 0) {
@{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings};	@{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings};
$r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'.
' <input type="hidden" name="command" value="reset" />'."\n".
' <input type="hidden" name="refpage" value="'.$refpage.'" />'.
"\n");
$r->print('<tr class="LC_info_row">'.	$r->print('<tr class="LC_info_row">'.
'<td class="LC_left_item">'.$lt{'reso'}.'</td>'.	'<td class="LC_left_item">'.$lt{'reso'}.
	'<input type="hidden" name="command" value="" /></td>'.
'<td>'.$lt{'part'}.'</td><td>'.$lt{'nust'}.'</td>'.	'<td>'.$lt{'part'}.'</td><td>'.$lt{'nust'}.'</td>'.
'<td>'.$lt{'avat'}.'</td><td>'.$lt{'dedi'}.'</td>'.	'<td>'.$lt{'avat'}.'</td><td>'.$lt{'dedi'}.'</td>'.
'<td>'.$lt{'lare'}.'</td><td class="LC_right_item">'.	'<td>'.$lt{'lare'}.'</td><td class="LC_right_item">'.
Line 1698 sub display_abovethreshold {	Line 1700 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>');
}	}
}	}
}	}
}	}
$r->print('<tr class="LC_info_row"><td colspan="7" class="LC_right_item"><br /><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></td></tr></form>');	$r->print('<tr class="LC_info_row"><td colspan="7" class="LC_right_item"><br /><input type="button" name="counters" value="'.$lt{'rese'}.'" onclick="javascript:thresholdreset();" /></td></tr>');
} elsif ($itemserror) {	} elsif ($itemserror) {
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>');	$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>');
} else {	} else {
Line 1921 sub display_coursediscussion {	Line 1923 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.110