From ca8cd9af30c2273891d4e489404b61fbac439fcc Mon Sep 17 00:00:00 2001 From: jeff Date: Thu, 16 Sep 2010 04:17:32 +0000 Subject: [PATCH] default registrations to 1 year --- FS/FS/part_export/domreg_opensrs.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/FS/FS/part_export/domreg_opensrs.pm b/FS/FS/part_export/domreg_opensrs.pm index 6554991d3..76f0059aa 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;"; -- 2.11.0