45 |
# $dt = "NULL"; |
# $dt = "NULL"; |
46 |
$dt = undef; |
$dt = undef; |
47 |
} |
} |
48 |
return $pgdbh->quote($dt); |
return $dt; |
49 |
} |
} |
50 |
|
|
51 |
sub ConvertBool { |
sub ConvertBool { |
60 |
$str =~ s/[\x00-\x1F]+//gs; |
$str =~ s/[\x00-\x1F]+//gs; |
61 |
$str =~ s/\s*\x8D?\s*\r?\s*\n\s*/\n/gs; |
$str =~ s/\s*\x8D?\s*\r?\s*\n\s*/\n/gs; |
62 |
$str =~ s/(^\s+|\s+$)//gs; |
$str =~ s/(^\s+|\s+$)//gs; |
63 |
$str =~ s/(^"|"$)//g; |
$str =~ s/(^["']|["']$)//g; |
64 |
# char recoding |
# char recoding |
65 |
#$str =~ s/đ/ð/g; |
#$str =~ s/đ/ð/g; |
66 |
#$str =~ s/č/è/g; |
#$str =~ s/č/è/g; |
67 |
#$str =~ s/ý/¾/g; |
#$str =~ s/ý/¾/g; |
68 |
$str =~ tr/{|`~}[\\@^]/¹ð¾èæ©Ð®ÈÆ/; |
$str =~ tr/{|`~}[\\@^]/¹ð¾èæ©Ð®ÈÆ/; |
69 |
return $pgdbh->quote($str); |
# return $pgdbh->quote($str); |
70 |
|
return $str; |
71 |
} |
} |
72 |
|
|
73 |
sub Progress { |
sub Progress { |
82 |
} |
} |
83 |
|
|
84 |
sub CondInsert { |
sub CondInsert { |
85 |
my ($table, $name, $key, $fields, $values) = @_; |
my ($table, $name, $key, @fields, @values) = @_; |
86 |
my $sql = "SELECT $name FROM $table WHERE ($name = $key)"; |
my $sql = "SELECT $name FROM $table WHERE ($name = $key)"; |
87 |
my $cnt = $pgdbh->do($sql); |
my $cnt = $pgdbh->do($sql); |
88 |
return 0 if ($cnt > 0); |
return 0 if ($cnt > 0); |
89 |
$sql = "INSERT INTO $table $fields VALUES $values"; |
$sql = "INSERT INTO $table (".join(",",@fields).") VALUES (".'?'.$#values.")"; |
90 |
my $ret = $pgdbh->do($sql); |
my $sth = $pgdbh->prepare("INSERT INTO $table (".join(",",@fields).") VALUES (".'?'.$#values.")"); |
91 |
|
my $ret = $sth->execute(@values); |
92 |
my $err = $pgdbh->errstr; |
my $err = $pgdbh->errstr; |
93 |
print &Log("[$sql] ".$err) if ($err); |
print &Log("[$sql] ".$err) if ($err); |
94 |
return $ret; |
return $ret; |