[LON-CAPA-cvs] cvs: loncom /interface lonwhatsnew.pm

[raeburn]

raeburn		Mon Mar 10 20:44:10 2008 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  Bug 5645.
  What's New page: each unread course message link links directly to the particular message.
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.74 loncom/interface/lonwhatsnew.pm:1.75
--- loncom/interface/lonwhatsnew.pm:1.74	Tue Feb 12 07:35:09 2008
+++ loncom/interface/lonwhatsnew.pm	Mon Mar 10 20:44:09 2008
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.74 2008/02/12 12:35:09 bisitz Exp $
+# $Id: lonwhatsnew.pm,v 1.75 2008/03/11 00:44:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1335,7 +1335,8 @@
             $mailcount ++;
             my $css_class = $mailcount%2?' class="LC_odd_row"':'';
             $r->print('<tr'.$css_class.'><td>'.$mailcount.
-                      '. &nbsp;</td><td><a href="/adm/communicate">'.
+                      '. &nbsp;</td><td><a href="/adm/email?display='.
+                      $msg->{'msgid'}.'">'.
                       $msg->{'shortsub'}.'</a>&nbsp; &nbsp;</td><td>&nbsp;'.
                       $msg->{'from'}.':'.$msg->{'fromdom'}.'&nbsp;</td><td>'.
                       $msg->{'sendtime'}.'</td></tr>');