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

Diff for /loncom/xml/lonxml.pm between versions 1.531.2.17 and 1.531.2.18

version 1.531.2.17, 2014/07/27 20:26:12 version 1.531.2.18, 2015/03/11 13:10:56
Line 323  sub printtokenheader { Line 323  sub printtokenheader {
 }  }
   
 sub printalltags {  sub printalltags {
   my $temp;      my $temp;
   foreach $temp (sort keys %Apache::lonxml::alltags) {      foreach $temp (sort keys %Apache::lonxml::alltags) {
     &Apache::lonxml::debug("$temp -- ".          &Apache::lonxml::debug("$temp -- ".
   join(',',@{ $Apache::lonxml::alltags{$temp} }));                                 join(',',@{ $Apache::lonxml::alltags{$temp} }));
   }      }
 }  }
   
 sub xmlparse {  sub xmlparse {
Line 908  sub init_safespace { Line 908  sub init_safespace {
   $safeeval->permit("require");    $safeeval->permit("require");
   $safeinit .= ';$external::target="'.$target.'";';    $safeinit .= ';$external::target="'.$target.'";';
   &Apache::run::run($safeinit,$safeeval);    &Apache::run::run($safeinit,$safeeval);
   &initialize_rndseed($safeeval);    my $rawrndseed = &initialize_rndseed($safeeval);
     if ($target eq 'grade') {
         $Apache::lonhomework::rawrndseed = $rawrndseed;
     }
 }  }
   
 sub clean_safespace {  sub clean_safespace {
Line 947  sub initialize_rndseed { Line 950  sub initialize_rndseed {
     my $safeinit = '$external::randomseed="'.$rndseed.'";';      my $safeinit = '$external::randomseed="'.$rndseed.'";';
     &Apache::lonxml::debug("Setting rndseed to $rndseed");      &Apache::lonxml::debug("Setting rndseed to $rndseed");
     &Apache::run::run($safeinit,$safeeval);      &Apache::run::run($safeinit,$safeeval);
       return $rndseed;
 }  }
   
 sub default_homework_load {  sub default_homework_load {
Line 1421  sub extlink { Line 1425  sub extlink {
     if (!$exact) {      if (!$exact) {
  $res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);   $res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);
     }      }
     push(@Apache::lonxml::extlinks,$res)        push(@Apache::lonxml::extlinks,$res);
 }  }
   
 sub writeallows {  sub writeallows {
Line 2148  sub error { Line 2152  sub error {
     my $declutter=&Apache::lonnet::declutter($env{'request.filename'});      my $declutter=&Apache::lonnet::declutter($env{'request.filename'});
             my $baseurl = &Apache::lonnet::clutter($declutter);              my $baseurl = &Apache::lonnet::clutter($declutter);
     my @userlist;      my @userlist;
     foreach (keys %users) {      foreach (keys(%users)) {
  my ($user,$domain) = split(/:/, $_);   my ($user,$domain) = split(/:/, $_);
  push(@userlist,"$user:$domain");   push(@userlist,"$user:$domain");
  my $key=$declutter.'_'.$user.'_'.$domain;   my $key=$declutter.'_'.$user.'_'.$domain;
Removed from v.1.531.2.17  
changed lines
  Added in v.1.531.2.18

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