[otrs-cvs] otrs/Kernel/System/ProcessManagement/DB TransitionAction.pm, 1.8, 1.9 Activity.pm, 1.13, 1.14 ActivityDialog.pm, 1.7, 1.8 Transition.pm, 1.8, 1.9 Process.pm, 1.38, 1.39

"CVS commits notifications of OTRS.org" <[email protected]>
Newsgroups gmane.comp.otrs.cvs
Message-ID <[email protected]> 
Comments:
Update of /home/cvs/otrs/Kernel/System/ProcessManagement/DB
In directory lancelot:/tmp/cvs-serv9398/Kernel/System/ProcessManagement/DB

Modified Files:
	TransitionAction.pm Activity.pm ActivityDialog.pm 
	Transition.pm Process.pm 
Log Message:
Re-implemented Kernel::System::YAML as OOP.

Author: cr

Index: TransitionAction.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/ProcessManagement/DB/TransitionAction.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -2 -u -d -r1.8 -r1.9
--- TransitionAction.pm	15 Jan 2013 17:43:27 -0000	1.8
+++ TransitionAction.pm	17 Jan 2013 03:39:21 -0000	1.9
@@ -98,4 +98,5 @@
     # create additional objects
     $Self->{CacheObject} = Kernel::System::Cache->new( %{$Self} );
+    $Self->{YAMLObject}  = Kernel::System::YAML->new( %{$Self} );
 
     # get the cache TTL (in seconds)
@@ -204,5 +205,5 @@
 
     # dump layout and config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
@@ -366,5 +367,5 @@
 
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
-        my $Config = Kernel::System::YAML::Load( $Data[3] );
+        my $Config = $Self->{YAMLObject}->Load( Data => $Data[3] );
 
         %Data = (
@@ -478,5 +479,5 @@
 
     # dump layout and config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if

Author: cr

Index: Activity.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/ProcessManagement/DB/Activity.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -2 -u -d -r1.13 -r1.14
--- Activity.pm	15 Jan 2013 17:43:27 -0000	1.13
+++ Activity.pm	17 Jan 2013 03:39:21 -0000	1.14
@@ -100,4 +100,5 @@
     # create additional objects
     $Self->{CacheObject} = Kernel::System::Cache->new( %{$Self} );
+    $Self->{YAMLObject}  = Kernel::System::YAML->new( %{$Self} );
 
     # get the cache TTL (in seconds)
@@ -184,5 +185,5 @@
 
     # dump config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
@@ -375,5 +376,5 @@
 
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
-        my $Config = Kernel::System::YAML::Load( $Data[3] );
+        my $Config = $Self->{YAMLObject}->Load( Data => $Data[3] );
 
         %Data = (
@@ -489,5 +490,5 @@
 
     # dump config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if

Author: cr

Index: ActivityDialog.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/ProcessManagement/DB/ActivityDialog.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -2 -u -d -r1.7 -r1.8
--- ActivityDialog.pm	15 Jan 2013 17:43:27 -0000	1.7
+++ ActivityDialog.pm	17 Jan 2013 03:39:21 -0000	1.8
@@ -98,4 +98,5 @@
     # create additional objects
     $Self->{CacheObject} = Kernel::System::Cache->new( %{$Self} );
+    $Self->{YAMLObject}  = Kernel::System::YAML->new( %{$Self} );
 
     # get the cache TTL (in seconds)
@@ -205,5 +206,5 @@
 
     # dump layout and config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
@@ -367,5 +368,5 @@
 
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
-        my $Config = Kernel::System::YAML::Load( $Data[3] );
+        my $Config = $Self->{YAMLObject}->Load( Data => $Data[3] );
 
         %Data = (
@@ -479,5 +480,5 @@
 
     # dump layout and config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if

Author: cr

Index: Transition.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/ProcessManagement/DB/Transition.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -2 -u -d -r1.8 -r1.9
--- Transition.pm	15 Jan 2013 17:43:27 -0000	1.8
+++ Transition.pm	17 Jan 2013 03:39:21 -0000	1.9
@@ -98,4 +98,5 @@
     # create additional objects
     $Self->{CacheObject} = Kernel::System::Cache->new( %{$Self} );
+    $Self->{YAMLObject}  = Kernel::System::YAML->new( %{$Self} );
 
     # get the cache TTL (in seconds)
@@ -198,5 +199,5 @@
 
     # dump layout and config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
@@ -360,5 +361,5 @@
 
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
-        my $Config = Kernel::System::YAML::Load( $Data[3] );
+        my $Config = $Self->{YAMLObject}->Load( Data => $Data[3] );
 
         %Data = (
@@ -465,5 +466,5 @@
 
     # dump layout and config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if

Author: cr

Index: Process.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/ProcessManagement/DB/Process.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -2 -u -d -r1.38 -r1.39
--- Process.pm	15 Jan 2013 17:43:27 -0000	1.38
+++ Process.pm	17 Jan 2013 03:39:21 -0000	1.39
@@ -105,4 +105,5 @@
     # create additional objects
     $Self->{CacheObject} = Kernel::System::Cache->new( %{$Self} );
+    $Self->{YAMLObject}  = Kernel::System::YAML->new( %{$Self} );
 
     $Self->{ActivityDialogObject}
@@ -204,6 +205,6 @@
 
     # dump layout and config as string
-    my $Layout = Kernel::System::YAML::Dump( $Param{Layout} );
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Layout = $Self->{YAMLObject}->Dump( Data => $Param{Layout} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
@@ -438,6 +439,6 @@
 
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
-        my $Layout = Kernel::System::YAML::Load( $Data[4] );
-        my $Config = Kernel::System::YAML::Load( $Data[5] );
+        my $Layout = $Self->{YAMLObject}->Load( Data => $Data[4] );
+        my $Config = $Self->{YAMLObject}->Load( Data => $Data[5] );
 
         %Data = (
@@ -664,6 +665,6 @@
 
     # dump layout and config as string
-    my $Layout = Kernel::System::YAML::Dump( $Param{Layout} );
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Layout = $Self->{YAMLObject}->Dump( Data => $Param{Layout} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
---------------------------------------------------------------------
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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.