Perl execution failed

This is a new server with only about 15 domain on it and now this. Not sure where to go from here. It happens when we try to load the Server Templates.

HTTP/1.0 500 Perl execution failed Server: MiniServ/1.660 Date: Wed, 5 Feb 2014 04:08:46 GMT Content-type: text/html; Charset=iso-8859-1 Connection: close

Error - Perl execution failed

Undefined subroutine &virtual_server::ui_link called at /usr/libexec/webmin/virtual-server/edit_newtmpl.cgi line 15.

This is what is in that file:

require './virtual-server-lib.pl'; &can_edit_templates() || &error($text{'newtmpl_ecannot'}); &ui_print_header(undef, $text{'newtmpl_title'}, "");

@tmpls = &list_templates(); foreach $t (@tmpls) { next if ($t->{'deleted'}); local @fcs; foreach $w ('web', 'dns', 'ftp', 'logrotate', 'mail_on') { ($sw = $w) =~ s/_on$//; push(@fcs, $t->{$w} eq "none" ? $text{'newtmpl_none'} : $t->{$w} eq "" ? $text{'default'} : ui_link("edit_tmpl.cgi?id=$t->{'id'}&editmode=$sw", $text{'newtmpl_cust'})); } $scripts = &list_template_scripts($t); $smesg = $scripts eq "none" ? $text{'newtmpl_none'} : @$scripts ? scalar(@$scripts) : $t->{'default'} ? $text{'newtmpl_none'} : $text{'default'}; if ($virtualmin_pro) { push(@fcs, ui_link("edit_tmpl.cgi?id=$t->{'id'}&". "editmode=scripts", $smesg)); } push(@table, [ { 'type' => 'checkbox', 'name' => 'd', 'value' => $t->{'id'}, 'disabled' => $t->{'standard'} }, ui_link("edit_tmpl.cgi?id=$t->{'id'}", $t->{'name'}), $t->{'skel'} eq "none" ? $text{'newtmpl_none'} : $t->{'skel'} eq "" ? $text{'default'} : "$t->{'skel'}", @fcs, $t->{'created'} ? &make_date($t->{'created'}, 1) : "$text{'newtmpl_init'}" ]); $deletable++ if (!$t->{'standard'}); }

print &ui_form_columns_table( "delete_tmpls.cgi", $deletable ? [ [ "delete", $text{'newtmpl_delete'} ] ] : [ ], 0, [ [ "edit_tmpl.cgi?new=1&cp=1", $text{'newtmpl_add2'} ], [ "edit_tmpl.cgi?new=1", $text{'newtmpl_add1'} ] ], undef, [ "", $text{'newtmpl_name'}, $text{'newtmpl_skel'}, $text{'newtmpl_web'}, $text{'newtmpl_dns'}, $text{'newtmpl_ftp'}, $text{'newtmpl_logrotate'}, $text{'newtmpl_mail'}, $virtualmin_pro ? ( $text{'newtmpl_scripts'} ) : ( ), $text{'newtmpl_created'} ], 100, \@table);

&ui_print_footer("", $text{'index_return'});

Suggestions would be very welcome. I am lost here.

Scott Hirsch