Lines 83-89
This script takes the following parameters :
Link Here
|
83 |
-c --confirm Confirms you want to really run this script ( otherwise print help ) |
83 |
-c --confirm Confirms you want to really run this script ( otherwise print help ) |
84 |
-t --test Runs the script in test mode ( no changes will be made to your database ) |
84 |
-t --test Runs the script in test mode ( no changes will be made to your database ) |
85 |
-f --file CSV file of lexile scores ( acquired from Lexile.com ) |
85 |
-f --file CSV file of lexile scores ( acquired from Lexile.com ) |
86 |
-v --verbose Print data on found matches |
86 |
-v --verbose Print data on found matches. Use -v -v for more data, and -v -v -v will give the most data. |
87 |
--field Defines the field number for the Lexile data ( default: 521 ) |
87 |
--field Defines the field number for the Lexile data ( default: 521 ) |
88 |
--target-audience-note Defines the subfield for the lexile score ( default: a ) |
88 |
--target-audience-note Defines the subfield for the lexile score ( default: a ) |
89 |
--source Defines the "Source" subfield ( default: b ) |
89 |
--source Defines the "Source" subfield ( default: b ) |
Lines 142-148
while ( my $row = $csv->getline_hr($fh) ) {
Link Here
|
142 |
my @likes = map { { isbn => { like => '%' . $_ . '%' } } } @isbns; |
142 |
my @likes = map { { isbn => { like => '%' . $_ . '%' } } } @isbns; |
143 |
|
143 |
|
144 |
my @biblionumbers = |
144 |
my @biblionumbers = |
145 |
$schema->resultset('Biblioitem')->search( -or => \@likes ) |
145 |
$schema->resultset('Biblioitem')->search( { -or => \@likes } ) |
146 |
->get_column('biblionumber')->all(); |
146 |
->get_column('biblionumber')->all(); |
147 |
|
147 |
|
148 |
say "Found matching records! Biblionumbers: " . join( " ,", @biblionumbers ) |
148 |
say "Found matching records! Biblionumbers: " . join( " ,", @biblionumbers ) |
149 |
- |
|
|