loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsimplepage.pm between versions 1.45 and 1.46

version 1.45, 2006/07/20 03:11:52	version 1.46, 2006/07/20 15:03:01
Line 182 sub handler {	Line 182 sub handler {
}	}

if ($forcestudent or $target eq 'tex') { $allowed=0; }	if ($forcestudent or $target eq 'tex') { $allowed=0; }

if ($allowed) {	if ($allowed) {
$r->print('<p>'.	$r->print('<p>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'"><font size="+1">'.&mt('Show Student View').'</font></a>'.	&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'"><font size="+1">'.&mt('Show Student View').'</font></a>'.
Line 235 sub handler {	Line 235 sub handler {

# ---------------------------------------------------------------- Get syllabus	# ---------------------------------------------------------------- Get syllabus
if ((($syllabus{'uploaded.lastmodified'}) &&	if ((($syllabus{'uploaded.lastmodified'}) &&
(($group ne '' && ($group_home_view \|\| $group_edit_perm \|\|	(($group ne '' && ($group_home_view \|\| $group_edit_perm \|\|
$group_view_perm)) \|\| ($group eq ''))) \|\| ($allowed)) {	$group_view_perm)) \|\| ($group eq ''))) \|\| ($allowed)) {
if ($syllabus{'uploaded.photourl'}) {	if ($syllabus{'uploaded.photourl'}) {
&Apache::lonnet::allowuploaded('/adm/smppg',	&Apache::lonnet::allowuploaded('/adm/smppg',
$syllabus{'uploaded.photourl'});	$syllabus{'uploaded.photourl'});
Line 258 sub handler {	Line 258 sub handler {
'</form><form method="post">');	'</form><form method="post">');
}	}
foreach (sort keys %syllabusfields) {	foreach (sort keys %syllabusfields) {
if (($syllabus{$_}) \|\| ($allowed)) {	if (($syllabus{$_}) \|\| ($allowed) \|\|
	($_ eq 'abb_links' && $group ne '')) {
my $message=$syllabus{$_};	my $message=$syllabus{$_};
&Apache::lonfeedback::newline_to_br(\$message);	&Apache::lonfeedback::newline_to_br(\$message);
$message	$message

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

Removed from v.1.45
changed lines
	Added in v.1.46