loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.434.2.1 and 1.434.2.2

version 1.434.2.1, 2010/08/16 20:52:11	version 1.434.2.2, 2010/11/09 18:19:08
Line 1717 sub process_file_upload {	Line 1717 sub process_file_upload {
$destination .= $2.'/';	$destination .= $2.'/';
}	}
# this is for a course, not a user, so set coursedoc flag	# this is for a course, not a user, so set coursedoc flag
# probably the only place in the system where this should be "1"
my $newidx=&LONCAPA::map::getresidx();	my $newidx=&LONCAPA::map::getresidx();
$destination .= $newidx;	$destination .= $newidx;
my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,	my $url=&Apache::lonnet::userfileupload('uploaddoc','coursedoc',$destination,
$parseaction,$allfiles,	$parseaction,$allfiles,
$codebase);	$codebase);
my $ext='false';	my $ext='false';
Line 1781 sub process_secondary_uploads {	Line 1780 sub process_secondary_uploads {
}	}
$destination .= $newidx;	$destination .= $newidx;
my ($url,$filename);	my ($url,$filename);
$url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);	$url=&Apache::lonnet::userfileupload($formname.$num,'coursedoc',$destination);
($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});	($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});
return $filename;	return $filename;
}	}
Line 2971 CHBO	Line 2970 CHBO
$fileupload	$fileupload
<br />	<br />
$lt{'title'}:<br />	$lt{'title'}:<br />
<input type="text" size="50" name="comment" />	<input type="text" size="80" name="comment" />
$uploadtag	$uploadtag
<input type="hidden" name="cmd" value="upload_default" />	<input type="hidden" name="cmd" value="upload_default" />
<br />	<br />

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.434.2.1
changed lines
	Added in v.1.434.2.2