5 description => "Allow configuration of required fields when a patron is editing their information via the OPAC",
8 my ($dbh, $out) = @$args{qw(dbh out)};
11 INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` )
12 SELECT 'PatronSelfModificationMandatoryField', value, NULL, 'Define the required fields when a patron is editing their information via the OPAC','free'
13 FROM (SELECT value FROM systempreferences WHERE variable='PatronSelfRegistrationBorrowerMandatoryField') tmp
16 my ($syspref_value) = $dbh->selectrow_array(q{
17 SELECT value FROM systempreferences WHERE variable='PatronSelfModificationMandatoryField'
19 say $out "Added new system preference 'PatronSelfModificationMandatoryField' with value '$syspref_value'";