[aix-pm-cvs] modules/san/emc/EMC Config.pm,1.33,1.34

[Gerhard G. <go...@us...>]

Update of /cvsroot/aix-pm/modules/san/emc/EMC
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv22666/modules/san/emc/EMC

Modified Files:
	Config.pm 
Log Message:
propagate SG info as well as project label from MetaLUN to component LUNsmodules/san/emc/EMC/Config.pm

Index: Config.pm
===================================================================
RCS file: /cvsroot/aix-pm/modules/san/emc/EMC/Config.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Config.pm	26 Aug 2009 15:18:25 -0000	1.33
--- Config.pm	5 Sep 2009 00:58:54 -0000	1.34
***************
*** 730,734 ****
  
      my $project= $sg_p->{'project'};
-     next unless ($project);
      my @alus= keys %{$sg_p->{'alu_hlu'}};
  
--- 730,733 ----
***************
*** 738,743 ****
        $l->{'Storage_Group'}= $sg;
        my ($lun, $rg_id, $prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private');
!       ## print __LINE__, " ZX4 sg=$sg alu=$alu rg_id=$rg_id prv=$prv project=$project\n";
!       $l->{'project'}= $project;
  
        if ($prv eq 'Meta')
--- 737,742 ----
        $l->{'Storage_Group'}= $sg;
        my ($lun, $rg_id, $prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private');
!       ## print __LINE__, " ZX4 sg='$sg' alu=$alu rg_id=$rg_id prv='$prv' project='$project'\n";
!       $l->{'project'}= $project if ($project);
  
        if ($prv eq 'Meta')
***************
*** 755,759 ****
  	  ## &main::print_refs (*STDOUT, 'metalun', $ml);
            ## my ($cp_ln, $cp_rg_id, $cp_prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private'); not really relevant
!           $cp_l->{'project'}= $project;
          }
        }
--- 754,759 ----
  	  ## &main::print_refs (*STDOUT, 'metalun', $ml);
            ## my ($cp_ln, $cp_rg_id, $cp_prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private'); not really relevant
!           $cp_l->{'project'}= $project if ($project);
!           $cp_l->{'Storage_Group'}= $sg;
          }
        }