7 my $class = ref($invocant) || $invocant;
12 # if no ptf section was passed in, then return undef
13 $self->{ptf
} or return;
15 bless ($self, $class);
22 return $self->{ptf
}->getAssignment ('class');
28 return $self->{ptf
}->getAssignment ('class_version');
32 my ($self, $name) = @_;
35 $wsa = $self->{ptf
}->getSection('WIZARD_SCRIPT_ARGUMENTS', '');
38 # get constants section
39 $constants = $wsa->getSection('CONSTANTS', '');
42 # get section for specific constant
43 $constant = $constants->getSection ('CONSTANT', $name);
46 # get value of constant
47 $value = $constant->getAssignment ('value');
51 sub getWSAAssignment
{
52 my ($self, $name) = @_;
55 $wsa = $self->{ptf
}->getSection('WIZARD_SCRIPT_ARGUMENTS', '');
58 # get value of WSA Assignment
59 $value = $wsa->getAssignment ($name);
63 sub getResetLocationOffset
{
66 $wsa = $self->{ptf
}->getSection('WIZARD_SCRIPT_ARGUMENTS', '');
69 my $location = $wsa->getAssignment ('reset_slave');
70 my $offset = $wsa->getAssignment ('reset_offset');
72 return ($location, $offset);
78 $sbi = $self->{ptf
}->getSection('SYSTEM_BUILDER_INFO', '');
81 my $enabled = $sbi->getAssignment ('Is_Enabled');
82 if ($enabled eq "1") {