![]() ![]() | ![]() |
version 1.336, 2006/02/16 02:03:25 | version 1.338, 2006/03/02 22:04:04 |
---|---|
Line 36 use Apache::File(); | Line 36 use Apache::File(); |
use Apache::lonmenu; | use Apache::lonmenu; |
use Apache::lonlocal; | use Apache::lonlocal; |
use Apache::lonxml; | use Apache::lonxml; |
use Apache::lonenc(); | |
use Time::HiRes qw( gettimeofday tv_interval ); | use Time::HiRes qw( gettimeofday tv_interval ); |
BEGIN { | BEGIN { |
&Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startouttext','endouttext','simpleeditbutton','definetag')); | &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startouttext','endouttext','simpleeditbutton','definetag')); |
Line 156 sub page_start { | Line 157 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_encrypt($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(); |