version 1.42.2.1, 2011/11/07 13:38:45
|
version 1.43, 2011/10/23 01:27:34
|
Line 233 sub phasetwo {
|
Line 233 sub phasetwo {
|
my ($main,$suffix,$is_meta) = &get_file_info($fn); |
my ($main,$suffix,$is_meta) = &get_file_info($fn); |
|
|
my $logfile; |
my $logfile; |
my $ctarget='/home/'.$uname.'/public_html'.$fn; |
my $ctarget=$r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.$fn; |
my $vfn=$fn; |
my $vfn=$fn; |
if ($version ne 'new') { |
if ($version ne 'new') { |
$vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/; |
$vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/; |
Line 292 sub handler {
|
Line 292 sub handler {
|
|
|
my $r=shift; |
my $r=shift; |
|
|
my ($fn,$trailfile); |
my $fn; |
|
|
|
|
# Get query string for limited number of parameters |
# Get query string for limited number of parameters |
Line 330 sub handler {
|
Line 330 sub handler {
|
} |
} |
|
|
$fn=~s{/~($LONCAPA::username_re)}{}; |
$fn=~s{/~($LONCAPA::username_re)}{}; |
$trailfile = "/home/$uname/public_html".$fn; |
|
|
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
Line 349 sub handler {
|
Line 348 sub handler {
|
$r->print(&Apache::loncommon::start_page('Retrieve Published Resources') |
$r->print(&Apache::loncommon::start_page('Retrieve Published Resources') |
.&Apache::lonhtmlcommon::breadcrumbs() |
.&Apache::lonhtmlcommon::breadcrumbs() |
.&Apache::loncommon::head_subbox( |
.&Apache::loncommon::head_subbox( |
&Apache::loncommon::CSTR_pageheader($trailfile)) |
&Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken? |
); |
); |
|
|
$r->print('<p>' |
$r->print('<p>' |