Merge remote branch 'refs/remotes/kirana/after-262'
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 9 Feb 2011 13:33:36 +0000 (14:33 +0100)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 9 Feb 2011 13:33:36 +0000 (14:33 +0100)
1  2 
SL/Form.pm

diff --combined SL/Form.pm
@@@ -385,7 -385,7 +385,7 @@@ sub escape 
    my ($self, $str) = @_;
  
    $str =  Encode::encode('utf-8-strict', $str) if $::locale->is_utf8;
 -  $str =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02x", ord($1))/ge;
 +  $str =~ s/([^a-zA-Z0-9_.:-])/sprintf("%%%02x", ord($1))/ge;
  
    $main::lxdebug->leave_sub(2);
  
@@@ -401,7 -401,6 +401,7 @@@ sub unescape 
    $str =~ s/\\$//;
  
    $str =~ s/%([0-9a-fA-Z]{2})/pack("c",hex($1))/eg;
 +  $str =  Encode::decode('utf-8-strict', $str) if $::locale->is_utf8;
  
    $main::lxdebug->leave_sub(2);
  
@@@ -1617,7 -1616,7 +1617,7 @@@ sub get_standard_dbh 
      undef $standard_dbh;
    }
  
-   $standard_dbh ||= SL::DB::create->dbh;
+   $standard_dbh ||= $self->dbconnect_noauto($myconfig);
  
    $main::lxdebug->leave_sub(2);