version 1.28, 2005/11/15 22:05:04
|
version 1.30, 2005/11/16 13:17:30
|
Line 70 ENDDOCUMENT
|
Line 70 ENDDOCUMENT
|
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $grp_view_permission = &Apache::lonnet::allowed('vcg', |
my $grp_view_permission = &Apache::lonnet::allowed('vcg', |
$env{'request.course.id'}); |
$env{'request.course.id'}); |
|
my $namespace; |
|
|
my %curr_group = (); |
my %curr_group = (); |
my %groupinfo = (); |
my %groupinfo = (); |
if ($caller eq 'grppg') { |
if ($caller eq 'grppg') { |
$marker =~ s/\W//g; |
$marker =~ s/\W//g; |
|
$namespace = 'grppage_'.$marker; |
unless(&Apache::lonnet::get_coursegroups($dom,$crs,\%curr_group, |
unless(&Apache::lonnet::get_coursegroups($dom,$crs,\%curr_group, |
$marker)) { |
$marker)) { |
$r->print('<body>Invalid group name</body>'); |
$r->print('<body>Invalid group name</body>'); |
return OK; |
return OK; |
} |
} |
|
%groupinfo = &Apache::loncommon::get_group_settings($curr_group{$marker}); |
} else { |
} else { |
$marker=~s/\D//g; |
$marker=~s/\D//g; |
|
$namespace = 'smppage_'.$marker; |
} |
} |
|
|
unless ($marker) { |
unless ($marker) { |
Line 115 ENDDOCUMENT
|
Line 119 ENDDOCUMENT
|
my $forceedit=''; |
my $forceedit=''; |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
if ($env{'form.forceedit'}) { $forceedit='edit'; } |
|
|
|
|
my %syllabus=&Apache::lonnet::dump($caller.'_'.$marker,$dom,$crs); |
my %syllabus=&Apache::lonnet::dump($namespace,$dom,$crs); |
|
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
|
|
Line 135 ENDDOCUMENT
|
Line 139 ENDDOCUMENT
|
(&Apache::loncommon::check_group_access($caller))) { |
(&Apache::loncommon::check_group_access($caller))) { |
unless(&Apache::lonnet::allowed('vgh', |
unless(&Apache::lonnet::allowed('vgh', |
$env{'request.course.id'}.'/'.$marker)) { |
$env{'request.course.id'}.'/'.$marker)) { |
&display_group_links($r,$target,$marker,%groupinfo); |
&display_group_links($r,$target,$marker,%groupinfo,'view'); |
return OK; |
return OK; |
} |
} |
} else { |
} else { |
Line 189 ENDDOCUMENT
|
Line 193 ENDDOCUMENT
|
} |
} |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
&Apache::lonnet::put($caller.'_'.$marker,\%syllabus,$dom,$crs); |
&Apache::lonnet::put($namespace,\%syllabus,$dom,$crs); |
} |
} |
if (($allowed) && ($env{'form.storesyl'})) { |
if (($allowed) && ($env{'form.storesyl'})) { |
foreach (keys %syllabusfields) { |
foreach (keys %syllabusfields) { |
Line 202 ENDDOCUMENT
|
Line 206 ENDDOCUMENT
|
$syllabus{$_}=$field; |
$syllabus{$_}=$field; |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
&Apache::lonnet::put($caller.'_'.$marker,\%syllabus,$dom,$crs); |
&Apache::lonnet::put($namespace,\%syllabus,$dom,$crs); |
} |
} |
|
|
# ---------------------------------------------------------------- Get syllabus |
# ---------------------------------------------------------------- Get syllabus |
Line 240 ENDDOCUMENT
|
Line 244 ENDDOCUMENT
|
if ($_ eq 'abb_links' && $caller eq 'grppg') { |
if ($_ eq 'abb_links' && $caller eq 'grppg') { |
$r->print('<br /><input type="hidden" name="'.$_. |
$r->print('<br /><input type="hidden" name="'.$_. |
'" value="'.$syllabus{$_}.'" />'); |
'" value="'.$syllabus{$_}.'" />'); |
&display_group_links($r,$target,$marker,%groupinfo); |
&display_group_links($r,$target,$marker,%groupinfo,'edit'); |
$r->print('<br />'); |
$r->print('<br />'); |
} elsif ($_ eq 'aaa_title') { |
} elsif ($_ eq 'aaa_title') { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
Line 306 ENDDOCUMENT
|
Line 310 ENDDOCUMENT
|
} |
} |
|
|
sub display_group_links { |
sub display_group_links { |
my ($r,$target,$marker,%groupinfo) = @_; |
my ($r,$target,$marker,%groupinfo,$context) = @_; |
my @available = (); |
my @available = (); |
|
|
my %menu = (); |
my %menu = (); |
Line 352 sub display_group_links {
|
Line 356 sub display_group_links {
|
$r->print('<h3>Functions</h3>'.$output); |
$r->print('<h3>Functions</h3>'.$output); |
} |
} |
} else { |
} else { |
my $output = 'No group functionality (e.g., e-mail, discussion,chat or file upload) is currently available to you in this group: '.$marker; |
my $output; |
|
if ($context eq 'edit') { |
|
$output = 'No group functionality'; |
|
} else { |
|
$output = 'No group functionality (e.g., e-mail, discussion,chat or file upload) is currently available to you in this group: '.$marker; |
|
} |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
$r->print(&Apache::lonxml::xmlparse($r,'tex',$output)); |
$r->print(&Apache::lonxml::xmlparse($r,'tex',$output)); |
} else { |
} else { |