scalar => [ qw(table) ],
);
+sub set_profile_defaults {
+};
+
sub init_class {
my ($self) = @_;
$self->class('SL::DB::Shipto');
};
}
-sub field_lengths {
- return ( shiptoname => 75,
- shiptodepartment_1 => 75,
- shiptodepartment_2 => 75,
- shiptostreet => 75,
- shiptozipcode => 75,
- shiptocity => 75,
- shiptocountry => 75,
- shiptocontact => 75,
- shiptophone => 30,
- shiptofax => 30,
- );
-}
-
sub init_profile {
my ($self) = @_;