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

Diff for /loncom/xml/lonxml.pm between versions 1.227 and 1.229

version 1.227, 2003/02/03 18:03:53 version 1.229, 2003/02/12 20:43:18
Line 145  $Apache::lonxml::registered=0; Line 145  $Apache::lonxml::registered=0;
 $Apache::lonxml::request='';  $Apache::lonxml::request='';
   
 # a problem number counter, and check on ether it is used  # a problem number counter, and check on ether it is used
 $Apache::lonxml::counter=1;  $Apache::lonxml::counter=4;
 $Apache::lonxml::counter_changed=0;  $Apache::lonxml::counter_changed=0;
   
 #internal check on whether to look at style defs  #internal check on whether to look at style defs
Line 668  sub htmlclean { Line 668  sub htmlclean {
 }  }
   
 sub latex_special_symbols {  sub latex_special_symbols {
     my ($current_token,$stack,$parstack)=@_;      my ($current_token,$stack,$parstack,$where)=@_;
     $current_token=~s/\\ /\\char92 /g;      if ($where=='header') {
     $current_token=~s/\^/\\char94 /g;        $current_token =~ s/_/ /g;
     $current_token=~s/\~/\\char126 /g;        $current_token =~ s/\^/ /g;
     $current_token=~s/(&[^a-z\#])/\\$1/g;        $current_token =~ s/&/\\&/g;
     $current_token=~s/([^&])\#/$1\\#/g;      } else {
     $current_token=~s/(\$|_|{|})/\\$1/g;       $current_token=~s/\\ /\\char92 /g;
     $current_token=~s/\\char92 /\\texttt{\\char92}/g;       $current_token=~s/\^/\\char94 /g;
     $current_token=~s/>/\$>\$/g; #more       $current_token=~s/\~/\\char126 /g;
     $current_token=~s/</\$<\$/g; #less       $current_token=~s/(&[^a-z\#])/\\$1/g;
     if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit       $current_token=~s/([^&])\#/$1\\#/g;
     if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space       $current_token=~s/(\$|_|{|})/\\$1/g;
        $current_token=~s/\\char92 /\\texttt{\\char92}/g;
        $current_token=~s/>/\$>\$/g; #more
        $current_token=~s/</\$<\$/g; #less
        if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit
        if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space
       }
     return $current_token;      return $current_token;
 }  }
   
Line 1144  sub get_all_text { Line 1150  sub get_all_text {
  }   }
        }         }
      }       }
        if (($depth >=0) && ($#$pars == 0) ) { $top_empty=1; }
      if (($depth >=0) && ($#$pars > 0) ) {       if (($depth >=0) && ($#$pars > 0) ) {
        pop(@$pars);         pop(@$pars);
        pop(@Apache::lonxml::pwd);         pop(@Apache::lonxml::pwd);
      }       }
      if (($depth >=0) && ($#$pars == 0) ) {        &debug("here4");$top_empty=1; }  
    }     }
    if ($top_empty && $depth >= 0) {     if ($top_empty && $depth >= 0) {
        #never found the end tag ran out of text, throw error send back blank         #never found the end tag ran out of text, throw error send back blank
Removed from v.1.227  
changed lines
  Added in v.1.229

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