From 51f243befb6df099e3faee8aaac3a9ce39741652 Mon Sep 17 00:00:00 2001 From: jeff Date: Thu, 16 Sep 2010 04:18:13 +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 40049cd54..4dad93909 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