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

Diff for /loncom/homework/structuretags.pm between versions 1.304 and 1.307

version 1.304, 2005/10/07 13:56:19 version 1.307, 2005/11/01 21:52:47
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 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 1063  sub start_randomlist { Line 1062  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;
Removed from v.1.304  
changed lines
  Added in v.1.307

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