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

Diff for /loncom/homework/structuretags.pm between versions 1.31 and 1.32

version 1.31, 2001/01/15 21:44:21 version 1.32, 2001/02/19 20:39:00
Line 54  sub start_problem { Line 54  sub start_problem {
     if ( $status eq 'CLOSED' ) {      if ( $status eq 'CLOSED' ) {
       my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]);        my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]);
       if ( $target eq "web" ) {        if ( $target eq "web" ) {
  return "<body bgcolor=#FFFFFF> <br></br>Problem is not open to be viewed. The problem $datemsg<br></br>";   return "<body bgcolor=\"#FFFFFF\"> <br />Problem is not open to be viewed. The problem $datemsg<br />";
       }        }
     }       } 
   }    }
Line 112  sub start_block { Line 112  sub start_block {
   my $code = @$parstack[$#$parstack];    my $code = @$parstack[$#$parstack];
   $code =~ s/\"//g;    $code =~ s/\"//g;
   $code .=';return $condition;';    $code .=';return $condition;';
 #  print "<br>$code<br>";  #  print "<br />$code<br />";
   my $result = &Apache::run::run($code,$safeeval);    my $result = &Apache::run::run($code,$safeeval);
   &Apache::lonxml::debug("block :$code: returned :$result:");    &Apache::lonxml::debug("block :$code: returned :$result:");
   if ( ! $result ) {     if ( ! $result ) { 
Line 175  sub start_randomlist { Line 175  sub start_randomlist {
       $list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],$b_parser);        $list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],$b_parser);
       $list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";        $list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
       push(@randomlist,$list_item);        push(@randomlist,$list_item);
    #  print "<BR><B>START-TAG $b_tok->[1], $b_tok->[4], $list_item</B>";     #  print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4], $list_item</b>";
     }      }
     if($b_tok->[0] eq 'T') { # text      if($b_tok->[0] eq 'T') { # text
     # what to do with text in between tags?      # what to do with text in between tags?
       #  print "<B>TEXT $b_tok->[1]</B><BR>";        #  print "<b>TEXT $b_tok->[1]</b><br />";
     }      }
     # if($b_tok->[0] eq 'E') { # end tag, should not happen      # if($b_tok->[0] eq 'E') { # end tag, should not happen
       #  print "<B>END-TAG $b_tok->[1]</B><BR>";        #  print "<b>END-TAG $b_tok->[1]</b><br />";
     # }      # }
   }    }
   my @idx_arr = (0 .. $#randomlist);    my @idx_arr = (0 .. $#randomlist);
Line 227  sub start_part { Line 227  sub start_part {
     if ( $status eq 'CLOSED' ) {      if ( $status eq 'CLOSED' ) {
       my $bodytext=&Apache::lonxml::get_all_text("/part",$$parser[$#$parser]);        my $bodytext=&Apache::lonxml::get_all_text("/part",$$parser[$#$parser]);
       if ( $target eq "web" ) {        if ( $target eq "web" ) {
  return "<br></br>Part is not open to be viewed. It $datemsg<br></br>";   return "<br />Part is not open to be viewed. It $datemsg<br />";
       }        }
     }      }
   }    }
Removed from v.1.31  
changed lines
  Added in v.1.32

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