version 1.162, 2005/12/09 20:54:26
|
version 1.164, 2005/12/10 00:46:34
|
Line 105 users in their domain. The XML packagin
|
Line 105 users in their domain. The XML packagin
|
similar. The differences are the use of <recuser>$uname</recuser> and |
similar. The differences are the use of <recuser>$uname</recuser> and |
<recdomain>$udom</recdomain> in stored internal messages, compared |
<recdomain>$udom</recdomain> in stored internal messages, compared |
with <recipient username="$uname:$udom">$email</recipient> in stored |
with <recipient username="$uname:$udom">$email</recipient> in stored |
Domain Coordinator e-mail for teh storage of information about |
Domain Coordinator e-mail for the storage of information about |
recipients of the message/e-mail. |
recipients of the message/e-mail. |
|
|
=head1 FUNCTIONS |
=head1 FUNCTIONS |
Line 266 sub buildmsgid {
|
Line 266 sub buildmsgid {
|
} |
} |
|
|
sub unpackmsgid { |
sub unpackmsgid { |
my ($msgid,$folder)=@_; |
my ($msgid,$folder,$skipstatus)=@_; |
$msgid=&Apache::lonnet::unescape($msgid); |
$msgid=&Apache::lonnet::unescape($msgid); |
my $suffix=&foldersuffix($folder); |
|
my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$fromcid)=split(/\:/, |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$fromcid)=split(/\:/, |
&Apache::lonnet::unescape($msgid)); |
&Apache::lonnet::unescape($msgid)); |
my %status=&Apache::lonnet::get('email_status'.$suffix,[$msgid]); |
my %status=(); |
if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; } |
unless ($skipstatus) { |
unless ($status{$msgid}) { $status{$msgid}='new'; } |
my $suffix=&foldersuffix($folder); |
|
&Apache::lonnet::get('email_status'.$suffix,[$msgid]); |
|
if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; } |
|
unless ($status{$msgid}) { $status{$msgid}='new'; } |
|
} |
return ($sendtime,$shortsubj,$fromname,$fromdomain,$status{$msgid},$fromcid); |
return ($sendtime,$shortsubj,$fromname,$fromdomain,$status{$msgid},$fromcid); |
} |
} |
|
|