loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.9, 2000/09/14 20:55:42	version 1.12, 2000/10/02 22:23:19
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 22 sub handler {	Line 23 sub handler {
my $result = '';	my $result = '';
&Apache::inputtags::initialize_inputtags;	&Apache::inputtags::initialize_inputtags;
$result = Apache::lonxml::xmlparse($target, &getfile($file),	$result = Apache::lonxml::xmlparse($target, &getfile($file),
&getfile('/home/httpd/html/res/103/albertel/default_homework').&setup_vars($target),%mystyle);	&getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm').&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");
Line 35 sub get_target {	Line 36 sub get_target {

sub setup_vars {	sub setup_vars {
my ($target) = @_;	my ($target) = @_;
return ';$external::target='.$target.';';	return ';'
	# return ';$external::target='.$target.';';
}	}

sub send_header {	sub send_header {