version 1.11, 2006/06/27 21:47:15
|
version 1.12, 2006/07/03 10:26:22
|
Line 40 my $loncapa_max_wait_time = 13;
|
Line 40 my $loncapa_max_wait_time = 13;
|
|
|
require Exporter; |
require Exporter; |
our @ISA = qw (Exporter); |
our @ISA = qw (Exporter); |
our @EXPORT = qw(&escape_LaTeX &add_get_param &escape &unescape &tie_domain_hash &untie_domain_hash &tie_user_hash &untie_user_hash &propath); |
our @EXPORT = qw(&add_get_param &escape &unescape &tie_domain_hash &untie_domain_hash &tie_user_hash &untie_user_hash &propath); |
my %perlvar; |
my %perlvar; |
|
|
# Escape a LaTeX string of special characters that according to LaTeX line by line |
|
# pg 9 are: # $ % & \ ^ _ { } ~ These are escaped by prepending a \ |
|
# |
|
sub escape_LaTeX { |
|
my ($string) = @_; |
|
$string =~ s/[\#\$\%\&\\^_{}]/\\$&/g; |
|
return $string; |
|
} |
|
|
|
|
|
# Inputs are a url, and a hash ref of |
# Inputs are a url, and a hash ref of |