3 |
use strict; |
use strict; |
4 |
use Semantic::API; |
use Semantic::API; |
5 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
6 |
|
|
7 |
use EPrints qw/_x/; |
use EPrints qw/_x/; |
8 |
|
|
9 |
use lib '/home/dpavlin/stem-hr/'; |
use lib '/home/dpavlin/stem-hr/'; |
10 |
use StemHR; |
use StemHR; |
11 |
|
|
53 |
|
|
54 |
warn "body: $body\n" if $debug; |
warn "body: $body\n" if $debug; |
55 |
|
|
56 |
$indexer->index( $row->{id}, join(" ", @body, $body ) ); |
$body .= EPrints->fulltext_content; |
57 |
|
|
58 |
|
$indexer->index( $row->{id}, join(" ", @body, $body ) ); |
59 |
$total++; |
$total++; |
60 |
print STDERR _x( $row->{id}, " ", $row->{title} ), "\n"; |
print STDERR _x( $row->{id}, " ", $row->{title} ), "\n"; |
61 |
} |
} |