Mercurial > pub > Impl

annotate Lib/IMPL/Web/View/Metadata/FormProvider.pm @ 364:82b6c967bcf1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync, working on metadata
author cin
date Fri, 29 Nov 2013 16:33:07 +0400
parents
children 7c621bb95e53
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
364
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
1 package IMPL::Web::View::Metadata::FormProvider;
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
2 use strict;
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
3
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
4 use IMPL::declare {
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
5 base => [
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
6 'IMPL::Object' => undef
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
7 ]
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
8 };
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
9
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
10 sub GetFormMetadata {
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
11 my ($this,$model, $form) = @_;
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
12 }
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
13
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
14 sub PopulateChildren {
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
15 my ($this,$meta) = @_;
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
16
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
17 map {
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
18 $_->name,
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
19 $_
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
20 } $meta->schema->content->childNodes;
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
21 }
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
22
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
23 sub GetChild {
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
24
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
25 }
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
26
82b6c967bcf1 sync, working on metadata
cin
parents:
diff changeset
27 1;