diff options
Diffstat (limited to 'Kernel/System/DefaultTo.pm')
-rw-r--r-- | Kernel/System/DefaultTo.pm | 21 |
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 ) = @_; |