diff Lib/IMPL/DOM/Schema/Node.pm @ 241:f48a1a9f4fa2

+Added ViewResult to allow implementation of the view environment. *TTDocuments now storing creation parameters *TTControls automatically propagating layout and title meta to their attributes +Added UnauthorizaedException web exception *minor fixes
author sergey
date Thu, 18 Oct 2012 04:49:55 +0400
parents 4d0e1962161c
children 4ddb27ff4a0b
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/Node.pm	Wed Oct 17 17:41:29 2012 +0400
+++ b/Lib/IMPL/DOM/Schema/Node.pm	Thu Oct 18 04:49:55 2012 +0400
@@ -57,6 +57,18 @@
     }
 }
 
+sub isOptional {
+    my ($this) = @_;
+    
+    return $this->{$minOccur} ? 0 : 1;
+}
+
+sub isMultiple {
+    my ($this) = @_;
+    
+    return ($this->{$maxOccur} eq 'unbounded' || $this->{$maxOccur} > 1 ) ? 1 : 0; 
+}
+
 sub inflateValue {
     $_[1];
 }