loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.233, 2011/10/17 12:41:30	version 1.234, 2012/04/16 19:31:57
Line 2618 sub handler {	Line 2618 sub handler {
}	}
} elsif ($env{'form.action'} eq 'modify_orightml') {	} elsif ($env{'form.action'} eq 'modify_orightml') {
if ($can_upload) {	if ($can_upload) {
$r->print(&Apache::loncommon::modify_html_refs('portfolio',$port_path,$uname,$udom,$group,$portfolio_root,$group));	my $result =
$r->print(&done('Return to directory',$url));	&Apache::loncommon::modify_html_refs('portfolio',$port_path,$uname,$udom,$group,
	$portfolio_root,$group);
	$r->print($result.
	&done('Return to directory',$url));
} else {	} else {
&missing_priv($r,$url,'upload');	&missing_priv($r,$url,'upload');
}	}