rat/lonftest.pm - diff

Return to lonftest.pm CVS log

Up to [LON-CAPA] / rat

version 1.2, 2000/10/03 19:05:17	version 1.4, 2000/11/14 18:39:34
Line 53 ENDSTART	Line 53 ENDSTART
$r->print(<<ENDFORM);	$r->print(<<ENDFORM);
<h2>Form</h2>	<h2>Form</h2>
<form action="$thisurl" method="post">	<form action="$thisurl" method="post">
<input name="$ENV{'form.request.prefix'}store" type=hidden value='yes'>	<input name="store" type=hidden value='yes'>
<input name="$ENV{'form.request.prefix'}top" type=text size=20>	<input name="top" type=text size=20>
<input name="$ENV{'form.request.prefix'}bottom" type=text size=20>	<input name="bottom" type=text size=20>
<input name="$ENV{'form.request.prefix'}submit" type=submit value="Yeah!">	<input name="submit" type=submit value="Yeah!">
</form>	</form>
ENDFORM	ENDFORM

Line 67 ENDFORM	Line 67 ENDFORM
&Apache::lonnet::store('top' => $ENV{'form.top'},	&Apache::lonnet::store('top' => $ENV{'form.top'},
'bottom' => $ENV{'form.bottom'}));	'bottom' => $ENV{'form.bottom'}));
}	}
	$r->print("\n<br>".&Apache::lonnet::EXT('resource.fred'));
	$r->print("\n<br>".&Apache::lonnet::EXT('resource.deadline.type'));
$r->print('</body></html>');	$r->print('</body></html>');
return OK;	return OK;
}	}