version 1.198, 2005/06/23 22:46:00
|
version 1.199, 2005/06/27 21:40:39
|
Line 1647 sub phasetwo {
|
Line 1647 sub phasetwo {
|
$r->register_cleanup(\¬ify); |
$r->register_cleanup(\¬ify); |
$registered_cleanup=1; |
$registered_cleanup=1; |
} |
} |
|
|
|
# ---------------------------------------------------------- Clear local caches |
|
my $thisdistarget=$target; |
|
$thisdistarget=~s/^\Q$docroot\E//; |
|
&Apache::lonnet::devalidate_cache_new('resversion',$target); |
|
&Apache::lonnet::devalidate_cache_new('meta', |
|
&Apache::lonnet::declutter($thisdistarget)); |
|
|
# ------------------------------------------------ Provide link to new resource |
# ------------------------------------------------ Provide link to new resource |
unless ($batch) { |
unless ($batch) { |
my $thisdistarget=$target; |
|
$thisdistarget=~s/^\Q$docroot\E//; |
|
|
|
my $thissrc=$source; |
my $thissrc=$source; |
$thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/; |
$thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/; |