version 1.14, 2002/08/05 02:09:05
|
version 1.15, 2002/08/24 03:56:58
|
Line 7
|
Line 7
|
# presents a page that describes the proposed action to the user |
# presents a page that describes the proposed action to the user |
# and requests confirmation. The second phase commits the action |
# and requests confirmation. The second phase commits the action |
# and displays a page showing the results of the action. |
# and displays a page showing the results of the action. |
# |
# |
|
|
# |
# |
# $Id$ |
# $Id$ |
Line 86 package Apache::loncfile;
|
Line 86 package Apache::loncfile;
|
|
|
use strict; |
use strict; |
use Apache::File; |
use Apache::File; |
|
use File::Basename; |
use File::Copy; |
use File::Copy; |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::loncacc; |
use Apache::loncacc; |
use Apache::Log (); |
use Apache::Log (); |
|
use Apache::lonnet; |
|
|
my $DEBUG=0; |
my $DEBUG=0; |
my $r; # Needs to be global for some stuff RF. |
my $r; # Needs to be global for some stuff RF. |
Line 1016 sub phasetwo {
|
Line 1018 sub phasetwo {
|
&Debug($r, "Final url is: $dest"); |
&Debug($r, "Final url is: $dest"); |
$dest =~ s/\/home\//\/priv\//; |
$dest =~ s/\/home\//\/priv\//; |
$dest =~ s/\/public_html//; |
$dest =~ s/\/public_html//; |
|
|
|
my $base = &Apache::lonnet::escape(&File::Basename::basename($dest)); |
|
my $dpath= &File::Basename::dirname($dest); |
|
$dest = $dpath.'/'.$base; |
|
|
|
|
&Debug($r, "Final url after rewrite: $dest"); |
&Debug($r, "Final url after rewrite: $dest"); |
|
|
$r->print('<h3><a href="'.$dest.'">Done</a></h3>'); |
$r->print('<h3><a href="'.$dest.'">Done</a></h3>'); |