version 1.187, 2006/12/05 02:55:53
|
version 1.189, 2006/12/06 23:44:33
|
Line 223 sub sendemail {
|
Line 223 sub sendemail {
|
my $msg = new Mail::Send; |
my $msg = new Mail::Send; |
$msg->to($to); |
$msg->to($to); |
$msg->subject('[LON-CAPA] '.$subject); |
$msg->subject('[LON-CAPA] '.$subject); |
if ($senderaddress) { $msg->add('Reply-to',$senderaddress); } |
if ($senderaddress) { $msg->add('Reply-to',$senderaddress); $msg->add('From',$senderaddress); } |
if (my $fh = $msg->open()) { |
if (my $fh = $msg->open()) { |
print $fh $body; |
print $fh $body; |
$fh->close; |
$fh->close; |
Line 601 sub store_sent_mail {
|
Line 601 sub store_sent_mail {
|
sub foldersuffix { |
sub foldersuffix { |
my $folder=shift; |
my $folder=shift; |
unless ($folder) { return ''; } |
unless ($folder) { return ''; } |
return '_'.&escape($folder); |
my $suffix; |
|
my %folderhash = &get_user_folders($folder); |
|
if (ref($folderhash{$folder}) eq 'HASH') { |
|
$suffix = '_'.&escape($folderhash{$folder}{'id'}); |
|
} else { |
|
$suffix = '_'.&escape($folder); |
|
} |
|
return $suffix; |
|
} |
|
|
|
# ========================================================= User-defined folders |
|
|
|
sub get_user_folders { |
|
my ($folder) = @_; |
|
my %userfolders = |
|
&Apache::lonnet::dump('email_folders',undef,undef,$folder); |
|
my $lock = "\0".'lock_counter'; # locks db while counter incremented |
|
my $counter = "\0".'idcount'; # used in suffix for email db files |
|
if (defined($userfolders{$lock})) { |
|
delete($userfolders{$lock}); |
|
} |
|
if (defined($userfolders{$counter})) { |
|
delete($userfolders{$counter}); |
|
} |
|
return %userfolders; |
} |
} |
|
|
1; |
1; |