From dc27bd58d551e6f1ebdd5cbd9803176ee467c2a3 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 24 Aug 2010 12:24:45 +0000
Subject: [PATCH] change for new syntax in CNM support to get_filelist

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

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 9c71e49f5..01e56f0d6 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -3462,9 +3462,9 @@ sub getAutoIncrementColumns {
              directory,filelist,type 
     Returns:
             The list of sql files to be processed which consists of all the
-			files with <name>.sql  and <name>.<databasename>.sql
+			files with <name>.sql  and <name>_<databasename>.sql
 		        or 	
-			files with <name>.pm  and <name>.<databasename>.pm
+			files with <name>.pm  and <name>_<databasename>.pm
     Globals:
 
     Error:
@@ -3510,13 +3510,13 @@ sub get_filelist
 
     my @filelist = ();
 
-    # my @dblist = glob($directory . "*.$dbname.$ext"); # current database
     my @list = glob($directory . "*.$ext");    # all files
     foreach my $file (@list)
     {
         my $filename= basename($file);  # strip filename
-        my($name,$ext1,$ext2) = split '\.', $filename;
-        if ($ext1 eq $dbname)
+        my($name,$ext1) = split '\.', $filename;
+        my($name,$ext2) = split '\_', $name;
+        if ($ext2 eq $dbname)
         {
             push @filelist, $file;
         }