loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.114 and 1.117

version 1.114, 2002/09/16 20:40:38	version 1.117, 2002/09/23 21:08:03
Line 161 sub problem_web_to_edit_header {	Line 161 sub problem_web_to_edit_header {
<input type="submit" name="resetdata" value="Reset Submissions" />	<input type="submit" name="resetdata" value="Reset Submissions" />
<input type="checkbox" name="showallfoils" ';	<input type="checkbox" name="showallfoils" ';
if (defined($ENV{'form.showallfoils'})) { $result.='checked="on"'; }	if (defined($ENV{'form.showallfoils'})) { $result.='checked="on"'; }
$result.= ' /> Show All Foils	$result.= ' /> Show All Foils
<hr />';	<hr />';
}	}

Line 297 sub start_problem {	Line 297 sub start_problem {
$msg.=&checkout_msg;	$msg.=&checkout_msg;
}	}
$result.=$msg.'<br />';	$result.=$msg.'<br />';
}	} elsif ($target eq 'tex') {
	$result.="\\begin{document}\\noindent \\vskip 1 mm \\begin{minipage}{\\textwidth}\\vskip 0 mm Problem is not open to be viewed. It $accessmsg \\vskip 0 mm ";
	}
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
my $name= &get_resource_name($parstack,$safeeval);	my $name= &get_resource_name($parstack,$safeeval);
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER') {
Line 345 sub start_problem {	Line 347 sub start_problem {
print $temp_file "$duedate\n";	print $temp_file "$duedate\n";
if (not $ENV{'request.symb'} =~ m/\.page_/) {	if (not $ENV{'request.symb'} =~ m/\.page_/) {
if(not $duedate=~m/1969/) {	if(not $duedate=~m/1969/) {
$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm';	$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm \begin{minipage}{\textwidth}';
} else {	} else {
$result .= '\begin{document} \noindent \vskip 1 mm';	$result .= '\begin{document} \noindent \vskip 1 mm \begin{minipage}{\textwidth}';
}	}
} else {	} else {
$result .= '\parbox{\minipagewidth}{\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';	$result .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
}	}
} else {	} else {
if (not $ENV{'request.symb'} =~ m/\.page_/) {	if (not $ENV{'request.symb'} =~ m/\.page_/) {
$result .= '\begin{document} \noindent \vskip 1 mm';	$result .= '\begin{document} \noindent \vskip 1 mm\begin{minipage}{\textwidth}';
} else {	} else {
$result .= '\parbox{\minipagewidth}{\vskip 1mm \\\\\\\\';	$result .= '\vskip 1mm \\\\\\\\';
}	}
}	}
}	}
Line 411 sub end_problem {	Line 413 sub end_problem {
} else {	} else {
$result .= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';	$result .= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
if (not $ENV{'request.symb'} =~ m/\.page_/) {	if (not $ENV{'request.symb'} =~ m/\.page_/) {
$result .= '\end{document} ';	$result .= '\end{minipage}\end{document} ';
} else {	} else {
$result .= '} ';	$result .= '';
}	}
}	}
}	}
Line 750 sub end_startouttext {	Line 752 sub end_startouttext {
<td>".	<td>".
&Apache::edit::insertlist($target,$token).	&Apache::edit::insertlist($target,$token).
&Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n".	&Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n".
&Apache::edit::editfield($token->[1],$text,"",50,4);	&Apache::edit::editfield($token->[1],$text,"",80,4);
}	}
if ($target eq 'modified') {	if ($target eq 'modified') {
$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);	$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.114
changed lines
	Added in v.1.117