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.62 and 1.65

version 1.62, 2007/07/27 00:24:50	version 1.65, 2008/07/15 19:50:39
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 $js;
	if ($env{'form.backto'} eq 'coursecatalog') {
	$js .= <<"ENDSCRIPT";

	<script type="text/javascript">
	function ToCatalog(caller) {
	numidx = getIndexByName('coursenum');
	if (numidx > -1) {
	if (caller != 'details') {
	document.backtocat.elements[numidx].value = '';
	}
	}
	document.backtocat.submit();
	}

	function getIndexByName(item) {
	for (var i=0;i<document.backtocat.elements.length;i++) {
	if (document.backtocat.elements[i].name == item) {
	return i;
	}
	}
	return -1;
	}

	</script>

	ENDSCRIPT
	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page("Syllabus", $rss_link,	&Apache::loncommon::start_page("Syllabus", $rss_link.$js,
{'function' => $forcestudent,	{'function' => $forcestudent,
'domain' => $cdom,	'domain' => $cdom,
'force_register' =>	'force_register' =>
$env{'form.register'},});	$env{'form.register'},});

$r->print($start_page.'<h1>'.$courseenv{'description'}.'</h1><h3>'.	$r->print($start_page);
	if ($env{'form.backto'} eq 'coursecatalog') {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToCatalog()",
	text=>"Course Catalog"});
	if ($env{'form.coursenum'} ne '') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToCatalog('details')",
	text=>"Course details"});
	}
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>$r->uri,
	text=>"Course syllabus"});
	$r->print(&Apache::lonhtmlcommon::breadcrumbs());
	}
	$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
&Apache::lonnet::domain($cdom,'description').'</h3>');	&Apache::lonnet::domain($cdom,'description').'</h3>');
} else {	} else {
$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.	$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.
Line 149 sub handler {	Line 193 sub handler {
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).' ');
Line 189 sub handler {	Line 238 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 327 sub handler {	Line 376 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 338 sub handler {	Line 387 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') {
	if ($env{'form.backto'} eq 'coursecatalog') {
	$r->print('<form name="backtocat" method="post" action="/adm/coursecatalog">'.
	&Apache::lonhtmlcommon::echo_form_input(['backto']).
	'</form>');
	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} else {	} else {
$r->print('\end{document}');	$r->print('\end{document}');

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

Removed from v.1.62
changed lines
	Added in v.1.65