version 1.42.2.1, 2011/11/07 13:38:45
|
version 1.44, 2011/10/24 22:10:21
|
Line 209 sub phaseone {
|
Line 209 sub phaseone {
|
.'/'; |
.'/'; |
$r->print(&Apache::lonhtmlcommon::start_funclist() |
$r->print(&Apache::lonhtmlcommon::start_funclist() |
.&Apache::lonhtmlcommon::add_item_funclist( |
.&Apache::lonhtmlcommon::add_item_funclist( |
'<a href="/priv/'.$uname.$fn.'">' |
'<a href="/priv/'.$udom.'/'.$uname.$fn.'">' |
.&mt('Back to Resource') |
.&mt('Back to Resource') |
.'</a>') |
.'</a>') |
.&Apache::lonhtmlcommon::add_item_funclist( |
.&Apache::lonhtmlcommon::add_item_funclist( |
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 266 sub phasetwo {
|
Line 266 sub phasetwo {
|
print $logfile "Copy failed: $error\n\n"; |
print $logfile "Copy failed: $error\n\n"; |
} |
} |
$r->print('</p>' |
$r->print('</p>' |
.'<p><a href="/priv/'.$uname.$fn.'">' |
.'<p><a href="/priv/'.$udom.'/'.$uname.$fn.'">' |
.&mt('Back to Resource') |
.&mt('Back to Resource') |
.'</a></p>'); |
.'</a></p>'); |
} else { |
} else { |
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>' |