loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.372, 2005/04/07 06:56:27
+version 1.373, 2005/05/03 06:44:56
  Line 784  sub init_safespace {
  # $safeeval->deny(":base_orig");
    $safeeval->permit("require");
    $safeinit .= ';$external::target="'.$target.'";';
-   my $rndseed;
-   my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
-   $rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name);
-   $safeinit .= ';$external::randomseed="'.$rndseed.'";';
-   &Apache::lonxml::debug("Setting rndseed to $rndseed");
    &Apache::run::run($safeinit,$safeeval);
+   &initialize_rndseed($safeeval);
+ }
+ sub initialize_rndseed {
+     my ($safeeval)=@_;
+     my $rndseed;
+     my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
+     $rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name);
+     my $safeinit = '$external::randomseed="'.$rndseed.'";';
+     &Apache::lonxml::debug("Setting rndseed to $rndseed");
+     &Apache::run::run($safeinit,$safeeval);
  }
  sub default_homework_load {