version 1.6, 2004/07/07 20:01:02
|
version 1.9, 2005/02/17 08:29:43
|
Line 55 sub stage_2 {
|
Line 55 sub stage_2 {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
my ($uname, $udom) = &Apache::loncacc::constructaccess('/~'.$author.'/',$r->dir_config('lonDefDomain')); |
my ($uname, $udom) = &Apache::loncacc::constructaccess('/~'.$author.'/',$r->dir_config('lonDefDomain')); |
$r->send_http_header; |
$r->send_http_header; |
$r->print('<html><head><title>LON-CAPA Move source to construction space</title>'); |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html.'<head><title>LON-CAPA Move source to construction space</title>'); |
$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 />"); |
Line 94 sub copy_stage {
|
Line 95 sub copy_stage {
|
} |
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print('<html><head><title>LON-CAPA Move source to construction space</title>'); |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html.'<head><title>LON-CAPA Move source to construction space</title>'); |
$r->print(&Apache::loncommon::bodytag('Copying Source')); |
$r->print(&Apache::loncommon::bodytag('Copying Source')); |
my $result = &Apache::loncfile::exists($uname, $udom, $path_to_new_file); |
my $result = &Apache::loncfile::exists($uname, $udom, $path_to_new_file); |
$r->print($result); |
$r->print($result); |
Line 212 sub handler {
|
Line 214 sub handler {
|
if ($source ne 'open') { |
if ($source ne 'open') { |
$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)) || |
} |
|
if ((!&Apache::lonnet::allowed('cre',$filename)) || |
(!&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; |
} if ($ENV{'form.action'} eq 'stage2') { |
} |
|
if ($ENV{'form.action'} eq 'stage2') { |
my $author = &Apache::lonnet::metadata($filename,'authorspace'); |
my $author = &Apache::lonnet::metadata($filename,'authorspace'); |
$author =~ m|@|; |
$author =~ m|@|; |
$author = $`; #This just tells who the author name is for later processing. |
$author = $`; #This just tells who the author name is for later processing. |