loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.14, 2000/10/11 21:02:13	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;
if ($ENV{'browser.mathml'}) {	if ($ENV{'browser.mathml'}) {
Line 24 sub handler {	Line 24 sub handler {
return 'OK' if $request->header_only;	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 50 sub handler {	Line 50 sub handler {
}	}

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 71 sub send_footer {	Line 79 sub send_footer {
$request->print(&Apache::lontexconvert::footer());	$request->print(&Apache::lontexconvert::footer());
}	}

sub getfile {	sub getfilenothere {
my ($filename) = @_;	my ($filename) = @_;
my $a="";	my $a="";
if (! -e $filename ) {	if (! -e $filename ) {