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

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Fri, 11 Jul 2008 14:55:22 -0000


raeburn		Fri Jul 11 10:55:22 2008 EDT

  Modified files:              
    /loncom/interface	lonsyllabus.pm 
  Log:
  - Don't include aboutmewrapper() for course personnel if syllabus is being viewed by a user who is not logged in.
  
  
Index: loncom/interface/lonsyllabus.pm
diff -u loncom/interface/lonsyllabus.pm:1.63 loncom/interface/lonsyllabus.pm:1.64
--- loncom/interface/lonsyllabus.pm:1.63	Wed Jan 16 12:13:57 2008
+++ loncom/interface/lonsyllabus.pm	Fri Jul 11 10:55:21 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.63 2008/01/16 17:13:57 bisitz Exp $
+# $Id: lonsyllabus.pm,v 1.64 2008/07/11 14:55:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -149,9 +149,14 @@
         foreach (split(/\,/,$coursepersonnel{$element})) {
 	    my ($puname,$pudom)=split(/\:/,$_);
 	    if ($target ne 'tex') {
-		$r->print(' '.&Apache::loncommon::aboutmewrapper(
-                              &Apache::loncommon::plainname($puname,
-                              $pudom),$puname,$pudom));
+                my $courseperson = &Apache::loncommon::plainname($puname,$pudom);
+                if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') ||
+                    ($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) {
+		    $r->print(' '.$courseperson);
+                } else {
+                    $r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson),
+                              $puname,$pudom);
+                }
 	    } else {
 		$r->print(' '.&Apache::loncommon::plainname($puname,
                               $pudom).' ');