Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsimplepage.pm between versions 1.43 and 1.44

version 1.43, 2006/07/07 21:25:02	version 1.44, 2006/07/08 01:12:53
Line 38 use Apache::lonlocal;	Line 38 use Apache::lonlocal;
use Apache::lonprintout;	use Apache::lonprintout;
use Apache::lonxml;	use Apache::lonxml;
use Apache::longroup;	use Apache::longroup;
	use LONCAPA;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 64 sub handler {	Line 65 sub handler {
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 ($namespace,$group,$grp_desc);
my $group;

my %curr_group = ();	my %curr_group = ();
my %groupinfo = ();	my %groupinfo = ();
Line 79 sub handler {	Line 79 sub handler {
}	}
%groupinfo =	%groupinfo =
&Apache::longroup::get_group_settings($curr_groups{$group});	&Apache::longroup::get_group_settings($curr_groups{$group});
	$grp_desc = &unescape($groupinfo{'description'});
$namespace = 'grppage_'.$group;	$namespace = 'grppage_'.$group;
} else {	} else {
$marker=~s/\D//g;	$marker=~s/\D//g;
Line 102 sub handler {	Line 103 sub handler {

# ------------------------------------------------------------ Get query string	# ------------------------------------------------------------ Get query string
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']);	($ENV{'QUERY_STRING'},['forcestudent','forceedit',
	'register','ref']);
# --------------------------------------------------------------- Force Student	# --------------------------------------------------------------- Force Student
my $forcestudent='';	my $forcestudent='';
if ($env{'form.forcestudent'} \|\| $target eq 'tex' ) { $forcestudent='student'; };	if ($env{'form.forcestudent'} \|\| $target eq 'tex' ) { $forcestudent='student'; };
Line 130 sub handler {	Line 132 sub handler {

if ($group ne '') {	if ($group ne '') {
if (($grp_view_permission) \|\|	if (($grp_view_permission) \|\|
(&Apache::longroup::check_group_access($caller))) {	(&Apache::longroup::check_group_access($caller))) {
if ((!&Apache::lonnet::allowed('vgh',	if ((!&Apache::lonnet::allowed('vgh',
$env{'request.course.id'}.'/'.$marker))	$env{'request.course.id'}.'/'.$marker))
&& (!&Apache::lonnet::allowed('mdg',	&& (!&Apache::lonnet::allowed('mdg',
$env{'request.course.id'}.'/'.$marker))) {	$env{'request.course.id'}.'/'.$marker))) {
	if ($env{'form.ref'} eq 'grouplist') {
	my $gpterm = &Apache::loncommon::group_term();
	my $ucgpterm = $gpterm;
	$ucgpterm =~ s/^(\w)/uc($1)/e;
	$r->print(&grouppage_breadcrumbs($dom,$crs,$group,$gpterm,
	$ucgpterm,$grp_desc));
	}
&display_group_links($r,$target,$marker,'view',%groupinfo);	&display_group_links($r,$target,$marker,'view',%groupinfo);
return OK;	return OK;
}	}
Line 308 sub handler {	Line 317 sub handler {

sub display_group_links {	sub display_group_links {
my ($r,$target,$marker,$context,%groupinfo) = @_;	my ($r,$target,$marker,$context,%groupinfo) = @_;
	my $refarg;
	if ($env{'form.ref'} eq 'grouplist') {
	$refarg = '&ref=grouplist';
	}
my @available = ();	my @available = ();
my %menu = ();	my %menu = ();
%{$menu{'email'}} = (	%{$menu{'email'}} = (
text => 'Group e-mail',	text => 'Group e-mail',
href => '/adm/email?compose=group&group='.$marker,	href => '/adm/email?compose=group&group='.$marker.
	$refarg,
);	);
%{$menu{'discussion'}} = (	%{$menu{'discussion'}} = (
text => 'Discussion Boards',	text => 'Discussion Boards',
href => '/adm/groupboards?group='.$marker,	href => '/adm/groupboards?group='.$marker.$refarg,
);	);
%{$menu{'chat'}} = (	%{$menu{'chat'}} = (
text => 'Group chat',	text => 'Group chat',
Line 324 sub display_group_links {	Line 338 sub display_group_links {
);	);
%{$menu{'files'}} = (	%{$menu{'files'}} = (
text => 'File repository',	text => 'File repository',
href => '/adm/coursegrp_portfolio?group='.$marker,	href => '/adm/coursegrp_portfolio?group='.$marker.$refarg,
);	);
%{$menu{'roster'}} = (	%{$menu{'roster'}} = (
text => 'Membership roster',	text => 'Membership roster',
href => '/adm/grouproster?group='.$marker,	href => '/adm/grouproster?group='.$marker.$refarg,
);	);
foreach my $tool (sort(keys(%menu))) {	foreach my $tool (sort(keys(%menu))) {
if ($groupinfo{functions}{$tool} eq 'on') {	if ($groupinfo{functions}{$tool} eq 'on') {
Line 365 sub display_group_links {	Line 379 sub display_group_links {
}	}
}	}
}	}

	sub grouppage_breadcrumbs {
	my ($cdom,$cnum,$group,$gpterm,$ucgpterm,$description) = @_;
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/coursegroups",
	text=>"$ucgpterm".'s',
	title=>"Display $ucgpterm".'s'},
	{href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist",
	text=>"$ucgpterm: $description",
	title=>"Go to group's home page"},
	);
	my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('[_1] page - [_2]',$gpterm,$description));
	return $output;
	}

1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.43
changed lines
	Added in v.1.44