return span {id => $type}, $dropdown;
} # makeStoragePoolsDropdown
return span {id => $type}, $dropdown;
} # makeStoragePoolsDropdown
my ($system, $label, $default, $onchange) = @_;
$label ||= '';
my ($system, $label, $default, $onchange) = @_;
$label ||= '';
return span {id => 'filesystems'}, $dropdown;
} # makeFilesystemDropdown
return span {id => 'filesystems'}, $dropdown;
} # makeFilesystemDropdown
return span {id => 'scaling'}, $dropdown;
} # makeIntervalDropdown;
return span {id => 'scaling'}, $dropdown;
} # makeIntervalDropdown;
my ($label, $default, $onchange, %systems) = @_;
$label ||= '';
my ($label, $default, $onchange, %systems) = @_;
$label ||= '';
my $clearscm = a {-href => 'http://clearscm.com'}, 'ClearSCM, Inc.';
# Figure out which script by using CLEARADM_BASE.
my $clearscm = a {-href => 'http://clearscm.com'}, 'ClearSCM, Inc.';
# Figure out which script by using CLEARADM_BASE.