Return to structuretags.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.337, 2006/03/02 21:20:30 | 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 157 sub page_start { | Line 158 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 = &Apache::lonenc::check_encrypted($env{'request.uri'}); | my $uri = &Apache::lonenc::check_encrypt($env{'request.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(); |