loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.195, 2003/06/24 14:56:16	version 1.196, 2003/06/24 20:21:05
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{'anonimous_quiz'}=~/yes/) {$fullname=' ';} #put here something reasonable for annonimous 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)$/) {