version 1.63, 2003/08/17 19:13:32
|
version 1.64, 2003/08/18 17:37:42
|
Line 677 ENDDISHEADER
|
Line 677 ENDDISHEADER
|
foreach (@messages) { |
foreach (@messages) { |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= |
&Apache::lonmsg::unpackmsgid($_); |
&Apache::lonmsg::unpackmsgid($_); |
my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status); |
my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$_); |
push @temp ,\@temp1; |
push @temp ,\@temp1; |
} |
} |
#default sort |
#default sort |
Line 713 ENDDISHEADER
|
Line 713 ENDDISHEADER
|
@temp = sort {$b->[4] cmp $a->[4]} @temp; |
@temp = sort {$b->[4] cmp $a->[4]} @temp; |
} |
} |
foreach (@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 ne 'deleted') && defined($sendtime) && $sendtime!~/error/) { |
if ($status eq 'new') { |
if ($status eq 'new') { |
$r->print('<tr bgcolor="#FFBB77">'); |
$r->print('<tr bgcolor="#FFBB77">'); |
Line 724 ENDDISHEADER
|
Line 724 ENDDISHEADER
|
} else { |
} else { |
$r->print('<tr bgcolor="#99BBBB">'); |
$r->print('<tr bgcolor="#99BBBB">'); |
} |
} |
$r->print('<td><a href="/adm/email?display='.$_. |
$r->print('<td><a href="/adm/email?display='.$origID. |
'">Open</a></td><td><a href="/adm/email?markdel='.$_. |
'">Open</a></td><td><a href="/adm/email?markdel='.$origID. |
'">Delete</a><input type=checkbox name="delmark_'.$_.'"></td>'. |
'">Delete</a><input type=checkbox name="delmark_'.$origID.'"></td>'. |
'<td>'.localtime($sendtime).'</td><td>'. |
'<td>'.localtime($sendtime).'</td><td>'. |
$fromname.'</td><td>'.$fromdomain.'</td><td>'. |
$fromname.'</td><td>'.$fromdomain.'</td><td>'. |
&Apache::lonnet::unescape($shortsubj).'</td><td>'. |
&Apache::lonnet::unescape($shortsubj).'</td><td>'. |