diff options
| author | jeff <jeff> | 2010-09-16 04:17:32 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2010-09-16 04:17:32 +0000 |
| commit | ca8cd9af30c2273891d4e489404b61fbac439fcc (patch) | |
| tree | 5700c38d2fe9dfd8dc0b4437ceacaaccc809941e | |
| parent | 592c1771d2b332127113e30094bf8fd6b026e046 (diff) | |
default registrations to 1 year
| -rw-r--r-- | FS/FS/part_export/domreg_opensrs.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/part_export/domreg_opensrs.pm b/FS/FS/part_export/domreg_opensrs.pm index 6554991..76f0059 100644 --- a/FS/FS/part_export/domreg_opensrs.pm +++ b/FS/FS/part_export/domreg_opensrs.pm @@ -379,6 +379,8 @@ Like most export functions, returns an error message on failure or undef on succ sub register { my ( $self, $svc_domain, $years ) = @_; + $years = 1 unless $years; #default to 1 year since we don't seem to pass it + return "Net::OpenSRS does not support period other than 1 year" if $years != 1; eval "use Net::OpenSRS;"; |