version 1.35, 2004/06/11 15:41:36
|
version 1.36, 2004/06/11 16:28:14
|
Line 124 ENDDOCUMENT
|
Line 124 ENDDOCUMENT
|
} else { |
} else { |
$r->print('\begin{tabular}{|c|c|}\hline'); |
$r->print('\begin{tabular}{|c|c|}\hline'); |
} |
} |
foreach (sort keys %coursepersonnel) { |
foreach my $element (sort keys %coursepersonnel) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<tr><td>'.$_.'</td><td>'); |
$r->print('<tr><td>'.$element.'</td><td>'); |
} else { |
} else { |
$r->print(' '.$_.'\\\\ '); |
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
} |
} |
foreach (split(/\,/,$coursepersonnel{$_})) { |
foreach (split(/\,/,$coursepersonnel{$element})) { |
my ($puname,$pudom)=split(/\:/,$_); |
my ($puname,$pudom)=split(/\:/,$_); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(' '.&Apache::loncommon::aboutmewrapper( |
$r->print(' '.&Apache::loncommon::aboutmewrapper( |
Line 310 ENDDOCUMENT
|
Line 310 ENDDOCUMENT
|
} |
} |
if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');} |
if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');} |
} else { |
} else { |
$r->print('<p>No syllabus information provided.</p>'); |
if ($target ne 'tex') {$r->print('<p>');} else {$r->print('\par ');} |
|
$r->print('No syllabus information provided.'); |
|
if ($target ne 'tex') {$r->print('</p>');} |
} |
} |
if ($target ne 'tex') {$r->print('</body></html>');} else {$r->print('\end{document}');} |
if ($target ne 'tex') {$r->print('</body></html>');} else {$r->print('\end{document}');} |
return OK; |
return OK; |