| -$lt{'da'} | $lt{'us'} | $lt{'do'} | $lt{'su'} | $lt{'da'} | $lt{'us'} | $lt{'do'} | $lt{'su'} | $lt{'co'} | TABLEHEAD foreach my $msg (@newmsgs) { $r->print(<<"ENDLINK"); -
---|---|---|---|---|---|---|---|
$lt{'op'} | ENDLINK - foreach ('sendtime','from','fromdom','shortsub') { + foreach ('sendtime','from','fromdom','shortsub','course') { $r->print("$msg->{$_} | "); } $r->print("'); + if ($env{'form.sortedby'} eq "revcourse") { + $r->print(''.&mt('Course').''); + } else { + $r->print(''.&mt('Course').''); + } + $r->print(' | '); if ($env{'form.sortedby'} eq "revstatus") { $r->print(''.&mt('Status').' | '); } else { @@ -996,16 +1121,16 @@ ENDDISHEADER } $r->print("\n"); for (my $n=$firstdis;$n<=$lastdis;$n++) { - my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @{$temp[$n]}; + my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,$description)= @{$temp[$n]}; if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) { if ($status eq 'new') { - $r->print('||||
'.&mt('Open').' | '. @@ -1014,7 +1139,7 @@ ENDDISHEADER ' | '.&Apache::lonlocal::locallocaltime($sendtime).' | '. $fromname.' | '.$fromdomain.' | '. &Apache::lonnet::unescape($shortsubj).' | '. - $status." | '.$status.' | '."\n"); } elsif ($status eq 'deleted') { # purge &movemsg(&Apache::lonnet::unescape($origID),$folder,'trash'); @@ -1098,8 +1223,9 @@ sub compout { '' . $crithelp . ''; - } +&mt('Send copy to permanent email address (if known)').''. +''; } my %message; my %content; my $defdom=$env{'user.domain'}; @@ -1218,6 +1344,7 @@ ENDUPLOAD &discourse; } $r->print(''. + &Apache::lonfeedback::generate_preview_button('compemail','message'). &Apache::lonhtmlcommon::htmlareaselectactive('message')); } @@ -1268,6 +1395,12 @@ sub disfacetoface { $result.='