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

Diff for /loncom/homework/structuretags.pm between versions 1.575 and 1.580

version 1.575, 2023/06/02 01:20:27 version 1.580, 2023/11/17 17:02:21
Line 343  var keypresshandled = 0; Line 343  var keypresshandled = 0;
 var postsubmit = '$postsubmit';  var postsubmit = '$postsubmit';
   
 \$(document).ready(function(){  \$(document).ready(function(){
   if (postsubmit != 'off') {        if (postsubmit != 'off') {
     \$(document).keypress(function(event){      \$(document).keypress(function(event){
         var keycode = (event.keyCode ? event.keyCode : event.which);          var keycode = (event.keyCode ? event.keyCode : event.which);
         if ((keycode == '13') && (keypresshandled == 0)) {          if ((keycode == '13') && (keypresshandled == 0)) {
Line 445  sub page_start { Line 445  sub page_start {
     if (&Apache::lonhtmlcommon::htmlareabrowser()) {      if (&Apache::lonhtmlcommon::htmlareabrowser()) {
         my %textarea_args;          my %textarea_args;
         if (($env{'request.state'} ne 'construct') ||          if (($env{'request.state'} ne 'construct') ||
             ($env{'environment.nocodemirror'})) {              (&Apache::loncommon::nocodemirror())) {
             %textarea_args = (              %textarea_args = (
                                 dragmath => 'math',                                  dragmath => 'math',
                               );                                );
Line 554  sub page_start { Line 554  sub page_start {
      && $env{'request.state'} eq 'construct') {       && $env{'request.state'} eq 'construct') {
  if ($target eq 'web' || $target eq 'edit') {   if ($target eq 'web' || $target eq 'edit') {
             unless ($env{'form.inhibitmenu'} eq 'yes') {              unless ($env{'form.inhibitmenu'} eq 'yes') {
                   my $text = 'Authoring Space';
                   my $href = &Apache::loncommon::authorspace($env{'request.uri'});
                   if ($env{'request.course.id'}) {
                       my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                       my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                       if ($href eq "/priv/$cdom/$cnum/") {
                           $text = &mt('Course Authoring Space');
                       }
                   }
                 # Breadcrumbs for Authoring Space                  # Breadcrumbs for Authoring Space
                 &Apache::lonhtmlcommon::clear_breadcrumbs();                  &Apache::lonhtmlcommon::clear_breadcrumbs();
                 &Apache::lonhtmlcommon::add_breadcrumb({                  &Apache::lonhtmlcommon::add_breadcrumb({
                     'text'  => 'Authoring Space',                      'text'  => $text,
                     'href'  => &Apache::loncommon::authorspace($env{'request.uri'}),                      'href'  => $href,
                 });                  });
                 # breadcrumbs (and tools) will be created                   # breadcrumbs (and tools) will be created 
                 # in start_page->bodytag->innerregister                  # in start_page->bodytag->innerregister
Line 722  sub setup_rndseed { Line 731  sub setup_rndseed {
                 $env{'form.rndseed'}=$rndseed;                  $env{'form.rndseed'}=$rndseed;
             }              }
  }   }
         if ((($env{'request.state'} eq "construct") || ($symb eq '')) &&           if ((($env{'request.state'} eq "construct") || ($symb eq '')) &&
             ($Apache::lonhomework::type eq 'randomizetry')) {              ($Apache::lonhomework::type eq 'randomizetry')) {
             if ($numtries) {              if ($numtries) {
                 if (($reqtries =~ /^\d+$/) && ($reqtries > 1)) {                  if (($reqtries =~ /^\d+$/) && ($reqtries > 1)) {
Line 826  sub problem_edit_action_button { Line 835  sub problem_edit_action_button {
   
 sub problem_edit_buttons {  sub problem_edit_buttons {
    my ($mode)=@_;     my ($mode)=@_;
      my %editors = &Apache::loncommon::permitted_editors();
 # Buttons that save  # Buttons that save
    my $result = '<div style="float:right">';     my $result = '<div style="float:right">';
    if ($mode eq 'editxml') {     if ($mode eq 'editxml') {
        $result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');         if ($editors{'xml'}) {
              $result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');
          }
        $result.=&problem_edit_action_button('subsaveview','saveviewxml','v','Save and View');         $result.=&problem_edit_action_button('subsaveview','saveviewxml','v','Save and View');
    } else {     } else {
        $result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');         if ($editors{'edit'}) {
              $result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');
          }
        $result.=&problem_edit_action_button('subsaveview','saveview','v','Save and View');         $result.=&problem_edit_action_button('subsaveview','saveview','v','Save and View');
    }     }
    $result.="\n</div>\n";     $result.="\n</div>\n";
Line 840  sub problem_edit_buttons { Line 854  sub problem_edit_buttons {
    $result .= '<div>'.     $result .= '<div>'.
               &problem_edit_action_button('subdiscview','discard','d','Discard Edits and View',1);                &problem_edit_action_button('subdiscview','discard','d','Discard Edits and View',1);
    if ($mode eq 'editxml') {     if ($mode eq 'editxml') {
        $result.=&problem_edit_action_button('subedit','edit','e','Edit',1);         if ($editors{'edit'}) {
              $result.=&problem_edit_action_button('subedit','edit','e','Edit',1);
          }
        $result.=&problem_edit_action_button('subundo','undoxml','u','Undo',1);         $result.=&problem_edit_action_button('subundo','undoxml','u','Undo',1);
        if ($env{'environment.nocodemirror'}) {         if (&Apache::loncommon::nocodemirror()) {
            $result.=&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);             $result.=&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);
        }         }
    } else {     } else {
        $result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);         if ($editors{'xml'}) {
              $result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);
          }
        $result.=&problem_edit_action_button('subundo','undo','u','Undo',1);         $result.=&problem_edit_action_button('subundo','undo','u','Undo',1);
    }     }
    $result.="\n</div>";     $result.="\n</div>";
Line 918  sub option { Line 936  sub option {
   
 sub problem_web_to_edit_header {  sub problem_web_to_edit_header {
     my ($rndseed)=@_;      my ($rndseed)=@_;
       my %editors = &Apache::loncommon::permitted_editors();
     my $result .= '<div class="LC_edit_problem_header">';      my $result .= '<div class="LC_edit_problem_header">';
   
     if (!$Apache::lonhomework::parsing_a_task) {      if (!$Apache::lonhomework::parsing_a_task) {
Line 1047  $show_all Line 1066  $show_all
    <hr />     <hr />
    <div>';     <div>';
     $result.='<input type="hidden" name="problemmode" value="view" />';      $result.='<input type="hidden" name="problemmode" value="view" />';
     $result .= '<input type="button" name="submitmode" accesskey="e" value="'.&mt('Edit').'" '.      if ($editors{'edit'}) {
                'onclick="javascript:setmode(this.form,'."'edit'".')" />';          $result .= '<input type="button" name="submitmode" accesskey="e" value="'.&mt('Edit').'" '.
     $result .= '<input type="button" name="submitmode" accesskey="x" value="'.&mt('EditXML').'" '.                     'onclick="javascript:setmode(this.form,'."'edit'".')" />';
                'onclick="javascript:setmode(this.form,'."'editxml'".')" />';      }
     if ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9) {      if ($editors{'xml'}) {
           $result .= '<input type="button" name="submitmode" accesskey="x" value="'.&mt('EditXML').'" '.
                      'onclick="javascript:setmode(this.form,'."'editxml'".')" />';
       }
       if (($editors{'daxe'}) &&
           ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9)) {
         my $uri = $env{'request.uri'};          my $uri = $env{'request.uri'};
         my $daxeurl = '/daxepage'.$uri;          my $daxeurl = '/daxepage'.$uri;
         $result .= '<input type="button" value="'.&mt('Edit with Daxe').'" '.          $result .= '<input type="button" value="'.&mt('Edit with Daxe').'" '.
Line 1092  sub initialize_storage { Line 1116  sub initialize_storage {
  }   }
  %Apache::lonhomework::history=   %Apache::lonhomework::history=
     &Apache::lonnet::tmprestore($namespace,'',$domain,$name);      &Apache::lonnet::tmprestore($namespace,'',$domain,$name);
  my ($temp)=keys(%Apache::lonhomework::history) ;   my ($temp)=keys(%Apache::lonhomework::history);
  &Apache::lonxml::debug("Return message of $temp");   &Apache::lonxml::debug("Return message of $temp");
     } else {      } else {
  %Apache::lonhomework::history=   %Apache::lonhomework::history=
Line 1115  sub initialize_storage { Line 1139  sub initialize_storage {
         &check_correctness_changes() is called in two circumstances          &check_correctness_changes() is called in two circumstances
         in which the results hash is to be stored permanently, for          in which the results hash is to be stored permanently, for
         grading triggered by a student's submission, where feedback on          grading triggered by a student's submission, where feedback on
         correctness is to be provided to the student.           correctness is to be provided to the student.
   
         1. Immediately prior to storing the results hash          1. Immediately prior to storing the results hash
   
         To handle the case where a student's submission (and award) were           To handle the case where a student's submission (and award) were
         stored after history was retrieved in &initialize_storage(), e.g.,          stored after history was retrieved in &initialize_storage(), e.g.,
         if a student submitted answers in quick succession (e.g., from           if a student submitted answers in quick succession (e.g., from
         multiple tabs).  &Apache::inputtags::hidealldata() is called for          multiple tabs).  &Apache::inputtags::hidealldata() is called for
         any parts with out-of-order storage (i.e., correct then incorrect,          any parts with out-of-order storage (i.e., correct then incorrect,
         where awarded >= 1 when correct).          where awarded >= 1 when correct).
Line 1131  sub initialize_storage { Line 1155  sub initialize_storage {
         To handle the case where lond on the student's homeserver returns          To handle the case where lond on the student's homeserver returns
         delay:N -- where N is the number of transactions between the last          delay:N -- where N is the number of transactions between the last
         retrieved in &initialize_storage() and the last stored immediately          retrieved in &initialize_storage() and the last stored immediately
         before permanent storage of the current transaction via           before permanent storage of the current transaction via
         lond::store_handler().  &Apache::grades::makehidden() is called            lond::store_handler().  &Apache::grades::makehidden() is called
         for any parts with out-of-order storage (i.e., correct then incorrect,          for any parts with out-of-order storage (i.e., correct then incorrect,
         where awarded >= 1 when correct).          where awarded >= 1 when correct).
   
  Will call &store_aggregates() to increment totals for attempts,    Will call &store_aggregates() to increment totals for attempts,
         students, and corrects, if running user has student role.          students, and corrects, if running user has student role.
   
 =cut  =cut
Line 1169  sub finalize_storage { Line 1193  sub finalize_storage {
                     my ($map)=&Apache::lonnet::decode_symb($symb);                      my ($map)=&Apache::lonnet::decode_symb($symb);
                     $map = &Apache::lonnet::clutter($map);                      $map = &Apache::lonnet::clutter($map);
                     if ($env{'request.lti.login'}) {                      if ($env{'request.lti.login'}) {
                         ($passback,$pbscope,$pbmap,$pbsymb,$ltinum,$ltiref) =                           ($passback,$pbscope,$pbmap,$pbsymb,$ltinum,$ltiref) =
                             &needs_lti_passback($courseid,$symb,$map);                              &needs_lti_passback($courseid,$symb,$map);
                     } elsif ($env{'request.deeplink.login'}) {                      } elsif ($env{'request.deeplink.login'}) {
                         ($passback,$pbscope,$pbmap,$pbsymb,$crsdef,$ltinum,$ltiref) =                          ($passback,$pbscope,$pbmap,$pbsymb,$crsdef,$ltinum,$ltiref) =
Line 1450  sub needs_linkprot_passback { Line 1474  sub needs_linkprot_passback {
 =item check_correctness_changes()  =item check_correctness_changes()
   
         For all parts for which current results contain a solved status          For all parts for which current results contain a solved status
         of "incorrect_attempted", check if there was a transaction in which            of "incorrect_attempted", check if there was a transaction in which
         solved was set to "correct_by_student" in the time since the last           solved was set to "correct_by_student" in the time since the last
         transaction (retrieved when &initialize_storage() was called i.e.,           transaction (retrieved when &initialize_storage() was called i.e.,
         when &start_problem() was called), unless:          when &start_problem() was called), unless:
         (a) questiontype parameter is set to survey or anonymous survey (+/- credit)          (a) questiontype parameter is set to survey or anonymous survey (+/- credit)
         (b) problemstatus is set to no or no_feedback_ever          (b) problemstatus is set to no or no_feedback_ever
         If such a transaction exists, and did not occur after "reset status"           If such a transaction exists, and did not occur after "reset status"
         by a user with grading privileges, then the current transaction is an          by a user with grading privileges, then the current transaction is an
         example of an out-of-order transaction (i.e., incorrect occurring after          example of an out-of-order transaction (i.e., incorrect occurring after
         correct).  Accordingly, the current transaction should be hidden.          correct).  Accordingly, the current transaction should be hidden.
Line 2364  ENDJS Line 2388  ENDJS
     # computation:      # computation:
     #      #
     if ($target eq 'web') {      if ($target eq 'web') {
         $result .= &Apache::lonhtmlcommon::set_compute_end_time();          $result .= &Apache::lonhtmlcommon::dash_to_minus_js().
                      &Apache::lonhtmlcommon::set_compute_end_time();
         #          #
         # Closing tags delayed so any <script></script> tags           # Closing tags delayed so any <script></script> tags 
         # not in head can appear inside body, for valid xhtml.          # not in head can appear inside body, for valid xhtml.
Line 3365  sub end_startouttext { Line 3390  sub end_startouttext {
                  .&Apache::edit::deletelist($target,$token)                   .&Apache::edit::deletelist($target,$token)
                  .'</span></td>'                   .'</span></td>'
          .'<td><span id="math_'.$areaid.'">';           .'<td><span id="math_'.$areaid.'">';
  if ($env{'environment.nocodemirror'}) {   if (&Apache::loncommon::nocodemirror()) {
     $result.=&Apache::lonhtmlcommon::dragmath_button($areaid,1);      $result.=&Apache::lonhtmlcommon::dragmath_button($areaid,1);
  } else {   } else {
     $result.='&nbsp;';      $result.='&nbsp;';
Removed from v.1.575  
changed lines
  Added in v.1.580

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