Forum Discussion
Hamish
Oct 10, 2013Cirrocumulus
As a matter of fact... Yes I do...
classAPI is the handle. className does what it says on the tin. classMembers are classValues are the keys & values to set
sub addClassEntry {
my($classAPI, $className, $classMembers, $classValues)=@_;
my @stringInfoList=();
print "addClassEntry: ($className) ($classMembers) ($classValues)\n";
my $class_members = {name => $className, members => [$classMembers]};
push(@stringInfoList, $class_members);
print "addClassEntry: calling class->set_string_class_member_data_value()\n";
$soapResponse=$classAPI->add_string_class_member(SOAP::Data->name(class_members => [$class_members]));
$soapResponse=$classAPI->set_string_class_member_data_value(SOAP::Data->name(class_members => [$class_members]), SOAP::Data->name(values => [[$classValues]]));
my($status,$text)=&checkResponse($soapResponse);
print "addClassEntry: status[$status] text [$text]\n";
if(($status!=1)||($text ne "OK")) {
print "addClassEntry: status $status error [$text] from add_string_class_member()\n";
exit(-1);
}
print "addClassEntry: status $status success [$text] from add_string_class_member()\n";
}