version 1.401, 2006/03/10 23:49:35
|
version 1.402, 2006/03/23 23:48:10
|
Line 1458 sub handler {
|
Line 1458 sub handler {
|
my $result = ''; |
my $result = ''; |
my $filecontents=&Apache::lonnet::getfile($file); |
my $filecontents=&Apache::lonnet::getfile($file); |
if ($filecontents eq -1) { |
if ($filecontents eq -1) { |
my $bodytag=&Apache::loncommon::bodytag('File Error'); |
my $start_page=&Apache::loncommon::start_page('File Error'); |
|
my $end_page=&Apache::loncommon::end_page('File Error'); |
my $fnf=&mt('File not found'); |
my $fnf=&mt('File not found'); |
$result=(<<ENDNOTFOUND); |
$result=(<<ENDNOTFOUND); |
<html> |
$start_page |
<head> |
|
<title>$fnf</title> |
|
</head> |
|
$bodytag |
|
<b>$fnf: $file</b> |
<b>$fnf: $file</b> |
</body> |
$end_page |
</html> |
|
ENDNOTFOUND |
ENDNOTFOUND |
$filecontents=''; |
$filecontents=''; |
if ($env{'request.state'} ne 'published') { |
if ($env{'request.state'} ne 'published') { |
Line 1506 ENDNOTFOUND
|
Line 1502 ENDNOTFOUND
|
if ($env{'form.editmode'} && (!($env{'form.viewmode'}))) { |
if ($env{'form.editmode'} && (!($env{'form.viewmode'}))) { |
my $displayfile=$request->uri; |
my $displayfile=$request->uri; |
$displayfile=~s/^\/[^\/]*//; |
$displayfile=~s/^\/[^\/]*//; |
my $bodytag='<body bgcolor="#FFFFFF">'; |
my %options = (); |
if ($env{'environment.remote'} eq 'off') { |
if ($env{'environment.remote'} ne 'off') { |
$bodytag=&Apache::loncommon::bodytag(); |
$options{'bgcolor'} = '#FFFFFF'; |
|
$options{'only_body'} = 1; |
} |
} |
$result='<html>'.$bodytag. |
my $start_page = &Apache::loncommon::start_page(undef,undef, |
|
\%options); |
|
$result=$start_page. |
&Apache::lonxml::message_location().'<h3>'. |
&Apache::lonxml::message_location().'<h3>'. |
$displayfile. |
$displayfile. |
'</h3></body></html>'; |
'</h3>'.&Apache::loncommon::end_page(); |
$result=&inserteditinfo($result,$filecontents,$filetype); |
$result=&inserteditinfo($result,$filecontents,$filetype); |
} |
} |
} |
} |
if ($filetype eq 'html') { writeallows($request->uri); } |
if ($filetype eq 'html') { &writeallows($request->uri); } |
|
|
|
|
&Apache::lonxml::add_messages(\$result); |
&Apache::lonxml::add_messages(\$result); |