version 1.181, 2015/06/09 21:22:56
|
version 1.183, 2016/02/26 21:44:39
|
Line 102 use HTML::TokeParser();
|
Line 102 use HTML::TokeParser();
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
|
use Apache::longroup; |
|
use Apache::lonnavmaps; |
use Apache::lontexconvert(); |
use Apache::lontexconvert(); |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
Line 773 sub groupmail_header {
|
Line 775 sub groupmail_header {
|
text=>"Groups", |
text=>"Groups", |
title=>$brtitle}); |
title=>$brtitle}); |
} |
} |
&Apache::lonhtmlcommon::add_breadcrumb |
my $view_permission = |
({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg", |
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); |
text=>"Group: $description", |
my $navmap=Apache::lonnavmaps::navmap->new(); |
title=>"Go to group's home page"}, |
my $grouppagelink = &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission,$refarg); |
{href=>"/adm/email?compose=group&group=". |
if ($grouppagelink) { |
"$env{'form.group'}&$refarg", |
&Apache::lonhtmlcommon::add_breadcrumb |
text=>"Send a Message in a Group", |
({href=>$grouppagelink, |
title=>"Compose Group Message"},); |
text=>"Group: $description", |
|
title=>"Go to group's home page"},); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({text=>"Group: $description",}); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/email?compose=group&group=". |
|
"$env{'form.group'}&$refarg", |
|
text=>"Send a Message in a Group", |
|
title=>"Compose Group Message"},); |
if ($action eq 'sending') { |
if ($action eq 'sending') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({text=>"Messages being sent.", |
({text=>"Messages being sent.", |
Line 1400 sub compout {
|
Line 1412 sub compout {
|
'to' => 'To:', |
'to' => 'To:', |
); |
); |
my %attachmax = ( |
my %attachmax = ( |
text => &mt('(128 KB max size)'), |
text => &mt('(1 MB max size)'), |
num => 131072, |
num => 1048576, |
); |
); |
if (!$forwarding && !$multiforward) { |
if (!$forwarding && !$multiforward) { |
$attachrow = '<tr><td colspan="3"><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'}.': <input type="file" name="attachment" /></td></tr>'; |
$attachrow = '<tr><td colspan="3"><b>'.$lt{'atta'}.'</b> '.$attachmax{'text'} |
|
.': <input type="file" name="attachment" class="flUpload" multiple />' |
|
.'</td></tr>' |
|
.'<input type="hidden" id="free_space" value="'.$attachmax{'num'}.'" />'; |
} |
} |
if (&Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
if (&Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
|| &Apache::lonnet::allowed('srm',$env{'request.course.id'}. |
|| &Apache::lonnet::allowed('srm',$env{'request.course.id'}. |
Line 2667 sub header {
|
Line 2682 sub header {
|
if ($baseurl) { |
if ($baseurl) { |
$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />"; |
$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />"; |
} |
} |
|
$extra .= '<script type="text/javascript" |
|
src="/res/adm/includes/file_upload.js"></script>'; |
$r->print(&Apache::loncommon::start_page('Messages', |
$r->print(&Apache::loncommon::start_page('Messages', |
$extra)); |
$extra)); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |