loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.11, 2000/09/19 19:10:01	version 1.13, 2000/10/05 19:25:38
Line 14 sub handler {	Line 14 sub handler {
my $request=shift;	my $request=shift;

my $target=&get_target();	my $target=&get_target();
	$Apache::lonxml::debug=1;
$request->content_type('text/html');	$request->content_type('text/html');
$request->send_http_header;	$request->send_http_header;
&Apache::lonhomework::send_header($request);	&Apache::lonhomework::send_header($request);
Line 21 sub handler {	Line 22 sub handler {
my %mystyle;	my %mystyle;
my $result = '';	my $result = '';
&Apache::inputtags::initialize_inputtags;	&Apache::inputtags::initialize_inputtags;
$result = Apache::lonxml::xmlparse($target, &getfile($file),
&getfile('/home/httpd/html/res/adm/includes/default_homework').&setup_vars($target),%mystyle);	my $problem=&Apache::lonnet::getfile($file);
	if ($problem == -1) {
	&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>");
	$problem='';
	}
	my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm');
	if ($default == -1) {
	&Apache::lonxml::error("<b>Unable to find <i>$file</i></b>");
	$default='';
	}

	$result = Apache::lonxml::xmlparse($target, $problem,
	$default.&setup_vars($target),%mystyle);
#$request->print("Result follows:");	#$request->print("Result follows:");
$request->print($result);	$request->print($result);
#$request->print(":Result ends");	#$request->print(":Result ends");