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; |
} |
} |