loncom/interface/lonnotify.pm - diff

Return to lonnotify.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);
}	}
}	}