loncom/interface/lonsyllabus.pm - diff

Return to lonsyllabus.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;