From b13c971ee710c8e5dd53ed4fce58d3756e89c821 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Wed, 24 Jan 2024 11:32:34 +0100
Subject: [PATCH] Bug 34478: op =~ ^cud- in pl/pm - Manual preferences.pl

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 admin/preferences.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/admin/preferences.pl b/admin/preferences.pl
index 415ac5e355..63f495c771 100755
--- a/admin/preferences.pl
+++ b/admin/preferences.pl
@@ -75,8 +75,8 @@ sub _get_chunk {
 
     if ( $options{'class'} && $options{'class'} eq 'password' ) {
         $chunk->{'input_type'} = 'password';
-    } elsif ( $options{'class'} && $options{'class'} eq 'cud-email' ) {
-        $chunk->{'input_type'} = 'cud-email';
+    } elsif ( $options{'class'} && $options{'class'} eq 'email' ) {
+        $chunk->{'input_type'} = 'email';
     } elsif ( $options{'class'} && $options{'class'} eq 'date' ) {
         $chunk->{'dateinput'} = 1;
     } elsif ( $options{'type'} && ( $options{'type'} eq 'opac-languages' || $options{'type'} eq 'staff-languages' ) ) {
@@ -120,7 +120,7 @@ sub _get_chunk {
 
         $value ||= 0;
 
-        $chunk->{'type'} = ( $options{class} && $options{class} eq 'multiple' ) ? 'multiple' : 'cud-select';
+        $chunk->{'type'} = ( $options{class} && $options{class} eq 'multiple' ) ? 'multiple' : 'select';
 
         my @values;
         @values = split /,/, $value if defined($value);
@@ -143,7 +143,7 @@ sub _get_chunk {
         unshift @{ $chunk->{CHOICES} }, {
             text  => '',
             value => '',
-        } if $add_blank && $chunk->{type} eq 'cud-select';
+        } if $add_blank && $chunk->{type} eq 'select';
 
     } elsif ( $options{'multiple'} ) {
         my @values;
-- 
2.20.1