version 1.65, 2012/11/17 00:05:50
|
version 1.68, 2016/02/26 21:44:39
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::lonfeedback; |
use Apache::lonfeedback; |
|
use Apache::lonhtmlgateway; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
|
use Apache::longroup; |
|
use Apache::lonnavmaps; |
use HTML::Entities(); |
use HTML::Entities(); |
use LONCAPA; |
use LONCAPA; |
|
|
Line 78 sub handler {
|
Line 81 sub handler {
|
|
|
# ------------------------------------------------------------ Get Query String |
# ------------------------------------------------------------ Get Query String |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forceedit','register', |
($ENV{'QUERY_STRING'},['forceedit','register','todocs', |
'origpage','group','ref']); |
'origpage','group','ref']); |
# ----------------------------------------------------- Force menu registration |
# ----------------------------------------------------- Force menu registration |
my %addentries; |
my %addentries; |
Line 211 sub handler {
|
Line 214 sub handler {
|
if (($allowed) && ($env{'form.storesyl'})) { |
if (($allowed) && ($env{'form.storesyl'})) { |
foreach my $syl_field (keys(%syllabusfields)) { |
foreach my $syl_field (keys(%syllabusfields)) { |
my $field=$env{'form.'.$syl_field}; |
my $field=$env{'form.'.$syl_field}; |
$field=~s/\s+$//s; |
chomp($field); |
$field=&Apache::lonfeedback::clear_out_html($field,1); |
my $gateway = Apache::lonhtmlgateway->new(); |
|
$field = $gateway->process_incoming_html($field,1); |
$syllabus{$syl_field}=$field; |
$syllabus{$syl_field}=$field; |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
Line 312 sub groupboard_breadcrumbs {
|
Line 316 sub groupboard_breadcrumbs {
|
text=>"Groups", |
text=>"Groups", |
title=>"View course groups"}); |
title=>"View course groups"}); |
} |
} |
|
my $view_permission = |
|
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); |
|
my $navmap=Apache::lonnavmaps::navmap->new(); |
|
my $grouppagelink = &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission,$refarg); |
|
if ($grouppagelink) { |
|
push(@{$brcrum}, |
|
{href=>$grouppagelink, |
|
text=>"$ucgpterm: $description", |
|
title=>"Go to group's home page"}, |
|
); |
|
} else { |
|
push(@{$brcrum}, |
|
{text=>"$ucgpterm: $description",} |
|
); |
|
} |
push(@{$brcrum}, |
push(@{$brcrum}, |
{href=>"/adm/$cdom/$cnum/$group/smppg?$refarg", |
|
text=>"$ucgpterm: $description", |
|
title=>"Go to group's home page"}, |
|
{href=>"/adm/groupboards?group=$group&$refarg", |
{href=>"/adm/groupboards?group=$group&$refarg", |
text=>"Discussion Boards", |
text=>"Discussion Boards", |
title=>"Display group discussion boards"}, |
title=>"Display group discussion boards"}, |