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

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

version 1.220, 2004/10/15 16:51:29 version 1.222, 2004/10/21 11:17:00
Line 3732  sub connection_aborted { Line 3732  sub connection_aborted {
     return $c->aborted();      return $c->aborted();
 }  }
   
   #
   #    Escapes strings that may have embedded 's that will be put into
   #    strings as 'strings'.
   #    The assumptions are:
   #       There has been no effort to escape ' with \'
   #       Any \'s in the string are intended to be there as part of the URL
   #        and must also be escaped.
   # Parameters:
   #     input     - The string to escape.
   # Returns:
   #     The escaped string (' replaced by \' and \ replaced by \\).
   #
   sub escape_single {
       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;
   }
   #  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.220  
changed lines
  Added in v.1.222

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>