[otrs-cvs] Support/Kernel/System Support.pm,1.56,1.57

Comments:
Update of /home/cvs/Support/Kernel/System
In directory lancelot:/tmp/cvs-serv16592/Kernel/System

Modified Files:
	Support.pm 
Log Message:
Added new parameter for AdminChecksGet to indicate if the result needs to be flattened (for the check.xml) or not (for display).

Author: mb

Index: Support.pm
===================================================================
RCS file: /home/cvs/Support/Kernel/System/Support.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -2 -u -d -r1.56 -r1.57
--- Support.pm	17 Jan 2013 08:42:59 -0000	1.56
+++ Support.pm	23 Jan 2013 11:35:25 -0000	1.57
@@ -100,5 +100,7 @@
 get a hash reference with possibility checks.
 
-    my $List = $Support->AdminChecksGet();
+    my $List = $Support->AdminChecksGet(
+        Flatten => 1, # optional, to flatten hash refs in output, only needed for generating XML output.
+    );
 
 =cut
@@ -157,5 +159,5 @@
         my $AdminCheckRef = $SupportObject->AdminChecksGet();
 
-        # TableInfo can contain a hash ref, we have to flatten it
+        # TableInfo can contain a hash ref, check if we have to flatten it
         # so we can provide valid info to the Check file later on
 
@@ -163,5 +165,5 @@
         for my $Check (@$AdminCheckRef) {
             $TestCounter++;
-            if ( ref $Check->{TableInfo} eq 'HASH' ) {
+            if ( ref $Check->{TableInfo} eq 'HASH' && $Param{Flatten} ) {
                 my $String;
                 for my $Item ( sort keys %{ $Check->{TableInfo} } ) {
@@ -702,5 +704,7 @@
 
     # create check package
-    my $DataHash = $Self->AdminChecksGet();
+    my $DataHash = $Self->AdminChecksGet(
+        Flatten => 1,
+    );
     my $XMLCheck = $Self->XMLStringCreate( DataHash => $DataHash );
 
@@ -818,5 +822,7 @@
 
     # create check package
-    my $DataHash = $Self->AdminChecksGet();
+    my $DataHash = $Self->AdminChecksGet(
+        Flatten => 1,
+    );
 
     $File{CheckContent} = $Self->XMLStringCreate( DataHash => $DataHash, );
---------------------------------------------------------------------
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