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 |
} |