[BACK]Return to structuretags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.326 and 1.331

version 1.326, 2005/12/01 18:46:31 version 1.331, 2006/01/18 20:16:43
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();     
    if ($target eq 'edit') {
       $head_tag_start.=&Apache::edit::js_change_detection();
    }
     }      }
     my $body_tag_start;      my $body_tag_start;
     if (!defined($found{'body'}) && $env{'request.state'} eq 'construct') {      if (!defined($found{'body'}) && $env{'request.state'} eq 'construct') {
Line 150  sub page_start { Line 153  sub page_start {
  $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=$env{'request.uri'};
  if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }   if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
  $form_tag_start.=$uri.'">';   $form_tag_start.=$uri.'" ';
    if ($target eq 'edit') {
       $form_tag_start.=&Apache::edit::form_change_detection();
    }
    $form_tag_start.='>';
     }      }
     return ($result,$head_tag_start,$body_tag_start,$form_tag_start);      return ($result,$head_tag_start,$body_tag_start,$form_tag_start);
 }  }
Line 225  sub problem_edit_header { Line 232  sub problem_edit_header {
  &Apache::structuretags::remember_problem_state().'   &Apache::structuretags::remember_problem_state().'
        <input type="hidden" name="problemmode" value="'.&mt('Edit').'" />         <input type="hidden" name="problemmode" value="'.&mt('Edit').'" />
        <input type="submit" name="problemmode" accesskey="d" value="'.&mt('Discard Edits and View').'" />         <input type="submit" name="problemmode" accesskey="d" value="'.&mt('Discard Edits and View').'" />
        <input type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />         <input '.&Apache::edit::submit_ask_anyway().' type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />
        <input type="submit" name="Undo" accesskey="u" value="'.&mt('undo').'" /> <hr />         <input type="submit" name="Undo" accesskey="u" value="'.&mt('undo').'" /> <hr />
        <input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes and Edit').'" />         <input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes and Edit').'" />
        <input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /><table><tr><td>'.         <input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /><table><tr><td>'.
Line 712  sub end_problem { Line 719  sub end_problem {
   
     if (!$Apache::lonxml::metamode) {      if (!$Apache::lonxml::metamode) {
  $result = &Apache::lonxml::endredirection(); #started in &start_problem   $result = &Apache::lonxml::endredirection(); #started in &start_problem
    $Apache::lonxml::post_evaluate=0;
     }      }
   
     if ($target eq 'tex') {      if ($target eq 'tex') {
Line 1158  sub start_randomlist { Line 1166  sub start_randomlist {
     my $result;      my $result;
     if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||      if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||
  $target eq 'tex' || $target eq 'analyze') {   $target eq 'tex' || $target eq 'analyze') {
  my $body= &Apache::lonxml::get_all_text("/randomlist",$parser,$style);   my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
  my $b_parser= HTML::LCParser->new(\$body);   my $b_parser= HTML::LCParser->new(\$body);
  $b_parser->xml_mode(1);   $b_parser->xml_mode(1);
  $b_parser->marked_sections(1);   $b_parser->marked_sections(1);
Line 1364  sub end_part { Line 1372  sub end_part {
     my $result;      my $result;
     if (!$Apache::lonxml::metamode) {      if (!$Apache::lonxml::metamode) {
  $result = &Apache::lonxml::endredirection(); # started in &start_part   $result = &Apache::lonxml::endredirection(); # started in &start_part
    $Apache::lonxml::post_evaluate=0;
     }      }
     if ($target eq 'grade') {      if ($target eq 'grade') {
  if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&   if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
Line 1577  sub start_simpleeditbutton { Line 1586  sub start_simpleeditbutton {
     my $result='';      my $result='';
     if (($env{'form.simple_edit_button'} ne 'off') &&      if (($env{'form.simple_edit_button'} ne 'off') &&
  ($target eq 'web') &&   ($target eq 'web') &&
         (&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {          (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
         my $url=$env{'request.noversionuri'};          my $url=$env{'request.noversionuri'};
         $url=~s/\?.*$//;          $url=~s/\?.*$//;
  my ($symb) = &Apache::lonxml::whichuser();   my ($symb) = &Apache::lonxml::whichuser();
Removed from v.1.326  
changed lines
  Added in v.1.331

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>