version 1.12, 2005/06/23 23:07:04
|
version 1.14, 2005/06/23 23:51:32
|
Line 59 sub stage_2 {
|
Line 59 sub stage_2 {
|
$r->print(&Apache::loncommon::bodytag('Problem source code moving operation')); |
$r->print(&Apache::loncommon::bodytag('Problem source code moving operation')); |
$r->print("Please enter the directory that you would like the source code to go into, a default has also been provided <br />"); |
$r->print("Please enter the directory that you would like the source code to go into, a default has also been provided <br />"); |
$r->print("Also note, the path is in reference to the root of your construction space, and new directories will be automatically created. <br /><br />"); |
$r->print("Also note, the path is in reference to the root of your construction space, and new directories will be automatically created. <br /><br />"); |
$r->print('<form name="copy" action="/adm/source/" target="_parent" method="post"> |
$r->print('<form name="copy" action="/adm/source" target="_parent" method="post"> |
<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 114 sub copy_stage {
|
Line 114 sub copy_stage {
|
sub confirm { |
sub confirm { |
my ($r, $author_name, $newpath, $filename, $path_to_new_file) = @_; |
my ($r, $author_name, $newpath, $filename, $path_to_new_file) = @_; |
$r->print("<b>Press delete to remove file and replace it with a copy of the source you are viewing</b><br /><br / >"); |
$r->print("<b>Press delete to remove file and replace it with a copy of the source you are viewing</b><br /><br / >"); |
$r->print('<form name="delete_confirm" action="/adm/source/" target="_parent" method="post"> |
$r->print('<form name="delete_confirm" action="/adm/source" target="_parent" method="post"> |
<input type="hidden" name="filename" value="'.$filename.'" /> |
<input type="hidden" name="filename" value="'.$filename.'" /> |
<input type="hidden" name="path" value="'.$path_to_new_file.'" /> |
<input type="hidden" name="path" value="'.$path_to_new_file.'" /> |
<input type="hidden" name="author" value="'.$author_name.'" /> |
<input type="hidden" name="author" value="'.$author_name.'" /> |
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; |
} |
} |
Line 232 sub handler {
|
Line 231 sub handler {
|
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print('<form name="copy" action="/adm/source/" target="_parent" method="post"> |
$r->print('<form name="copy" action="/adm/source" target="_parent" method="post"> |
<input type="button" value="Close Window" name="close" onClick="window.close()" /> |
<input type="button" value="Close Window" name="close" onClick="window.close()" /> |
<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.'" /> |