loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2006/05/09 14:38:10	version 1.40, 2006/05/18 01:08:50
Line 37 use Apache::lonfeedback;	Line 37 use Apache::lonfeedback;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonprintout;	use Apache::lonprintout;
use Apache::lonxml;	use Apache::lonxml;
	use Apache::longroup;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 76 sub handler {	Line 77 sub handler {
return OK;	return OK;
}	}
%groupinfo =	%groupinfo =
&Apache::loncommon::get_group_settings($curr_groups{$marker});	&Apache::longroup::get_group_settings($curr_groups{$marker});
} else {	} else {
$marker=~s/\D//g;	$marker=~s/\D//g;
$namespace = 'smppage_'.$marker;	$namespace = 'smppage_'.$marker;
Line 127 sub handler {	Line 128 sub handler {

if ($caller eq 'grppg') {	if ($caller eq 'grppg') {
if (($grp_view_permission) \|\|	if (($grp_view_permission) \|\|
(&Apache::loncommon::check_group_access($caller))) {	(&Apache::longroup::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,'view',%groupinfo);	&display_group_links($r,$target,$marker,'view',%groupinfo);