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; |