/usr/local/CPAN/XAO-Commerce/XAO/DO/Web/Address.pm

• package XAO::DO::Web::Address
  • check_mode
  • form_fields
• EOF

package XAO::DO::Web::Address;
use XAO::Utils;
use XAO::Errors qw(XAO::DO::Web::Address);

use base XAO::Objects->load(objname => 'Web::FS');

use vars qw($VERSION);
$VERSION=(0+sprintf('%u.%03u',(q$Id: Address.pm,v 1.2 2005/01/14 02:15:53 am Exp $ =~ /\s(\d+)\.(\d+)\s/))) || die "Bad VERSION";

###############################################################################
sub check_mode ($%) {
    my $self=shift;
    my $args=get_args(\@_);
    $self->SUPER::check_mode($args);
}
###############################################################################
sub form_fields {
    my $self=shift;
    return [
        {
            name => 'ref_name',
            required => 1,
            style => 'text',
            maxlength => 50,
            minlength => 1,
            param => 'REF_NAME',
            text => 'Reference Name',
        },
        {
            name => 'name_line1',
            required => 1,
            style => 'text',
            maxlength => 50,
            minlength => 5,
            param => 'NAME_LINE1',
            text => 'Ship Name Line 1',
        },
        {
            name => 'name_line2',
            style => 'text',
            maxlength => 50,
            param => 'NAME_LINE2',
            text => 'Ship Name Line 2',
        },
        {
            name => 'line_1',
            required => 1,
            style => 'text',
            maxlength => 100,
            minlength => 5,
            param => 'LINE_1',
            text => 'Address (line 1)',
        },
        {
            name => 'line_2',
            style => 'text',
            maxlength => 100,
            param => 'LINE_2',
            text => 'Address (line 2)',
        },
        {
            name => 'city',
            required => 1,
            style => 'text',
            maxlength => 50,
            minlength => 2,
            param => 'CITY',
            text => 'City',
        },
        {
            name => 'state',
            required => 1,
            style => 'uscontst',
            param => 'STATE',
            text => 'State',
        },
        {
            name => 'zipcode',
            required => 1,
            style => 'text',
            maxlength => 20,
            minlength => 5,
            param => 'ZIPCODE',
            text => 'Zip-Code',
        },
        {
            name => 'phone',
            required => 1,
            style => 'usphone',
            param => 'PHONE',
            text => 'Phone',
        },
    ];
}
###############################################################################
1;