db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.22, 2002/01/12 00:55:33	version 1.24, 2002/01/15 03:34:31
Line 67 sub getField {	Line 67 sub getField {
s/[ ]//g;	s/[ ]//g;
if ($key && /^\s*$/) {	if ($key && /^\s*$/) {
chomp $value;	chomp $value;
	$value =~ s/\s+$//;
chomp $key;	chomp $key;
if ($key eq 'Дата') {	if ($key eq 'Дата') {
$value =~ s/^(.)-(.)-(.*)$/$3-$2-$1/;	$value =~ s/^(.)-(.)-(.*)$/$3-$2-$1/;
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);
}	}
Line 135 sub UpdateTournament {	Line 137 sub UpdateTournament {

sub UpdateQuestion {	sub UpdateQuestion {
my ($dbh, $QuestionId, $field, $value) = @_;	my ($dbh, $QuestionId, $field, $value) = @_;
$value=~s/\s*$//;
$dbh->do("UPDATE Questions SET $field=$value	$dbh->do("UPDATE Questions SET $field=$value
WHERE QuestionId=$QuestionId")	WHERE QuestionId=$QuestionId")
or die $dbh->errstr;	or die $dbh->errstr;