[otrs-cvs] ImportExport/Kernel/Output/HTML ImportExportLayoutSelection.pm, 1.3, 1.4 ImportExportLayoutText.pm, 1.3, 1.4

[cvs-log at otrs.org]

Comments:
Update of /home/cvs/ImportExport/Kernel/Output/HTML
In directory lancelot:/tmp/cvs-serv3606/Kernel/Output/HTML

Modified Files:
	ImportExportLayoutSelection.pm ImportExportLayoutText.pm 
Log Message:
New functionalities.

Author: mh

Index: ImportExportLayoutSelection.pm
===================================================================
RCS file: /home/cvs/ImportExport/Kernel/Output/HTML/ImportExportLayoutSelection.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ImportExportLayoutSelection.pm	5 Feb 2008 11:29:01 -0000	1.3
--- ImportExportLayoutSelection.pm	5 Feb 2008 19:23:56 -0000	1.4
***************
*** 60,65 ****
  
      my $Value = $BackendObject->FormInputCreate(
!         Item  => $ItemRef,
!         Value => 'Value',   # (optional)
      );
  
--- 60,66 ----
  
      my $Value = $BackendObject->FormInputCreate(
!         Item   => $ItemRef,
!         Prefix => 'Prefix::',  # (optional)
!         Value  => 'Value',     # (optional)
      );
  
***************
*** 75,78 ****
--- 76,81 ----
      }
  
+     $Param{Prefix} ||= '';
+ 
      # set default value
      if ( !defined $Param{Item}->{Input}->{Translation} ) {
***************
*** 82,86 ****
      # generate option string
      my $String = $Self->{LayoutObject}->BuildSelection(
!         Name       => $Param{Item}->{Key}           || '',
          Data       => $Param{Item}->{Input}->{Data} || {},
          SelectedID => $Param{Value}                 || $Param{Item}->{Input}->{ValueDefault},
--- 85,89 ----
      # generate option string
      my $String = $Self->{LayoutObject}->BuildSelection(
!         Name       => $Param{Prefix} . $Param{Item}->{Key},
          Data       => $Param{Item}->{Input}->{Data} || {},
          SelectedID => $Param{Value}                 || $Param{Item}->{Input}->{ValueDefault},
***************
*** 97,101 ****
  
      my $FormData = $BackendObject->FormDataGet(
!         Item => $ItemRef,
      );
  
--- 100,105 ----
  
      my $FormData = $BackendObject->FormDataGet(
!         Item   => $ItemRef,
!         Prefix => 'Prefix::',  # (optional)
      );
  
***************
*** 111,116 ****
      }
  
      # get form data
!     my $FormData = $Self->{ParamObject}->GetParam( Param => $Param{Item}->{Key} );
  
      return $FormData if $FormData;
--- 115,124 ----
      }
  
+     $Param{Prefix} ||= '';
+ 
      # get form data
!     my $FormData = $Self->{ParamObject}->GetParam(
!         Param => $Param{Prefix} . $Param{Item}->{Key},
!     );
  
      return $FormData if $FormData;

Author: mh

Index: ImportExportLayoutText.pm
===================================================================
RCS file: /home/cvs/ImportExport/Kernel/Output/HTML/ImportExportLayoutText.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ImportExportLayoutText.pm	5 Feb 2008 11:29:01 -0000	1.3
--- ImportExportLayoutText.pm	5 Feb 2008 19:23:56 -0000	1.4
***************
*** 60,65 ****
  
      my $Value = $BackendObject->FormInputCreate(
!         Item  => $ItemRef,
!         Value => 'Value',   # (optional)
      );
  
--- 60,66 ----
  
      my $Value = $BackendObject->FormInputCreate(
!         Item   => $ItemRef,
!         Prefix => 'Prefix::',  # (optional)
!         Value  => 'Value',     # (optional)
      );
  
***************
*** 75,81 ****
      }
  
      my $Value = $Param{Value} || $Param{Item}->{Input}->{ValueDefault};
      my $Size = $Param{Item}->{Input}->{Size} || 40;
!     my $String = "<input type=\"Text\" name=\"$Param{Item}->{Key}\" size=\"$Size\" ";
  
      if ($Value) {
--- 76,84 ----
      }
  
+     $Param{Prefix} ||= '';
+ 
      my $Value = $Param{Value} || $Param{Item}->{Input}->{ValueDefault};
      my $Size = $Param{Item}->{Input}->{Size} || 40;
!     my $String = "<input type=\"Text\" name=\"$Param{Prefix}$Param{Item}->{Key}\" size=\"$Size\" ";
  
      if ($Value) {
***************
*** 110,114 ****
  
      my $FormData = $BackendObject->FormDataGet(
!         Item => $ItemRef,
      );
  
--- 113,118 ----
  
      my $FormData = $BackendObject->FormDataGet(
!         Item   => $ItemRef,
!         Prefix => 'Prefix::',  # (optional)
      );
  
***************
*** 124,129 ****
      }
  
      # get form data
!     my $FormData = $Self->{ParamObject}->GetParam( Param => $Param{Item}->{Key} );
  
      return $FormData if $FormData;
--- 128,137 ----
      }
  
+     $Param{Prefix} ||= '';
+ 
      # get form data
!     my $FormData = $Self->{ParamObject}->GetParam(
!         Param => $Param{Prefix} . $Param{Item}->{Key},
!     );
  
      return $FormData if $FormData;