version 1.37, 2002/08/28 14:11:27
|
version 1.38, 2002/09/07 13:57:26
|
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 { |