package Opals::SIF::ObjectDataParser::StaffPersonalParser;

# Version number
$VERSION   = 0.01;


use warnings;
use strict;
use XML::Simple;
use XML::XPath;
use Opals::SIF::Specs;

sub new {
    my ($class) = @_;
    my $self={};
    bless $self, $class;
    return $self;
}

#################################################################
sub parse{
    my($self,$xml,$sifVersion)=@_;
    my $stdInfo={};
    my $xmlObj =XML::XPath->new(xml=>$xml);
    my ($node) =$xmlObj->findnodes("/StaffPersonal");
    my $spec =STAFFPERSONAL->{$sifVersion};
    foreach my $fname(keys %$spec){
        if($xmlObj->exists($spec->{$fname})){
            $stdInfo->{$fname}=$xmlObj->getNodeText($spec->{$fname});
        }
    }
    return $stdInfo;
}
#
#################################################################
1;