loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.96, 2006/03/19 21:54:41	version 1.98, 2006/05/09 14:38:10
Line 649 sub handler {	Line 649 sub handler {
$group = $env{'form.group'};	$group = $env{'form.group'};
$group =~ s/\W//g;	$group =~ s/\W//g;
if ($group) {	if ($group) {
my %curr_groups = ();
($uname,$udom) = &get_name_dom($group);	($uname,$udom) = &get_name_dom($group);
if (&Apache::loncommon::coursegroups(\%curr_groups,$udom,$uname,	my %curr_groups = &Apache::loncommon::coursegroups($udom,$uname,
$group)) {	$group);
	if (%curr_groups) {
if (($view_permission) \|\| (&Apache::lonnet::allowed('rgf',	if (($view_permission) \|\| (&Apache::lonnet::allowed('rgf',
$env{'request.course.id'}.'/'.$group))) {	$env{'request.course.id'}.'/'.$group))) {
$portfolio_root = &get_portfolio_root($group);	$portfolio_root = &get_portfolio_root($group);
Line 682 sub handler {	Line 682 sub handler {
# Give the LON-CAPA page header	# Give the LON-CAPA page header
if ($env{"form.mode"} eq 'selectfile'){	if ($env{"form.mode"} eq 'selectfile'){
$r->print(&Apache::loncommon::start_page($title,undef,	$r->print(&Apache::loncommon::start_page($title,undef,
{'only_body' => 1});	{'only_body' => 1}));
} else {	} else {
$r->print(&Apache::loncommon::start_page($title);	$r->print(&Apache::loncommon::start_page($title));
}	}
$r->rflush();	$r->rflush();
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){	if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){