[otrs-cvs] FAQ/Kernel/Modules AgentFAQ.pm, 1.9, 1.10 FAQ.pm, 1.10, 1.11

[cvs-log at otrs.org]

Comments:
Update of /home/cvs/FAQ/Kernel/Modules
In directory lancelot:/tmp/cvs-serv25913/Kernel/Modules

Modified Files:
	AgentFAQ.pm FAQ.pm 
Log Message:
Fixed perl and html code style bugs.

Author: rk

Index: AgentFAQ.pm
===================================================================
RCS file: /home/cvs/FAQ/Kernel/Modules/AgentFAQ.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** AgentFAQ.pm	18 Jan 2007 14:11:20 -0000	1.9
--- AgentFAQ.pm	3 Jul 2007 14:02:46 -0000	1.10
***************
*** 18,21 ****
--- 18,22 ----
  use Kernel::System::User;
  use Kernel::System::Group;
+ use Kernel::System::Valid;
  
  use vars qw($VERSION @ISA);
***************
*** 25,29 ****
  @ISA = qw(Kernel::Modules::FAQ);
  
- # --
  sub new {
      my $Type = shift;
--- 26,29 ----
***************
*** 49,52 ****
--- 49,53 ----
          $Self->{LayoutObject}->FatalError(Message => "Got no $_!") if (!$Self->{$_});
      }
+     $Self->{ValidObject} = Kernel::System::Valid->new(%Param);
      $Self->{UserObject} = Kernel::System::User->new(%Param);
      $Self->{GroupObject} = Kernel::System::Group->new(%Param);
***************
*** 84,88 ****
      # manage parameters
      # ********************************************************** #
!     @Params = qw(ItemID ID Number Name Comment CategoryID ParentID StateID LanguageID Title UserID Field1 Field2 Field3 Field4 Field5 Field6 FreeKey1 FreeKey2 FreeKey3 Keywords Order Sort Nav);
      foreach (@Params) {
          $GetParam{$_} = $Self->{ParamObject}->GetParam(Param => $_) || '';
--- 85,90 ----
      # manage parameters
      # ********************************************************** #
!     @Params = qw(ItemID ID Number Name Comment CategoryID ParentID StateID LanguageID Title UserID
!     Field1 Field2 Field3 Field4 Field5 Field6 FreeKey1 FreeKey2 FreeKey3 Keywords Order Sort Nav);
      foreach (@Params) {
          $GetParam{$_} = $Self->{ParamObject}->GetParam(Param => $_) || '';
***************
*** 325,337 ****
              RootElement => 1,
          );
          # build ValidID string
          $Frontend{ValidOption} = $Self->{LayoutObject}->OptionStrgHashRef(
!             Data => {
!                 $Self->{DBObject}->GetTableData(
!                     What => 'id, name',
!                     Table => 'valid',
!                     Valid => 0,
!                 )
!             },
              Name => 'ValidID',
              SelectedID => $CategoryData{ValidID},
--- 327,334 ----
              RootElement => 1,
          );
+ 
          # build ValidID string
          $Frontend{ValidOption} = $Self->{LayoutObject}->OptionStrgHashRef(
!             Data => {$Self->{ValidObject}->ValidList()},
              Name => 'ValidID',
              SelectedID => $CategoryData{ValidID},
***************
*** 346,353 ****
--- 343,356 ----
              SelectedIDRefArray => $SelectedGroups,
          );
+         $Param{Headline} = 'Update';
+         $Param{FormSubaction} = 'CategoryChangeAction';
          $Self->{LayoutObject}->Block(
              Name => 'Category',
              Data => { %Param, %Frontend, %CategoryData },
          );
+         $Self->{LayoutObject}->Block(
+             Name => 'CategoryAddLink',
+             Data => { %Param },
+         );
  
      }
***************
*** 428,440 ****
          # build ValidID string
          $Frontend{ValidOption} = $Self->{LayoutObject}->OptionStrgHashRef(
!             Data => {
!                 $Self->{DBObject}->GetTableData(
!                     What => 'id, name',
!                     Table => 'valid',
!                     Valid => 0,
!                 )
!             },
              Name => 'ValidID',
          );
          # group permission
          my %Groups = $Self->{GroupObject}->GroupList(Valid => 1);
--- 431,439 ----
          # build ValidID string
          $Frontend{ValidOption} = $Self->{LayoutObject}->OptionStrgHashRef(
!             Data => {$Self->{ValidObject}->ValidList()},
              Name => 'ValidID',
          );
+         $Param{Headline} = 'Add';
+         $Param{FormSubaction} = 'CategoryAddAction';
          # group permission
          my %Groups = $Self->{GroupObject}->GroupList(Valid => 1);
***************
*** 950,954 ****
                  Links => 1,
                  Permission => $Permission,
!              );
          }
          $HeaderTitle = $Self->{ItemData}{Number};
--- 949,953 ----
                  Links => 1,
                  Permission => $Permission,
!             );
          }
          $HeaderTitle = $Self->{ItemData}{Number};

Author: rk

Index: FAQ.pm
===================================================================
RCS file: /home/cvs/FAQ/Kernel/Modules/FAQ.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** FAQ.pm	10 Apr 2007 10:54:25 -0000	1.10
--- FAQ.pm	3 Jul 2007 14:02:46 -0000	1.11
***************
*** 968,971 ****
--- 968,972 ----
                  ParentID => $GetParam{CategoryIDs}->[0],
                  ItemStates => $Self->{InterfaceStates},
+                 CustomerUser => $Param{CustomerUser},
                  UserID => $Param{User},
                  Mode => $Param{Mode},