loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2005/06/23 23:24:53	version 1.14, 2005/06/23 23:51:32
Line 63 sub stage_2 {	Line 63 sub stage_2 {
<input type="hidden" name="filename" value="'.$filename.'" />	<input type="hidden" name="filename" value="'.$filename.'" />
<input type="hidden" name="listname" value="'.$listname.'" />	<input type="hidden" name="listname" value="'.$listname.'" />
<input type="hidden" name="action" value="copy_stage" />	<input type="hidden" name="action" value="copy_stage" />
<input type="text" name="newpath" value="/shared_source/'.$author.'" />	<input type="text" size="50" name="newpath" value="/shared_source/'.$author.'" />
<input type="submit" value="Copy" />	<input type="submit" value="Copy" />
</form>');	</form>');
return OK;	return OK;
Line 214 sub handler {	Line 214 sub handler {
$env{'user.error.msg'}="$filename:cre:1:1:Source code not available";	$env{'user.error.msg'}="$filename:cre:1:1:Source code not available";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
if ((!&Apache::lonnet::allowed('cre',$filename)) \|\|	unless (&Apache::lonnet::allowed('bre',$filename)) {
(!&Apache::lonnet::allowed('bre',$filename))) {
$env{'user.error.msg'}="$filename:bre:1:1:Access to resource denied";	$env{'user.error.msg'}="$filename:bre:1:1:Access to resource denied";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}