[otrs-cvs] otrs/Kernel/System/GenericInterface WebserviceHistory.pm, 1.14, 1.15 Webservice.pm, 1.39, 1.40

Comments:
Update of /home/cvs/otrs/Kernel/System/GenericInterface
In directory lancelot:/tmp/cvs-serv9398/Kernel/System/GenericInterface

Modified Files:
	WebserviceHistory.pm Webservice.pm 
Log Message:
Re-implemented Kernel::System::YAML as OOP.

Author: cr

Index: WebserviceHistory.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/GenericInterface/WebserviceHistory.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -2 -u -d -r1.14 -r1.15
--- WebserviceHistory.pm	15 Jan 2013 17:43:27 -0000	1.14
+++ WebserviceHistory.pm	17 Jan 2013 03:39:21 -0000	1.15
@@ -93,4 +93,6 @@
     }
 
+    # create additional objects
+    $Self->{YAMLObject} = Kernel::System::YAML->new( %{$Self} );
     return $Self;
 }
@@ -122,5 +124,5 @@
 
     # dump config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # md5 of content
@@ -191,5 +193,5 @@
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
 
-        my $Config = Kernel::System::YAML::Load( $Data[1] );
+        my $Config = $Self->{YAMLObject}->Load( Data => $Data[1] );
 
         %Data = (
@@ -229,5 +231,5 @@
 
     # dump config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # md5 of content

Author: cr

Index: Webservice.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/GenericInterface/Webservice.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -2 -u -d -r1.39 -r1.40
--- Webservice.pm	15 Jan 2013 17:43:27 -0000	1.39
+++ Webservice.pm	17 Jan 2013 03:39:21 -0000	1.40
@@ -107,4 +107,5 @@
     $Self->{ObjectLockStateObject}
         = Kernel::System::GenericInterface::ObjectLockState->new( %{$Self} );
+    $Self->{YAMLObject} = Kernel::System::YAML->new( %{$Self} );
 
     # get the cache TTL (in seconds)
@@ -151,5 +152,5 @@
 
     # dump config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # md5 of content
@@ -262,5 +263,5 @@
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
 
-        my $Config = Kernel::System::YAML::Load( $Data[2] );
+        my $Config = $Self->{YAMLObject}->Load( Data => $Data[2] );
 
         %Data = (
@@ -322,5 +323,5 @@
 
     # dump config as string
-    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
+    my $Config = $Self->{YAMLObject}->Dump( Data => $Param{Config} );
 
     # md5 of content
---------------------------------------------------------------------
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