11 |
|
|
12 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
13 |
|
|
14 |
|
my $type = 'slogovi'; |
15 |
|
|
16 |
my $dbh = EPrints->dbh; |
my $dbh = EPrints->dbh; |
17 |
my $sth = $dbh->prepare(qq{ |
my $sth = $dbh->prepare(qq{ |
18 |
SELECT |
SELECT |
34 |
maximum_word_length => 15 ); |
maximum_word_length => 15 ); |
35 |
|
|
36 |
# use this encoding for any incoming text |
# use this encoding for any incoming text |
37 |
$indexer->set_default_encoding( "utf8"); |
#$indexer->set_default_encoding( "utf8"); |
38 |
|
|
39 |
my $total = 0; |
my $total = 0; |
40 |
|
|
48 |
my @body = split( /\W*\s+\W*/, "$title $title $title $keywords $keywords $abstract" ); |
my @body = split( /\W*\s+\W*/, "$title $title $title $keywords $keywords $abstract" ); |
49 |
my $body; |
my $body; |
50 |
foreach my $word ( @body ) { |
foreach my $word ( @body ) { |
51 |
$body .= StemHR->stem( $word ) . ' '; |
# $body .= StemHR->stem( $word ) . ' '; |
52 |
|
$body .= join(" ",EPrints::slogovi( $word )) . ' '; |
53 |
} |
} |
54 |
|
|
55 |
warn "body: $body\n" if $debug; |
warn "body: $body\n" if $debug; |