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

Diff for /loncom/homework/structuretags.pm between versions 1.297 and 1.312

version 1.297, 2005/07/05 18:59:03 version 1.312, 2005/11/03 17:55:12
Line 74  sub body_tag_start { Line 74  sub body_tag_start {
  'onunload="'.&Apache::lonmenu::unloadevents().'" ';   'onunload="'.&Apache::lonmenu::unloadevents().'" ';
     if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }      if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }
     if ($background) {      if ($background) {
  $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=   &Apache::lonxml::extlink($background);
     $background;  
  $body_tag_start.='background="'.$background.'" ';   $body_tag_start.='background="'.$background.'" ';
     } else {      } else {
  if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {   if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {
Line 118  sub page_start { Line 117  sub page_start {
     my $body_tag_start;      my $body_tag_start;
     if (!defined($found{'body'}) && $env{'request.state'} eq 'construct'      if (!defined($found{'body'}) && $env{'request.state'} eq 'construct'
  && $env{'environment.remote'} eq 'off') {   && $env{'environment.remote'} eq 'off') {
  if ($target eq 'web') {   if ($target eq 'web' || $target eq 'edit') {
     $body_tag_start=&Apache::loncommon::bodytag();      $body_tag_start=&Apache::loncommon::bodytag();
     $body_tag_start.=&Apache::lonxml::message_location();      $body_tag_start.=&Apache::lonxml::message_location();
  }   }
Line 127  sub page_start { Line 126  sub page_start {
   $safeeval);    $safeeval);
  my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,   my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
        $safeeval);         $safeeval);
  $body_tag_start=&body_tag_start($background,$bgcolor);   $body_tag_start=&body_tag_start($target,$background,$bgcolor);
  if ( ($target eq 'web' || $target eq 'webgrade')   if ( ($target eq 'web' || $target eq 'webgrade')
      && $env{'request.state'} ne 'construct') {       && $env{'request.state'} ne 'construct') {
     my ($symb,undef,undef,undef,$publicuser)=      my ($symb,undef,undef,undef,$publicuser)=
Line 193  sub setup_rndseed { Line 192  sub setup_rndseed {
     delete($env{'form.newrandomization'});      delete($env{'form.newrandomization'});
  }   }
  if (defined($rndseed) && $rndseed ne int($rndseed)) {   if (defined($rndseed) && $rndseed ne int($rndseed)) {
    $rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));      $rndseed=join(':',&Apache::lonnet::digest($rndseed));
         }          }
         if ($Apache::lonhomework::history{'resource.CODE'}) {          if ($Apache::lonhomework::history{'resource.CODE'}) {
    $rndseed=&Apache::lonnet::rndseed();     $rndseed=&Apache::lonnet::rndseed();
Line 426  ENDCHECKOUT Line 425  ENDCHECKOUT
 sub init_problem_globals {  sub init_problem_globals {
     my ($type)=@_;      my ($type)=@_;
     #initialize globals      #initialize globals
       #   For problems, we start out in part 0 (outside a <part> tag).
       #   and part 0 is used to describe the main body of the <problem>
       #
     if ($type eq 'problem') {      if ($type eq 'problem') {
  $Apache::inputtags::part='0';   $Apache::inputtags::part='0';
  @Apache::inputtags::partlist=('0');   @Apache::inputtags::partlist=('0');
  $Apache::lonhomework::problemstatus=&get_problem_status('0');   $Apache::lonhomework::problemstatus=&get_problem_status('0');
  $Apache::lonhomework::ignore_response_errors=0;   $Apache::lonhomework::ignore_response_errors=0;
   
     } elsif ($type eq 'library') {      } elsif ($type eq 'library') {
  $Apache::inputtags::part='';   $Apache::inputtags::part='';
  @Apache::inputtags::partlist=();   @Apache::inputtags::partlist=();
  $Apache::lonhomework::problemstatus='';   $Apache::lonhomework::problemstatus='';
  $Apache::lonhomework::ignore_response_errors=1;   $Apache::lonhomework::ignore_response_errors=1;
   
       } elsif ($type eq 'Task') {
    $Apache::inputtags::part='0';
    @Apache::inputtags::partlist=('0');
    $Apache::lonhomework::problemstatus='';
    $Apache::lonhomework::ignore_response_errors=1;
     }      }
     @Apache::inputtags::responselist = ();      @Apache::inputtags::responselist = ();
     @Apache::inputtags::importlist = ();      @Apache::inputtags::importlist = ();
Line 486  sub get_problem_status { Line 495  sub get_problem_status {
 sub start_problem {  sub start_problem {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   
       # We'll use the redirection to fix up printing of duedates.
       &Apache::lonxml::startredirection();
   
       # Problems don't nest and we don't allow more than one <problem> in
       # a .problem file.
       #
     if ( $Apache::inputtags::part ne '' ||      if ( $Apache::inputtags::part ne '' ||
  $Apache::lonhomework::parsing_a_problem) {   $Apache::lonhomework::parsing_a_problem) {
  &Apache::lonxml::error('Only one &lt;problem&gt; allowed in a .problem file');   &Apache::lonxml::error('Only one &lt;problem&gt; allowed in a .problem file');
Line 511  sub start_problem { Line 526  sub start_problem {
     defined($env{'form.problemtype'})) {      defined($env{'form.problemtype'})) {
     $Apache::lonhomework::type=$env{'form.problemtype'};      $Apache::lonhomework::type=$env{'form.problemtype'};
  }   }
  $Apache::lonhomework::default_type = $Apache::lonhomework::type;  
  &Apache::lonxml::debug("Found this to be of type :$Apache::ltonhomework::type:");   &Apache::lonxml::debug("Found this to be of type :$Apache::ltonhomework::type:");
     }      }
     if ($Apache::lonhomework::type eq '' ) {      if ($Apache::lonhomework::type eq '' ) {
Line 524  sub start_problem { Line 538  sub start_problem {
     &Apache::lonxml::debug("Using default type, problem, :$uri:");      &Apache::lonxml::debug("Using default type, problem, :$uri:");
  }   }
     }      }
       $Apache::lonhomework::default_type = $Apache::lonhomework::type;
   
     #added vars to the scripting enviroment      #added vars to the scripting enviroment
     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';      my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
Line 566  sub start_problem { Line 581  sub start_problem {
                              value="'.$env{'form.username'}.'" />';                               value="'.$env{'form.username'}.'" />';
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
  $form_tag_start.=   $form_tag_start.=
     ' <input type="checkbox" name="showallfoils" ';      ' <label><input type="checkbox" name="showallfoils" ';
  if (defined($env{'form.showallfoils'})) {   if (defined($env{'form.showallfoils'})) {
     $form_tag_start.='checked="on"';      $form_tag_start.='checked="on"';
  }   }
  $form_tag_start.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils');   $form_tag_start.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils').
       '</label>';
     }      }
     $form_tag_start.='<hr />';      $form_tag_start.='<hr />';
  }   }
Line 644  sub start_problem { Line 660  sub start_problem {
     }      }
     my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");      my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
     if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }      if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
     my $duedate = &Apache::lonnet::EXT("resource.$id.duedate");       if (lc($env{'course.'.$env{'request.course.id'}.
     $duedate = POSIX::strftime("%c",localtime($duedate));      '.disableexampointprint'}) eq 'yes') {
    $allow_print_points=0;
       }
       my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
       my $begin_doc='\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent ';
       my $toc_line='\vskip 1 mm\noindent '.$startminipage.
    '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
   
       #  Figure out what the due date is and if we need to print
       #  it in the problem header.  We have been logging the
       #  last due date written to file. 
   
       my $duetime = &Apache::lonnet::EXT("resource.$id.duedate"); 
       my $duedate = POSIX::strftime("%c",localtime($duetime));
     my $temp_file;      my $temp_file;
     my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";      my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
   
       # Figure out what the last printed due date is or set it
       # to the epoch if no duedates have been printed.
   
       my $due_file_content = 0;      #   If the file does not yet exist, time is the epoch.
     if (-e $filename) {      if (-e $filename) {
  $temp_file = Apache::File->new($filename);   $temp_file = Apache::File->new($filename);
     } else {   my @due_file      = <$temp_file>;
  $temp_file = Apache::File->new('>>'.$filename);   $due_file_content = $due_file[$#due_file];
     }   chomp $due_file_content;
     my @due_file_content = <$temp_file>;      } 
     my $due_file_content = $due_file_content[$#due_file_content];  
     chomp $due_file_content;      # comparisons of the absolute times
     my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');      if ($due_file_content != $duetime) {
     if ($due_file_content ne $duedate) {  
  $temp_file = Apache::File->new('>'.$filename);   $temp_file = Apache::File->new('>'.$filename);
  print $temp_file "$duedate\n";   print $temp_file "$duetime\n";
  if (not $env{'request.symb'} =~ m/\.page_/) {   if (not $env{'request.symb'} =~ m/\.page_/) {
     if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {      if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
  $result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm\noindent '.$startminipage.'\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';   $result .= $begin_doc.
       '\textit{Due date: '.$duedate.'} '.$toc_line;
     } else {      } else {
  $result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent \vskip 1 mm \noindent'.$startminipage.'\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';   $result .= $begin_doc.$toc_line;
  if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $result .= '\fbox{\textit{'.$weight.' pt}}';}   if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
     }      }
  } else {   } else {
Line 672  sub start_problem { Line 706  sub start_problem {
  }   }
     } else {      } else {
  if (not $env{'request.symb'} =~ m/\.page_/) {   if (not $env{'request.symb'} =~ m/\.page_/) {
     $result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent \vskip 1 mm\noindent'.$startminipage.'\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';      $result .= $begin_doc.$toc_line;
     if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}      if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
  } else {   } else {
     $result .= '\vskip 1mm \\\\\\\\';      $result .= '\vskip 1mm \\\\\\\\';
Line 698  sub start_problem { Line 732  sub start_problem {
   
 sub end_problem {  sub end_problem {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result='';      my $result= &Apache::lonxml::endredirection(); # started in &start_problem
   
     my $status=$Apache::inputtags::status['-1'];      my $status=$Apache::inputtags::status['-1'];
     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||      if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
  $target eq 'tex') {   $target eq 'tex') {
Line 1049  sub start_randomlist { Line 1084  sub start_randomlist {
     if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||      if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||
  $target eq 'tex' || $target eq 'analyze') {   $target eq 'tex' || $target eq 'analyze') {
  my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);   my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
  my $b_parser= HTML::TokeParser->new(\$body);   my $b_parser= HTML::LCParser->new(\$body);
    $b_parser->xml_mode(1);
    $b_parser->marked_sections(1);
  my $b_tok;   my $b_tok;
  my @randomlist;   my @randomlist;
  my $list_item;   my $list_item;
Line 1073  sub start_randomlist { Line 1110  sub start_randomlist {
     #  print "<b>END-TAG $b_tok->[1]</b><br />";      #  print "<b>END-TAG $b_tok->[1]</b><br />";
     # }      # }
  }   }
  my @idx_arr = (0 .. $#randomlist);   if (@randomlist) {
  &Apache::structuretags::shuffle(\@idx_arr);      my @idx_arr = (0 .. $#randomlist);
  my $bodytext = '';      &Apache::structuretags::shuffle(\@idx_arr);
  my $show=$#randomlist;      my $bodytext = '';
  my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);      my $show=$#randomlist;
  $showarg--;      my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
  if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }      $showarg--;
  for(0 .. $show) {      if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
     $bodytext .= "$randomlist[ $idx_arr[$_] ]";      for(0 .. $show) {
    $bodytext .= "$randomlist[ $idx_arr[$_] ]";
       }
       &Apache::lonxml::newparser($parser,\$bodytext);
  }   }
  &Apache::lonxml::newparser($parser,\$bodytext);  
     } elsif ($target eq 'edit' ) {      } elsif ($target eq 'edit' ) {
  $result .=&Apache::edit::tag_start($target,$token);   $result .=&Apache::edit::tag_start($target,$token);
  $result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',   $result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
Line 1100  sub start_randomlist { Line 1139  sub start_randomlist {
 sub shuffle {  sub shuffle {
     my $a=shift;      my $a=shift;
     my $i;      my $i;
     if (defined(@$a)) {      if (ref($a) eq 'ARRAY' && @$a) {
  &Apache::response::pushrandomnumber();   &Apache::response::pushrandomnumber();
  for($i=@$a;--$i;) {   for($i=@$a;--$i;) {
     my $j=int(&Math::Random::random_uniform() * ($i+1));      my $j=int(&Math::Random::random_uniform() * ($i+1));
Line 1134  sub ordered_show_check { Line 1173  sub ordered_show_check {
   
 sub start_part {  sub start_part {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       &Apache::lonxml::startredirection(); # we'll use redirection to fix up 
                                            # duedates.
     my $result='';      my $result='';
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);      my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
     if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }      if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
Line 1206  sub start_part { Line 1247  sub start_part {
     if (defined($maxtries) && $maxtries < 0) {      if (defined($maxtries) && $maxtries < 0) {
  $allow_print_points=0;   $allow_print_points=0;
     }      }
       if (lc($env{'course.'.$env{'request.course.id'}.
       '.disableexampointprint'}) eq 'yes') {
    $allow_print_points=0;
       }
     if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}      if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
  } elsif ($target eq 'web') {   } elsif ($target eq 'web') {
     $result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';      $result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';
Line 1238  sub end_part { Line 1283  sub end_part {
     my $status=$Apache::inputtags::status['-1'];      my $status=$Apache::inputtags::status['-1'];
     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);      my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
     my $in_order_show=&ordered_show_check();      my $in_order_show=&ordered_show_check();
     my $result='';      my $result= &Apache::lonxml::endredirection(); # started in &start_part
     if ( $target eq 'meta' ) {      if ($target eq 'grade') {
  $result='';  
     } elsif ($target eq 'grade') {  
  if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&   if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
     !$hidden && $in_order_show) {      !$hidden && $in_order_show) {
     $result=&Apache::inputtags::grade;      $result.=&Apache::inputtags::grade;
  } else {   } else {
     # move any submission data to .hidden      # move any submission data to .hidden
     &Apache::inputtags::hidealldata($Apache::inputtags::part);      &Apache::inputtags::hidealldata($Apache::inputtags::part);
Line 1256  sub end_part { Line 1299  sub end_part {
  if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') {   if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') {
     $gradestatus='';      $gradestatus='';
  }   }
  $result=$gradestatus;   $result.=$gradestatus;
  if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';}    if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} 
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result=&Apache::edit::end_table();   $result.=&Apache::edit::end_table();
     }      }
     pop @Apache::inputtags::status;      pop @Apache::inputtags::status;
     $Apache::inputtags::part='';      $Apache::inputtags::part='';
Line 1271  sub start_preduedate { Line 1314  sub start_preduedate {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {      if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {
  &Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);   &Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
  if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&   if (!$Apache::lonhomework::scantronmode &&
       $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
     $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {      $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
     &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));      &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
     &Apache::lonxml::get_all_text("/preduedate",$parser);      &Apache::lonxml::get_all_text("/preduedate",$parser);
Line 1287  sub end_preduedate { Line 1331  sub end_preduedate {
 sub start_postanswerdate {  sub start_postanswerdate {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     if ($target eq 'web' || $target eq 'grade') {      if ($target eq 'web' || $target eq 'grade') {
  if ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {   if ($Apache::lonhomework::scantronmode ||
       $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
     &Apache::lonxml::get_all_text("/postanswerdate",$parser);      &Apache::lonxml::get_all_text("/postanswerdate",$parser);
  }   }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
Removed from v.1.297  
changed lines
  Added in v.1.312

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