--- loncom/interface/lonsyllabus.pm 2010/04/14 14:15:15 1.109 +++ loncom/interface/lonsyllabus.pm 2011/06/16 10:00:57 1.111 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.109 2010/04/14 14:15:15 bisitz Exp $ +# $Id: lonsyllabus.pm,v 1.111 2011/06/16 10:00:57 christianto Exp $ # # Copyright Michigan State University Board of Trustees # @@ -333,22 +333,24 @@ ENDSCRIPT } else { $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); } + my @coursepersonlist; foreach (split(/\,/,$coursepersonnel{$element})) { my ($puname,$pudom)=split(/\:/,$_); if ($target ne 'tex') { 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); + push(@coursepersonlist,$courseperson); } else { - $r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson, + push(@coursepersonlist,&Apache::loncommon::aboutmewrapper($courseperson, $puname,$pudom)); } } else { - $r->print(' '.&Apache::loncommon::plainname($puname, + push(@coursepersonlist,&Apache::loncommon::plainname($puname, $pudom).' '); } } + $r->print(join(", ",@coursepersonlist)); if ($target ne 'tex') { my $lastclose=$element eq $lastpers?1:0; $r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); @@ -386,7 +388,6 @@ ENDSCRIPT $r->print('
'. ''); } - my @htmlids=(); my $url_include_handler = sub { my ($r, $field, $message, $group, $data_ref, $fields_ref, $target, $allowed) = @_; my %data = %{$data_ref}; @@ -428,11 +429,11 @@ ENDSCRIPT } }; my %custom_hash = ( 'lll_includeurl' => $url_include_handler ); - @htmlids = &Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields, + &Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields, $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_hash); if ($allowed) { $r->print('
'. - &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids)); + &Apache::lonhtmlcommon::htmlareaselectactive()); } } else { if ($target ne 'tex') {$r->print('

');} else {$r->print('\par ');}