version 1.11, 2005/04/07 06:56:23
|
version 1.15, 2005/07/08 10:39:49
|
Line 43 use HTML::Entities;
|
Line 43 use HTML::Entities;
|
|
|
sub make_link { |
sub make_link { |
my ($filename, $listname) = @_; |
my ($filename, $listname) = @_; |
my $sourcelink = "http://".$ENV{'SERVER_NAME'}. |
my $sourcelink = "/adm/source?filename=".$filename."&listname=".$listname; |
"/adm/source/?filename=".$filename."&listname=".$listname; |
|
|
|
return $sourcelink; |
return $sourcelink; |
} |
} |
Line 60 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 115 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 215 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))) { |
(&Apache::lonnet::allowed('cre','/'))) { |
$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 233 sub handler {
|
Line 232 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.'" /> |