From: Bill Erickson Date: Fri, 4 Dec 2015 21:56:25 +0000 (-0500) Subject: JBAS-1037 Ecard/classroom DO NOT MERGE alert X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ddc45162be1f675c6111d819475d8150d17d0502;p=working%2FEvergreen.git JBAS-1037 Ecard/classroom DO NOT MERGE alert Signed-off-by: Bill Erickson --- diff --git a/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl b/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl index c692b5e787..37a33ce25c 100755 --- a/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl +++ b/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl @@ -21,6 +21,7 @@ my $c_ident_value = "KCLS generated"; my $syslog_ident = 'ECARD'; my $alert_msg = 'Student Ecard: No physical checkouts. No computer/printing. No laptops.'; my $c_alert_msg = 'Classroom use only: No physical checkouts. No computer/printing. No laptops.'; +my $alert2_msg = 'DO NOT MERGE OR EDIT. RECORD MANAGED CENTRALLY.'; my $alert_type = 20; # "Alerting note, no Blocks" standing penalty my $root_org = 1; # KCLS org unit for penalty application my $db_handle; @@ -618,10 +619,17 @@ sub create_patron { $is_classroom ? $c_alert_msg : $alert_msg ); + my @alrt2_bind = ( + $root_org, + $alert_type, + $alert2_msg + ); + return unless handle_insert($phash, $create_user_sth, \@user_bind); return unless handle_insert($phash, $create_addr_sth, \@addr_bind); return unless handle_insert($phash, $create_card_sth, \@card_bind); return unless handle_insert($phash, $create_alrt_sth, \@alrt_bind); + return unless handle_insert($phash, $create_alrt_sth, \@alrt2_bind); return unless handle_insert($phash, $create_link_sth, [], 1); }