[mb-commits] r10395 - mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Form/Field

[root at musicbrainz.org]

Author: acid2
Date: 2008-09-26 16:06:01 +0000 (Fri, 26 Sep 2008)
New Revision: 10395

Added:
   mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Form/Field/Compound.pm
Modified:
   mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Form/Field/Track.pm
Log:
MB::S::Form::Field::Track is now a compound field

Added: mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Form/Field/Compound.pm

Modified: mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Form/Field/Track.pm
===================================================================
--- mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Form/Field/Track.pm	2008-09-26 16:05:52 UTC (rev 10394)
+++ mb_server/branches/TemplateToolkit/lib/MusicBrainz/Server/Form/Field/Track.pm	2008-09-26 16:06:01 UTC (rev 10395)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use base 'Form::Processor::Field';
+use base 'MusicBrainz::Server::Form::Field::Compound';
 
 use Rose::Object::MakeMethods::Generic(
     boolean => [ with_track_number => { default => 1 } ],
@@ -26,16 +26,10 @@
 
 =cut
 
-sub init_widget { 'compound' }
-
-sub any_input { 1 }
-
-sub init
+sub profile
 {
-    my ($self) = shift;
+    my $self = shift;
 
-    $self->SUPER::init(@_);
-
     my $profile = {
         required => {
             name   => 'Text',
@@ -50,43 +44,7 @@
         $profile->{required}->{number} = '+MusicBrainz::Server::Form::Field::TrackNumber',
     }
 
-    $self->sub_form(
-        MusicBrainz::Server::Form->new(
-            parent_field => $self,
-            profile      => $profile,
-        )
-    );
+    return $profile;
 }
 
-sub validate
-{
-    my $self = shift;
-
-    my $sub_form_validated = $self->sub_form->validate(scalar $self->form->params);
-
-    return $sub_form_validated
-        unless $sub_form_validated;
-
-    return 1;
-}
-
-=head2
-
-Construct a value (that will be accessed by controllers when the form
-is valid) from the user input.
-
-For this field, we simply return a hash containing the keys: number,
-title and duration.
-
-=cut
-
-sub input_to_value
-{
-    my $self  = shift;
-
-    my %values = map { $_->name => $_->value } @{ $self->sub_form->fields };
-
-    $self->value(\%values);
-}
-
 1;