DefaultTo: Add TitleExistsCheck

Add sub TitleExistsCheck to check if another DefaultTo entry exists with
the given name.

1 files changed, 21 insertions, 0 deletions

diff --git a/Kernel/System/DefaultTo.pm b/Kernel/System/DefaultTo.pm
index ef631cb..8ef9a1b 100644
--- a/Kernel/System/DefaultTo.pm
+++ b/Kernel/System/DefaultTo.pm
@@ -201,6 +201,27 @@ sub List {
     return %DefaultTo;
 }
 
+sub TitleExistsCheck {
+    my ( $Self, %Param ) = @_;
+
+    return if !$Self->{DBObject}->Prepare(
+        SQL  => 'SELECT id FROM default_to WHERE title = ?',
+        Bind => [ \$Param{Title} ],
+    );
+
+    # fetch the result
+    my $Flag;
+    while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
+        if ( !$Param{ID} || $Param{ID} ne $Row[0] ) {
+            $Flag = 1;
+        }
+    }
+    if ($Flag) {
+        return 1;
+    }
+    return 0;
+}
+
 sub MappingAdd {
     my ( $Self, %Param ) = @_;