loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.197, 2003/06/24 20:54:06	version 1.198, 2003/06/25 18:34:14
Line 602 ENDPART	Line 602 ENDPART
$selectionmade = 4;	$selectionmade = 4;
}	}
$form{'symb'}=$master_seq[$i];	$form{'symb'}=$master_seq[$i];
$master_seq[$i]=~/\/([^\/]+)\.sequence_/;	$master_seq[$i]=~/(.)___\d___/;
my $assignment=' '.$1.' ';	my $assignment=&Apache::lonnet::gettitle($1); #tittle of the assignment which contains this problem
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");	#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
if ($urlp=~/\.page$/) {	if ($urlp=~/\.page$/) {
Line 625 ENDPART	Line 625 ENDPART
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;	$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
}	}
# $result .= $texversion;	# $result .= $texversion;
if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>1)) {	if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) {
my $name = &get_name();	my $name = &get_name();
if ($name =~ /^\s*$/) {	if ($name =~ /^\s*$/) {
$name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef,	$name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef,