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

[www]

www		Mon Aug 18 13:37:42 2003 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Better fix of Bug #788.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.63 loncom/interface/lonmsg.pm:1.64
--- loncom/interface/lonmsg.pm:1.63	Sun Aug 17 15:13:32 2003
+++ loncom/interface/lonmsg.pm	Mon Aug 18 13:37:42 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.63 2003/08/17 19:13:32 albertel Exp $
+# $Id: lonmsg.pm,v 1.64 2003/08/18 17:37:42 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -677,7 +677,7 @@
     foreach (@messages) {
 	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
 	    &Apache::lonmsg::unpackmsgid($_);
-	my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status);
+	my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$_);
 	push @temp ,\@temp1;
     }
     #default sort
@@ -713,7 +713,7 @@
         @temp = sort  {$b->[4] cmp $a->[4]} @temp;
     }
     foreach (@temp){
-	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= @$_;
+	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @$_;
 	if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {
 	    if ($status eq 'new') {
 		$r->print('<tr bgcolor="#FFBB77">');
@@ -724,9 +724,9 @@
 	    } else {
 		$r->print('<tr bgcolor="#99BBBB">');
 	    }
-	    $r->print('<td><a href="/adm/email?display='.$_.
-		      '">Open</a></td><td><a href="/adm/email?markdel='.$_.
-		      '">Delete</a><input type=checkbox name="delmark_'.$_.'"></td>'.
+	    $r->print('<td><a href="/adm/email?display='.$origID. 
+		      '">Open</a></td><td><a href="/adm/email?markdel='.$origID.
+		      '">Delete</a><input type=checkbox name="delmark_'.$origID.'"></td>'.
 		      '<td>'.localtime($sendtime).'</td><td>'.
 		      $fromname.'</td><td>'.$fromdomain.'</td><td>'.
 		      &Apache::lonnet::unescape($shortsubj).'</td><td>'.