version 1.125, 2009/06/05 12:49:50
|
version 1.126, 2009/06/11 16:48:33
|
Line 2333 sub displaymessage {
|
Line 2333 sub displaymessage {
|
.&mt('Next') |
.&mt('Next') |
.'</a>'); |
.'</a>'); |
} |
} |
# Print functions |
|
my $legendtext='<span class="LC_mail_functions">' |
|
.&mt('Functions') |
|
.'</span>'; |
|
$r->print('<div class="LC_left_float">' |
|
.&Apache::lontemplate::start_functionslist($legendtext) |
|
); |
|
foreach my $item (@functionlist) { |
|
$r->print(&Apache::lontemplate::item_functionslist($item)); |
|
} |
|
$r->print(&Apache::lontemplate::end_functionslist() |
|
.'</div>' |
|
); |
|
|
|
# Prepare available actions |
# Prepare available actions |
my $symb; |
my $symb; |
Line 2354 sub displaymessage {
|
Line 2341 sub displaymessage {
|
} elsif (defined($content{'baseurl'})) { |
} elsif (defined($content{'baseurl'})) { |
$symb=&Apache::lonnet::symbread($content{'baseurl'}); |
$symb=&Apache::lonnet::symbread($content{'baseurl'}); |
} |
} |
if ($env{'user.adv'}) { |
|
my @actionlist; |
my @actionlist; |
|
if ($env{'user.adv'}) { |
|
|
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
push(@actionlist,&Apache::loncommon::track_student_link( |
push(@actionlist,&Apache::loncommon::track_student_link( |
Line 2380 sub displaymessage {
|
Line 2367 sub displaymessage {
|
,$symb |
,$symb |
,'check')); |
,'check')); |
} |
} |
|
} |
|
|
|
# Print functionlist and actionlist in page header |
|
my $functions='<div class="LC_columnSection">'; |
|
|
# Print actions |
# Functionlist |
|
$functions.=&Apache::lonhtmlcommon::start_funclist(); |
|
foreach my $item (@functionlist) { |
|
$functions.=&Apache::lonhtmlcommon::add_item_funclist($item); |
|
} |
|
$functions .= &Apache::lonhtmlcommon::end_funclist(); |
|
|
|
# Actionlist |
if (@actionlist) { |
if (@actionlist) { |
$legendtext=&mt('[_1]Currently available actions[_2] (will open extra window):' |
my $legendtext=&mt('Currently available actions (will open extra window)'); |
,'<span class="LC_mail_functions">','</span>'); |
$functions.=&Apache::lonhtmlcommon::start_funclist($legendtext); |
$r->print('<div class="LC_left_float">' |
|
.&Apache::lontemplate::start_functionslist($legendtext) |
|
); |
|
foreach my $item (@actionlist) { |
foreach my $item (@actionlist) { |
$r->print(&Apache::lontemplate::item_functionslist($item)); |
$functions.=&Apache::lonhtmlcommon::add_item_funclist($item); |
} |
} |
$r->print(&Apache::lontemplate::end_functionslist() |
$functions.=&Apache::lonhtmlcommon::end_funclist(); |
.'</div>' |
|
); |
|
} |
} |
} |
|
|
$functions.='</div>'; |
|
$r->print(&Apache::loncommon::head_subbox($functions)); |
|
|
|
|
my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients); |
my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients); |
if ($content{'recipid'}) { |
if ($content{'recipid'}) { |