[otrs-cvs] FAQ/Kernel/System FAQ.pm,1.166,1.167

Comments:
Update of /home/cvs/FAQ/Kernel/System
In directory lancelot:/tmp/cvs-serv3347/Kernel/System

Modified Files:
	FAQ.pm 
Log Message:
Moved all language functions to a separated file.

Author: cr

Index: FAQ.pm
===================================================================
RCS file: /home/cvs/FAQ/Kernel/System/FAQ.pm,v
retrieving revision 1.166
retrieving revision 1.167
diff -2 -u -d -r1.166 -r1.167
--- FAQ.pm	20 May 2013 18:13:25 -0000	1.166
+++ FAQ.pm	29 Jun 2013 15:43:10 -0000	1.167
@@ -25,4 +25,6 @@
 use Kernel::System::Web::UploadCache;
 
+use base qw(Kernel::System::FAQ::Language);
+
 use vars qw($VERSION);
 $VERSION = qw($Revision$) [1];
@@ -3095,345 +3097,4 @@
 }
 
-=item LanguageList()
-
-get the language list as hash
-
-    my %Languages = $FAQObject->LanguageList(
-        UserID => 1,
-    );
-
-Returns:
-
-    %Languages = (
-        1 => 'en',
-        2 => 'de',
-        3 => 'es',
-    );
-
-=cut
-
-sub LanguageList {
-    my ( $Self, %Param ) = @_;
-
-    # check needed stuff
-    if ( !$Param{UserID} ) {
-        $Self->{LogObject}->Log(
-            Priority => 'error',
-            Message  => "Need UserID!",
-        );
-        return;
-    }
-
-    # build sql
-    return if !$Self->{DBObject}->Prepare(
-        SQL => 'SELECT id, name FROM faq_language',
-    );
-
-    # fetch the result
-    my %List;
-    while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
-        $List{ $Row[0] } = $Row[1];
-    }
-
-    return %List;
-}
-
-=item LanguageUpdate()
-
-update a language
-
-    my $Success = $FAQObject->LanguageUpdate(
-        LanguageID => 1,
-        Name       => 'de',
-        UserID     => 1,
-    );
-
-Returns:
-
-    $Success = 1;               # or undef if language could not be updated
-
-=cut
-
-sub LanguageUpdate {
-    my ( $Self, %Param ) = @_;
-
-    # check needed stuff
-    for my $Argument (qw(LanguageID Name UserID)) {
-        if ( !$Param{$Argument} ) {
-            $Self->{LogObject}->Log(
-                Priority => 'error',
-                Message  => "Need $Argument!",
-            );
-            return;
-        }
-    }
-
-    # build sql
-    return if !$Self->{DBObject}->Do(
-        SQL => 'UPDATE faq_language SET name = ? WHERE id = ?',
-        Bind => [ \$Param{Name}, \$Param{LanguageID} ],
-    );
-
-    return 1;
-}
-
-=item LanguageDuplicateCheck()
-
-check a language
-
-    my $Exists = $FAQObject->LanguageDuplicateCheck(
-        Name       => 'Some Name',
-        LanguageID => 1, # for update
-        UserID     => 1,
-    );
-
-Returns:
-
-    $Exists = 1;                # if language already exists, or 0 if does not exist
-
-=cut
-
-sub LanguageDuplicateCheck {
-    my ( $Self, %Param ) = @_;
-
-    # check needed stuff
-    if ( !$Param{UserID} ) {
-        $Self->{LogObject}->Log(
-            Priority => 'error',
-            Message  => "Need UserID!",
-        );
-        return;
-    }
-
-    # db quote
-    $Param{Name} = $Self->{DBObject}->Quote( $Param{Name} ) || '';
-    $Param{LanguageID} = $Self->{DBObject}->Quote( $Param{LanguageID}, 'Integer' );
-
-    # build sql
-    my $SQL = 'SELECT id FROM faq_language WHERE ';
-    if ( defined $Param{Name} ) {
-        $SQL .= "name = '$Param{Name}' ";
-    }
-    if ( defined $Param{LanguageID} ) {
-        $SQL .= "AND id != '$Param{LanguageID}' ";
-    }
-
-    # prepare sql statement
-    return if !$Self->{DBObject}->Prepare(
-        SQL   => $SQL,
-        Limit => 1,
-    );
-
-    # fetch the result
-    my $Exists;
-    while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
-        $Exists = 1;
-    }
-
-    return $Exists;
-}
-
-=item LanguageAdd()
-
-add a language
-
-    my $Success = $FAQObject->LanguageAdd(
-        Name   => 'Some Category',
-        UserID => 1,
-    );
-
-Returns:
-
-    $Success = 1;               # or undef if language could not be added
-
-=cut
-
-sub LanguageAdd {
-    my ( $Self, %Param ) = @_;
-
-    # check needed stuff
-    for my $Argument (qw(Name UserID)) {
-        if ( !$Param{$Argument} ) {
-            $Self->{LogObject}->Log(
-                Priority => 'error',
-                Message  => "Need $Argument!",
-            );
-            return;
-        }
-    }
-
-    return if !$Self->{DBObject}->Do(
-        SQL  => 'INSERT INTO faq_language (name) VALUES (?)',
-        Bind => [ \$Param{Name} ],
-    );
-
-    return 1;
-}
-
-=item LanguageGet()
-
-get a language as hash
-
-    my %Language = $FAQObject->LanguageGet(
-        LanguageID => 1,
-        UserID     => 1,
-    );
-
-Returns:
-
-    %Language = (
-        LanguageID => '1',
-        Name       => 'en',
-    );
-
-=cut
-
-sub LanguageGet {
-    my ( $Self, %Param ) = @_;
-
-    # check needed stuff
-    for my $Argument (qw(LanguageID UserID)) {
-        if ( !$Param{$Argument} ) {
-            $Self->{LogObject}->Log(
-                Priority => 'error',
-                Message  => "Need $Argument!",
-            );
-            return;
-        }
-    }
-
-    # sql
-    return if !$Self->{DBObject}->Prepare(
-        SQL   => 'SELECT id, name FROM faq_language WHERE id = ?',
-        Bind  => [ \$Param{LanguageID} ],
-        Limit => 1,
-    );
-
-    my %Data;
-    while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
-        %Data = (
-            LanguageID => $Row[0],
-            Name       => $Row[1],
-        );
-    }
-
-    return %Data;
-}
-
-=item LanguageLookup()
-
-This method does a lookup for a faq language.
-If a language id is given, it returns the name of the language.
-If the name of the language is given, the language id is returned.
-
-    my $LanguageName = $FAQObject->LanguageLookup(
-        LanguageID => 1,
-    );
-
-    my $LanguageID = $FAQObject->LanguageLookup(
-        Name => 'en',
-    );
-
-Returns:
-
-    $LanguageName = 'en';
-
-    $LanguageID = 1;
-
-=cut
-
-sub LanguageLookup {
-    my ( $Self, %Param ) = @_;
-
-    # check if both parameters are given
-    if ( $Param{LanguageID} && $Param{Name} ) {
-        $Self->{LogObject}->Log(
-            Priority => 'error',
-            Message  => 'Need LanguageID or Name - not both!',
-        );
-        return;
-    }
-
-    # check if both parameters are not given
-    if ( !$Param{LanguageID} && !$Param{Name} ) {
-        $Self->{LogObject}->Log(
-            Priority => 'error',
-            Message  => 'Need LanguageID or Name - none is given!',
-        );
-        return;
-    }
-
-    # check if LanguageID is a number
-    if ( $Param{LanguageID} && $Param{LanguageID} !~ m{ \A \d+ \z }xms ) {
-        $Self->{LogObject}->Log(
-            Priority => 'error',
-            Message  => "LanguageID must be a number! (LanguageID: $Param{LanguageID})",
-        );
-        return;
-    }
-
-    # prepare SQL statements
-    if ( $Param{LanguageID} ) {
-        return if !$Self->{DBObject}->Prepare(
-            SQL   => 'SELECT name FROM faq_language WHERE id = ?',
-            Bind  => [ \$Param{LanguageID} ],
-            Limit => 1,
-        );
-    }
-    elsif ( $Param{Name} ) {
-        return if !$Self->{DBObject}->Prepare(
-            SQL   => 'SELECT id FROM faq_language WHERE name = ?',
-            Bind  => [ \$Param{Name} ],
-            Limit => 1,
-        );
-    }
-
-    # fetch the result
-    my $Lookup;
-    while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
-        $Lookup = $Row[0];
-    }
-
-    return $Lookup;
-}
-
-=item LanguageDelete()
-
-Delete a language.
-
-    my $DeleteSuccess = $FAQObject->LanguageDelete(
-        LanguageID => 123,
-        UserID      => 1,
-    );
-
-Returns
-
-    $DeleteSuccess = 1;             # or undef if language could not be deleted
-
-=cut
-
-sub LanguageDelete {
-    my ( $Self, %Param ) = @_;
-
-    # check needed stuff
-    for my $Attribute (qw(LanguageID UserID)) {
-        if ( !$Param{$Attribute} ) {
-            $Self->{LogObject}->Log(
-                Priority => 'error',
-                Message  => "Need $Attribute!",
-            );
-            return;
-        }
-    }
-
-    # delete the language
-    return if !$Self->{DBObject}->Do(
-        SQL  => 'DELETE FROM faq_language WHERE id = ? ',
-        Bind => [ \$Param{LanguageID} ],
-    );
-
-    return 1;
-}
-
 =item FAQSearch()
 
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log