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

Diff for /loncom/homework/structuretags.pm between versions 1.400 and 1.403

version 1.400, 2007/09/25 23:16:13 version 1.403, 2007/10/12 18:45:47
Line 104  function image_response_click (which, e) Line 104  function image_response_click (which, e)
     init_geometry();      init_geometry();
     if (!e) { e = window.event; } //IE      if (!e) { e = window.event; } //IE
     var input_element = document.lonhomework.elements[which];      var input_element = document.lonhomework.elements[which];
     var token_element = document.lonhomework.elements['token_'+which];      var token_element = document.lonhomework.elements[which+'_token'];
     var token = token_element.value;      var token = token_element.value;
     var img_element   = document.getElementById('imageresponse_'+which);      var img_element   = document.getElementById(which+'_imageresponse');
     var x= e.clientX-getX(img_element)+Geometry.getHorizontalScroll();      var x= e.clientX-getX(img_element)+Geometry.getHorizontalScroll();
     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;
Line 158  sub page_start { Line 158  sub page_start {
     } elsif (!defined($found{'body'})       } elsif (!defined($found{'body'}) 
      && $env{'request.state'} eq 'construct') {       && $env{'request.state'} eq 'construct') {
  if ($target eq 'web' || $target eq 'edit') {   if ($target eq 'web' || $target eq 'edit') {
     # no extra args to bodytag      if ($env{'environment.remote'} ne 'off') {
    $body_args{'only_body'}  = 1;
       }
  }   }
     } elsif (!defined($found{'body'})) {      } elsif (!defined($found{'body'})) {
  my %add_entries;   my %add_entries;
Line 1487  sub start_part { Line 1489  sub start_part {
     @Apache::inputtags::previous=();      @Apache::inputtags::previous=();
     @Apache::inputtags::previous_version=();      @Apache::inputtags::previous_version=();
     $Apache::lonhomework::problemstatus=&get_problem_status($id);      $Apache::lonhomework::problemstatus=&get_problem_status($id);
       &Apache::response::reset_params();
   
     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);      my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
     my $newtype=&Apache::lonnet::EXT("resource.$id.type");      my $newtype=&Apache::lonnet::EXT("resource.$id.type");
     if ($newtype) { $Apache::lonhomework::type=$newtype; }      if ($newtype) { $Apache::lonhomework::type=$newtype; }
Removed from v.1.400  
changed lines
  Added in v.1.403

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