[otrs-cvs] CVS: ITSMCMDB/Kernel/Modules AgentITSMCMDB.pm, 1.1.1.1, 1.2

[cvs-log at otrs.org]

Update of /home/cvs/ITSMCMDB/Kernel/Modules
In directory lancelot:/tmp/cvs-serv15607/Kernel/Modules

Modified Files:
	AgentITSMCMDB.pm 
Log Message:
update

Index: AgentITSMCMDB.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/Modules/AgentITSMCMDB.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** AgentITSMCMDB.pm	2 Oct 2006 11:45:59 -0000	1.1.1.1
--- AgentITSMCMDB.pm	4 Oct 2006 16:24:45 -0000	1.2
***************
*** 45,56 ****
      my $Output;
  
!     if ($Self->{Subaction} eq 'New') {
!         $Output = $Self->{LayoutObject}->Header(Title => 'New');
          $Output .= $Self->{LayoutObject}->NavigationBar();
  
          $Self->{LayoutObject}->Block(
!             Name => 'New',
              Data => {},
          );
  
          $Output .= $Self->{LayoutObject}->Output(
--- 45,119 ----
      my $Output;
  
!     if ($Self->{Subaction} eq 'CIOverview') {
!         my $CI = $Self->{ParamObject}->GetParam(Param => "CI");
!         # check if CI exists
! #        if ($Self->{ITSMCMDBObject}->) {
! #            return $Self->{LayoutObject}->Redirect(OP => "Action=$Self->{Action}");
! #        }
! 
!         $Output = $Self->{LayoutObject}->Header(Title => 'CI Overview');
          $Output .= $Self->{LayoutObject}->NavigationBar();
  
          $Self->{LayoutObject}->Block(
!             Name => 'CIOverview',
              Data => {},
          );
+         my @List = $Self->{ITSMCMDBObject}->ObjectGet(
+             ObjectID => $CI,
+             UserID => 1,
+         );
+ 
+         foreach my $Object (@List) {
+             $Self->{LayoutObject}->Block(
+                 Name => 'CIOverviewRow',
+                 Data => {
+ 
+                 },
+             );
+         }
+ 
+         $Output .= $Self->{LayoutObject}->Output(
+             TemplateFile => 'AgentITSMCMDB',
+             Data => {%Param},
+         );
+ 
+         $Output .= $Self->{LayoutObject}->Footer();
+ 
+         return $Output;
+     }
+     elsif ($Self->{Subaction} eq 'RecordNew') {
+         my $CI = $Self->{ParamObject}->GetParam(Param => "CISelect");
+ 
+         $Output = $Self->{LayoutObject}->Header(Title => 'New Record');
+         $Output .= $Self->{LayoutObject}->NavigationBar();
+ 
+         # create option list
+         my %CIList;
+         foreach my $CI ($Self->{ITSMCMDBObject}->ObjectList()) {
+             $CIList{$CI} = $CI;
+         }
+         $Param{'CISelectStrg'} = $Self->{LayoutObject}->OptionStrgHashRef(
+             Data => \%CIList,
+             Name => 'CISelect',
+             SelectedID => $CI,
+         );
+ 
+         $Self->{LayoutObject}->Block(
+             Name => 'RecordNew',
+             Data => {
+                 %Param,
+                 CI => $CI,
+             },
+         );
+ 
+         if ($CI) {
+             $Self->{LayoutObject}->Block(
+                 Name => 'RecordNewData',
+                 Data => {
+                     %Param,
+                     CI => $CI,
+                 },
+             );
+         }
  
          $Output .= $Self->{LayoutObject}->Output(
***************
*** 65,69 ****
  
      # ------------------------------------------------------------ #
!     # show overview
      # ------------------------------------------------------------ #
  
--- 128,132 ----
  
      # ------------------------------------------------------------ #
!     # overview
      # ------------------------------------------------------------ #
  
***************
*** 71,78 ****
--- 134,153 ----
      $Output .= $Self->{LayoutObject}->NavigationBar();
  
+     # print the main table.
      $Self->{LayoutObject}->Block(
          Name => 'Overview',
          Data => {},
      );
+     my @List = $Self->{ITSMCMDBObject}->ObjectList();
+ 
+     foreach my $CI (@List) {
+         $Self->{LayoutObject}->Block(
+             Name => 'OverviewRow',
+             Data => {
+                 CI => $CI,
+                 Number => '200',
+             },
+         );
+     }
  
      $Output .= $Self->{LayoutObject}->Output(
***************
*** 86,88 ****
  }
  
! 1;
--- 161,163 ----
  }
  
! 1;
\ No newline at end of file