loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.226, 2010/10/27 01:02:29	version 1.228, 2010/10/29 23:19:54
Line 1937 sub upload {	Line 1937 sub upload {
$port_path,$disk_quota,	$port_path,$disk_quota,
$current_disk_usage,$uname,$udom);	$current_disk_usage,$uname,$udom);
if ($state eq 'will_exceed_quota'	if ($state eq 'will_exceed_quota'
\|\| $state eq 'file_locked') {	\|\| $state eq 'file_locked'
	\|\| $state eq 'zero_bytes') {
$r->print($msg.&done('Back',$url));	$r->print($msg.&done('Back',$url));
return;	return;
}	}
Line 2096 sub overwrite {	Line 2097 sub overwrite {
} else {	} else {
if (%allfiles) {	if (%allfiles) {
if (!&suppress_embed_prompt()) {	if (!&suppress_embed_prompt()) {
foreach my $file (keys(%allfiles)) {
print STDERR "got $file\n";
}
&print_dependency_form($r,$url,\%allfiles,\%codebase);	&print_dependency_form($r,$url,\%allfiles,\%codebase);
} else {	} else {
$r->print(&done(undef,$url));	$r->print(&done(undef,$url));