loncom/interface/lonsyllabus.pm - diff

Return to lonsyllabus.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsyllabus.pm between versions 1.60 and 1.64

version 1.60, 2007/07/27 00:17:17	version 1.64, 2008/07/11 14:55:21
Line 110 sub handler {	Line 110 sub handler {
# ----------------------------------------------------------------- Make header	# ----------------------------------------------------------------- Make header
if ($target ne 'tex') {	if ($target ne 'tex') {
my $rss_link = &Apache::lonrss::rss_link($cnum,$cdom);	my $rss_link = &Apache::lonrss::rss_link($cnum,$cdom);

my $start_page =	my $start_page =
&Apache::loncommon::start_page("Syllabus", $rss_link,	&Apache::loncommon::start_page("Syllabus", $rss_link,
{'function' => $forcestudent,	{'function' => $forcestudent,
Line 136 sub handler {	Line 135 sub handler {
# -------------------------------------------------------- Get course personnel	# -------------------------------------------------------- Get course personnel
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);	my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<table border="2">');	$r->print(&Apache::loncommon::start_data_table());
} else {	} else {
$r->print('\begin{tabular}{\|p{0.45\textwidth}\|p{0.45\textwidth}\|}\hline');	$r->print('\begin{tabular}{\|p{0.45\textwidth}\|p{0.45\textwidth}\|}\hline');
}	}
foreach my $element (sort keys %coursepersonnel) {	foreach my $element (sort keys %coursepersonnel) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<tr><td>'.$element.'</td><td>');	$r->print(&Apache::loncommon::start_data_table_row().
	'<td>'.$element.'</td><td>');
} else {	} else {
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & ');	$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & ');
}	}
foreach (split(/\,/,$coursepersonnel{$element})) {	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(	my $courseperson = &Apache::loncommon::plainname($puname,$pudom);
&Apache::loncommon::plainname($puname,	if (($env{'user.name'} eq '') \|\| ($env{'user.name'} eq 'public') \|\|
$pudom),$puname,$pudom));	($env{'user.domain'} eq '') \|\| ($env{'user.domain'} eq 'public')) {
	$r->print(' '.$courseperson);
	} else {
	$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson),
	$puname,$pudom);
	}
} else {	} else {
$r->print(' '.&Apache::loncommon::plainname($puname,	$r->print(' '.&Apache::loncommon::plainname($puname,
$pudom).' ');	$pudom).' ');
}	}
}	}
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('</td></tr>');	$r->print('</td>'.&Apache::loncommon::end_data_table_row());
} else {	} else {
$r->print('\\\\ \hline');	$r->print('\\\\ \hline');
}	}
}	}
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('</table>');	$r->print(&Apache::loncommon::end_data_table());
} else {	} else {
$r->print('\end{tabular}\\\\');	$r->print('\end{tabular}\\\\');
}	}
Line 189 sub handler {	Line 194 sub handler {
}	}
if ($allowed) {	if ($allowed) {
$r->print('<p>'.	$r->print('<p>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p>'.&mt('This syllabus can be publicly viewed at')	&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'</p><p>'.&mt('This syllabus can be publicly viewed at')
.' <tt>http://'.	.' <tt>http://'.
&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>'.	&Apache::lonnet::hostname($homeserver).$r->uri.'</tt>'.
&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.	&Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.
Line 260 sub handler {	Line 265 sub handler {
$syllabus{'uploaded.domain'});	$syllabus{'uploaded.domain'});
if ($target ne 'tex') {	if ($target ne 'tex') {
$r->print('<table><tr><td>'.&mt('Last updated').':</td><td>'.	$r->print('<table><tr><td>'.&mt('Last updated').':</td><td>'.
$lastmod.'</td><td>'.&mt('by').' '.$who.	$lastmod.'</td><td>'.
	($who ? &mt('by').' '.$who
	: '' ).
'</td></tr></table><p>');	'</td></tr></table><p>');
} else {	} else {
$r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.&mt('by').'\\\\ '.	$r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.
&Apache::loncommon::plainname($syllabus{'uploaded.name'},	($who? &mt('by').'\\\\ '.
$syllabus{'uploaded.domain'}).'\\\\');	&Apache::loncommon::plainname($syllabus{'uploaded.name'},$syllabus{'uploaded.domain'})
	:'')
	.'\\\\');
}	}
if ($allowed) {	if ($allowed) {
$r->print('<form method="post">'.	$r->print('<form method="post">'.
Line 323 sub handler {	Line 332 sub handler {
if ($allowed) {	if ($allowed) {
$r->print('<br /><textarea cols="80" rows="12" name="'.$field.'" id="'.$field.'">'.	$r->print('<br /><textarea cols="80" rows="12" name="'.$field.'" id="'.$field.'">'.
&HTML::Entities::encode($syllabus{$field},'"&<>').	&HTML::Entities::encode($syllabus{$field},'"&<>').
'</textarea> <input type="submit" name="storesyl" value="Save" />');	'</textarea> <input type="submit" name="storesyl" value="'.&mt('Save').'" />');
}	}
}	}
}	}
Line 334 sub handler {	Line 343 sub handler {
if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');}	if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');}
} else {	} else {
if ($target ne 'tex') {$r->print('<p>');} else {$r->print('\par ');}	if ($target ne 'tex') {$r->print('<p>');} else {$r->print('\par ');}
$r->print('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>');}
}	}
if ($target ne 'tex') {	if ($target ne 'tex') {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.60
changed lines
	Added in v.1.64