CatalystX::Usul::Model::Config::Fields - Class definition for fields

CatalystX-Usul documentation

Contained in the CatalystX-Usul distribution.

Index

Name
Version
Synopsis
Description
Subroutines/Methods
Diagnostics
Configuration and Environment
Dependencies
- CatalystX::Usul::Model::Config
Incompatibilities
Bugs and Limitations
Author
License and Copyright

Code Index:

package CatalystX::Usul::Model::Config::Fields
__END__
EOF

Name

CatalystX::Usul::Model::Config::Fields - Class definition for fields

Version

0.3.$Revision: 591 $

Synopsis

   # The constructor is called by Catalyst at startup

Description

Defines the attributes of the <field> elements in the configuration files

There are twenty one language independent attributes to the fields element; type, clear, width, maxlength, required, validate, onchange, height, palign, align, behaviour, checked, class, max_integer, min_integer, min_password_length, nowrap, onkeypress, pwidth, sep and subtype

There are six language dependent attributes to the fields element; atitle, ctitle, fhelp, prompt, text and tip

Subroutines/Methods

None

Diagnostics

None

Configuration and Environment

None

Dependencies

CatalystX::Usul::Model::Config

Incompatibilities

There are no known incompatibilities in this module

Bugs and Limitations

There are no known bugs in this module. Please report problems to the address below. Patches are welcome

Author

Peter Flanigan, <Support at RoxSoft.co.uk>

License and Copyright

Copyright (c) 2008 Peter Flanigan. All rights reserved

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic

This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE

CatalystX-Usul documentation

Contained in the CatalystX-Usul distribution.

# @(#)$Id: Fields.pm 591 2009-06-13 13:34:41Z pjf $

package CatalystX::Usul::Model::Config::Fields;

use strict;
use warnings;
use version; our $VERSION = qv( sprintf '0.3.%d', q$Rev: 591 $ =~ /\d+/gmx );
use parent qw(CatalystX::Usul::Model::Config);

__PACKAGE__->config
   ( create_msg_key    => q(Field [_1]/[_2] created),
     delete_msg_key    => q(Field [_1]/[_2] deleted),
     keys_attr         => q(field),
     schema_attributes => {
      attributes       => [ qw(type prompt clear width maxlength tip
                               required validate onchange height palign
                               atitle align behaviour checked class
                               ctitle edit fhelp max_integer min_integer
                               min_password_length nowrap onkeypress
                               pwidth select sep subtype text) ],
      defaults         => { prompt => q() },
      element          => q(fields),
      lang_dep         => { qw(atitle 1 ctitle 1 fhelp 1
                               prompt 1 text   1 tip   1) } },
     typelist          => { fhelp => q(textarea), tip => q(textarea) },
     update_msg_key    => q(Field [_1]/[_2] updated), );

1;

__END__

# Local Variables:
# mode: perl
# tab-width: 3
# End: