version 1.101, 2012/12/07 17:15:56
|
version 1.106, 2020/09/09 18:37:00
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lontemplate; |
use Apache::lontemplate; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lonhtmlgateway; |
use Apache::lonfeedback; |
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonprintout; |
use Apache::lonprintout; |
use Apache::lonxml; |
use Apache::lonxml; |
Line 44 use HTML::Entities();
|
Line 43 use HTML::Entities();
|
use LONCAPA; |
use LONCAPA; |
|
|
sub get_db_name { |
sub get_db_name { |
my ($url) = @_; |
my ($url,$marker,$cdom,$cnum) = @_; |
my ($udom,$uname,$marker)=(split(m{/},$url))[2,3,4]; |
my ($udom,$uname,$timemark)=(split(m{/},$url))[2,3,4]; |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
if ($marker eq '') { |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
$marker = $timemark; |
|
} |
|
if (($cdom eq '') || ($cnum eq '')) { |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
} |
my $db_name; |
my $db_name; |
|
|
if ($dom && $crs && ($udom eq $dom) && ($uname eq $crs)) { |
if ($cdom && $cnum && ($udom eq $cdom) && ($uname eq $cnum)) { |
$marker =~ s/\W//g; |
$marker =~ s/\W//g; |
$db_name = 'grppage_'.$marker; |
$db_name = 'grppage_'.$marker; |
} else { |
} else { |
Line 59 sub get_db_name {
|
Line 62 sub get_db_name {
|
$db_name = 'smppage_'.$marker; |
$db_name = 'smppage_'.$marker; |
} |
} |
return if (!defined($marker)); |
return if (!defined($marker)); |
|
|
return $db_name; |
return $db_name; |
} |
} |
|
|
Line 84 sub handler {
|
Line 86 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
my $db_name = &get_db_name($r->uri); |
my $marker = (split(m{/},$r->uri))[4]; |
|
my $db_name = &get_db_name($r->uri,$marker); |
|
|
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
Line 93 sub handler {
|
Line 96 sub handler {
|
my %curr_group = (); |
my %curr_group = (); |
my %groupinfo = (); |
my %groupinfo = (); |
if ($db_name =~ /^grppage_/) { |
if ($db_name =~ /^grppage_/) { |
$group = (split(m{/},$r->uri))[4]; |
$group = $marker; |
$group =~ s/\W//g; |
$group =~ s/\W//g; |
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); |
my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); |
if (!%curr_groups) { |
if (!%curr_groups) { |
Line 184 sub handler {
|
Line 187 sub handler {
|
if ($has_group_access) { |
if ($has_group_access) { |
if ((!$group_home_edit) && (!$group_home_view) && |
if ((!$group_home_edit) && (!$group_home_view) && |
(!$group_view_perm) && (!$group_edit_perm)) { |
(!$group_view_perm) && (!$group_edit_perm)) { |
&display_group_links($r,$target,$group,'view',$refarg,%groupinfo); |
$r->print(&Apache::longroup::display_group_links($r,$env{'form.grade_target'},$group, |
|
'view',$refarg,undef,undef,%groupinfo)); |
if ($env{'form.grade_target'} ne 'tex') { |
if ($env{'form.grade_target'} ne 'tex') { |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} else { |
} else { |
Line 233 sub handler {
|
Line 237 sub handler {
|
} |
} |
if ($group ne '') { |
if ($group ne '') { |
$syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload( |
$syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload( |
'uploaddoc','coursedoc',"grouppage/$group"); |
'uploaddoc','coursedoc', |
|
"grouppage/$group"); |
} else { |
} else { |
$syllabus{'uploaded.photourl'}= |
$syllabus{'uploaded.photourl'}= |
&Apache::lonnet::userfileupload('uploaddoc','coursedoc','simplepage'); |
&Apache::lonnet::userfileupload('uploaddoc','coursedoc', |
|
"simplepage/$marker"); |
} |
} |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
Line 253 sub handler {
|
Line 259 sub handler {
|
foreach my $syl_field (keys(%syllabusfields)) { |
foreach my $syl_field (keys(%syllabusfields)) { |
my $field=$env{'form.'.$syl_field}; |
my $field=$env{'form.'.$syl_field}; |
chomp($field); |
chomp($field); |
$field=~s/\s+$//s; |
my $gateway = Apache::lonhtmlgateway->new(); |
$field=~s/^\s+//s; |
$field = $gateway->process_incoming_html($field,1); |
$field=~s/\<br\s*\/*\>$//s; |
|
$field=&Apache::lonfeedback::clear_out_html($field,1); |
|
$syllabus{$syl_field}=$field; |
$syllabus{$syl_field}=$field; |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
Line 345 sub handler {
|
Line 349 sub handler {
|
my %fields = %{$fields_ref}; |
my %fields = %{$fields_ref}; |
$r->print('<br /><input type="hidden" name="'.$field. |
$r->print('<br /><input type="hidden" name="'.$field. |
'" value="'.$data{$field}.'" />'); |
'" value="'.$data{$field}.'" />'); |
&display_group_links($r, $target, $group, 'edit', $refarg, %groupinfo); |
$r->print(&Apache::longroup::display_group_links($r,$target,$group,'edit', |
|
$refarg,undef,undef,%groupinfo)); |
$r->print('<br />'); |
$r->print('<br />'); |
} |
} |
}; |
}; |
Line 364 sub handler {
|
Line 369 sub handler {
|
|
|
} else { |
} else { |
if ($group ne '') { |
if ($group ne '') { |
&display_group_links($r,$target,$group,'view',$refarg,%groupinfo); |
$r->print(&Apache::longroup::display_group_links($r,$target,$group,'view',$refarg,undef,undef,%groupinfo)); |
} else { |
} else { |
my $text=&mt('No page information provided.'); |
my $text=&mt('No page information provided.'); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
Line 382 sub handler {
|
Line 387 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
sub display_group_links { |
|
my ($r,$target,$group,$context,$refarg,%groupinfo) = @_; |
|
my @available = (); |
|
my %menu = (); |
|
%{$menu{'email'}} = ( |
|
text => 'Group Message', |
|
href => '/adm/email?compose=group&group='.$group. |
|
$refarg, |
|
); |
|
%{$menu{'discussion'}} = ( |
|
text => 'Discussion Boards', |
|
href => '/adm/groupboards?group='.$group.$refarg, |
|
); |
|
%{$menu{'chat'}} = ( |
|
text => 'Group Chat Room', |
|
href => "javascript:group_chat('$group')", |
|
); |
|
%{$menu{'files'}} = ( |
|
text => 'Group Portfolio', |
|
href => '/adm/coursegrp_portfolio?group='.$group. |
|
$refarg, |
|
); |
|
%{$menu{'roster'}} = ( |
|
text => 'Membership Roster', |
|
href => '/adm/grouproster?group='.$group.$refarg, |
|
); |
|
foreach my $tool (sort(keys(%menu))) { |
|
if ($groupinfo{functions}{$tool} eq 'on') { |
|
push(@available,$tool); |
|
} |
|
} |
|
if (@available > 0) { |
|
my $output = ''; |
|
if ($target eq 'tex') { |
|
$output = '<table cellspacing="4" cellpadding="4">'; |
|
} else { |
|
$output = &Apache::loncommon::start_data_table(); |
|
} |
|
foreach my $tool (@available) { |
|
if ($target eq 'tex') { |
|
$output .= '<tr><td>'.&mt($menu{$tool}{text}).'</td></tr>'; |
|
} else { |
|
$output .= &Apache::loncommon::start_data_table_row() |
|
.'<td><a href="'.$menu{$tool}{href}.'">' |
|
.&mt($menu{$tool}{text}).'</a></td>' |
|
.&Apache::loncommon::end_data_table_row(); |
|
} |
|
} |
|
if ($target eq 'tex') { |
|
$output .= '</table>'; |
|
} else { |
|
$output .= &Apache::loncommon::end_data_table(); |
|
} |
|
if ($target eq 'tex') { |
|
$r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'<br /><br />'.$output)); |
|
} else { |
|
$r->print('<h3>'.&mt('Available Group Tools').'</h3>'.$output); |
|
} |
|
} else { |
|
my $output; |
|
if ($context eq 'edit') { |
|
$output = &mt('No group functionality.'); |
|
} else { |
|
$output = &mt('No group functionality (e.g., e-mail, discussion, chat room or file upload) is currently available to you in this group: [_1].','<b>'.&unescape($groupinfo{'description'}).'</b>'); |
|
} |
|
if ($target eq 'tex') { |
|
$r->print(&Apache::lonxml::xmlparse($r,'tex',$output)); |
|
} else { |
|
$r->print($output); |
|
} |
|
} |
|
} |
|
|
|
sub grouppage_breadcrumbs { |
sub grouppage_breadcrumbs { |
my ($cdom,$cnum,$group,$description) = @_; |
my ($cdom,$cnum,$group,$description) = @_; |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
Line 462 sub grouppage_breadcrumbs {
|
Line 394 sub grouppage_breadcrumbs {
|
text=>"Groups", |
text=>"Groups", |
title=>"Display Groups"}, |
title=>"Display Groups"}, |
{href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist", |
{href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist", |
text=>&mt('Group:')." $description", |
text=>&mt('Group').": $description", |
title=>"Go to group's home page"}, |
title=>&mt("Go to group's home page"), |
|
no_mt=>1}, |
]; |
]; |
} |
} |
|
|