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

Diff for /loncom/xml/lonxml.pm between versions 1.200 and 1.203

version 1.200, 2002/10/11 20:09:36 version 1.203, 2002/10/17 14:42:07
Line 385  sub registerurl { Line 385  sub registerurl {
     if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }      if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }
     my $newmail='';      my $newmail='';
     if (&Apache::lonmsg::newmail()) {       if (&Apache::lonmsg::newmail()) { 
        $newmail='menu.setstatus("you have","got mail");';         $newmail='menu.setstatus("you have","messages");';
     }      }
     my $timesync='menu.syncclock(1000*'.time.');';      my $timesync='menu.syncclock(1000*'.time.');';
     if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
Line 585  sub latex_special_symbols { Line 585  sub latex_special_symbols {
     $current_token=~s/\^/\\char94 /g;      $current_token=~s/\^/\\char94 /g;
     $current_token=~s/\~/\\char126 /g;      $current_token=~s/\~/\\char126 /g;
     $current_token=~s/(&[^a-z\#])/\\$1/g;      $current_token=~s/(&[^a-z\#])/\\$1/g;
     if ($current_token=~/ \#\w/) {      $current_token=~s/([^&])\#/$1\\#/g;
  $current_token=~s/ \#(\w)/ \\#$1/;  
     } else {  
  $current_token=~s/([^&])(\#)/$1\\$2/g;  
     }  
     $current_token=~s/(\$|_|{|})/\\$1/g;      $current_token=~s/(\$|_|{|})/\\$1/g;
     $current_token=~s/\\char92 /\\texttt{\\char92}/g;      $current_token=~s/\\char92 /\\texttt{\\char92}/g;
     $current_token=~s/>/\$>\$/g; #more      $current_token=~s/>/\$>\$/g; #more
Line 851  sub setup_globals { Line 847  sub setup_globals {
   my ($request,$target)=@_;    my ($request,$target)=@_;
   $Apache::lonxml::request=$request;    $Apache::lonxml::request=$request;
   $Apache::lonxml::registered = 0;    $Apache::lonxml::registered = 0;
     if ($ENV{'form.counter'}) {
         $Apache::lonxml::counter=$ENV{'form.counter'}
     } elsif (not defined $Apache::lonxml::counter) {
         $Apache::lonxml::counter=1;
         my %moreenv;
         $moreenv{'form.counter'}=$Apache::lonxml::counter;
         &Apache::lonnet::appenv(%moreenv);
     } 
   @Apache::lonxml::pwd=();    @Apache::lonxml::pwd=();
   @Apache::lonxml::extlinks=();    @Apache::lonxml::extlinks=();
   if ($target eq 'meta') {    if ($target eq 'meta') {
Line 1325  ENDNOTFOUND Line 1329  ENDNOTFOUND
 sub debug {  sub debug {
   if ($Apache::lonxml::debug eq 1) {    if ($Apache::lonxml::debug eq 1) {
     $|=1;      $|=1;
     print("DEBUG:".&HTML::Entities::encode($_[0])."<br />\n");      print('<font size="-2"<pre>DEBUG:'.&HTML::Entities::encode($_[0])."</pre></font>\n");
   }    }
 }  }
   
Removed from v.1.200  
changed lines
  Added in v.1.203

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