version 1.13, 2011/11/14 15:51:55
|
version 1.17, 2013/06/07 16:07:49
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncacc; |
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA(); |
use LONCAPA(); |
use HTML::Entities(); |
use HTML::Entities(); |
Line 49 sub handler {
|
Line 48 sub handler {
|
my ($ownername,$ownerdomain,$ownerhome); |
my ($ownername,$ownerdomain,$ownerhome); |
if ($env{'request.editurl'} ne '') { |
if ($env{'request.editurl'} ne '') { |
($ownername,$ownerdomain,$ownerhome) = |
($ownername,$ownerdomain,$ownerhome) = |
&Apache::loncacc::constructaccess($env{'request.editurl'}); |
&Apache::lonnet::constructaccess($env{'request.editurl'}); |
} |
} |
|
|
# Breadcrumbs |
# Breadcrumbs |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
if ($env{'request.role'} =~ /^(au|ca|aa)/) { |
if ($env{'request.role'} =~ /^(au|ca|aa)/) { |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Construction Space', |
'text' => 'Authoring Space', |
'href' => &Apache::loncommon::authorspace($env{'request.editurl'}), |
'href' => &Apache::loncommon::authorspace($env{'request.editurl'}), |
}); |
}); |
} elsif (($env{'request.course.id'}) && |
} elsif (($env{'request.course.id'}) && |
Line 68 sub handler {
|
Line 67 sub handler {
|
} |
} |
|
|
# print header |
# print header |
$r->print(&Apache::loncommon::start_page("Failed Access to Construction Space", |
$r->print(&Apache::loncommon::start_page("Failed Access to Authoring Space", |
undef, |
undef, |
{'domain' => $ownerdomain,}). |
{'domain' => $ownerdomain,}). |
&Apache::lonhtmlcommon::breadcrumbs()); |
&Apache::lonhtmlcommon::breadcrumbs()); |
Line 86 sub handler {
|
Line 85 sub handler {
|
my $switchlink = '/adm/switchserver?otherserver='.$ownerhome. |
my $switchlink = '/adm/switchserver?otherserver='.$ownerhome. |
'&origurl='.&HTML::Entities::encode($env{'request.editurl'},'<>&"'); |
'&origurl='.&HTML::Entities::encode($env{'request.editurl'},'<>&"'); |
$r->print('<p class="LC_warning">'. |
$r->print('<p class="LC_warning">'. |
&mt('The construction space for this resource is located on a different server: [_1]', |
&mt('The Authoring Space for this resource is located on a different server: [_1]', |
'<b><tt>'.&Apache::lonnet::hostname($ownerhome).'</b></tt>'). |
'<b><tt>'.&Apache::lonnet::hostname($ownerhome).'</b></tt>'). |
'</p>'. |
'</p>'. |
'<p class="LC_error"><a href="'.$switchlink.'">'. |
'<p class="LC_error"><a href="'.$switchlink.'">'. |
Line 122 sub handler {
|
Line 121 sub handler {
|
$option = 'decompress'; |
$option = 'decompress'; |
} elsif ($name eq 'qualifiedfilename') { |
} elsif ($name eq 'qualifiedfilename') { |
$qualifiedfilename = $value; |
$qualifiedfilename = $value; |
} elsif ($name = 'versionone') { |
} elsif ($name eq 'versionone') { |
if ($value eq 'priv') { |
if ($value eq 'priv') { |
$option = 'cstr'; |
$option = 'cstr'; |
} |
} |
Line 180 sub handler {
|
Line 179 sub handler {
|
&mt('There is a problem with the filename').' '. |
&mt('There is a problem with the filename').' '. |
'<span class="LC_filename">'.$r->uri.'</span></p>'. |
'<span class="LC_filename">'.$r->uri.'</span></p>'. |
'<p class="LC_warning">'. |
'<p class="LC_warning">'. |
&mt('You may be attempting to edit a versioned file (files in construction space may not include a version number before the extension).'). |
&mt('You may be attempting to edit a versioned file (files in Authoring Space may not include a version number before the extension).'). |
'</p>'); |
'</p>'); |
} else { |
} else { |
$r->print('<p class="LC_error">'. |
$r->print('<p class="LC_error">'. |
Line 192 sub handler {
|
Line 191 sub handler {
|
&mt('There is a problem with the filename').' '. |
&mt('There is a problem with the filename').' '. |
'<span class="LC_filename">'.$env{'request.editurl'}.'</span></p>'. |
'<span class="LC_filename">'.$env{'request.editurl'}.'</span></p>'. |
'<p class="LC_warning">'. |
'<p class="LC_warning">'. |
&mt('You may be attempting to edit a versioned file (files in construction space may not include a version number before the extension).'). |
&mt('You may be attempting to edit a versioned file (files in Authoring Space may not include a version number before the extension).'). |
'</p>'); |
'</p>'); |
} else { |
} else { |
$r->print('<p class="LC_error">' |
$r->print('<p class="LC_error">' |