--- a/Lib/Schema/Form/Field.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/Schema/Form/Field.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,33 +1,33 @@
-package Schema::Form::Field;
-use strict;
-use Common;
-use base qw(Schema::Form::Item);
-
-BEGIN {
-    DeclareProperty Format => ACCESS_READ;
-}
-
-sub CTOR {
-    my ($this,%args) = @_;
-    
-    $args{'Format'} or die new Exception('A format is required for a field');
-    
-    $args{'Attributes'} = { %{$args{Format}->Attributes},%{$args{Attributes} || {} } };
-    
-    $this->SUPER::CTOR(@args{qw(Name isMulti Filters Attributes)});
-    $this->{$Format} = $args{'Format'};
-}
-
-=pod
-Сначала применить фильтры формата а потом фильтры поля
-=cut
-sub Filters {
-    my ($this) = @_;
-    
-    my @filters = $this->{$Format}->Filters;
-    push @filters,$this->SUPER::Filters;
-    
-    return @filters;
-}
-
-1;
+package Schema::Form::Field;
+use strict;
+use Common;
+use base qw(Schema::Form::Item);
+
+BEGIN {
+    DeclareProperty Format => ACCESS_READ;
+}
+
+sub CTOR {
+    my ($this,%args) = @_;
+    
+    $args{'Format'} or die new Exception('A format is required for a field');
+    
+    $args{'Attributes'} = { %{$args{Format}->Attributes},%{$args{Attributes} || {} } };
+    
+    $this->SUPER::CTOR(@args{qw(Name isMulti Filters Attributes)});
+    $this->{$Format} = $args{'Format'};
+}
+
+=pod
+Сначала применить фильтры формата а потом фильтры поля
+=cut
+sub Filters {
+    my ($this) = @_;
+    
+    my @filters = $this->{$Format}->Filters;
+    push @filters,$this->SUPER::Filters;
+    
+    return @filters;
+}
+
+1;