Diff for /loncom/homework/structuretags.pm between versions 1.69 and 1.70

version 1.69, 2001/10/05 12:39:13 version 1.70, 2001/10/13 05:59:18
Line 417  sub start_randomlist { Line 417  sub start_randomlist {
 sub shuffle {  sub shuffle {
     my $a=shift;      my $a=shift;
     my $i;      my $i;
     &Apache::response::setrandomnumber();      if (defined(@$a)) {
     for($i=@$a;--$i;) {        &Apache::response::setrandomnumber();
       my $j=int rand($i+1);        for($i=@$a;--$i;) {
       next if $i == $j;   my $j=int rand($i+1);
       @$a[$i,$j] = @$a[$j,$i];   next if $i == $j;
    @$a[$i,$j] = @$a[$j,$i];
         }
     }      }
 }  }
   
Line 542  sub end_startouttext { Line 544  sub end_startouttext {
   my $text='';    my $text='';
   
   if ($target eq 'edit') {    if ($target eq 'edit') {
     $text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);      $text=&Apache::lonxml::get_all_text("endouttext",$$parser[-1]);
     $result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td>      $result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td>
 <td>Delete:".  <td>Delete:".
   &Apache::edit::deletelist($target,$token)    &Apache::edit::deletelist($target,$token)

Removed from v.1.69  
changed lines
  Added in v.1.70


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