version 1.22, 2009/04/04 21:47:41
|
version 1.25, 2011/10/25 14:28:13
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Souce Code handler |
# Source Code handler |
# |
# |
# $Id$ |
# $Id$ |
# |
# |
Line 84 sub copy_stage {
|
Line 84 sub copy_stage {
|
$author_name = $env{'user.name'}; |
$author_name = $env{'user.name'}; |
} |
} |
|
|
my $path_to_new_file = '/home/'.$author_name.'/public_html/'.$newpath.'/'.$listname; |
my $path_to_new_file = '/home/httpd/html/priv/'.$domain.'/'.$author_name.'/'.$newpath.'/'.$listname; |
#Just checking again for access as we want to make sure that it is really ok now that we have the real path |
#Just checking again for access as we want to make sure that it is really ok now that we have the real path |
|
|
my ($uname,$udom)= &Apache::loncacc::constructaccess($path_to_new_file,$domain); |
my ($uname,$udom)= &Apache::loncacc::constructaccess($path_to_new_file); |
|
|
if (!$uname || !$udom) { |
if (!$uname || !$udom) { |
$r->print(&Apache::loncommon::start_page('Not Allowed')); |
$r->print(&Apache::loncommon::start_page('Not Allowed')); |
Line 129 sub confirm {
|
Line 129 sub confirm {
|
sub delete_copy_file { |
sub delete_copy_file { |
my ($r, $author_name, $newpath, $filename, $path_to_new_file, $type) = @_; |
my ($r, $author_name, $newpath, $filename, $path_to_new_file, $type) = @_; |
if($type eq '1') { |
if($type eq '1') { |
$r->print("<b>Cannot delete non-obsolete published file</b><br />Please |
$r->print('<p><span class="LC_warning">' |
use the code view in previous window to use shared code<br /><br />"); |
.&mt('Cannot delete non-obsolete published file.') |
$r->print('<input type="button" value="Close Window" name="close" onClick="window.close()" />'); |
.'</span><br />' |
|
.&mt('Please use the code view in previous window to use shared code.') |
|
.'<br /><br />'); |
|
$r->print('<input type="button" value="Close Window" name="close"' |
|
.' onclick="window.close()" />' |
|
.'</p>'); |
} else { |
} else { |
if(-e $path_to_new_file) { |
if(-e $path_to_new_file) { |
unless(unlink($path_to_new_file)) { |
unless(unlink($path_to_new_file)) { |
$r->print('<font color="red">'.&mt('Error').': '.$!.'</font>'); |
$r->print('<p class="LC_error"">'.&mt('Error:').' '.$!.'</p>'); |
return 0; |
return 0; |
} |
} |
} else { |
} else { |
$r->print('<p> '.&mt('No such file').'. </p></form>'); |
$r->print('<p class="LC_error">'.&mt('No such file').'</p></form>'); |
return 0; |
return 0; |
} |
} |
©_file($r, $author_name, $newpath, $filename, $path_to_new_file); |
©_file($r, $author_name, $newpath, $filename, $path_to_new_file); |
Line 158 sub copy_file {
|
Line 163 sub copy_file {
|
|
|
else { |
else { |
unless(mkdir($path, 02770)) { |
unless(mkdir($path, 02770)) { |
$r->print('<font color="red">'.&mt('Error').': '.$!.'</font>'); |
$r->print('<p class="LC_error">'.&mt('Error:').' '.$!.'</p>'); |
return 0; |
return 0; |
} |
} |
unless(chmod(02770, ($path))) { |
unless(chmod(02770, ($path))) { |
$r->print('<font color="red"> '.&mt('Error').': '.$!.'</font>'); |
$r->print('<p class="LC_error"> '.&mt('Error:').' '.$!.'</p>'); |
return 0; |
return 0; |
} |
} |
} |
} |
Line 177 sub copy_file {
|
Line 182 sub copy_file {
|
print $fs $file_output; |
print $fs $file_output; |
} |
} |
$r->print("<br /><br />"); |
$r->print("<br /><br />"); |
$r->print('<input type="button" value="Close Window" name="close" onClick="window.close()" />'); |
$r->print('<input type="button" value="Close Window" name="close" onclick="window.close()" />'); |
#Some 1.3'ish feature is to include the derivative feature, will go here..' |
#Some 1.3'ish feature is to include the derivative feature, will go here..' |
} |
} |
|
|
Line 253 sub handler {
|
Line 258 sub handler {
|
&delete_copy_file($r, $env{'form.author'}, $env{'form.newpath'}, $env{'form.filename'}, $env{'form.path'}, '0'); |
&delete_copy_file($r, $env{'form.author'}, $env{'form.newpath'}, $env{'form.filename'}, $env{'form.path'}, '0'); |
} else { |
} else { |
$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="'.&mt('Close Window').'" name="close" onClick="window.close()" /> |
<input type="button" value="'.&mt('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.'" /> |
<input type="hidden" name="action" value="stage2" /> |
<input type="hidden" name="action" value="stage2" /> |