version 1.88, 2008/06/06 22:50:41
|
version 1.90, 2008/08/25 11:20:19
|
Line 733 sub groupmail_sent {
|
Line 733 sub groupmail_sent {
|
|
|
sub discrit { |
sub discrit { |
my $r=shift; |
my $r=shift; |
my $header = '<h1><font color="red">'.&mt('Critical Messages').'</font></h1>'. |
my $header = '<h1>'.&mt('Critical Messages').'</h1>' |
'<form action="/adm/email" method="POST">'. |
.'<div class="LC_warning">' |
'<input type="hidden" name="confirm" value="true" />'; |
.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.') |
|
.'</div><br />' |
|
.'<form action="/adm/email" method="POST">' |
|
.'<input type="hidden" name="confirm" value="true" />'; |
my %what=&Apache::lonnet::dump('critical'); |
my %what=&Apache::lonnet::dump('critical'); |
my $result = ''; |
my $result = ''; |
foreach my $key (sort(keys(%what))) { |
foreach my $key (sort(keys(%what))) { |
Line 2152 sub displaymessage {
|
Line 2155 sub displaymessage {
|
$symb=&Apache::lonnet::symbread($content{'baseurl'}); |
$symb=&Apache::lonnet::symbread($content{'baseurl'}); |
} |
} |
if ($env{'user.adv'}) { |
if ($env{'user.adv'}) { |
my $adv_actions; |
my $actionlist=''; |
$r->print('<table border="2" width="100%"><tr bgcolor="#FFAAAA"><td>'.&mt('Currently available actions (will open extra window)').':</td>'); |
|
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
$r->print('<td><b>'.&Apache::loncommon::track_student_link(&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check').'</b></td>'); |
$actionlist.='<td><b>' |
} |
.&Apache::loncommon::track_student_link( |
|
&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check') |
|
.'</b></td>'; |
|
} |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) { |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) { |
$r->print('<td><b>'.&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>'); |
$actionlist.='<td><b>' |
|
.&Apache::loncommon::pprmlink( |
|
&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check') |
|
.'</b></td>'; |
} |
} |
if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) { |
if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) { |
$r->print('<td><b>'.&Apache::loncommon::pgrdlink(&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>'); |
$actionlist.='<td><b>' |
|
.&Apache::loncommon::pgrdlink( |
|
&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check') |
|
.'</b></td>'; |
} |
} |
$r->print('</tr></table>'); |
if ($actionlist) { |
|
$r->print('<table border="2" width="100%">' |
|
.'<tr bgcolor="#FFAAAA"><td>' |
|
.&mt('Currently available actions (will open extra window):') |
|
.'</td>' |
|
.$actionlist |
|
.'</tr></table>'); |
|
} |
} |
} |
my ($tolist,$cclist); |
my ($tolist,$cclist); |
my (@recipients,@ccs); |
my (@recipients,@ccs); |