loncom/interface/lonsyllabus.pm - diff

Return to lonsyllabus.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.109, 2010/04/14 14:15:15	version 1.110, 2010/08/07 19:23:51
Line 386 ENDSCRIPT	Line 386 ENDSCRIPT
$r->print('<form method="post" action="">'.	$r->print('<form method="post" action="">'.
'<input type="hidden" name="forceedit" value="edit" />');	'<input type="hidden" name="forceedit" value="edit" />');
}	}
my @htmlids=();
my $url_include_handler = sub {	my $url_include_handler = sub {
my ($r, $field, $message, $group, $data_ref, $fields_ref, $target, $allowed) = @_;	my ($r, $field, $message, $group, $data_ref, $fields_ref, $target, $allowed) = @_;
my %data = %{$data_ref};	my %data = %{$data_ref};
Line 428 ENDSCRIPT	Line 427 ENDSCRIPT
}	}
};	};
my %custom_hash = ( 'lll_includeurl' => $url_include_handler );	my %custom_hash = ( 'lll_includeurl' => $url_include_handler );
@htmlids = &Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields,	&Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields,
$target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_hash);	$target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_hash);
if ($allowed) {	if ($allowed) {
$r->print('</form>'.	$r->print('</form>'.
&Apache::lonhtmlcommon::htmlareaselectactive(@htmlids));	&Apache::lonhtmlcommon::htmlareaselectactive());
}	}
} else {	} else {
if ($target ne 'tex') {$r->print('<p>');} else {$r->print('\par ');}	if ($target ne 'tex') {$r->print('<p>');} else {$r->print('\par ');}