version 1.221, 2004/10/21 09:53:44
|
version 1.222, 2004/10/21 11:17:00
|
Line 3734 sub connection_aborted {
|
Line 3734 sub connection_aborted {
|
|
|
# |
# |
# Escapes strings that may have embedded 's that will be put into |
# Escapes strings that may have embedded 's that will be put into |
# javascript strings as 'strings'. |
# strings as 'strings'. |
# The assumptions are: |
# The assumptions are: |
# There has been no effort to escape ' with \' |
# There has been no effort to escape ' with \' |
# Any \'s in the string are intended to be there as part of the URL |
# Any \'s in the string are intended to be there as part of the URL |
Line 3744 sub connection_aborted {
|
Line 3744 sub connection_aborted {
|
# Returns: |
# Returns: |
# The escaped string (' replaced by \' and \ replaced by \\). |
# The escaped string (' replaced by \' and \ replaced by \\). |
# |
# |
sub javascript_escape { |
sub escape_single { |
my ($input) = @_; |
my ($input) = @_; |
|
|
# I imagine a regexp wizard could combine the two expressions below. |
# I imagine a regexp wizard could combine the two expressions below. |
Line 3755 sub javascript_escape {
|
Line 3755 sub javascript_escape {
|
|
|
return $input; |
return $input; |
} |
} |
|
# Same as escape_single, but escape's "'s This |
|
# can be used for "strings" |
|
# |
|
# Parameters: |
|
# input - The string to escape. |
|
# Returns: |
|
# The escaped string (" replaced by \" and \ replaced by \\). |
|
# |
|
sub escape_double { |
|
my ($input) = @_; |
|
|
|
# I imagine a regexp wizard could combine the two expressions below. |
|
# If you do you might want to comment the result. |
|
|
|
$input =~ s/\\/\\\\/g; # Escape the /'s..(must be first)> |
|
$input =~ s/\"/\\\"/g; # Esacpe the "s.... |
|
|
|
return $input; |
|
} |
|
# |
|
# Escapes the last element of a full URL. |
|
# |
|
# Parameters: |
|
# url - The url to escape. |
|
# Returns: |
|
# The url with the last element escaped via lonnet::escape. |
|
# |
|
sub escape_url { |
|
my ($url) = @_; |
|
my @urlslices = split(/\//, $url); |
|
|
|
my $lastitem = $urlslices[scalar(@urlslices) -1]; |
|
$lastitem = &Apache::lonnet::escape($lastitem); |
|
|
|
my $escaped_url; |
|
for (my $i = 0; $i < scalar(@urlslices) -1; $i++) { |
|
$escaped_url .= $urlslices[$i] .'/'; |
|
} |
|
$escaped_url .= $lastitem ; |
|
|
|
return $escaped_url; |
|
} |
=pod |
=pod |
|
|
=back |
=back |