version 1.110, 2010/08/07 19:23:51
|
version 1.112, 2012/10/04 13:41:10
|
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)); |
Line 434 ENDSCRIPT
|
Line 436 ENDSCRIPT
|
&Apache::lonhtmlcommon::htmlareaselectactive()); |
&Apache::lonhtmlcommon::htmlareaselectactive()); |
} |
} |
} else { |
} else { |
if ($target ne 'tex') {$r->print('<p>');} else {$r->print('\par ');} |
if ($target ne 'tex') {$r->print('<p class="LC_info">');} else {$r->print('\par ');} |
$r->print(&mt('No syllabus information provided.')); |
$r->print(&mt('No syllabus information provided.')); |
if ($target ne 'tex') {$r->print('</p>');} |
if ($target ne 'tex') {$r->print('</p>');} |
} |
} |