version 1.202, 2007/05/02 19:56:34
|
version 1.203, 2007/05/02 20:26:08
|
Line 717 sub store_sent_mail {
|
Line 717 sub store_sent_mail {
|
sub store_recipients { |
sub store_recipients { |
my ($subject,$sendername,$senderdom,$reciphash) = @_; |
my ($subject,$sendername,$senderdom,$reciphash) = @_; |
my $context = &get_course_context(); |
my $context = &get_course_context(); |
my $now = time; |
my $now = time(); |
my $msgcount = &get_uniq(); |
my $msgcount = &get_uniq(); |
my $recipid = |
my $recipid = |
&buildmsgid($now,$subject,$sendername,$senderdom,$msgcount,$context,$$); |
&buildmsgid($now,$subject,$sendername,$senderdom,$msgcount,$context,$$); |