version 1.37, 2002/08/28 14:11:27
|
version 1.39, 2002/09/16 20:06:12
|
Line 141 sub author_res_msg {
|
Line 141 sub author_res_msg {
|
|
|
# ================================================== Critical message to a user |
# ================================================== Critical message to a user |
|
|
sub user_crit_msg { |
sub user_crit_msg_raw { |
my ($user,$domain,$subject,$message,$sendback)=@_; |
my ($user,$domain,$subject,$message,$sendback)=@_; |
# Check if allowed missing |
# Check if allowed missing |
my $status=''; |
my $status=''; |
Line 168 sub user_crit_msg {
|
Line 168 sub user_crit_msg {
|
return $status; |
return $status; |
} |
} |
|
|
|
# New routine that respects "forward" and calls old routine |
|
|
|
sub user_crit_msg { |
|
my ($user,$domain,$subject,$message,$sendback)=@_; |
|
my $status=''; |
|
my %userenv = &Apache::lonnet::get('environment',['msgforward'], |
|
$domain,$user); |
|
my $msgforward=$userenv{'msgforward'}; |
|
if ($msgforward) { |
|
foreach (split(/\,/,$msgforward)) { |
|
my ($forwuser,$forwdomain)=split(/\:/,$_); |
|
$status.= |
|
&user_crit_msg_raw($forwuser,$forwdomain,$subject,$message, |
|
$sendback).' '; |
|
} |
|
} else { |
|
$status=&user_crit_msg_raw($user,$domain,$subject,$message,$sendback); |
|
} |
|
return $status; |
|
} |
|
|
# =================================================== Critical message received |
# =================================================== Critical message received |
|
|
sub user_crit_received { |
sub user_crit_received { |
Line 195 sub user_crit_received {
|
Line 216 sub user_crit_received {
|
|
|
# ======================================================== Normal communication |
# ======================================================== Normal communication |
|
|
sub user_normal_msg { |
sub user_normal_msg_raw { |
my ($user,$domain,$subject,$message,$citation)=@_; |
my ($user,$domain,$subject,$message,$citation)=@_; |
# Check if allowed missing |
# Check if allowed missing |
my $status=''; |
my $status=''; |
Line 217 sub user_normal_msg {
|
Line 238 sub user_normal_msg {
|
return $status; |
return $status; |
} |
} |
|
|
|
# New routine that respects "forward" and calls old routine |
|
|
|
sub user_normal_msg { |
|
my ($user,$domain,$subject,$message,$citation)=@_; |
|
my $status=''; |
|
my %userenv = &Apache::lonnet::get('environment',['msgforward'], |
|
$domain,$user); |
|
my $msgforward=$userenv{'msgforward'}; |
|
if ($msgforward) { |
|
foreach (split(/\,/,$msgforward)) { |
|
my ($forwuser,$forwdomain)=split(/\:/,$_); |
|
$status.= |
|
&user_normal_msg_raw($forwuser,$forwdomain,$subject,$message, |
|
$citation).' '; |
|
} |
|
} else { |
|
$status= |
|
&user_normal_msg_raw($user,$domain,$subject,$message,$citation); |
|
} |
|
return $status; |
|
} |
|
|
|
|
# =============================================================== Status Change |
# =============================================================== Status Change |
|
|
sub statuschange { |
sub statuschange { |
Line 406 ENDDISHEADER
|
Line 450 ENDDISHEADER
|
$ENV{'user.home'}))) { |
$ENV{'user.home'}))) { |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= |
&Apache::lonmsg::unpackmsgid($_); |
&Apache::lonmsg::unpackmsgid($_); |
unless (($status eq 'deleted') || ($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">'); |
} elsif ($status eq 'read') { |
} elsif ($status eq 'read') { |
$r->print('<tr bgcolor="#BBBB77">'); |
$r->print('<tr bgcolor="#BBBB77">'); |
} elsif ($status eq 'replied') { |
} elsif ($status eq 'replied') { |
$r->print('<tr bgcolor="#AAAA88">'); |
$r->print('<tr bgcolor="#AAAA88">'); |
} 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='.$_. |
'">Open</a></td><td><a href="/adm/email?markdel='.$_. |
'">Open</a></td><td><a href="/adm/email?markdel='.$_. |
'">Delete</a><input type=checkbox name="delmark_'.$_.'"></td>'. |
'">Delete</a><input type=checkbox name="delmark_'.$_.'"></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>'. |
$status.'</td></tr>'); |
$status.'</td></tr>'); |
} |
} |
} |
} |
$r->print('</table><p>'. |
$r->print('</table><p>'. |
'<a href="javascript:checkall()">Check All</a> '. |
'<a href="javascript:checkall()">Check All</a> '. |