version 1.15, 2005/07/08 10:39:49
|
version 1.16, 2006/03/15 19:41:26
|
Line 54 sub stage_2 {
|
Line 54 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; |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(&Apache::loncommon::start_page('Problem source code moving operation')); |
$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("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"> |
Line 94 sub copy_stage {
|
Line 92 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; |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(&Apache::loncommon::start_page('Copying Source')); |
$r->print($html.'<head><title>LON-CAPA Move source to construction space</title>'); |
|
$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); |
if(($result) && ($result =~ m|published|) ) { |
if(($result) && ($result =~ m|published|) ) { |