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.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);
}	}
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;