Subversion Repositories wimsdev

Rev

Rev 7387 | Rev 10034 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7387 Rev 7395
Line 851... Line 851...
851 
}
 851 
}
852 
 
 852 
 
853 
sub displaymath {"<div class=\"math\">\\(\\displaystyle{ " . $_[0]. "}\\)</div>"; }
 853 
sub displaymath {"<div class=\"math\">\\(\\displaystyle{ " . $_[0]. "}\\)</div>"; }
854 
sub math {" \\( " . $_[0]. "\\) "; }
 854 
sub math {" \\( " . $_[0]. "\\) "; }
855 
 
 855 
 
856 
sub figure { my $caption='';
 856 
sub figure { my $caption=''; my $c =$_[0];
- 
 
 857 
  $c =~ s /^\[([^\]]+)//; print $c;
857 
  if ( $_[0] =~ s/\\caption\{([^}]+)}//) {$caption=$1 };
 858 
  if ( $c =~ s/\\caption\{([^}]+)}//) {$caption=$1 };
858 
  "<div class=\"figure\"> " .
 859 
  "<div class=\"figure\"> " .
859 
  (($caption) ? "<div class=\"caption\">". $caption . "</div>":"")
 860 
  (($caption) ? "<div class=\"caption\">". $caption . "</div>":"")
860 
    . $_[0] . "</div>" ;}
 861 
    . $c . "</div>" ;}
861 
 
 862 
 
862 
sub thebibliography { my ( $b ) = @_;
 863 
sub thebibliography { my ( $b ) = @_;
863 
  $b =~ s/\\bibitem{([^}]+)}/<\/li>\n<li>\[$1\]\\label{$1} /g;
 864 
  $b =~ s/\\bibitem{([^}]+)}/<\/li>\n<li>\[$1\]\\label{$1} /g;
864 
  $b =~ s/\{\d+\}\s*<\/li>//;
 865 
  $b =~ s/\{\d+\}\s*<\/li>//;
865 
  '<h2 class="thebibliography">' . $hash{titb}{ref}
 866 
  '<h2 class="thebibliography">' . $hash{titb}{ref}