# HG changeset patch
# User cin
# Date 1360529902 -14400
# Node ID a8dbddf491dd9002a4560aeab52ff62a4cd6748b
# Parent  c6d0f889ef8788e5523f62fe88920126b71f1ba1
refactoring
*IMPL::declare reset abstractProps static property after implementing these props
*IMPL::Serialization: fixed bug with multiple text parts inside one node
*IMPL::Web::Handler::TTView: removed obsolete property 'location' from 'view' template variable

diff -r c6d0f889ef87 -r a8dbddf491dd Lib/IMPL/Serialization.pm
--- a/Lib/IMPL/Serialization.pm	Wed Feb 06 02:15:48 2013 +0400
+++ b/Lib/IMPL/Serialization.pm	Mon Feb 11 00:58:22 2013 +0400
@@ -234,12 +234,12 @@
     die Exception->new("Trying to set data for an object which not exists")
       if not $rhObject;
 
-    die Exception->new(
-        "Deserialization data already exists for a current object",
-        "ObjectName= $rhObject->{'Name'}" )
-      if $rhObject->{'Data'};
+    #die Exception->new(
+    #    "Deserialization data already exists for a current object",
+    #    "ObjectName= $rhObject->{'Name'}" )
+    #  if $rhObject->{'Data'};
 
-    $rhObject->{'Data'} = $data;
+    $rhObject->{'Data'} .= $data;
 
     return 1;
 }
diff -r c6d0f889ef87 -r a8dbddf491dd Lib/IMPL/Web/Application/ResourceInterface.pm
--- a/Lib/IMPL/Web/Application/ResourceInterface.pm	Wed Feb 06 02:15:48 2013 +0400
+++ b/Lib/IMPL/Web/Application/ResourceInterface.pm	Mon Feb 11 00:58:22 2013 +0400
@@ -11,7 +11,7 @@
 }
 
 sub FetchChildResource {
-    die NotImplementedException->new();
+    die NotImplException->new();
 }
 
 1;
diff -r c6d0f889ef87 -r a8dbddf491dd Lib/IMPL/Web/ForbiddenException.pm
--- a/Lib/IMPL/Web/ForbiddenException.pm	Wed Feb 06 02:15:48 2013 +0400
+++ b/Lib/IMPL/Web/ForbiddenException.pm	Mon Feb 11 00:58:22 2013 +0400
@@ -7,6 +7,10 @@
 	}
 };
 
+use IMPL::Resources::Strings {
+    message => "You don't have access to this resource"
+};
+
 sub status {
 	"403 Forbidden"
 }
diff -r c6d0f889ef87 -r a8dbddf491dd Lib/IMPL/Web/Handler/TTView.pm
--- a/Lib/IMPL/Web/Handler/TTView.pm	Wed Feb 06 02:15:48 2013 +0400
+++ b/Lib/IMPL/Web/Handler/TTView.pm	Mon Feb 11 00:58:22 2013 +0400
@@ -48,8 +48,6 @@
         $view = ViewResult->new(model => $model);
     }
     
-    $view->location($action->context->{resourceLocation}) unless $view->location;
-    
     my $vars = {
         view        => $view,
         model       => $model,
diff -r c6d0f889ef87 -r a8dbddf491dd Lib/IMPL/declare.pm
--- a/Lib/IMPL/declare.pm	Wed Feb 06 02:15:48 2013 +0400
+++ b/Lib/IMPL/declare.pm	Mon Feb 11 00:58:22 2013 +0400
@@ -98,7 +98,8 @@
 	}
 	
     if ($args->{_implement}) {
-        $self->_implementProps($caller->abstractProps,$caller);     
+        $self->_implementProps($caller->abstractProps,$caller);
+        $caller->abstractProps([]);
     }	
 	
 	$IMPL::require::level--;