loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.13, 2000/11/28 19:10:32	version 1.14, 2000/11/28 19:15:48
Line 34 sub start_problem {	Line 34 sub start_problem {
$args=$$parstack[$#$parstack];	$args=$$parstack[$#$parstack];
}	}
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);	my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
push (@Apache::inputtags::part,'0');	$Apache::inputtags::part='0';
# $safeeval->share_from('Apache::lonnet',['&EXT']);	my $expression='$external::part='.$Apache::inputtags::part.';';
$safeeval->share_from('Apache::inputtags',['@part']);	$safeeval->share_from('Apache::inputtags',['@part']);
	&Apache::run::run($expression)
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">";	return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">";
}	}

Line 152 sub start_part {	Line 153 sub start_part {
my $args ='';	my $args ='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);	my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
push (@Apache::inputtags::part,$id);	$Apache::inputtags::part=$id;
}	}

sub end_part {	sub end_part {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
pop @Apache::inputtags::part;	$Apache::inputtags::part='0';
}	}

1;	1;