version 1.16, 2006/04/10 21:40:08
|
version 1.18, 2006/05/01 19:37:33
|
Line 109 sub start_page {
|
Line 109 sub start_page {
|
{'add_entries' => |
{'add_entries' => |
{'onload' => $loadcode,},}); |
{'onload' => $loadcode,},}); |
my $breadcrumbs = |
my $breadcrumbs = |
&Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title, |
&Apache::lonhtmlcommon::breadcrumbs($bread_title, |
'Broadcast_system_email'); |
'Broadcast_system_email'); |
my $output = <<"ENDONE"; |
my $output = <<"ENDONE"; |
$start_page |
$start_page |
Line 294 ENDSCRIPT
|
Line 294 ENDSCRIPT
|
$rowColor = $rowColor2; |
$rowColor = $rowColor2; |
} |
} |
my $recipients = ''; |
my $recipients = ''; |
my ($date,$subj,$sname,$sdom) = |
my ($date,undef,$sname,$sdom) = |
&Apache::lonmsg::unpackmsgid($msgid,undef,1); |
&Apache::lonmsg::unpackmsgid($msgid,undef,1); |
$subj = &Apache::lonnet::escape($subj); |
|
$date = &Apache::lonlocal::locallocaltime($date); |
$date = &Apache::lonlocal::locallocaltime($date); |
foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { |
foreach my $user (sort(keys(%{$dcmail{$msgid}{recipient}}))) { |
$recipients .= $dcmail{$msgid}{recipient}{$user}.', '; |
$recipients .= $dcmail{$msgid}{recipient}{$user}.', '; |
Line 307 ENDSCRIPT
|
Line 306 ENDSCRIPT
|
} |
} |
} else { |
} else { |
foreach my $msgid (sort(keys(%dcmail))) { |
foreach my $msgid (sort(keys(%dcmail))) { |
my ($date,$subj,$sname,$sdom) = |
my ($date,undef,$sname,$sdom) = |
&Apache::lonmsg::unpackmsgid($msgid,undef,1); |
&Apache::lonmsg::unpackmsgid($msgid,undef,1); |
$subj = &Apache::lonnet::escape($subj); |
|
if ($env{'form.sortby'} eq 'subject') { |
if ($env{'form.sortby'} eq 'subject') { |
push @{$Sortby{$dcmail{$msgid}{subject}}},$msgid; |
push @{$Sortby{$dcmail{$msgid}{subject}}},$msgid; |
} elsif ($env{'form.sortby'} eq 'message') { |
} elsif ($env{'form.sortby'} eq 'message') { |
Line 343 ENDSCRIPT
|
Line 341 ENDSCRIPT
|
} |
} |
$recipients =~ s/,\s$//; |
$recipients =~ s/,\s$//; |
} |
} |
my ($date,$subj,$sname,$sdom) = |
my ($date,undef,$sname,$sdom) = |
&Apache::lonmsg::unpackmsgid($msgid,undef,1); |
&Apache::lonmsg::unpackmsgid($msgid,undef,1); |
$subj = &Apache::lonnet::escape($subj); |
|
$date = &Apache::lonlocal::locallocaltime($date); |
$date = &Apache::lonlocal::locallocaltime($date); |
$output .= '<tr bgcolor="'.$rowColor.'"><td><small>'.$date.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{subject}).'</small></td><td><small>'.$sname.':'.$sdom.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{message}).'</small></td><td><small>'.$recipients.'</small></td></tr>'."\n"; |
$output .= '<tr bgcolor="'.$rowColor.'"><td><small>'.$date.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{subject}).'</small></td><td><small>'.$sname.':'.$sdom.'</small></td><td><small>'.&cr_to_br($dcmail{$msgid}{message}).'</small></td><td><small>'.$recipients.'</small></td></tr>'."\n"; |
$rowNum ++; |
$rowNum ++; |