Hi,

We are writing a module to export survey results to SAS (statistical analysis software). We're using the same logic as the SPSS export and re-using SPSS code.
While doing this we found an error in the Export of SPSS. Our production environment is 1.85+, but I could reproduce it in 1.87.

The problem is the dual scale question (LSTYPE=1). For this question type you must give 2 answers for 1 question. These answers are selected from 2 different labelsets. When exporting such a question to SPSS you see that there correctly 2 variables created, but only 1 labelset is used to retrieve the answer codes. Only lableset LID is selected, the second labelset in the question definition is (LID1) is not used for the second answer.

I think it can be solved by a minor change in export_data_functions.php. In the function spss_getvalues around line 190 there is the contion :

} elseif (strpos("FWZWH1",$field['LStype']) !== false) {

I think this is best change to :
} elseif (strpos("FWZWH",$field['LStype']) !== false) {
so not including LSTYPE=1
then a new test can be done for LSTYPE=1 and then retrieving LID for the first answer of the dual-scale question and retrieving LID1 for the second answer. This could be something like :

} elseif (strpos("1",$field['LStype']) !== false) {
    if ($field["code"] == "1#0"){

//build query for LID
$query = "SELECT {$dbprefix}questions.lid, {$dbprefix}labels.code, {$dbprefix}labels.title from
{$dbprefix}questions, {$dbprefix}labels WHERE {$dbprefix}labels.language='".$language."' and
{$dbprefix}questions.language='".$language."' and
{$dbprefix}questions.qid ='".$field["qid"]."' and {$dbprefix}questions.lid={$dbprefix}labels.lid ORDER BY sortorder ASC";
} elseif ($field["code"] == "1#1"){
//build query for LID1
$query = "SELECT {$dbprefix}questions.lid1, {$dbprefix}labels.code, {$dbprefix}labels.title from
{$dbprefix}questions, {$dbprefix}labels WHERE {$dbprefix}labels.language='".$language."' and
{$dbprefix}questions.language='".$language."' and
{$dbprefix}questions.qid ='".$field["qid"]."' and {$dbprefix}questions.lid1={$dbprefix}labels.lid ORDER BY sortorder ASC";
}
$result=db_execute_assoc($query) or safe_die("Couldn't get labels<br />$query<br />".$connect->ErrorMsg()); //Checked
$num_results = $result->RecordCount();
if ($num_results > 0)
{
for ($i=0; $i < $num_results; $i++)
{
$row = $result->FetchRow();
$answers[] = array('code'=>$row['code'], 'value'=>strip_tags_full(mb_substr($row["title"],0,$length_vallabel)));
}
}

I hope this makes sense. Please give some feedback if this is the good way to solve the problem.

Cheers,
Jan.