sub GetMappletList
   {
        my ($TableNm,$ColumnNm,$DomainNm,$AlgoNm);
        my @MaskingAlgorithmList;
        my @MappletNode;
       my $MpltRefFile_Dir = shift;
       my $MappletXmlName;
       open GET_MAPPLET_LIST, "<","$Profiler_Dir/$MpltRefFile_Dir/Inve
+ntory.rpt" or die "ERROR : Couldn't Open $Profiler_Dir/$MpltRefFile_D
+ir/Inventory.rpt $!";
       while (my $InvtoryCol = <GET_MAPPLET_LIST> )
              {
                       chomp $InvtoryCol;
                      ($TableNm,$ColumnNm,$DomainNm,$AlgoNm) = split(/
+,/,$InvtoryCol);
                      if ($TableNm =~ /$SourceTableName/)
                           {
                             
                              $MappletXmlName = "$Mapplet_Dir/$AlgoNm.
+XML";
                              my $MpltParser = XML::LibXML->new();
                              my $MpltXml = $MpltParser->parse_file("$
+MappletXmlName");
                              my $TargetXml = $MpltParser->parse_file(
+"$OutFileName");
                              my @MappletNode = $MpltXml->findnodes('/
+POWERMART/REPOSITORY/FOLDER/MAPPLET');
                              
                              

                              for my $node (@MappletNode) 
                                     {


                                               $TargetXml->appendChild
+($node);
                                               #print $node->toString(
+2);
                                               
                                       }

                           }
              }
       close(GET_MAPPLET_LIST);
   
   }