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.59 and 1.63

version 1.59, 2007/05/02 01:33:49	version 1.63, 2008/01/16 17:13:57
Line 66 sub handler {	Line 66 sub handler {

# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen

my $rss_link =
&Apache::lonrss::rss_link('http://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss');

if ($target eq 'tex') {	if ($target eq 'tex') {
$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));	$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
}	}
Line 112 sub handler {	Line 109 sub handler {

# ----------------------------------------------------------------- Make header	# ----------------------------------------------------------------- Make header
if ($target ne 'tex') {	if ($target ne 'tex') {
	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 137 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).' & ');
}	}
Line 159 sub handler {	Line 158 sub handler {
}	}
}	}
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 190 sub handler {	Line 189 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 261 sub handler {	Line 260 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 324 sub handler {	Line 327 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 335 sub handler {	Line 338 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.59
changed lines
	Added in v.1.63