JBAS-1037 Ecard/classroom DO NOT MERGE alert

Signed-off-by: Bill Erickson <berickxx@gmail.com>

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 c692b5e..37a33ce 100755 (executable)
--- 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);
 }