[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.223

version 1.221, 2004/10/21 09:53:44 version 1.223, 2004/10/23 00:38:01
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  #    Escapes strings that may have embedded 's that will be put into
 #    javascript strings as 'strings'.  #    strings as 'strings'.
 #    The assumptions are:  sub escape_single {
 #       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 javascript_escape {  
     my ($input) = @_;      my ($input) = @_;
       $input =~ s/\\/\\\\/g; # Escape the \'s..(must be first)>
     #  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....      $input =~ s/\'/\\\'/g; # Esacpe the 's....
   
     return $input;      return $input;
 }  }
   
   #  Same as escape_single, but escape's "'s  This 
   #  can be used for  "strings"
   sub escape_double {
       my ($input) = @_;
       $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.
   sub escape_url {
       my ($url)   = @_;
       my @urlslices = split(/\//, $url);
       my $lastitem = &Apache::lonnet::escape(pop(@urlslices));
       return join('/',@urlslices).'/'.$lastitem;
   }
 =pod  =pod
   
 =back  =back
Removed from v.1.221  
changed lines
  Added in v.1.223

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