loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.140, 2006/07/30 19:38:13	version 1.141, 2006/08/02 02:34:54
Line 1484 sub upload {	Line 1484 sub upload {
$file_name = $env{'form.currentpath'}.$file_name;	$file_name = $env{'form.currentpath'}.$file_name;
$file_name = &prepend_group($file_name);	$file_name = &prepend_group($file_name);
$found_file = 1;	$found_file = 1;
# FIXME I think this is incorrect, prepend_group took care of this?
if (defined($group)) {
$file_name = $group.'/'.$file_name;
}
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {	if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$locked_file = 1;	$locked_file = 1;
}	}