version 1.196, 2003/06/24 20:21:05
|
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, |
Line 658 ENDPART
|
Line 658 ENDPART
|
my ($username,$userdomain) = split /:/,$person; |
my ($username,$userdomain) = split /:/,$person; |
my $fullname = &get_name($username,$userdomain); |
my $fullname = &get_name($username,$userdomain); |
|
|
if ($parmhash{'anonimous_quiz'}=~/yes/) {$fullname=' ';} #put here something reasonable for annonimous exams or quiz |
if ($parmhash{'anonymous_quiz'}=~/yes/) {$fullname=' ';} #put here something reasonable for anonymous exams or quiz |
#goes through all resources, checks if they are available for current student, and produces output |
#goes through all resources, checks if they are available for current student, and produces output |
foreach my $curresline (@master_seq) { |
foreach my $curresline (@master_seq) { |
if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { |