|
Lines 13-19
return {
Link Here
|
| 13 |
COMMENT "patron/borrower's preferred name" |
13 |
COMMENT "patron/borrower's preferred name" |
| 14 |
AFTER firstname |
14 |
AFTER firstname |
| 15 |
}); |
15 |
}); |
| 16 |
say $out "Add preferred name column to borrowers table"; |
16 |
say $out "Added preferred name column to borrowers table"; |
| 17 |
} |
17 |
} |
| 18 |
if( !column_exists( 'deletedborrowers', 'preferredname' ) ) { |
18 |
if( !column_exists( 'deletedborrowers', 'preferredname' ) ) { |
| 19 |
$dbh->do(q{ |
19 |
$dbh->do(q{ |
|
Lines 22-28
return {
Link Here
|
| 22 |
COMMENT "patron/borrower's preferred name" |
22 |
COMMENT "patron/borrower's preferred name" |
| 23 |
AFTER firstname |
23 |
AFTER firstname |
| 24 |
}); |
24 |
}); |
| 25 |
say $out "Add preferred name column to deletedborrowers table"; |
25 |
say $out "Added preferred name column to deletedborrowers table"; |
| 26 |
} |
26 |
} |
| 27 |
if( !column_exists( 'borrower_modifications', 'preferredname' ) ) { |
27 |
if( !column_exists( 'borrower_modifications', 'preferredname' ) ) { |
| 28 |
$dbh->do(q{ |
28 |
$dbh->do(q{ |
|
Lines 31-39
return {
Link Here
|
| 31 |
COMMENT "patron/borrower's preferred name" |
31 |
COMMENT "patron/borrower's preferred name" |
| 32 |
AFTER firstname |
32 |
AFTER firstname |
| 33 |
}); |
33 |
}); |
| 34 |
say $out "Add preferred name column to borrower_modifications table"; |
34 |
say $out "Added preferred name column to borrower_modifications table"; |
|
|
35 |
} |
| 36 |
my @default_patron_search_fields = split(',',C4::Context->preference('DefaultPatronSearchFields')); |
| 37 |
unless( grep /preferredname/, @default_patron_search_fields ){ |
| 38 |
if( grep /firstname/, @default_patron_search_fields ){ |
| 39 |
push @default_patron_search_fields,'preferredname'; |
| 40 |
C4::Context->set_preference('DefaultPatronSearchFields', join(',',@default_patron_search_fields) ); |
| 41 |
say $out "Added preferred name to DefaultPatronSearchFields"; |
| 42 |
} else { |
| 43 |
say $out "Please add 'preferredname' to DefaultPatronSearchFields if you want it searched by default"; |
| 44 |
} |
| 35 |
} |
45 |
} |
| 36 |
$dbh->do(q{}); |
|
|
| 37 |
# Print useful stuff here |
| 38 |
}, |
46 |
}, |
| 39 |
} |
47 |
} |