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

Diff for /loncom/homework/structuretags.pm between versions 1.176 and 1.177

version 1.176, 2003/05/19 21:05:23 version 1.177, 2003/05/23 16:26:28
Line 274  sub start_problem { Line 274  sub start_problem {
     }      }
 #initialize globals  #initialize globals
     $Apache::inputtags::part='0';      $Apache::inputtags::part='0';
       @Apache::inputtags::partlist=('0');
     @Apache::inputtags::responselist = ();      @Apache::inputtags::responselist = ();
       @Apache::inputtags::importlist = ();
     @Apache::inputtags::previous=();      @Apache::inputtags::previous=();
     @Apache::inputtags::previous_version=();      @Apache::inputtags::previous_version=();
     $Apache::structuretags::printanswer='No';      $Apache::structuretags::printanswer='No';
Line 529  sub end_problem { Line 531  sub end_problem {
  $result = &problem_edit_footer();   $result = &problem_edit_footer();
     }      }
   
       if ($ENV{'request.state'} eq 'construct' && $target eq 'web') {
    &Apache::inputtags::check_for_duplicate_ids();
       }
     undef(%Apache::lonhomework::history);      undef(%Apache::lonhomework::history);
     undef(%Apache::lonhomework::results);      undef(%Apache::lonhomework::results);
     undef($Apache::inputtags::part);      undef($Apache::inputtags::part);
Line 854  sub start_part { Line 859  sub start_part {
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);      my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
     if ($id eq '') { $id = $Apache::lonxml::curdepth; }      if ($id eq '') { $id = $Apache::lonxml::curdepth; }
     $Apache::inputtags::part=$id;      $Apache::inputtags::part=$id;
     @Apache::inputtags::responselist = ();      push(@Apache::inputtags::partlist,$id);
       @Apache::inputtags::response=();
     @Apache::inputtags::previous=();      @Apache::inputtags::previous=();
     @Apache::inputtags::previous_version=();      @Apache::inputtags::previous_version=();
     $Apache::lonhomework::problemstatus=      $Apache::lonhomework::problemstatus=
Removed from v.1.176  
changed lines
  Added in v.1.177

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