version 1.195, 2003/06/24 14:56:16
|
version 1.197, 2003/06/24 20:54:06
|
Line 657 ENDPART
|
Line 657 ENDPART
|
# my ($usersection,$username,$userdomain) = split /:/,$person; |
# my ($usersection,$username,$userdomain) = split /:/,$person; |
my ($username,$userdomain) = split /:/,$person; |
my ($username,$userdomain) = split /:/,$person; |
my $fullname = &get_name($username,$userdomain); |
my $fullname = &get_name($username,$userdomain); |
|
|
|
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)$/) { |