[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).' ');