From f096e514bbd539b9c8350a5c22f07d834bdb883c Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 29 Oct 2008 16:10:44 +0000
Subject: [PATCH] more fixes for -i flag

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2412 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/SINV.pm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/perl-xCAT/xCAT/SINV.pm b/perl-xCAT/xCAT/SINV.pm
index cc872d4c7..845e0fded 100644
--- a/perl-xCAT/xCAT/SINV.pm
+++ b/perl-xCAT/xCAT/SINV.pm
@@ -1056,7 +1056,7 @@ sub writereport
     #
     my $rsp = {};
     $ignorefirsttemplate =~ tr/a-z/A-Z/;    # convert to upper
-
+    my $firstpass = 0;
     foreach my $template (sort keys %nodehash)
     {
 
@@ -1085,12 +1085,15 @@ sub writereport
             }
             else
             {    # do not report nodes on first template
-                $rsp->{data}->[0] =
+                if ($firstpass == 0) {
+                  $rsp->{data}->[0] =
                   "Not reporting matches on first template.\n";
-                print $::OUTPUT_FILE_HANDLE $rsp->{data}->[0];
-                if ($::VERBOSE)
-                {
+                  print $::OUTPUT_FILE_HANDLE $rsp->{data}->[0];
+                  if ($::VERBOSE)
+                  {
                     xCAT::MsgUtils->message("I", $rsp, $callback);
+                  }
+                  $firstpass = 1;
                 }
             }
         }