[Omaha.pm] Changed Permissions->has_permission

[Jay Hannah]

> Dunno if this is good or bad... but it works. Ok?

Before

  $o_user_attrib->get_subsystem eq $subsystem or 
  $o_user_attrib->get_subsystem eq 'ALL' or 
  $o_user_attrib->get_subsystem eq 'OMARES' or 
  $o_user_attrib->get_subsystem eq 'DALCOR'

After?

  $o_user_attrib->get_subsystem =~ /^($subsytem|ALL|OMARES|DALCOR)$/

$0.02, 

j