loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.32, 2001/02/19 20:39:00	version 1.33, 2001/02/19 21:02:59
Line 1	Line 1
# The LearningOnline Network with CAPA # <script> definiton	# The LearningOnline Network with CAPA # <script> definiton
	# 2/19 Guy
package Apache::structuretags;	package Apache::structuretags;

use strict;	use strict;
Line 69 sub start_problem {	Line 69 sub start_problem {
$Apache::lonhomework::name=$name;	$Apache::lonhomework::name=$name;
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER') {
# create a page header and exit	# create a page header and exit
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".'<input type="hidden" name="submitted" value="yes">';	return "<title>$name</title>\n<body bgcolor=\"#FFFFFF\">\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".'<input type="hidden" name="submitted" value="yes" />';
} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' \|\| $status eq 'CLOSED') {	} elsif ($status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER' \|\| $status eq 'CLOSED') {
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n";	return "<title>$name</title>\n<body bgcolor=\"#FFFFFF\">\n";
}	}
}	}
return '';	return '';