--- loncom/interface/lonwhatsnew.pm 2012/12/13 22:09:33 1.105.2.4
+++ loncom/interface/lonwhatsnew.pm 2012/11/29 23:31:13 1.109
@@ -1,5 +1,5 @@
#
-# $Id: lonwhatsnew.pm,v 1.105.2.4 2012/12/13 22:09:33 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.109 2012/11/29 23:31:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1609,13 +1609,13 @@ sub display_handgrade {
foreach my $res (@{$tograde}) {
$rowNum ++;
my $css_class = $rowNum%2?' class="LC_odd_row"':'';
- my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
- my $linkurl=&Apache::lonnet::clutter($url);
- $linkurl .= '?symb='.&escape($res);
+ my $linkurl='/adm/grades';
if ($$ungraded{$res}{'enclink'}) {
- $linkurl =
- $$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};
+ $linkurl.='?symb='.$$ungraded{$res}{'encsymb'};
+ } else {
+ $linkurl.='?symb='.&escape($res);
}
+ $linkurl.='&command=ungraded';
$r->print('
'.$$ungraded{$res}{title}.' | '.$$ungraded{$res}{count}.' |
');
}
} elsif ($itemserror) {
@@ -1668,9 +1668,9 @@ sub display_abovethreshold {
);
if (@{$warnings} > 0) {
@{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings};
+ $r->print(''."\n");
$r->print(''.
- ''.$lt{'reso'}.
- ' | '.
+ ''.$lt{'reso'}.' | '.
''.$lt{'part'}.' | '.$lt{'nust'}.' | '.
''.$lt{'avat'}.' | '.$lt{'dedi'}.' | '.
''.$lt{'lare'}.' | '.
@@ -1706,7 +1706,7 @@ sub display_abovethreshold {
}
}
}
- $r->print(' |
|
');
+ $r->print('
|
');
} elsif ($itemserror) {
$r->print(''.$itemserror.' |
');
} else {
@@ -1923,7 +1923,7 @@ sub display_coursediscussion {
my $forum_title = $$unread{$ressymb}{'title'};
my $type = 'Resource';
my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb);
- my $disclink = $feedurl.'?symb='.&escape($$unread{$ressymb}{symb});
+ my $disclink = $feedurl.'?symb='. &escape($$unread{$ressymb}{symb});
if ($feedurl =~ /bulletinboard/) {
$type = 'Discussion Board';
}