loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.79, 2002/01/30 17:37:21	version 1.81, 2002/02/08 20:58:39
Line 83 sub page_start {	Line 83 sub page_start {
}	}
my $body_tag_start;	my $body_tag_start;
if (!defined($found{'body'})) {	if (!defined($found{'body'})) {
my $body_tag_start='<body onLoad="'.&Apache::lonxml::loadevents().'" '.	$body_tag_start='<body onLoad="'.&Apache::lonxml::loadevents().'" '.
'onUnload="'.&Apache::lonxml::unloadevents().'" ';	'onUnload="'.&Apache::lonxml::unloadevents().'" ';
my $background=&Apache::lonxml::get_param('background',$parstack,$safeeval);	my $background=&Apache::lonxml::get_param('background',$parstack,$safeeval);
if ($background) {	if ($background) {
Line 162 ENDCHECKOUT	Line 162 ENDCHECKOUT
sub start_problem {	sub start_problem {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;

if ( $Apache::inputtags::part ne '' ) {	# meta is called from lonpublisher, which doesn't uses the normal
	# lonhomework method of parsing the file which means that inputtags
	# won't get reset
	if ( $Apache::inputtags::part ne '' && $target != 'meta' ) {
&Apache::lonxml::error('Only one problem allowed in a .problem file');	&Apache::lonxml::error('Only one problem allowed in a .problem file');
my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[-1]);	my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[-1]);
return '';	return '';