version 1.21, 2002/01/07 01:32:26
|
version 1.23, 2002/01/12 05:01:36
|
Line 74 sub getField {
|
Line 74 sub getField {
|
$value =~ s/-(.*)-/-$month-/; |
$value =~ s/-(.*)-/-$month-/; |
$value =~ s/-00*$/-01/; |
$value =~ s/-00*$/-01/; |
} |
} |
|
$value =~ s/\s+$//; |
$value = $dbh->quote($value); |
$value = $dbh->quote($value); |
return ($key, $value); |
return ($key, $value); |
} |
} |
Line 90 sub getField {
|
Line 91 sub getField {
|
} |
} |
} |
} |
if ($key && $value) { |
if ($key && $value) { |
|
$value=~s/\s+$//; |
$value = $dbh->quote($value); |
$value = $dbh->quote($value); |
return ($key, $value); |
return ($key, $value); |
} |
} |