loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.174, 2006/11/22 03:56:36	version 1.175, 2006/12/11 03:43:15
Line 2038 sub get_quota {	Line 2038 sub get_quota {
return $disk_quota;	return $disk_quota;
}	}


sub handler {	sub handler {
# this handles file management	# this handles file management
my $r = shift;	my $r = shift;
Line 2134 sub handler {	Line 2133 sub handler {
$r->print(&Apache::loncommon::start_page($title));	$r->print(&Apache::loncommon::start_page($title));
}	}
$r->rflush();	$r->rflush();
	my ($blocked,$blocktext) =
	&Apache::loncommon::blocking_status('port',$uname,$udom);
	if ($blocked) {
	$r->print($blocktext);
	$r->print(&Apache::loncommon::end_page());
	return OK;
	}
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){	if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">'.
'No file was selected to upload.'.	'No file was selected to upload.'.