fix bug 3563351: lsslp -r flag provides error on ST NGP xCAT MN

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13703 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2012-09-03 07:39:45 +00:00
parent fe70b3731a
commit 55cbc5fa4b

View File

@ -649,8 +649,10 @@ sub format_output {
my $raw = ${$outhash->{$_}}{url};
$rawhash{$raw} = 1;
}
foreach ( keys %rawhash ) {
$result .= "$_\n";
foreach my $en ( keys %rawhash ) {
if ($en =~ /(\(type.*\))/) {
$result .= "$1\n";
}
}
send_msg( $request, 0, $result );