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

Diff for /loncom/homework/structuretags.pm between versions 1.374 and 1.377

version 1.374, 2007/02/24 01:44:14 version 1.377, 2007/05/23 22:36:21
Line 344  Feedback Mode: Line 344  Feedback Mode:
      '.'.&Apache::loncommon::help_open_topic("Analyze_Problem",       '.'.&Apache::loncommon::help_open_topic("Analyze_Problem",
      '',undef,undef,300).       '',undef,undef,300).
      '<hr />';       '<hr />';
       } elsif ($Apache::lonhomework::parsing_a_task) {
    $result.="
   <nobr>
   Problem Status:
   <select name='problemstate'>
     <option value=''></option>
     ".&option('CLOSED'               ,'problemstate').&mt("Closed")."</option>
     ".&option('CAN_ANSWER'           ,'problemstate').&mt("Answerable")."</option>
     ".&option('WEB_GRADE'            ,'problemstate').&mt("Criteria Grading")."</option>
     ".&option('SHOW_ANSWER'          ,'problemstate').&mt("Show Feedback")."</option>
   </select>
   </nobr>
   <input type='submit' name='changeproblemmode' value='".&mt("Change")."' />
   <hr />";
     }      }
     return $result;      return $result;
 }  }
Line 739  sub start_problem { Line 753  sub start_problem {
     my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,      my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
        $style);         $style);
     if ($target eq 'web') {      if ($target eq 'web') {
  $result .= &Apache::bridgetask::proctor_validation_screen();   $result .= 
       &Apache::bridgetask::proctor_validation_screen($slot);
     } elsif ($target eq 'grade') {      } elsif ($target eq 'grade') {
  &Apache::bridgetask::proctor_check_auth($slot_name,$slot,   &Apache::bridgetask::proctor_check_auth($slot_name,$slot,
  'problem');   'problem');
Line 777  sub start_problem { Line 792  sub start_problem {
  $result.=$temp;   $result.=$temp;
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  $result=$token->[4];   $result=$token->[4];
  $result.=&Apache::edit::handle_insert();  
     } else {      } else {
  # page_start returned a starting result, delete it if we don't need it   # page_start returned a starting result, delete it if we don't need it
  $result = '';   $result = '';
Line 954  sub end_problem { Line 968  sub end_problem {
  $result .= &problem_edit_footer();   $result .= &problem_edit_footer();
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  $result .= $token->[2];   $result .= $token->[2];
  $result.=&Apache::edit::handle_insertafter($token->[1]);  
     }      }
   
     if ($env{'request.state'} eq 'construct' && $target eq 'web') {      if ($env{'request.state'} eq 'construct' && $target eq 'web') {
Line 983  sub start_library { Line 996  sub start_library {
  $result.=$temp;   $result.=$temp;
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  $result=$token->[4];   $result=$token->[4];
  $result.=&Apache::edit::handle_insert();  
     } elsif (($target eq 'web' || $target eq 'webgrade')      } elsif (($target eq 'web' || $target eq 'webgrade')
      && ($#$tagstack eq 0 && $$tagstack[0] eq 'library')       && ($#$tagstack eq 0 && $$tagstack[0] eq 'library')
      && $env{'request.state'} eq "construct" ) {       && $env{'request.state'} eq "construct" ) {
Line 1430  sub start_part { Line 1442  sub start_part {
     #limiting ids to only letters numbers, and space      #limiting ids to only letters numbers, and space
     $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;      $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;
     $result = &Apache::edit::rebuild_tag($token);      $result = &Apache::edit::rebuild_tag($token);
     $result.=&Apache::edit::handle_insert();  
  }   }
     }      }
     return $result;      return $result;
Line 1468  sub end_part { Line 1479  sub end_part {
  $result.=&Apache::edit::end_table();   $result.=&Apache::edit::end_table();
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  $result .= $token->[2];   $result .= $token->[2];
  $result.=&Apache::edit::handle_insertafter($token->[1]);  
     }      }
     pop @Apache::inputtags::status;      pop @Apache::inputtags::status;
     $Apache::inputtags::part='';      $Apache::inputtags::part='';
Line 1637  sub start_endouttext { Line 1647  sub start_endouttext {
     if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }      if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
     if ($target eq "modified") {      if ($target eq "modified") {
  $result='<endouttext />'.   $result='<endouttext />'.
     &Apache::edit::handle_insertafter('startouttext'); }      &Apache::edit::handle_insertafter('startouttext');
       }
     return $result;      return $result;
 }  }
   
Removed from v.1.374  
changed lines
  Added in v.1.377

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