version 1.109, 2010/04/14 14:15:15
|
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 386 ENDSCRIPT
|
Line 388 ENDSCRIPT
|
$r->print('<form method="post" action="">'. |
$r->print('<form method="post" action="">'. |
'<input type="hidden" name="forceedit" value="edit" />'); |
'<input type="hidden" name="forceedit" value="edit" />'); |
} |
} |
my @htmlids=(); |
|
my $url_include_handler = sub { |
my $url_include_handler = sub { |
my ($r, $field, $message, $group, $data_ref, $fields_ref, $target, $allowed) = @_; |
my ($r, $field, $message, $group, $data_ref, $fields_ref, $target, $allowed) = @_; |
my %data = %{$data_ref}; |
my %data = %{$data_ref}; |
Line 428 ENDSCRIPT
|
Line 429 ENDSCRIPT
|
} |
} |
}; |
}; |
my %custom_hash = ( 'lll_includeurl' => $url_include_handler ); |
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); |
$target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_hash); |
if ($allowed) { |
if ($allowed) { |
$r->print('</form>'. |
$r->print('</form>'. |
&Apache::lonhtmlcommon::htmlareaselectactive(@htmlids)); |
&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>');} |
} |
} |