db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.18, 2000/11/11 03:58:59	version 1.21, 2002/01/07 01:32:26
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} \|\| '000';	my($month) = $RevMonths{$2} \|\| '01';
$value =~ s/$2/$month/;	$value =~ s/-(.*)-/-$month-/;
	$value =~ s/-00*$/-01/;
}	}
$value = $dbh->quote($value);	$value = $dbh->quote($value);
return ($key, $value);	return ($key, $value);
Line 228 MAIN:	Line 229 MAIN:
#	#
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',	my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',
'Автор' => 'Authors', 'Рейтинг'=>'Rating',	'Автор' => 'Authors', 'Рейтинг'=>'Rating',
'Источник' => 'Sources');	'Источник' => 'Sources',
	'Тема' => 'Topic');


my($source);	my($source);
Line 292 MAIN:	Line 294 MAIN:
if ($key =~ /Вопрос/) {	if ($key =~ /Вопрос/) {
if (!$TourId) {	if (!$TourId) {
$qnum = 0;	$qnum = 0;
$TourId=CreateTour($dbh,'1',$TournamentId,	$TourNum++;
	$TourId=CreateTour($dbh,'1',$TournamentId,$TourNum,
\%TourDefaults);	\%TourDefaults);
%QuestionDefaults=%QuestionGlobalDefaults;	%QuestionDefaults=%QuestionGlobalDefaults;
}	}