|
|
@ -77,8 +77,9 @@ foreach my $acc (@accounts){ |
|
|
|
@mobile = ($mobile) unless ($mobile eq ''); |
|
|
|
@mobile = ($mobile) unless ($mobile eq ''); |
|
|
|
@extension = ($extension) unless ($extension eq ''); |
|
|
|
@extension = ($extension) unless ($extension eq ''); |
|
|
|
@fax = ($fax) unless ($fax eq ''); |
|
|
|
@fax = ($fax) unless ($fax eq ''); |
|
|
|
@titles = qw($function1 $function2 $function3 $function4) |
|
|
|
foreach ($function1, $function2, $function3, $function4){ |
|
|
|
unless ($function1 eq '' && $function2 eq '' && $function3 eq '' && $function4 eq ''); |
|
|
|
push @titles, $_ if ($_ ne ''); |
|
|
|
|
|
|
|
} |
|
|
|
@dshell = ($dshell) unless ($dshell eq ''); |
|
|
|
@dshell = ($dshell) unless ($dshell eq ''); |
|
|
|
@preferredemail = ($preferredemail) unless ($preferredemail eq ''); |
|
|
|
@preferredemail = ($preferredemail) unless ($preferredemail eq ''); |
|
|
|
@web = ($web) unless ($web eq ''); |
|
|
|
@web = ($web) unless ($web eq ''); |
|
|
|