$identifier =~ s/\W//g; #anything else would just confuse things
$self->identifier($identifier);
- $self->ut_number('prepaynum')
+ $self->ut_numbern('prepaynum')
|| $self->ut_alpha('identifier')
|| $self->ut_money('amount')
;
=head1 VERSION
-$Id: prepay_credit.pm,v 1.1 2000-01-31 05:22:23 ivan Exp $
+$Id: prepay_credit.pm,v 1.3 2001-08-21 02:44:47 ivan Exp $
=head1 BUGS
L<FS::Record>, schema.html from the base documentation.
-=head1 HISTORY
-
-$Log: prepay_credit.pm,v $
-Revision 1.1 2000-01-31 05:22:23 ivan
-prepaid "internet cards"
-
-
=cut
1;