version 1.5, 2005/10/13 22:37:40
|
version 1.7, 2005/10/28 19:24:25
|
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 456 sub print_composition_form {
|
Line 455 sub print_composition_form {
|
$html |
$html |
<head> |
<head> |
<title>LON-CAPA $lt{'note'}</title> |
<title>LON-CAPA $lt{'note'}</title> |
<script type"text/javascript"> |
<script type="text/javascript"> |
$jscript |
$jscript |
</script> |
</script> |
</head> |
</head> |
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); |
} |
} |
} |
} |