|
Lines 9-20
return {
Link Here
|
| 9 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
9 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
| 10 |
|
10 |
|
| 11 |
# Do you stuffs here |
11 |
# Do you stuffs here |
| 12 |
$dbh->do(q{ |
12 |
$dbh->do( |
|
|
13 |
q{ |
| 13 |
INSERT IGNORE INTO systempreferences |
14 |
INSERT IGNORE INTO systempreferences |
| 14 |
(`variable`, `value`, `options`, `explanation`, `type`) |
15 |
(`variable`, `value`, `options`, `explanation`, `type`) |
| 15 |
VALUES |
16 |
VALUES |
| 16 |
('SendPrintNoticesEmails','','','What email addresses should send_print_notices.pl send to?','Free'), |
17 |
('SendPrintNoticesEmails','','','What email addresses should send_print_notices.pl send to?','Free'), |
| 17 |
('SendPrintNoticesCombineEmails','1',NULL,'If we have emails in the flag and the system preference should we combine them or just use the system preference?','YesNo')}); |
18 |
('SendPrintNoticesCombineEmails','1',NULL,'If we have emails in the flag and the system preference should we combine them or just use the system preference?','YesNo')} |
|
|
19 |
); |
| 18 |
|
20 |
|
| 19 |
say $out "Added new system preferences 'SendPrintNoticesEmails' and 'SendPrintNoticesCombineEmails"; |
21 |
say $out "Added new system preferences 'SendPrintNoticesEmails' and 'SendPrintNoticesCombineEmails"; |
| 20 |
}, |
22 |
}, |