[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonwhatsnew.pm modules/raeburn/private remote_access_iptables

[raeburn]

raeburn		Thu May 10 19:01:41 2012 EDT

  Modified files:              (Branch: version_2_11_X)
    /modules/raeburn/private	remote_access_iptables 
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - For 2.11.
    - Reverse changes in 1.102 -- they require "3.0" grading interface.
  
  
Diffs for modules/raeburn/private/remote_access_iptables not shown.
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.105 loncom/interface/lonwhatsnew.pm:1.105.2.1
--- loncom/interface/lonwhatsnew.pm:1.105	Fri Mar 16 21:16:38 2012
+++ loncom/interface/lonwhatsnew.pm	Thu May 10 19:01:40 2012
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.105 2012/03/16 21:16:38 www Exp $
+# $Id: lonwhatsnew.pm,v 1.105.2.1 2012/05/10 19:01:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1474,13 +1474,13 @@
         foreach my $res (@{$tograde}) {
             $rowNum ++;
             my $css_class = $rowNum%2?' class="LC_odd_row"':'';
-            my $linkurl='/adm/grades';
+            my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
+            my $linkurl=&Apache::lonnet::clutter($url);
+            $linkurl .= '?symb='.&escape($res);
             if ($$ungraded{$res}{'enclink'}) {
-                $linkurl.='?symb='.$$ungraded{$res}{'encsymb'};
-            } else {
-                $linkurl.='?symb='.&escape($res);
+                $linkurl =
+                    $$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};
             }
-            $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>');
         }
     } elsif ($itemserror) {