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

Diff for /loncom/homework/structuretags.pm between versions 1.465.2.7 and 1.465.2.12

version 1.465.2.7, 2010/12/20 05:51:35 version 1.465.2.12, 2011/01/07 05:14:57
Line 128  sub homework_js { Line 128  sub homework_js {
            &setmode_javascript().             &setmode_javascript().
  <<'JS';   <<'JS';
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function setSubmittedPart (part) {  function setSubmittedPart (part) {
    this.document.lonhomework.submitted.value="part_"+part;     this.document.lonhomework.submitted.value="part_"+part;
 }  }
Line 143  function image_response_click (which, e) Line 144  function image_response_click (which, e)
     var y= e.clientY-getY(img_element)+Geometry.getVerticalScroll();      var y= e.clientY-getY(img_element)+Geometry.getVerticalScroll();
     var click = x+':'+y;      var click = x+':'+y;
     input_element.value = click;      input_element.value = click;
     img_element.src = '/adm/randomlabel.png?token='+token+'&clickdata='+click;      img_element.src = '/adm/randomlabel.png?token='+token+'&amp;clickdata='+click;
 }  }
   // ]]>
 </script>  </script>
 JS  JS
 }  }
Line 162  ENDSCRIPT Line 163  ENDSCRIPT
 }  }
   
 sub file_delchk_js {  sub file_delchk_js {
     my $delfilewarn = &mt('You have indicated you wish to delete some files previously included for submission.').'\\n'.      my $delfilewarn = &mt('You have indicated you wish to remove some files previously included in your submission.').'\\n'.
                           &mt('Deleted files will not be graded.').' '.                        &mt('Continue submission with these files removed?');
                           &mt('Submit Answer?');  
     return <<"ENDSCRIPT";      return <<"ENDSCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function file_deletion_check(formname) {  function file_deletion_check(formname) {
     var str = new RegExp("^HWFILE.+_delete\$");  
     var delfilecount = 0;  
     var elemnum = formname.elements.length;      var elemnum = formname.elements.length;
     if (elemnum == 0) {      if (elemnum == 0) {
         return true;          return true;
     }      }
       var str = new RegExp("^HWFILE.+_delete\$");
       var delboxes = new Array();
     for (i=0; i<formname.elements.length; i++) {      for (i=0; i<formname.elements.length; i++) {
         var id = formname.elements[i].id;          var id = formname.elements[i].id;
         if (id != '') {          if (id != '') {
             if (str.test(id)) {              if (str.test(id)) {
                 if (formname.elements[i].type == 'checkbox') {                  if (formname.elements[i].type == 'checkbox') {
                     if (formname.elements[i].checked) {                      if (formname.elements[i].checked) {
                         delfilecount ++;                          delboxes.push(id);
                     }                      }
                 }                  }
             }              }
         }          }
     }      }
     if (delfilecount > 0) {      if (delboxes.length > 0) {
         if (confirm("$delfilewarn")) {          if (confirm("$delfilewarn")) {
             return true;              return true;
         } else {          } else {
               for (var j=0; j<delboxes.length; j++) {
                   formname.elements[delboxes[j]].checked = false;
               }
             return false;              return false;
         }          }
     } else {      } else {
         return true;          return true;
     }      }
 }  }
   // ]]>
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
 }  }
Line 782  sub store_aggregates { Line 787  sub store_aggregates {
             } else {              } else {
                 $anoncounter{$symb."\0".$part} = 1;                  $anoncounter{$symb."\0".$part} = 1;
             }              }
             $anoncounter{$symb."\0".$part} = 1;  
             my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}};              my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}};
             if ($needsrelease) {              if ($needsrelease) {
                 my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};                  my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
Line 803  sub store_aggregates { Line 807  sub store_aggregates {
                             $cdomain,$cname);                              $cdomain,$cname);
     }      }
     if (keys(%anoncounter) > 0) {      if (keys(%anoncounter) > 0) {
         &Apache::lonnet::cinc('nohist_anonsurveys',\%anoncounter,          &Apache::lonnet::cput('nohist_anonsurveys',\%anoncounter,
                             $cdomain,$cname);                                $cdomain,$cname);
     }      }
     if (keys(%randtrycounter) > 0) {      if (keys(%randtrycounter) > 0) {
         &Apache::lonnet::cinc('nohist_randomizetry',\%randtrycounter,          &Apache::lonnet::cput('nohist_randomizetry',\%randtrycounter,
                             $cdomain,$cname);                                $cdomain,$cname);
     }      }
 }  }
   
Line 890  sub init_problem_globals { Line 894  sub init_problem_globals {
  &Apache::lonhomework::reset_show_problem_status();   &Apache::lonhomework::reset_show_problem_status();
  $Apache::lonhomework::ignore_response_errors=1;   $Apache::lonhomework::ignore_response_errors=1;
     }      }
       @Apache::functionplotresponse::callscripts=();
     @Apache::inputtags::responselist = ();      @Apache::inputtags::responselist = ();
     @Apache::inputtags::importlist = ();      @Apache::inputtags::importlist = ();
     @Apache::inputtags::previous=();      @Apache::inputtags::previous=();
Line 917  sub reset_problem_globals { Line 922  sub reset_problem_globals {
     undef($Apache::lonhomework::type);      undef($Apache::lonhomework::type);
     undef($Apache::lonhomework::scantronmode);      undef($Apache::lonhomework::scantronmode);
     undef($Apache::lonhomework::ignore_response_errors);      undef($Apache::lonhomework::ignore_response_errors);
       undef(@Apache::functionplotresponse::callscripts);
     &Apache::lonhomework::reset_show_problem_status();      &Apache::lonhomework::reset_show_problem_status();
 }  }
   
Line 1335  sub end_problem { Line 1341  sub end_problem {
  }   }
     }      }
  }   }
           if ($target eq 'web') {
              $result.=&Apache::functionplotresponse::init_script();
           }
  if ($target eq 'grade') {   if ($target eq 'grade') {
     &Apache::lonhomework::showhash(%Apache::lonhomework::results);      &Apache::lonhomework::showhash(%Apache::lonhomework::results);
     &finalize_storage();      &finalize_storage();
Removed from v.1.465.2.7  
changed lines
  Added in v.1.465.2.12

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