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

Diff for /loncom/xml/lonxml.pm between versions 1.243 and 1.244

version 1.243, 2003/03/30 21:58:17 version 1.244, 2003/04/03 21:58:09
Line 401  sub xmlparse { Line 401  sub xmlparse {
  &Apache::inputtags::initialize_inputtags();   &Apache::inputtags::initialize_inputtags();
  &Apache::outputtags::initialize_outputtags();   &Apache::outputtags::initialize_outputtags();
  &Apache::edit::initialize_edit();   &Apache::edit::initialize_edit();
   
 #  #
 # do we have a course style file?  # do we have a course style file?
 #  #
Line 526  sub inner_xmlparse { Line 527  sub inner_xmlparse {
  while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) {   while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) {
   my $lasttag=$$stack[-1];    my $lasttag=$$stack[-1];
   if ($token->[1] =~ /^$lasttag$/i) {    if ($token->[1] =~ /^$lasttag$/i) {
     &Apache::lonxml::warning('Using tag </'.$token->[1].'> as end tag to <'.$$stack[-1].'>');      &Apache::lonxml::warning('Using tag </'.$token->[1].'> on line '.$token->[3].' as end tag to <'.$$stack[-1].'>');
     last;      last;
   } else {    } else {
     &Apache::lonxml::warning('Found tag </'.$token->[1].'> when looking for </'.$$stack[-1].'> in file');      &Apache::lonxml::warning('Found tag </'.$token->[1].'> on line '.$token->[3].' when looking for </'.$$stack[-1].'> in file');
     &end_tag($stack,$parstack,$token);      &end_tag($stack,$parstack,$token);
   }    }
  }   }
Line 1401  sub whichuser { Line 1402  sub whichuser {
       $name=$ENV{'form.grade_username'};        $name=$ENV{'form.grade_username'};
     }      }
   } else {    } else {
     $symb=&Apache::lonnet::symbread();        $symb=&Apache::lonnet::symbread();
     $courseid=$ENV{'request.course.id'};        $courseid=$ENV{'request.course.id'};
     $domain=$ENV{'user.domain'};        $domain=$ENV{'user.domain'};
     $name=$ENV{'user.name'};        $name=$ENV{'user.name'};
         if ($name eq 'public' && $domain eq 'public') {
     if (!defined($ENV{'form.username'})) {
         $ENV{'form.username'}.=time.rand(10000000);
     }
     $name.=$ENV{'form.username'};
         }
   }    }
   return ($symb,$courseid,$domain,$name);    return ($symb,$courseid,$domain,$name);
 }  }
Removed from v.1.243  
changed lines
  Added in v.1.244

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