version 1.110, 2010/08/07 19:23:51
|
version 1.111, 2011/06/16 10:00:57
|
Line 333 ENDSCRIPT
|
Line 333 ENDSCRIPT
|
} else { |
} else { |
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
} |
} |
|
my @coursepersonlist; |
foreach (split(/\,/,$coursepersonnel{$element})) { |
foreach (split(/\,/,$coursepersonnel{$element})) { |
my ($puname,$pudom)=split(/\:/,$_); |
my ($puname,$pudom)=split(/\:/,$_); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
my $courseperson = &Apache::loncommon::plainname($puname,$pudom); |
my $courseperson = &Apache::loncommon::plainname($puname,$pudom); |
if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') || |
if (($env{'user.name'} eq '') || ($env{'user.name'} eq 'public') || |
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
$r->print(' '.$courseperson); |
push(@coursepersonlist,$courseperson); |
} else { |
} else { |
$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson, |
push(@coursepersonlist,&Apache::loncommon::aboutmewrapper($courseperson, |
$puname,$pudom)); |
$puname,$pudom)); |
} |
} |
} else { |
} else { |
$r->print(' '.&Apache::loncommon::plainname($puname, |
push(@coursepersonlist,&Apache::loncommon::plainname($puname, |
$pudom).' '); |
$pudom).' '); |
} |
} |
} |
} |
|
$r->print(join(", ",@coursepersonlist)); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
my $lastclose=$element eq $lastpers?1:0; |
my $lastclose=$element eq $lastpers?1:0; |
$r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); |
$r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); |