db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.8, 2000/10/19 03:28:25	version 1.9, 2000/10/20 00:39:27
Line 70 sub getField {	Line 70 sub getField {
chomp $key;	chomp $key;
if ($key eq 'Дата') {	if ($key eq 'Дата') {
$value =~ s/^(.)-(.)-(.*)$/$3-$2-$1/;	$value =~ s/^(.)-(.)-(.*)$/$3-$2-$1/;
my($month) = $RevMonths{$2};	my($month) = $RevMonths{$2} \|\| '000';
$value =~ s/$2/$month/;	$value =~ s/$2/$month/;
}	}
$value = $dbh->quote($value);	$value = $dbh->quote($value);
Line 174 sub DeleteTournament {	Line 174 sub DeleteTournament {
if($DeleteMyself) {	if($DeleteMyself) {
$sth = $dbh->prepare("DELETE FROM Tournaments	$sth = $dbh->prepare("DELETE FROM Tournaments
WHERE Id=$Id");	WHERE Id=$Id");
	$sth->execute or die $dbh->errstr;
}	}
}	}