[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[sakharuk]

sakharuk		Tue Jun 24 16:21:05 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Switch to skip students names for anonimous exams and quizes is implemented. Hook toput something reasonableis there.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.195 loncom/interface/lonprintout.pm:1.196
--- loncom/interface/lonprintout.pm:1.195	Tue Jun 24 10:56:16 2003
+++ loncom/interface/lonprintout.pm	Tue Jun 24 16:21:05 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.195 2003/06/24 14:56:16 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.196 2003/06/24 20:21:05 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -657,6 +657,8 @@
 #	    my ($usersection,$username,$userdomain) = split /:/,$person;
 	    my ($username,$userdomain) = split /:/,$person;
 	    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   
 	    foreach my $curresline (@master_seq)  {
 		if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) {