db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.20, 2001/07/21 23:59:52	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 229 MAIN:	Line 231 MAIN:
#	#
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',	my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',
'Автор' => 'Authors', 'Рейтинг'=>'Rating',	'Автор' => 'Authors', 'Рейтинг'=>'Rating',
'Источник' => 'Sources');	'Источник' => 'Sources',
	'Тема' => 'Topic');


my($source);	my($source);