loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.165, 2005/01/30 12:51:21	version 1.166, 2005/02/02 22:15:06
Line 1006 sub editor {	Line 1006 sub editor {
if ( ($folder=~/^$1/) \|\| ($1 eq 'default') ) {	if ( ($folder=~/^$1/) \|\| ($1 eq 'default') ) {
# 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"	# probably the only place in the system where this should be "1"
my $url=&Apache::lonnet::userfileupload('uploaddoc',1,'docs');	my $newidx=$#Apache::lonratedt::resources+1;
	my $url=&Apache::lonnet::userfileupload('uploaddoc',1,'docs/'.$newidx);
my $ext='false';	my $ext='false';
if ($url=~/^http\:\/\//) { $ext='true'; }	if ($url=~/^http\:\/\//) { $ext='true'; }
$url=~s/\:/\&colon;/g;	$url=~s/\:/\&colon;/g;
Line 1018 sub editor {	Line 1019 sub editor {
$comment=time.'___&&&___'.$ENV{'user.name'}.'___&&&___'.	$comment=time.'___&&&___'.$ENV{'user.name'}.'___&&&___'.
$ENV{'user.domain'}.'___&&&___'.$comment;	$ENV{'user.domain'}.'___&&&___'.$comment;
}	}
my $newidx=$#Apache::lonratedt::resources+1;
$Apache::lonratedt::resources[$newidx]=	$Apache::lonratedt::resources[$newidx]=
$comment.':'.$url.':'.$ext.':normal:res';	$comment.':'.$url.':'.$ext.':normal:res';
$Apache::lonratedt::order[$#Apache::lonratedt::order+1]=	$Apache::lonratedt::order[$#Apache::lonratedt::order+1]=