db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.14, 2000/10/22 05:10:12	version 1.15, 2000/10/22 06:03:35
Line 78 sub getField {	Line 78 sub getField {
}	}
next if (/^\s*$/);	next if (/^\s*$/);

if (s/^(.?)[:\.]\s// && !$key) {	if (/^(.)[:\.]\s/ && !$key) {
$key = $1;	$key = $1;
$value=$_;
next;	next;
}	}
if ($key) {	if ($key) {
Line 227 MAIN:	Line 226 MAIN:
# Inherited fields for a Question	# Inherited fields for a Question
#	#
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',	my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',
'Автор' => 'Authors',	'Автор' => 'Authors', 'Рейтинг'=>'Rating',
'Источник' => 'Sources');	'Источник' => 'Sources');


Line 318 MAIN:	Line 317 MAIN:
next;	next;
}	}

my @Fields = grep /$key/, keys %QuestionFields;	my @Fields = grep { $key =~ /$_/ } keys %QuestionFields;

if (scalar @Fields) {	if (scalar @Fields) {
my $word = shift @Fields;	my $word = shift @Fields;
Line 333 MAIN:	Line 332 MAIN:
next;	next;
}	}

@Fields = grep /$key/, keys %TourFields;	@Fields = grep { $key =~ /$_/ } keys %TourFields;

if (scalar @Fields) {	if (scalar @Fields) {
my $word = shift @Fields;	my $word = shift @Fields;