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

Diff for /loncom/interface/loncommon.pm between versions 1.221 and 1.222

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
Removed from v.1.221  
changed lines
  Added in v.1.222

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.