version 1.5, 2005/10/13 22:37:40
|
version 1.6, 2005/10/14 19:10:20
|
Line 216 sub print_display {
|
Line 216 sub print_display {
|
my $start = &Apache::lonhtmlcommon::get_date_from_form('startdate'); |
my $start = &Apache::lonhtmlcommon::get_date_from_form('startdate'); |
my $end = &Apache::lonhtmlcommon::get_date_from_form('enddate'); |
my $end = &Apache::lonhtmlcommon::get_date_from_form('enddate'); |
my @senders = &Apache::loncommon::get_env_multiple('form.sender'); |
my @senders = &Apache::loncommon::get_env_multiple('form.sender'); |
my $senderlist = join('&',@senders); |
my %sentmail = &Apache::lonnet::dcmaildump($cdom,$start,$end,\@senders); |
my %sentmail = &Apache::lonnet::dcmaildump($cdom,$start,$end,$senderlist); |
|
my %dcmail = (); |
my %dcmail = (); |
my %Sortby = (); |
my %Sortby = (); |
my $jscript = <<"ENDSCRIPT"; |
my $jscript = <<"ENDSCRIPT"; |
Line 756 sub store_mail {
|
Line 755 sub store_mail {
|
# Store in dc email db files on appropriate servers. |
# Store in dc email db files on appropriate servers. |
foreach my $server (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
unless (&Apache::lonnet::dcmailput($domain,$msgid,\%servers,$server) eq 'ok') { |
unless (&Apache::lonnet::dcmailput($domain,$msgid,\%servers,$server) eq 'ok') { |
&logthis('Storage of dc mail failed for domain'.$domain.' for server: '. |
&Apache::lonnet::logthis('Storage of dc mail failed for domain'.$domain.' for server: '. |
$server.'. Message ID was '.$msgid); |
$server.'. Message ID was '.$msgid); |
} |
} |
} |
} |