loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.334, 2006/02/11 00:03:07	version 1.337, 2006/03/02 21:20:30
Line 113 sub page_start {	Line 113 sub page_start {
&Apache::lonhtmlcommon::htmlareaheaders().	&Apache::lonhtmlcommon::htmlareaheaders().
&Apache::lonhtmlcommon::spellheader().	&Apache::lonhtmlcommon::spellheader().
&Apache::lonxml::fontsettings();	&Apache::lonxml::fontsettings();
	my $css_href = &Apache::lonnet::EXT('resource.0.cssfile');
	if ($css_href =~ /\S/) {
	&Apache::lonxml::extlink($css_href);
	$head_tag_start =
	'<link rel="stylesheet" type="text/css" href="'.$css_href.'" />';
	}
if ($target eq 'edit') {	if ($target eq 'edit') {
$head_tag_start.=&Apache::edit::js_change_detection();	$head_tag_start.=&Apache::edit::js_change_detection();
}	}
Line 150 sub page_start {	Line 156 sub page_start {
}	}
my $form_tag_start;	my $form_tag_start;
if (!defined($found{'form'})) {	if (!defined($found{'form'})) {
$form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="POST" action="';	$form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="post" action="';
my $uri=$env{'request.uri'};	my $uri = &Apache::lonenc::check_encrypted($env{'request.uri'});
if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
$form_tag_start.=$uri.'" ';	$form_tag_start.=$uri.'" ';
if ($target eq 'edit') {	if ($target eq 'edit') {
$form_tag_start.=&Apache::edit::form_change_detection();	$form_tag_start.=&Apache::edit::form_change_detection();