loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.190, 2003/06/25 16:47:47	version 1.191, 2003/06/30 20:21:43
Line 405 sub start_problem {	Line 405 sub start_problem {
"<title>$name</title></head>\n$body_tag_start\n";	"<title>$name</title></head>\n$body_tag_start\n";
}	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $startminipage = '';	my $startminipage = ' SSS '.$ENV{'form.problem_split'}.' FFF ';
if ($ENV{'form.problem_split'} ne 'yes') {	if (not $ENV{'form.problem_split'}=~/yes/) {
$startminipage = '\begin{minipage}{\textwidth}';	$startminipage .= '\begin{minipage}{\textwidth}';
}	}
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
if ($name eq '') {	if ($name eq '') {
Line 513 sub end_problem {	Line 513 sub end_problem {
$result.=&Apache::lonxml::xmlend();	$result.=&Apache::lonxml::xmlend();
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $endminipage = '';	my $endminipage = '';
if ($ENV{'form.problem_split'} ne 'yes') {	if (not $ENV{'form.problem_split'}=~/yes/) {
$endminipage = '\end{minipage}';	$endminipage = '\end{minipage}';
}	}
$result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';	$result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';