loncom/interface/lonclonecourse.pm - diff

Return to lonclonecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2006/12/05 01:36:13	version 1.4, 2008/01/18 17:51:18
Line 84 sub writefile {	Line 84 sub writefile {
my $data = &Apache::lonnet::finishuserfileupload(	my $data = &Apache::lonnet::finishuserfileupload(
$crsdata{'num'},$crsdata{'domain'},	$crsdata{'num'},$crsdata{'domain'},
'output',$which);	'output',$which);
&Apache::lonnet::logthis("gor $data $crsdata{'num'} $crsdata{'domain'}");
return $data;	return $data;
}	}

Line 116 sub copyfile {	Line 115 sub copyfile {
'/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'	'/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
=> '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',	=> '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
'/public/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'	'/public/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
=> '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'	=> '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
	'/adm/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
	=> '/adm/'.$newcrsdata{'domain'}.'/'.$newcrsdata{'num'}.'/',
)));	)));
}	}
}	}