loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.11, 2006/06/27 21:47:15	version 1.13, 2006/08/11 20:07:18
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
Line 305 sub _do_hash_untie {	Line 297 sub _do_hash_untie {
# Change access mode to non-blocking	# Change access mode to non-blocking
$how=$how\|&GDBM_NOLOCK();	$how=$how\|&GDBM_NOLOCK();
# Go ahead and tie the hash	# Go ahead and tie the hash
return &_do_hash_tie($file_prefix,$namespace,$how,$loghead,$what);	my $result =
	&_do_hash_tie($file_prefix,$namespace,$how,$loghead,$what);
	if (!$result) {
	&clean_sym();
	}
	return $result;
}	}

sub flock_sym {	sub flock_sym {