version 1.13, 2000/10/05 19:25:38
|
version 1.15, 2000/11/07 17:21:18
|
Line 12 use Apache::response;
|
Line 12 use Apache::response;
|
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
my $target=&get_target(); |
my $target=&get_target(); |
$Apache::lonxml::debug=1; |
$Apache::lonxml::debug=1; |
$request->content_type('text/html'); |
if ($ENV{'browser.mathml'}) { |
|
$request->content_type('text/xml'); |
|
} else { |
|
$request->content_type('text/html'); |
|
} |
$request->send_http_header; |
$request->send_http_header; |
|
return 'OK' if $request->header_only; |
|
|
&Apache::lonhomework::send_header($request); |
&Apache::lonhomework::send_header($request); |
my $file = "/home/httpd/html".$request->uri; |
my $file = &Apache::lonnet::filelocation("",$request->uri); |
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags; |
Line 40 sub handler {
|
Line 46 sub handler {
|
$request->print($result); |
$request->print($result); |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
&Apache::lonhomework::send_footer($request); |
&Apache::lonhomework::send_footer($request); |
|
return 'OK'; |
} |
} |
|
|
sub get_target { |
sub get_target { |
return "web"; |
if ( $ENV{'request.state'} eq "published") { |
|
return 'web'; |
|
} elsif ($ENV{'request.state'} eq "construct") { |
|
if ( defined $ENV{'form.'.$ENV{'form.request.prefix'}.'preview'}) { |
|
return 'web'; |
|
} else { |
|
return 'edit'; |
|
} |
|
} |
} |
} |
|
|
sub setup_vars { |
sub setup_vars { |
Line 54 sub setup_vars {
|
Line 69 sub setup_vars {
|
|
|
sub send_header { |
sub send_header { |
my ($request)= @_; |
my ($request)= @_; |
$request->print('<html>'); |
$request->print(&Apache::lontexconvert::header()); |
$request->print('<form method="POST" action="'.$request->uri.'">'); |
$request->print('<form name='.$ENV{'form.request.prefix'}.'lonhomework method="POST" action="'.$request->uri.'">'); |
} |
} |
|
|
sub send_footer { |
sub send_footer { |
my ($request)= @_; |
my ($request)= @_; |
$request->print('</form>'); |
$request->print('</form>'); |
$request->print('</html>'); |
$request->print(&Apache::lontexconvert::footer()); |
} |
} |
|
|
sub getfile { |
sub getfilenothere { |
my ($filename) = @_; |
my ($filename) = @_; |
my $a=""; |
my $a=""; |
if (! -e $filename ) { |
if (! -e $filename ) { |