From 61fd0c2eabbd8de6577e1a3f1395e71b01b457f6 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 8 May 2004 07:47:01 +0000
Subject: [PATCH] default finger to first+last

---
 FS/FS/svc_acct.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 69ee9b2d2..156523089 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -818,6 +818,15 @@ sub check {
 
   #  $error = $self->ut_textn('finger');
   #  return $error if $error;
+  if ( $self->getfield('finger') eq '' ) {
+    my $cust_pkg = $self->svcnum
+      ? $self->cust_svc->cust_pkg
+      : qsearchs('cust_pkg', { 'pkgnum' => $self->getfield('pkgnum') } );
+    if ( $cust_pkg ) {
+      my $cust_main = $cust_pkg->cust_main;
+      $self->setfield('finger', $cust_main->first.' '.$cust_main->get('last') );
+    }
+  }
   $self->getfield('finger') =~
     /^([\w \t\!\@\#\$\%\&\(\)\-\+\;\'\"\,\.\?\/\*\<\>]*)$/
       or return "Illegal finger: ". $self->getfield('finger');
-- 
2.20.1