PageRenderTime 73ms CodeModel.GetById 12ms RepoModel.GetById 0ms app.codeStats 0ms

/sondage/admin/remotecontrol/lsrc.helper.php

https://bitbucket.org/bontiv/insomnia
PHP | 2460 lines | 1837 code | 257 blank | 366 comment | 219 complexity | c7a88cb41d6052a07b3daa35dad8658a MD5 | raw file
Possible License(s): Apache-2.0, LGPL-3.0, LGPL-2.1, GPL-3.0, BSD-3-Clause, GPL-2.0 
    

  1. <?php

    2. 

  2. /*

    3. 

  3.  * LimeSurvey

    4. 

  4.  * Copyright (C) 2007 The LimeSurvey Project Team / Carsten Schmitz

    5. 

  5.  * All rights reserved.

    6. 

  6.  * License: GNU/GPL License v2 or later, see LICENSE.php

    7. 

  7.  * LimeSurvey is free software. This version may have been modified pursuant

    8. 

  8.  * to the GNU General Public License, and as distributed it includes or

    9. 

  9.  * is derivative of works licensed under the GNU General Public License or

    10. 

  10.  * other free or open source software licenses.

    11. 

  11.  * See COPYRIGHT.php for copyright notices and details.

    12. 

  12.  *

    13. 

  13.  * $Id: lsrc.helper.php 9656 2011-01-07 20:48:39Z c_schmitz $

    14. 

  14.  *

    15. 

  15.  */

    16. 

  16. /**

    17. 

  17.  * @author Wahrendorff

    18. 

  18.  *

    19. 

  19.  */

    20. 

  20. class LsrcHelper {

    21. 

  21. 

    22. 

  22.     /**

    23. 

  23.      * simple debug function to make life a bit easier

    24. 

  24.      *

    25. 

  25.      * @param string $text

    26. 

  26.      */

    27. 

  27.     function debugLsrc($text)

    28. 

  28.     {

    29. 

  29.         include("lsrc.config.php");

    30. 

  30.         if($lsrcDebug)

    31. 

  31.         {

    32. 

  32.             error_log("\n".date("Y-m-d H:i:s")." ".$text, 3 , $lsrcDebugLog);

    33. 

  33.         }

    34. 

  34.         return;

    35. 

  35.     }

    36. 

  36. 

    37. 

  37.     /**

    38. 

  38.      * function to get the id of the surveyowner

    39. 

  39.      *

    40. 

  40.      * @param unknown_type $iVid

    41. 

  41.      * @return unknown

    42. 

  42.      */

    43. 

  43.     function getSurveyOwner($iVid)

    44. 

  44.     {

    45. 

  45.         global $connect ;

    46. 

  46.         global $dbprefix ;

    47. 

  47.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    48. 

  48.         include("lsrc.config.php");

    49. 

  49.         //$this= new LsrcHelper();

    50. 

  50.         if($this->surveyExists($iVid))

    51. 

  51.         {

    52. 

  52.             $query2num = "SELECT owner_id FROM {$dbprefix}surveys WHERE sid=".sanitize_int($iVid)."";

    53. 

  53.             $rs = db_execute_assoc($query2num);

    54. 

  54.             $field=$rs->FetchRow();

    55. 

  55.             return $field['owner_id'];

    56. 

  56. 

    57. 

  57.         }else{return false;}

    58. 

  58.     }

    59. 

  59. 

    60. 

  60.     /**

    61. 

  61.      * This function changes data in LS-DB, its very sensitive, because every table can be changed.

    62. 

  62.      *

    63. 

  63.      * @param unknown_type $table

    64. 

  64.      * @param unknown_type $key

    65. 

  65.      * @param unknown_type $value

    66. 

  66.      * @param unknown_type $where

    67. 

  67.      * @return String

    68. 

  68.      */

    69. 

  69.     function changeTable($table, $key, $value, $where, $mode='0')//XXX

    70. 

  70.     {//be aware that this function may be a security risk

    71. 

  71. 

    72. 

  72.         global $connect ;

    73. 

  73.         global $dbprefix ;

    74. 

  74.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    75. 

  75.         include("lsrc.config.php");

    76. 

  76.         if($mode=='' || !isset($mode) || $mode=='0')

    77. 

  77.         {

    78. 

  78.             $where = str_replace("\\","",$where);

    79. 

  79.             $query2num = "SELECT {$key} FROM {$dbprefix}{$table} WHERE {$where}";

    80. 

  80.             $rs = db_execute_assoc($query2num);

    81. 

  81. 

    82. 

  82.             $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", OK ($query2num)");

    83. 

  83. 

    84. 

  84.             $query2update = "update ".$dbprefix.$table." set ".$key."='".$value."' where ".$where."";

    85. 

  85. 

    86. 

  86.             $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", OK ($query2update)");

    87. 

  87. 

    88. 

  88.             if($connect->Execute($query2update)){

    89. 

  89.                 return $rs->RecordCount()." Rows changed";

    90. 

  90.             }

    91. 

  91.             else{

    92. 

  92.                 return "nothing changed";

    93. 

  93.             }

    94. 

  94.         }

    95. 

  95.         if($mode==1 || $mode=='1')

    96. 

  96.         {

    97. 

  97.             $query2insert = "INSERT INTO {$dbprefix}{$table} ({$key}) VALUES ({$value});";

    98. 

  98.             $this->debugLsrc("wir sind in Line ".__LINE__.", inserting ($query2insert)");

    99. 

  99.             if($connect->Execute($query2insert))

    100. 

  100.             {

    101. 

  101.                 $this->debugLsrc("wir sind in Line ".__LINE__.", inserting OK");

    102. 

  102.                 return true;

    103. 

  103.                  

    104. 

  104.             }

    105. 

  105.             else

    106. 

  106.             {

    107. 

  107.                 return false;

    108. 

  108.             }

    109. 

  109.         }

    110. 

  110. 

    111. 

  111. 

    112. 

  112.     }

    113. 

  113. 

    114. 

  114.     /**

    115. 

  115.      *

    116. 

  116.      * Enter description here...

    117. 

  117.      * @param $surveyid

    118. 

  118.      * @param $type

    119. 

  119.      * @param $maxLsrcEmails

    120. 

  120.      * @return unknown_type

    121. 

  121.      */

    122. 

  122.     function emailSender($surveyid, $type, $maxLsrcEmails='') //XXX

    123. 

  123.     {

    124. 

  124.         global $publicurl,$maxemails;

    125. 

  125.         global $connect,$sitename ;

    126. 

  126.         global $dbprefix ;

    127. 

  127.         $surveyid = sanitize_int($surveyid);

    128. 

  128.         include("lsrc.config.php");

    129. 

  129. 

    130. 

  130. 

    131. 

  131. 

    132. 

  132.         // wenn maxmails ber den lsrc gegeben wird das nutzen, ansonsten die default werte aus der config.php

    133. 

  133.         if($maxLsrcEmails!='')

    134. 

  134.         $maxemails = $maxLsrcEmails;

    135. 

  135. 

    136. 

  136.         switch ($type){

    137. 

  137.             case "custom":

    138. 

  138. 

    139. 

  139.                 break;

    140. 

  140.             case "invite":

    141. 

  141.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", START invite ");

    142. 

  142. 

    143. 

  143. 

    144. 

  144. 

    145. 

  145.                 if(isset($surveyid) && getEmailFormat($surveyid) == 'html')

    146. 

  146.                 {

    147. 

  147.                     $ishtml=true;

    148. 

  148.                 }

    149. 

  149.                 else

    150. 

  150.                 {

    151. 

  151.                     $ishtml=false;

    152. 

  152.                 }

    153. 

  153. 

    154. 

  154.                 //$tokenoutput .= ("Sending Invitations");

    155. 

  155.                 //if (isset($tokenid)) {$tokenoutput .= " (".("Sending to Token ID").":&nbsp;{$tokenid})";}

    156. 

  156.                 //$tokenoutput .= "\n";

    157. 

  157.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", $surveyid, $type");

    158. 

  158.                 // Texte für Mails aus der Datenbank holen und in die POST Dinger schreiben. Nicht schön aber praktikabel

    159. 

  159. 

    160. 

  160.                 $sql = 	"SELECT surveyls_language, surveyls_email_invite_subj, surveyls_email_invite  ".

    161. 

  161. 						"FROM {$dbprefix}surveys_languagesettings ".

    162. 

  162. 						"WHERE surveyls_survey_id = ".$surveyid." ";

    163. 

  163. 

    164. 

  164.                 //GET SURVEY DETAILS

    165. 

  165.                 $thissurvey=getSurveyInfo($surveyid);

    166. 

  166. 

    167. 

  167.                 //				$connect->SetFetchMode(ADODB_FETCH_ASSOC);

    168. 

  168.                 //				$sqlResult=$connect->Execute($sql);

    169. 

  169.                 $sqlResult = db_execute_assoc($sql);

    170. 

  170. 

    171. 

  171.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    172. 

  172. 

    173. 

  173.                 while($languageRow = $sqlResult->FetchRow())

    174. 

  174.                 {

    175. 

  175.                     $_POST['message_'.$languageRow['surveyls_language']] = $languageRow['surveyls_email_invite'];

    176. 

  176.                     $_POST['subject_'.$languageRow['surveyls_language']] = $languageRow['surveyls_email_invite_subj'];

    177. 

  177.                 }

    178. 

  178. 

    179. 

  179.                 //				if (isset($_POST['bypassbademails']) && $_POST['bypassbademails'] == 'Y')

    180. 

  180.                 //				{

    181. 

  181.                 //					$SQLemailstatuscondition = " AND emailstatus = 'OK'";

    182. 

  182.                 //				}

    183. 

  183.                 //				else

    184. 

  184.                 //				{

    185. 

  185.                 //					$SQLemailstatuscondition = "";

    186. 

  186.                 //				}

    187. 

  187.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    188. 

  188.                 $ctquery = "SELECT * FROM ".db_table_name("tokens_{$surveyid}")." WHERE ((completed ='N') or (completed='')) AND ((sent ='N') or (sent='')) AND emailstatus = 'OK' ";

    189. 

  189. 

    190. 

  190.                 if (isset($tokenid)) {$ctquery .= " AND tid='{$tokenid}'";}

    191. 

  191.                 //$tokenoutput .= "<!-- ctquery: $ctquery -->\n";

    192. 

  192.                 $ctresult = $connect->Execute($ctquery);

    193. 

  193.                 $ctcount = $ctresult->RecordCount();

    194. 

  194.                 $ctfieldcount = $ctresult->FieldCount();

    195. 

  195. 

    196. 

  196.                 $emquery = "SELECT * ";

    197. 

  197.                 //if ($ctfieldcount > 7) {$emquery .= ", attribute_1, attribute_2";}

    198. 

  198. 

    199. 

  199.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    200. 

  200. 

    201. 

  201.                 $emquery .= " FROM ".db_table_name("tokens_{$surveyid}")." WHERE ((completed ='N') or (completed='')) AND ((sent ='N') or (sent=''))  AND emailstatus = 'OK' ";

    202. 

  202. 

    203. 

  203.                 if (isset($tokenid)) {$emquery .= " and tid='{$tokenid}'";}

    204. 

  204.                 //$tokenoutput .= "\n\n<!-- emquery: $emquery -->\n\n";

    205. 

  205.                 $emresult = db_select_limit_assoc($emquery,$maxemails);

    206. 

  206.                 $emcount = $emresult->RecordCount();

    207. 

  207. 

    208. 

  208.                 //$tokenoutput .= "<table width='500px' align='center' >\n"

    209. 

  209.                 ////."\t<tr>\n"

    210. 

  210.                 //."\t\t<td><font size='1'>\n";

    211. 

  211. 

    212. 

  212.                 $surveylangs = GetAdditionalLanguagesFromSurveyID($surveyid);

    213. 

  213.                 $baselanguage = GetBaseLanguageFromSurveyID($surveyid);

    214. 

  214.                 array_unshift($surveylangs,$baselanguage);

    215. 

  215. 

    216. 

  216.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    217. 

  217. 

    218. 

  218.                 foreach ($surveylangs as $language)

    219. 

  219.                 {

    220. 

  220.                     $_POST['message_'.$language]=auto_unescape($_POST['message_'.$language]);

    221. 

  221.                     $_POST['subject_'.$language]=auto_unescape($_POST['subject_'.$language]);

    222. 

  222.                     if ($ishtml) $_POST['message_'.$language] = html_entity_decode($_POST['message_'.$language], ENT_QUOTES, $emailcharset);

    223. 

  223. 

    224. 

  224.                 }

    225. 

  225. 

    226. 

  226.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    227. 

  227.                 if ($emcount > 0)

    228. 

  228.                 {

    229. 

  229.                     $mailsSend = 0;

    230. 

  230.                     while ($emrow = $emresult->FetchRow())

    231. 

  231.                     {

    232. 

  232.                         $c=1;

    233. 

  233.                         unset($fieldsarray);

    234. 

  234.                         $to = $emrow['email'];

    235. 

  235.                         $fieldsarray["{EMAIL}"]=$emrow['email'];

    236. 

  236.                         $fieldsarray["{FIRSTNAME}"]=$emrow['firstname'];

    237. 

  237.                         $fieldsarray["{LASTNAME}"]=$emrow['lastname'];

    238. 

  238.                         $fieldsarray["{TOKEN}"]=$emrow['token'];

    239. 

  239.                         $fieldsarray["{LANGUAGE}"]=$emrow['language'];

    240. 

  240.                         while(isset($emrow["attribute_$c"]))

    241. 

  241.                         {

    242. 

  242.                             $fieldsarray["{ATTRIBUTE_$c}"]=$emrow["attribute_$c"];

    243. 

  243.                             ++$c;

    244. 

  244.                         }

    245. 

  245.                         $fieldsarray["{ADMINNAME}"]= $thissurvey['adminname'];

    246. 

  246.                         $fieldsarray["{ADMINEMAIL}"]=$thissurvey['adminemail'];

    247. 

  247.                         $fieldsarray["{SURVEYNAME}"]=$thissurvey['name'];

    248. 

  248.                         $fieldsarray["{SURVEYDESCRIPTION}"]=$thissurvey['description'];

    249. 

  249.                         $fieldsarray["{EXPIRY}"]=$thissurvey["expiry"];

    250. 

  250. 

    251. 

  251.                         $emrow['language']=trim($emrow['language']);

    252. 

  252.                         if ($emrow['language']=='') {$emrow['language']=$baselanguage;} //if language is not give use default

    253. 

  253.                         $found = array_search($emrow['language'], $surveylangs);

    254. 

  254.                         if ($found==false) {$emrow['language']=$baselanguage;}

    255. 

  255. 

    256. 

  256.                         $from = $thissurvey['adminemail'];

    257. 

  257. 

    258. 

  258. 

    259. 

  259.                         if ($ishtml === false)

    260. 

  260.                         {

    261. 

  261.                             if ( $modrewrite )

    262. 

  262.                             {

    263. 

  263.                                 $fieldsarray["{SURVEYURL}"]="$publicurl/$surveyid/lang-".trim($emrow['language'])."/tk-{$emrow['token']}";

    264. 

  264.                             }

    265. 

  265.                             else

    266. 

  266.                             {

    267. 

  267.                                 $fieldsarray["{SURVEYURL}"]="$publicurl/index.php?lang=".trim($emrow['language'])."&sid=$surveyid&token={$emrow['token']}";

    268. 

  268.                             }

    269. 

  269.                         }

    270. 

  270.                         else

    271. 

  271.                         {

    272. 

  272.                             if ( $modrewrite )

    273. 

  273.                             {

    274. 

  274.                                 $fieldsarray["{SURVEYURL}"]="<a href='$publicurl/$surveyid/lang-".trim($emrow['language'])."/tk-{$emrow['token']}'>".htmlspecialchars("$publicurl/$surveyid/lang-".trim($emrow['language'])."/tk-{$emrow['token']}")."</a>";

    275. 

  275.                             }

    276. 

  276.                             else

    277. 

  277.                             {

    278. 

  278.                                 $fieldsarray["{SURVEYURL}"]="<a href='$publicurl/index.php?lang=".trim($emrow['language'])."&sid=$surveyid&token={$emrow['token']}'>".htmlspecialchars("$publicurl/index.php?lang=".trim($emrow['language'])."&sid=$surveyid&token={$emrow['token']}")."</a>";

    279. 

  279.                             }

    280. 

  280.                         }

    281. 

  281.                         $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    282. 

  282.                         $modsubject=Replacefields($_POST['subject_'.$emrow['language']], $fieldsarray);

    283. 

  283.                         $modmessage=Replacefields($_POST['message_'.$emrow['language']], $fieldsarray);

    284. 

  284. 

    285. 

  285.                         if (SendEmailMessage($modmessage, $modsubject, $to , $from, $sitename, $ishtml, getBounceEmail($surveyid)))

    286. 

  286.                         {

    287. 

  287.                             // Put date into sent

    288. 

  288.                             //$timeadjust = 0;

    289. 

  289.                             $today = date("Y-m-d H:i");

    290. 

  290.                             $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite Today:".$today);

    291. 

  291.                             $udequery = "UPDATE ".db_table_name("tokens_{$surveyid}")."\n"

    292. 

  292.                             ."SET sent='$today' WHERE tid={$emrow['tid']}";

    293. 

  293.                             //

    294. 

  294.                             $uderesult = $connect->Execute($udequery);

    295. 

  295.                             $mailsSend++;

    296. 

  296.                             //$tokenoutput .= "[".("Invitation sent to:")."{$emrow['firstname']} {$emrow['lastname']} ($to)]\n";

    297. 

  297.                         }

    298. 

  298.                         else

    299. 

  299.                         {

    300. 

  300.                             //$tokenoutput .= ReplaceFields(("Email to {FIRSTNAME} {LASTNAME} ({EMAIL}) failed. Error Message:")." ".$maildebug."", $fieldsarray);

    301. 

  301.                             if($n==1)

    302. 

  302.                             $failedAddresses .= ",".$to;

    303. 

  303.                             else

    304. 

  304.                             {

    305. 

  305.                                 $failedAddresses = $to;

    306. 

  306.                                 $n=1;

    307. 

  307.                             }

    308. 

  308.                         }

    309. 

  309.                     }

    310. 

  310.                     $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    311. 

  311.                     if ($ctcount > $emcount)

    312. 

  312.                     {

    313. 

  313.                         $lefttosend = $ctcount-$maxemails;

    314. 

  314. 

    315. 

  315.                     }else{$lefttosend = 0;}

    316. 

  316.                 }

    317. 

  317.                 else

    318. 

  318.                 {

    319. 

  319.                     return "No Mails to send";

    320. 

  320.                 }

    321. 

  321.                  

    322. 

  322.                 if($maxemails>0 && $maxemails!='')

    323. 

  323.                 {

    324. 

  324.                     $returnValue = "".$mailsSend." Mails send. ".$lefttosend." Mails left to send";

    325. 

  325.                     if(isset($failedAddresses))

    326. 

  326.                     $returnValue .= "\nCould not send to: ".$failedAddresses;

    327. 

  327.                     return $returnValue;

    328. 

  328.                 }

    329. 

  329. 

    330. 

  330.                 if(isset($mailsSend))

    331. 

  331.                 {

    332. 

  332.                     $returnValue = "".$mailsSend." Mails send. ";

    333. 

  333.                     if(isset($failedAddresses))

    334. 

  334.                     $returnValue .= "\nCould not send to: ".$failedAddresses;

    335. 

  335.                     return $returnValue;

    336. 

  336.                 }

    337. 

  337. 

    338. 

  338.                  

    339. 

  339. 

    340. 

  340. 

    341. 

  341.                 break;

    342. 

  342.             case "remind":

    343. 

  343.                 // XXX:

    344. 

  344.                 // TODO:

    345. 

  345.                 //				if (!isset($_POST['ok']) || !$_POST['ok'])

    346. 

  346.                 //				{

    347. 

  347. 

    348. 

  348.                 /*

    349. 

  349.                  * look if there were reminders send in the past, and if some tokens got lesser reminders than others

    350. 

  350.                  *

    351. 

  351.                  * - if so: send reminders to the unremindet participants until they got the same remindcount than the others

    352. 

  352.                  * - if not: send reminders normally

    353. 

  353.                  */

    354. 

  354.                  

    355. 

  355.                 $remSQL = "SELECT tid, remindercount "

    356. 

  356.                 . "FROM ".db_table_name("tokens_{$surveyid}")." "

    357. 

  357.                 . "WHERE (completed = 'N' or completed = '') AND sent <> 'N' and sent <>'' AND token <>'' AND EMAIL <>'' "

    358. 

  358.                 . "ORDER BY remindercount desc LIMIT 1";

    359. 

  359. 

    360. 

  360. 		$this->debugLsrc("Executing SQL: ".$remSQL);

    361. 

  361. 

    362. 

  362.                 $remResult = db_execute_assoc($remSQL);

    363. 

  363.                 $remRow = $remResult->FetchRow();

    364. 

  364.                  

    365. 

  365. 		/* Get the reminder count from the row, if we have a row.  If 

    366. 

  366. 		 * we don't have a row then we set reminderCount to 0 to prevent

    367. 

  367. 		 * queries down below from bombing out. */

    368. 

  368. 		$reminderCount = $remRow['remindercount'];

    369. 

  369. 		if(empty($reminderCount)) {

    370. 

  370. 			$this->debugLsrc("There are no reminders to send.");

    371. 

  371. 			$reminderCount = 0;

    372. 

  372. 		}

    373. 

  373.                  

    374. 

  374. 		$this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", remind ".$remRow['tid']."; ".$reminderCount." ");

    375. 

  375. 		

    376. 

  376.                 $sendOnlySQL = "SELECT tid, remindercount "

    377. 

  377.                 . "FROM ".db_table_name("tokens_{$surveyid}")." "

    378. 

  378. 		. "WHERE (completed = 'N' or completed = '') AND sent <> 'N' and sent <>'' AND token <>'' AND EMAIL <>'' AND remindercount < ".$reminderCount." "

    379. 

  379.                 . "ORDER BY tid asc LIMIT 1";

    380. 

  380.                  

    381. 

  381. 		$this->debugLsrc("Executing SQL: ".$sendOnlySQL);

    382. 

  382.                  

    383. 

  383.                 if($sendOnlyResult->RecordCount()>0)

    384. 

  384.                 {

    385. 

  385.                     $sendOnlyRow = $sendOnlyResult->FetchRow();

    386. 

  386.                     $starttokenid = $sendOnlyRow['tid'];

    387. 

  387.                     $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", remind ".$sendOnlyRow['tid']."; ".$sendOnlyRow['remindercount']." ");

    388. 

  388.                 }

    389. 

  389.                  

    390. 

  390.                 if(isset($surveyid) && getEmailFormat($surveyid) == 'html')

    391. 

  391.                 {

    392. 

  392.                     $ishtml=true;

    393. 

  393.                 }

    394. 

  394.                 else

    395. 

  395.                 {

    396. 

  396.                     $ishtml=false;

    397. 

  397.                 }

    398. 

  398.                  

    399. 

  399.                 //GET SURVEY DETAILS

    400. 

  400.                 $thissurvey=getSurveyInfo($surveyid);

    401. 

  401.                  

    402. 

  402.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", $surveyid, $type");

    403. 

  403.                 // Texte für Mails aus der Datenbank holen.

    404. 

  404.                  

    405. 

  405.                 $sql = 	"SELECT surveyls_language, surveyls_email_remind_subj, surveyls_email_remind  ".

    406. 

  406. 							"FROM {$dbprefix}surveys_languagesettings ".

    407. 

  407. 							"WHERE surveyls_survey_id = ".$surveyid." ";

    408. 

  408. 

    409. 

  409.                 $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", invite ");

    410. 

  410.                  

    411. 

  411.                 $sqlResult = db_execute_assoc($sql);

    412. 

  412.                  

    413. 

  413.                 while($languageRow = $sqlResult->FetchRow())

    414. 

  414.                 {

    415. 

  415.                     $_POST['message_'.$languageRow['surveyls_language']] = $languageRow['surveyls_email_remind'];

    416. 

  416.                     $_POST['subject_'.$languageRow['surveyls_language']] = $languageRow['surveyls_email_remind_subj'];

    417. 

  417.                 }

    418. 

  418. 

    419. 

  419.                 //$tokenoutput .= ("Sending Reminders")."\n";

    420. 

  420.                  

    421. 

  421.                 $surveylangs = GetAdditionalLanguagesFromSurveyID($surveyid);

    422. 

  422.                 $baselanguage = GetBaseLanguageFromSurveyID($surveyid);

    423. 

  423.                 array_unshift($surveylangs,$baselanguage);

    424. 

  424.                  

    425. 

  425.                 foreach ($surveylangs as $language)

    426. 

  426.                 {

    427. 

  427.                     $_POST['message_'.$language]=auto_unescape($_POST['message_'.$language]);

    428. 

  428.                     $_POST['subject_'.$language]=auto_unescape($_POST['subject_'.$language]);

    429. 

  429. 

    430. 

  430.                 }

    431. 

  431.                  

    432. 

  432.                 $SQLemailstatuscondition = " AND emailstatus = 'OK'";

    433. 

  433. 

    434. 

  434.                 if (isset($_POST['maxremindercount']) &&

    435. 

  435.                 $_POST['maxremindercount'] != '' &&

    436. 

  436.                 intval($_POST['maxremindercount']) != 0)

    437. 

  437.                 {

    438. 

  438.                     $SQLremindercountcondition = " AND remindercount < ".intval($_POST['maxremindercount']);

    439. 

  439.                 }

    440. 

  440.                 else

    441. 

  441.                 {

    442. 

  442.                     $SQLremindercountcondition = "";

    443. 

  443.                 }

    444. 

  444.                  

    445. 

  445.                 if (isset($_POST['minreminderdelay']) &&

    446. 

  446.                 $_POST['minreminderdelay'] != '' &&

    447. 

  447.                 intval($_POST['minreminderdelay']) != 0)

    448. 

  448.                 {

    449. 

  449.                     // $_POST['minreminderdelay'] in days (86400 seconds per day)

    450. 

  450.                     $compareddate = date_shift(date("Y-m-d H:i:s",time() - 86400 * intval($_POST['minreminderdelay'])),

    451. 

  451. 									"Y-m-d H:i",$timeadjust);

    452. 

  452.                     $SQLreminderdelaycondition = " AND ( "

    453. 

  453.                     . " (remindersent = 'N' AND sent < '".$compareddate."') "

    454. 

  454.                     . " OR "

    455. 

  455.                     . " (remindersent < '".$compareddate."'))";

    456. 

  456.                 }

    457. 

  457.                 else

    458. 

  458.                 {

    459. 

  459.                     $SQLreminderdelaycondition = "";

    460. 

  460.                 }

    461. 

  461.                  

    462. 

  462.                 $ctquery = "SELECT * FROM ".db_table_name("tokens_{$surveyid}")." WHERE (completed ='N' or completed ='') AND sent<>'' AND sent<>'N' AND token <>'' AND email <> '' $SQLemailstatuscondition $SQLremindercountcondition $SQLreminderdelaycondition";

    463. 

  463.                  

    464. 

  464.                 if (isset($starttokenid)) {$ctquery .= " AND tid >= '{$starttokenid}'";}

    465. 

  465.                 //					if (isset($tokenid) && $tokenid) {$ctquery .= " AND tid = '{$tokenid}'";}

    466. 

  466.                 //					//$tokenoutput .= "<!-- ctquery: $ctquery -->\n";

    467. 

  467. 

    468. 

  468.                 $ctresult = $connect->Execute($ctquery) or $this->debugLsrc ("Database error!\n" . $connect->ErrorMsg());

    469. 

  469.                 $ctcount = $ctresult->RecordCount();

    470. 

  470.                 $ctfieldcount = $ctresult->FieldCount();

    471. 

  471.                 $emquery = "SELECT * ";

    472. 

  472.                 //if ($ctfieldcount > 7) {$emquery .= ", attribute_1, attribute_2";}

    473. 

  473.                  

    474. 

  474.                 // TLR change to put date into sent

    475. 

  475.                 $emquery .= " FROM ".db_table_name("tokens_{$surveyid}")." WHERE (completed = 'N' or completed = '') AND sent <> 'N' and sent <>'' AND token <>'' AND EMAIL <>'' $SQLemailstatuscondition $SQLremindercountcondition $SQLreminderdelaycondition";

    476. 

  476.                  

    477. 

  477.                 if (isset($starttokenid)) {$emquery .= " AND tid >= '{$starttokenid}'";}

    478. 

  478.                 if (isset($tokenid) && $tokenid) {$emquery .= " AND tid = '{$tokenid}'";}

    479. 

  479.                 $emquery .= " ORDER BY tid ";

    480. 

  480.                 $emresult = db_select_limit_assoc($emquery, $maxemails);

    481. 

  481.                 //$emresult = db_execute_assoc($emquery);

    482. 

  482.                 $emcount = $emresult->RecordCount();

    483. 

  483.                  

    484. 

  484.                 if ($emcount > 0)

    485. 

  485.                 {

    486. 

  486.                     while ($emrow = $emresult->FetchRow())

    487. 

  487.                     {

    488. 

  488.                         $c=1;

    489. 

  489.                         unset($fieldsarray);

    490. 

  490.                         $to = $emrow['email'];

    491. 

  491.                         $fieldsarray["{EMAIL}"]=$emrow['email'];

    492. 

  492.                         $fieldsarray["{FIRSTNAME}"]=$emrow['firstname'];

    493. 

  493.                         $fieldsarray["{LASTNAME}"]=$emrow['lastname'];

    494. 

  494.                         $fieldsarray["{TOKEN}"]=$emrow['token'];

    495. 

  495.                         $fieldsarray["{LANGUAGE}"]=$emrow['language'];

    496. 

  496.                         while(isset($emrow["attribute_$c"]))

    497. 

  497.                         {

    498. 

  498.                             $fieldsarray["{ATTRIBUTE_$c}"]=$emrow["attribute_$c"];

    499. 

  499.                             ++$c;

    500. 

  500.                         }

    501. 

  501. 

    502. 

  502.                         $fieldsarray["{ADMINNAME}"]= $thissurvey['adminname'];

    503. 

  503.                         $fieldsarray["{ADMINEMAIL}"]=$thissurvey['adminemail'];

    504. 

  504.                         $fieldsarray["{SURVEYNAME}"]=$thissurvey['name'];

    505. 

  505.                         $fieldsarray["{SURVEYDESCRIPTION}"]=$thissurvey['description'];

    506. 

  506.                         $fieldsarray["{EXPIRY}"]=$thissurvey["expiry"];

    507. 

  507. 

    508. 

  508.                         $emrow['language']=trim($emrow['language']);

    509. 

  509.                         if ($emrow['language']=='') {$emrow['language']=$baselanguage;} //if language is not give use default

    510. 

  510.                         if(!in_array($emrow['language'], $surveylangs)) {$emrow['language']=$baselanguage;} // if given language is not available use default

    511. 

  511.                         $found = array_search($emrow['language'], $surveylangs);

    512. 

  512.                         if ($found==false) {$emrow['language']=$baselanguage;}

    513. 

  513.                          

    514. 

  514.                         $from = $thissurvey['adminemail'];

    515. 

  515.                          

    516. 

  516.                         if (getEmailFormat($surveyid) == 'html')

    517. 

  517.                         {

    518. 

  518.                             $ishtml=true;

    519. 

  519.                         }

    520. 

  520.                         else

    521. 

  521.                         {

    522. 

  522.                             $ishtml=false;

    523. 

  523.                         }

    524. 

  524.                          

    525. 

  525.                         if ($ishtml == false)

    526. 

  526.                         {

    527. 

  527.                             if ( $modrewrite )

    528. 

  528.                             {

    529. 

  529.                                 $fieldsarray["{SURVEYURL}"]="$publicurl/$surveyid/lang-".trim($emrow['language'])."/tk-{$emrow['token']}";

    530. 

  530.                             }

    531. 

  531.                             else

    532. 

  532.                             {

    533. 

  533.                                 $fieldsarray["{SURVEYURL}"]="$publicurl/index.php?lang=".trim($emrow['language'])."&sid=$surveyid&token={$emrow['token']}";

    534. 

  534.                             }

    535. 

  535.                         }

    536. 

  536.                         else

    537. 

  537.                         {

    538. 

  538.                             if ( $modrewrite )

    539. 

  539.                             {

    540. 

  540.                                 $fieldsarray["{SURVEYURL}"]="<a href='$publicurl/$surveyid/lang-".trim($emrow['language'])."/tk-{$emrow['token']}'>".htmlspecialchars("$publicurl/$surveyid/lang-".trim($emrow['language'])."/tk-{$emrow['token']}")."</a>";

    541. 

  541.                             }

    542. 

  542.                             else

    543. 

  543.                             {

    544. 

  544.                                 $fieldsarray["{SURVEYURL}"]="<a href='$publicurl/index.php?lang=".trim($emrow['language'])."&sid=$surveyid&token={$emrow['token']}'>".htmlspecialchars("$publicurl/index.php?lang=".trim($emrow['language'])."&sid=$surveyid&token={$emrow['token']}")."</a>";

    545. 

  545.                                 $_POST['message_'.$emrow['language']] = html_entity_decode($_POST['message_'.$emrow['language']], ENT_QUOTES, $emailcharset);

    546. 

  546.                             }

    547. 

  547.                         }

    548. 

  548.                          

    549. 

  549.                         $msgsubject=Replacefields($_POST['subject_'.$emrow['language']], $fieldsarray);

    550. 

  550.                         $sendmessage=Replacefields($_POST['message_'.$emrow['language']], $fieldsarray);

    551. 

  551. 

    552. 

  552.                         if (SendEmailMessage($sendmessage, $msgsubject, $to, $from, $sitename, $ishtml, getBounceEmail($surveyid)))

    553. 

  553.                         {

    554. 

  554. 

    555. 

  555.                             // Put date into remindersent

    556. 

  556.                             $today = date("Y-m-d H:i");

    557. 

  557.                             $udequery = "UPDATE ".db_table_name("tokens_{$surveyid}")."\n"

    558. 

  558.                             ."SET remindersent='$today',remindercount = remindercount+1  WHERE tid={$emrow['tid']}";

    559. 

  559.                             //

    560. 

  560.                             $uderesult = $connect->Execute($udequery) or $this->debugLsrc ("Could not update tokens$udequery".$connect->ErrorMsg());

    561. 

  561.                             //orig: $tokenoutput .= "\t\t\t({$emrow['tid']})[".("Reminder sent to:")." {$emrow['firstname']} {$emrow['lastname']}]\n";

    562. 

  562.                             //$tokenoutput .= "\t\t\t({$emrow['tid']}) [".("Reminder sent to:")." {$emrow['firstname']} {$emrow['lastname']} ($to)]\n";

    563. 

  563.                             $mailsSend++;

    564. 

  564.                         }

    565. 

  565.                         else

    566. 

  566.                         {

    567. 

  567.                             //$tokenoutput .= ReplaceFields(("Email to {FIRSTNAME} {LASTNAME} ({EMAIL}) failed. Error Message:")." ".$maildebug."", $fieldsarray);

    568. 

  568.                             if($n==1)

    569. 

  569.                             $failedAddresses .= ",".$to;

    570. 

  570.                             else

    571. 

  571.                             {

    572. 

  572.                                 $failedAddresses = $to;

    573. 

  573.                                 $n=1;

    574. 

  574.                             }

    575. 

  575. 

    576. 

  576.                         }

    577. 

  577.                         //$lasttid = $emrow['tid'];

    578. 

  578.                          

    579. 

  579.                     }

    580. 

  580.                     if ($ctcount > $emcount)

    581. 

  581.                     {

    582. 

  582.                         $lefttosend = $ctcount-$maxemails;

    583. 

  583.                     }else{$lefttosend = 0;}

    584. 

  584.                 }

    585. 

  585.                 else

    586. 

  586.                 {

    587. 

  587.                     return "No Reminders to send";

    588. 

  588.                 }

    589. 

  589.                  

    590. 

  590.                 if($maxemails>0)

    591. 

  591.                 {

    592. 

  592.                     $returnValue = "".$mailsSend." Reminders send. ".$lefttosend." Reminders left to send";

    593. 

  593.                     if(isset($failedAddresses))

    594. 

  594.                     $returnValue .= "\nCould not send to: ".$failedAddresses;

    595. 

  595.                     return $returnValue;

    596. 

  596.                 }

    597. 

  597.                  

    598. 

  598.                 if(isset($mailsSend))

    599. 

  599.                 {

    600. 

  600.                     $returnValue = "".$mailsSend." Reminders send. ";

    601. 

  601.                     if(isset($failedAddresses))

    602. 

  602.                     $returnValue .= "\nCould not send to: ".$failedAddresses;

    603. 

  603.                     return $returnValue;

    604. 

  604.                 }

    605. 

  605. 

    606. 

  606. 

    607. 

  607.                 break;

    608. 

  608.             default:

    609. 

  609. 

    610. 

  610.                 break;

    611. 

  611.         }

    612. 

  612.     }

    613. 

  613. 

    614. 

  614.     /**

    615. 

  615.      * loginCheck for Lsrc, checks if the user with given password exists in LS Database and

    616. 

  616.      * sets the SESSION rights for this user

    617. 

  617.      * @param String $sUser

    618. 

  618.      * @param String $sPass

    619. 

  619.      * @return boolean

    620. 

  620.      */

    621. 

  621.     function checkUser($sUser, $sPass) // XXX

    622. 

  622.     {

    623. 

  623.         global $connect ;

    624. 

  624.         global $dbprefix ;

    625. 

  625.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    626. 

  626.         include("lsrc.config.php");

    627. 

  627.         require(dirname(__FILE__)."/../classes/core/sha256.php");

    628. 

  628. 

    629. 

  629.         $query="SELECT uid, password, lang, superadmin FROM {$dbprefix}users WHERE users_name=".$connect->qstr(sanitize_user($sUser));

    630. 

  630.         // echo $query;

    631. 

  631.         $result = db_execute_assoc($query);

    632. 

  632.         $gv = $result->FetchRow();

    633. 

  633.         if($result->RecordCount() < 1)

    634. 

  634.         {

    635. 

  635.             return false;

    636. 

  636.         }

    637. 

  637.         else

    638. 

  638.         {

    639. 

  639.             if((SHA256::hashing($sPass)==$gv['password']))

    640. 

  640.             {

    641. 

  641.                 $_SESSION['loginID']=$gv['uid'];

    642. 

  642.                 $_SESSION['lang']=$gv['lang'];

    643. 

  643. 

    644. 

  644.                 $squery = "SELECT create_survey, configurator, create_user, delete_user, superadmin, manage_template, manage_label FROM {$dbprefix}users WHERE uid={$gv['uid']}";

    645. 

  645.                 $sresult = db_execute_assoc($squery); //Checked

    646. 

  646.                 if ($sresult->RecordCount()>0)

    647. 

  647.                 {

    648. 

  648.                     $fields = $sresult->FetchRow();

    649. 

  649.                     $_SESSION['USER_RIGHT_CREATE_SURVEY'] = $fields['create_survey'];

    650. 

  650.                     $_SESSION['USER_RIGHT_CONFIGURATOR'] = $fields['configurator'];

    651. 

  651.                     $_SESSION['USER_RIGHT_CREATE_USER'] = $fields['create_user'];

    652. 

  652.                     $_SESSION['USER_RIGHT_DELETE_USER'] = $fields['delete_user'];

    653. 

  653.                     $_SESSION['USER_RIGHT_SUPERADMIN'] = $fields['superadmin'];

    654. 

  654.                     $_SESSION['USER_RIGHT_MANAGE_TEMPLATE'] = $fields['manage_template'];

    655. 

  655.                     $_SESSION['USER_RIGHT_MANAGE_LABEL'] = $fields['manage_label'];

    656. 

  656.                 }

    657. 

  657.                 return true;

    658. 

  658.             }

    659. 

  659.             else

    660. 

  660.             {

    661. 

  661.                 return false;

    662. 

  662.             }

    663. 

  663.         }

    664. 

  664.     }

    665. 

  665. 

    666. 

  666.     /**

    667. 

  667.      * Lsrc checks the existence of Surveys more than one time, so this makes sense to be DRY

    668. 

  668.      *

    669. 

  669.      * @param int $sid

    670. 

  670.      * @return boolean

    671. 

  671.      */

    672. 

  672.     function surveyExists($sid)//XXX

    673. 

  673.     {

    674. 

  674.         global $connect ;

    675. 

  675.         global $dbprefix ;

    676. 

  676.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    677. 

  677.         include("lsrc.config.php");

    678. 

  678. 

    679. 

  679.         $query="SELECT * FROM {$dbprefix}surveys WHERE sid = ".$sid;

    680. 

  680.         // echo $query;

    681. 

  681.         $result = db_execute_assoc($query);

    682. 

  682.         if($result->RecordCount() < 1)

    683. 

  683.         {

    684. 

  684.             return false;

    685. 

  685.         }

    686. 

  686.         else

    687. 

  687.         {

    688. 

  688.             return true;

    689. 

  689.         }

    690. 

  690.     }

    691. 

  691. 

    692. 

  692.     /**

    693. 

  693.      * function to import surveys

    694. 

  694.      *

    695. 

  695.      * @param  $iVid - desired survey id

    696. 

  696.      * @param $importFile - name of the file to import in core(survey) dir

    697. 

  697.      * @return boolean

    698. 

  698.      */

    699. 

  699.     function importSurvey($iVid, $importFile)

    700. 

  700.     {

    701. 

  701.         global $connect ;

    702. 

  702.         global $dbprefix ;

    703. 

  703.         global $clang;

    704. 

  704. 

    705. 

  705.         include("lsrc.config.php");

    706. 

  706.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    707. 

  707.         $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", OK ");

    708. 

  708.         // HINT FOR IMPORTERS: go to Line 714 to manipulate the Survey, while it's imported

    709. 

  709. 

    710. 

  710.         $the_full_file_path = $coreDir.$importFile;

    711. 

  711. 

    712. 

  712.         $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.",the_full_file_path ='$the_full_file_path' OK ");

    713. 

  713.         

    714. 

  714.         include("../import_functions.php");

    715. 

  715.         include("../admin_functions.php");

    716. 

  716.         if (!isset($copyfunction))

    717. 

  717.         {

    718. 

  718.             $sFullFilepath=$the_full_file_path;

    719. 

  719.             $aPathInfo = pathinfo($sFullFilepath);

    720. 

  720.             $sExtension = $aPathInfo['extension'];

    721. 

  721.         }

    722. 

  722. 

    723. 

  723.         if (isset($sExtension) && strtolower($sExtension)=='csv')

    724. 

  724.         {

    725. 

  725.             $aImportResults=CSVImportSurvey($sFullFilepath,$iVid);

    726. 

  726.         }

    727. 

  727.         elseif (isset($sExtension) && strtolower($sExtension)=='lss')

    728. 

  728.         {

    729. 

  729.             $aImportResults=XMLImportSurvey($sFullFilepath,NULL,NULL,$iVid);

    730. 

  730.         } elseif (isset($copyfunction))

    731. 

  731.         {

    732. 

  732.             $aImportResults=XMLImportSurvey('',$copysurveydata,$sNewSurveyName,$iVid);

    733. 

  733.         }

    734. 

  734. 

    735. 

  735.         //CANNOT BE USED BY LSRC RIGHT NOW

    736. 

  736.         // Translate INSERTANS codes if chosen

    737. 

  737. //        if (isset($aImportResults['fieldnames']) && $sTransLinks === true)

    738. 

  738. //        {

    739. 

  739. //            transInsertAns($aImportResults['newsid'],$aImportResults['oldsid'],$aImportResults['fieldnames']);

    740. 

  740. //        }

    741. 

  741. 

    742. 

  742.         return $aImportResults['newsid'];

    743. 

  743.     }

    744. 

  744. 

    745. 

  745.     /**

    746. 

  746.      * function to activate surveys based on new activate.php 5771 2008-10-13 02:28:40Z jcleeland $

    747. 

  747.      *

    748. 

  748.      * @param unknown_type $surveyid

    749. 

  749.      * @return boolean

    750. 

  750.      */

    751. 

  751.     function activateSurvey($surveyid)//XXX activateSurvey

    752. 

  752.     {

    753. 

  753.         global $dbprefix, $connect, $clang, $databasetype,$databasetabletype;

    754. 

  754.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    755. 

  755.         include("lsrc.config.php");

    756. 

  756.         include('../admin_functions.php');

    757. 

  757.         include('../activate_functions.php');

    758. 

  758.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    759. 

  759.         $returnOutput = activateSurvey($surveyid,$surveyid,'lsrc');

    760. 

  760.         

    761. 

  761.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", $returnOutput ");

    762. 

  762. 

    763. 

  763.         return $returnOutput;

    764. 

  764.     } // end activateSurvey();

    765. 

  765. 

    766. 

  766.     /**

    767. 

  767.      * not used, a test, thought this could maybe enhance security, may be deleted

    768. 

  768.      *

    769. 

  769.      * @return Error 404 fake

    770. 

  770.      */

    771. 

  771.     function fake404()// XXX

    772. 

  772.     {

    773. 

  773.         return '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"

    774. 

  774. 	  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

    775. 

  775. 	<html xmlns="http://www.w3.org/1999/xhtml" lang="de" xml:lang="de">

    776. 

  776. 	<head>

    777. 

  777. 	<title>Objekt nicht gefunden!</title>

    778. 

  778. 	<link rev="made" href="" />

    779. 

  779. 	<style type="text/css"><!--/*--><![CDATA[/*><!--*/ 

    780. 

  780. 	    body { color: #000000; background-color: #FFFFFF; }

    781. 

  781. 	    a:link { color: #0000CC; }

    782. 

  782. 	    p, address {margin-left: 3em;}

    783. 

  783. 	    span {font-size: smaller;}

    784. 

  784. 	/*]]>*/--></style>

    785. 

  785. 	</head>

    786. 

  786. 	

    787. 

  787. 	<body>

    788. 

  788. 	<h1>Objekt nicht gefunden!</h1>

    789. 

  789. 	<p>

    790. 

  790. 	

    791. 

  791. 	

    792. 

  792. 	    Der angeforderte URL konnte auf dem Server nicht gefunden werden.

    793. 

  793. 	

    794. 

  794. 	  

    795. 

  795. 	

    796. 

  796. 	    Sofern Sie den URL manuell eingegeben haben,

    797. 

  797. 	    &uuml;berpr&uuml;fen Sie bitte die Schreibweise und versuchen Sie es erneut.

    798. 

  798. 	

    799. 

  799. 	  

    800. 

  800. 	

    801. 

  801. 	</p>

    802. 

  802. 	<p>

    803. 

  803. 	Sofern Sie dies f&uuml;r eine Fehlfunktion des Servers halten,

    804. 

  804. 	informieren Sie bitte den 

    805. 

  805. 	<a href="mailto:webmaster@'.$_SERVER["SERVER_NAME"].'">Webmaster</a>

    806. 

  806. 	hier&uuml;ber.

    807. 

  807. 	

    808. 

  808. 	</p>

    809. 

  809. 	

    810. 

  810. 	<h2>Error 404</h2>

    811. 

  811. 	<address>

    812. 

  812. 	

    813. 

  813. 	  <a href="/">'.$_SERVER["SERVER_NAME"].'</a>

    814. 

  814. 	  

    815. 

  815. 	  <span>'.date("m/d/Y H:i:s").'

    816. 

  816. 	  Apache/2.2.9 (Win32) DAV/2 mod_ssl/2.2.9 OpenSSL/0.9.8i mod_autoindex_color PHP/5.2.6 mod_jk/1.2.26</span>

    817. 

  817. 	</address>

    818. 

  818. 	</body>

    819. 

  819. 	</html>

    820. 

  820. 	

    821. 

  821. 	';

    822. 

  822.     }

    823. 

  823. 

    824. 

  824.     /**

    825. 

  825.      * importing a group into an existing survey

    826. 

  826.      *

    827. 

  827.      * @param int $iVid SurveyID

    828. 

  828.      * @param string $sMod Group that should be loaded into the Survey

    829. 

  829.      */

    830. 

  830.     function importGroup($surveyid, $sMod) //XXX

    831. 

  831.     {

    832. 

  832.         global $connect ;

    833. 

  833.         global $dbprefix ;

    834. 

  834.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    835. 

  835.         include("lsrc.config.php");

    836. 

  836.         $newsid = $surveyid;

    837. 

  837. 

    838. 

  838.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    839. 

  839. 

    840. 

  840.         $the_full_file_path = $modDir.$sMod.".csv";

    841. 

  841. 

    842. 

  842.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK $the_full_file_path ");

    843. 

  843. 

    844. 

  844.         $handle = fopen($the_full_file_path, "r");

    845. 

  845.         while (!feof($handle))

    846. 

  846.         {

    847. 

  847.             $buffer = fgets($handle);

    848. 

  848.             $bigarray[] = $buffer;

    849. 

  849.         }

    850. 

  850.         fclose($handle);

    851. 

  851. 

    852. 

  852.         if (substr($bigarray[0], 0, 23) != "# LimeSurvey Group Dump" && substr($bigarray[0], 0, 24) != "# PHPSurveyor Group Dump")

    853. 

  853.         {

    854. 

  854.             //$importgroup .= "<strong><font color='red'>".("Error")."</font></strong>\n";

    855. 

  855.             //$importgroup .= ("This file is not a LimeSurvey group file. Import failed.")."\n";

    856. 

  856.             //$importgroup .= "<input type='submit' value='".("Main Admin Screen")."' onclick=\"window.open('$scriptname', '_top')\">\n";

    857. 

  857.             //$importgroup .= "</td></tr></table>\n";

    858. 

  858.             //unlink($the_full_file_path);

    859. 

  859.             return false;

    860. 

  860.         }

    861. 

  861. 

    862. 

  862.         for ($i=0; $i<9; $i++)

    863. 

  863.         {

    864. 

  864.             unset($bigarray[$i]);

    865. 

  865.         }

    866. 

  866.         $bigarray = array_values($bigarray);

    867. 

  867. 

    868. 

  868.         //GROUPS

    869. 

  869.         if (array_search("# QUESTIONS TABLE\n", $bigarray))

    870. 

  870.         {

    871. 

  871.             $stoppoint = array_search("# QUESTIONS TABLE\n", $bigarray);

    872. 

  872.         }

    873. 

  873.         elseif (array_search("# QUESTIONS TABLE\r\n", $bigarray))

    874. 

  874.         {

    875. 

  875.             $stoppoint = array_search("# QUESTIONS TABLE\r\n", $bigarray);

    876. 

  876.         }

    877. 

  877.         else

    878. 

  878.         {

    879. 

  879.             $stoppoint = count($bigarray)-1;

    880. 

  880.         }

    881. 

  881.         for ($i=0; $i<=$stoppoint+1; $i++)

    882. 

  882.         {

    883. 

  883.             if ($i<$stoppoint-2) {$grouparray[] = $bigarray[$i];}

    884. 

  884.             unset($bigarray[$i]);

    885. 

  885.         }

    886. 

  886.         $bigarray = array_values($bigarray);

    887. 

  887.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    888. 

  888.         //QUESTIONS

    889. 

  889.         if (array_search("# ANSWERS TABLE\n", $bigarray))

    890. 

  890.         {

    891. 

  891.             $stoppoint = array_search("# ANSWERS TABLE\n", $bigarray);

    892. 

  892.         }

    893. 

  893.         elseif (array_search("# ANSWERS TABLE\r\n", $bigarray))

    894. 

  894.         {

    895. 

  895.             $stoppoint = array_search("# ANSWERS TABLE\r\n", $bigarray);

    896. 

  896.         }

    897. 

  897.         else

    898. 

  898.         {

    899. 

  899.             $stoppoint = count($bigarray)-1;

    900. 

  900.         }

    901. 

  901.         for ($i=0; $i<=$stoppoint+1; $i++)

    902. 

  902.         {

    903. 

  903.             if ($i<$stoppoint-2) {$questionarray[] = $bigarray[$i];}

    904. 

  904.             unset($bigarray[$i]);

    905. 

  905.         }

    906. 

  906.         $bigarray = array_values($bigarray);

    907. 

  907.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    908. 

  908.         //ANSWERS

    909. 

  909.         if (array_search("# CONDITIONS TABLE\n", $bigarray))

    910. 

  910.         {

    911. 

  911.             $stoppoint = array_search("# CONDITIONS TABLE\n", $bigarray);

    912. 

  912.         }

    913. 

  913.         elseif (array_search("# CONDITIONS TABLE\r\n", $bigarray))

    914. 

  914.         {

    915. 

  915.             $stoppoint = array_search("# CONDITIONS TABLE\r\n", $bigarray);

    916. 

  916.         }

    917. 

  917.         else

    918. 

  918.         {

    919. 

  919.             $stoppoint = count($bigarray)-1;

    920. 

  920.         }

    921. 

  921.         for ($i=0; $i<=$stoppoint+1; $i++)

    922. 

  922.         {

    923. 

  923.             if ($i<$stoppoint-2) {$answerarray[] = $bigarray[$i];}

    924. 

  924.             unset($bigarray[$i]);

    925. 

  925.         }

    926. 

  926.         $bigarray = array_values($bigarray);

    927. 

  927.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    928. 

  928.         //CONDITIONS

    929. 

  929.         if (array_search("# LABELSETS TABLE\n", $bigarray))

    930. 

  930.         {

    931. 

  931.             $stoppoint = array_search("# LABELSETS TABLE\n", $bigarray);

    932. 

  932.         }

    933. 

  933.         elseif (array_search("# LABELSETS TABLE\r\n", $bigarray))

    934. 

  934.         {

    935. 

  935.             $stoppoint = array_search("# LABELSETS TABLE\r\n", $bigarray);

    936. 

  936.         }

    937. 

  937.         else

    938. 

  938.         {

    939. 

  939.             $stoppoint = count($bigarray);

    940. 

  940.         }

    941. 

  941.         for ($i=0; $i<=$stoppoint+1; $i++)

    942. 

  942.         {

    943. 

  943.             if ($i<$stoppoint-2) {$conditionsarray[] = $bigarray[$i];}

    944. 

  944.             unset($bigarray[$i]);

    945. 

  945.         }

    946. 

  946.         $bigarray = array_values($bigarray);

    947. 

  947.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    948. 

  948.         //LABELSETS

    949. 

  949.         if (array_search("# LABELS TABLE\n", $bigarray))

    950. 

  950.         {

    951. 

  951.             $stoppoint = array_search("# LABELS TABLE\n", $bigarray);

    952. 

  952.         }

    953. 

  953.         elseif (array_search("# LABELS TABLE\r\n", $bigarray))

    954. 

  954.         {

    955. 

  955.             $stoppoint = array_search("# LABELS TABLE\r\n", $bigarray);

    956. 

  956.         }

    957. 

  957.         else

    958. 

  958.         {

    959. 

  959.             $stoppoint = count($bigarray)-1;

    960. 

  960.         }

    961. 

  961.         for ($i=0; $i<=$stoppoint+1; $i++)

    962. 

  962.         {

    963. 

  963.             if ($i<$stoppoint-2) {$labelsetsarray[] = $bigarray[$i];}

    964. 

  964.             unset($bigarray[$i]);

    965. 

  965.         }

    966. 

  966.         $bigarray = array_values($bigarray);

    967. 

  967.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    968. 

  968.         //LABELS

    969. 

  969.         if (array_search("# QUESTION_ATTRIBUTES TABLE\n", $bigarray))

    970. 

  970.         {

    971. 

  971.             $stoppoint = array_search("# QUESTION_ATTRIBUTES TABLE\n", $bigarray);

    972. 

  972.         }

    973. 

  973.         elseif (array_search("# QUESTION_ATTRIBUTES TABLE\r\n", $bigarray))

    974. 

  974.         {

    975. 

  975.             $stoppoint = array_search("# QUESTION_ATTRIBUTES TABLE\r\n", $bigarray);

    976. 

  976.         }

    977. 

  977.         else

    978. 

  978.         {

    979. 

  979.             $stoppoint = count($bigarray)-1;

    980. 

  980.         }

    981. 

  981.         for ($i=0; $i<=$stoppoint+1; $i++)

    982. 

  982.         {

    983. 

  983.             if ($i<$stoppoint-2) {$labelsarray[] = $bigarray[$i];}

    984. 

  984.             unset($bigarray[$i]);

    985. 

  985.         }

    986. 

  986.         $bigarray = array_values($bigarray);

    987. 

  987.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    988. 

  988.         //LAST LOT (now question_attributes)

    989. 

  989.         if (!isset($noconditions) || $noconditions != "Y")

    990. 

  990.         {

    991. 

  991.             // stoppoint is the last line number

    992. 

  992.             // this is an empty line after the QA CSV lines

    993. 

  993.             $stoppoint = count($bigarray)-1;

    994. 

  994.             for ($i=0; $i<=$stoppoint+1; $i++)

    995. 

  995.             {

    996. 

  996.                 if ($i<=$stoppoint-1) {$question_attributesarray[] = $bigarray[$i];}

    997. 

  997.                 unset($bigarray[$i]);

    998. 

  998.             }

    999. 

  999.         }

    1000. 

  1000.         $bigarray = array_values($bigarray);

    1001. 

  1001. 

    1002. 

  1002.         $countgroups=0;

    1003. 

  1003.         if (isset($questionarray))

    1004. 

  1004.         {

    1005. 

  1005.             $questionfieldnames=convertCSVRowToArray($questionarray[0],',','"');

    1006. 

  1006.             unset($questionarray[0]);

    1007. 

  1007.             $countquestions = 0;

    1008. 

  1008.         }

    1009. 

  1009. 

    1010. 

  1010.         if (isset($answerarray))

    1011. 

  1011.         {

    1012. 

  1012.             $answerfieldnames=convertCSVRowToArray($answerarray[0],',','"');

    1013. 

  1013.             unset($answerarray[0]);

    1014. 

  1014.             $countanswers = 0;

    1015. 

  1015.         }

    1016. 

  1016. 

    1017. 

  1017.         $countconditions = 0;

    1018. 

  1018.         $countlabelsets=0;

    1019. 

  1019.         $countlabels=0;

    1020. 

  1020.         $countquestion_attributes = 0;

    1021. 

  1021.         $countanswers = 0;

    1022. 

  1022. 

    1023. 

  1023.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1024. 

  1024.         // first check that imported group, questions and labels support the

    1025. 

  1025.         // current survey's baselang

    1026. 

  1026.         $langcode = GetBaseLanguageFromSurveyID($newsid);

    1027. 

  1027.         if (isset($grouparray))

    1028. 

  1028.         {

    1029. 

  1029.             $groupfieldnames = convertCSVRowToArray($grouparray[0],',','"');

    1030. 

  1030.             $langfieldnum = array_search("language", $groupfieldnames);

    1031. 

  1031.             $gidfieldnum = array_search("gid", $groupfieldnames);

    1032. 

  1032.             $groupssupportbaselang = bDoesImportarraySupportsLanguage($grouparray,Array($gidfieldnum),$langfieldnum,$langcode,true);

    1033. 

  1033.             if (!$groupssupportbaselang)

    1034. 

  1034.             {

    1035. 

  1035.                 //$importgroup .= "<strong><font color='red'>".("Error")."</font></strong>\n";

    1036. 

  1036.                 //$importgroup .= ("You can't import a group which doesn't support the current survey's base language.")."\n";

    1037. 

  1037.                 //$importgroup .= "<input type='submit' value='".("Main Admin Screen")."' onclick=\"window.open('$scriptname', '_top')\">\n";

    1038. 

  1038.                 //$importgroup .= "</td></tr></table>\n";

    1039. 

  1039.                 //unlink($the_full_file_path);

    1040. 

  1040.                 return "Group does not support Surveys Baselanguage ($langcode)";

    1041. 

  1041.             }

    1042. 

  1042.         }

    1043. 

  1043.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1044. 

  1044.         if (isset($questionarray))

    1045. 

  1045.         {

    1046. 

  1046.             $langfieldnum = array_search("language", $questionfieldnames);

    1047. 

  1047.             $qidfieldnum = array_search("qid", $questionfieldnames);

    1048. 

  1048.             $questionssupportbaselang = bDoesImportarraySupportsLanguage($questionarray,Array($qidfieldnum), $langfieldnum,$langcode,false);

    1049. 

  1049.             if (!$questionssupportbaselang)

    1050. 

  1050.             {

    1051. 

  1051.                 //$importgroup .= "<strong><font color='red'>".("Error")."</font></strong>\n";

    1052. 

  1052.                 //$importgroup .= ("You can't import a question which doesn't support the current survey's base language.")."\n";

    1053. 

  1053.                 //$importgroup .= "<input type='submit' value='".("Main Admin Screen")."' onclick=\"window.open('$scriptname', '_top')\">\n";

    1054. 

  1054.                 //$importgroup .= "</td></tr></table>\n";

    1055. 

  1055.                 //unlink($the_full_file_path);

    1056. 

  1056.                 return "Group does not support Surveys Baselanguage ($langcode)";

    1057. 

  1057.             }

    1058. 

  1058.         }

    1059. 

  1059. 

    1060. 

  1060.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1061. 

  1061.         if (isset($labelsetsarray))

    1062. 

  1062.         {

    1063. 

  1063.             $labelsetfieldname = convertCSVRowToArray($labelsetsarray[0],',','"');

    1064. 

  1064.             $langfieldnum = array_search("languages", $labelsetfieldname);

    1065. 

  1065.             $lidfilednum =  array_search("lid", $labelsetfieldname);

    1066. 

  1066.             $labelsetssupportbaselang = bDoesImportarraySupportsLanguage($labelsetsarray,Array($lidfilednum),$langfieldnum,$langcode,true);

    1067. 

  1067.             if (!$labelsetssupportbaselang)

    1068. 

  1068.             {

    1069. 

  1069.                 $importquestion .= "<strong><font color='red'>".("Error")."</font></strong>\n"

    1070. 

  1070.                 .("You can't import label sets which don't support the current survey's base language")."\n"

    1071. 

  1071.                 ."</td></tr></table>\n";

    1072. 

  1072.                 //unlink($the_full_file_path);

    1073. 

  1073.                 return "Group does not support Surveys Baselanguage ($langcode)";

    1074. 

  1074.             }

    1075. 

  1075.         }

    1076. 

  1076. 

    1077. 

  1077.         $newlids = array(); // this array will have the "new lid" for the label sets, the key will be the "old lid"

    1078. 

  1078.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1079. 

  1079.         //DO ANY LABELSETS FIRST, SO WE CAN KNOW WHAT THEIR NEW LID IS FOR THE QUESTIONS

    1080. 

  1080.         if (isset($labelsetsarray) && $labelsetsarray) {

    1081. 

  1081.             $csarray=buildLabelSetCheckSumArray();   // build checksums over all existing labelsets

    1082. 

  1082.             $count=0;

    1083. 

  1083.             foreach ($labelsetsarray as $lsa) {

    1084. 

  1084.                 $fieldorders  =convertCSVRowToArray($labelsetsarray[0],',','"');

    1085. 

  1085.                 $fieldcontents=convertCSVRowToArray($lsa,',','"');

    1086. 

  1086.                 if ($count==0) {$count++; continue;}

    1087. 

  1087. 

    1088. 

  1088.                 $countlabelsets++;

    1089. 

  1089. 

    1090. 

  1090.                 $labelsetrowdata=array_combine($fieldorders,$fieldcontents);

    1091. 

  1091. 

    1092. 

  1092.                 // Save old labelid

    1093. 

  1093.                 $oldlid=$labelsetrowdata['lid'];

    1094. 

  1094.                 // set the new language

    1095. 

  1095.                 unset($labelsetrowdata['lid']);

    1096. 

  1096.                 $newvalues=array_values($labelsetrowdata);

    1097. 

  1097.                 $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1098. 

  1098.                 $lsainsert = "INSERT INTO {$dbprefix}labelsets (".implode(',',array_keys($labelsetrowdata)).") VALUES (".implode(',',$newvalues).")"; //handle db prefix

    1099. 

  1099.                 $lsiresult=$connect->Execute($lsainsert);

    1100. 

  1100. 

    1101. 

  1101.                 // Get the new insert id for the labels inside this labelset

    1102. 

  1102.                 $newlid=$connect->Insert_ID("{$dbprefix}labelsets",'lid');

    1103. 

  1103. 

    1104. 

  1104.                 if ($labelsarray) {

    1105. 

  1105.                     $count=0;

    1106. 

  1106.                     foreach ($labelsarray as $la) {

    1107. 

  1107.                         $lfieldorders  =convertCSVRowToArray($labelsarray[0],',','"');

    1108. 

  1108.                         $lfieldcontents=convertCSVRowToArray($la,',','"');

    1109. 

  1109.                         if ($count==0) {$count++; continue;}

    1110. 

  1110. 

    1111. 

  1111.                         // Combine into one array with keys and values since its easier to handle

    1112. 

  1112.                         $labelrowdata=array_combine($lfieldorders,$lfieldcontents);

    1113. 

  1113.                         $labellid=$labelrowdata['lid'];

    1114. 

  1114.                         if ($labellid == $oldlid) {

    1115. 

  1115.                             $labelrowdata['lid']=$newlid;

    1116. 

  1116. 

    1117. 

  1117.                             // translate internal links

    1118. 

  1118.                             $labelrowdata['title']=translink('label', $oldlid, $newlid, $labelrowdata['title']);

    1119. 

  1119. 

    1120. 

  1120.                             $newvalues=array_values($labelrowdata);

    1121. 

  1121.                             $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1122. 

  1122.                             $lainsert = "INSERT INTO {$dbprefix}labels (".implode(',',array_keys($labelrowdata)).") VALUES (".implode(',',$newvalues).")"; //handle db prefix

    1123. 

  1123.                             $liresult=$connect->Execute($lainsert);

    1124. 

  1124.                             $countlabels++;

    1125. 

  1125.                         }

    1126. 

  1126.                     }

    1127. 

  1127.                 }

    1128. 

  1128. 

    1129. 

  1129.                 //CHECK FOR DUPLICATE LABELSETS

    1130. 

  1130.                 $thisset="";

    1131. 

  1131.                 $query2 = "SELECT code, title, sortorder, language

    1132. 

  1132. 		                   FROM {$dbprefix}labels

    1133. 

  1133. 		                   WHERE lid=".$newlid."

    1134. 

  1134. 		                   ORDER BY language, sortorder, code";    

    1135. 

  1135.                 $result2 = db_execute_num($query2) or $this->debugLsrc("Died querying labelset $lid$query2".$connect->ErrorMsg());

    1136. 

  1136.                 while($row2=$result2->FetchRow())

    1137. 

  1137.                 {

    1138. 

  1138.                     $thisset .= implode('.', $row2);

    1139. 

  1139.                 } // while

    1140. 

  1140.                 $newcs=dechex(crc32($thisset)*1);

    1141. 

  1141.                 unset($lsmatch);

    1142. 

  1142.                 if (isset($csarray))

    1143. 

  1143.                 {

    1144. 

  1144.                     foreach($csarray as $key=>$val)

    1145. 

  1145.                     {

    1146. 

  1146.                         if ($val == $newcs)

    1147. 

  1147.                         {

    1148. 

  1148.                             $lsmatch=$key;

    1149. 

  1149.                         }

    1150. 

  1150.                     }

    1151. 

  1151.                 }

    1152. 

  1152.                 if (isset($lsmatch))

    1153. 

  1153.                 {

    1154. 

  1154.                     //There is a matching labelset. So, we will delete this one and refer

    1155. 

  1155.                     //to the matched one.

    1156. 

  1156.                     $query = "DELETE FROM {$dbprefix}labels WHERE lid=$newlid";

    1157. 

  1157.                     $result=$connect->Execute($query) or $this->debugLsrc("Couldn't delete labels$query".$connect->ErrorMsg());

    1158. 

  1158.                     $query = "DELETE FROM {$dbprefix}labelsets WHERE lid=$newlid";

    1159. 

  1159.                     $result=$connect->Execute($query) or $this->debugLsrc("Couldn't delete labelset$query".$connect->ErrorMsg());

    1160. 

  1160.                     $newlid=$lsmatch;

    1161. 

  1161.                 }

    1162. 

  1162.                 else

    1163. 

  1163.                 {

    1164. 

  1164.                     //There isn't a matching labelset, add this checksum to the $csarray array

    1165. 

  1165.                     $csarray[$newlid]=$newcs;

    1166. 

  1166.                 }

    1167. 

  1167.                 //END CHECK FOR DUPLICATES

    1168. 

  1168.                 $labelreplacements[]=array($oldlid, $newlid);

    1169. 

  1169.                 $newlids[$oldlid] = $newlid;

    1170. 

  1170.             }

    1171. 

  1171.         }

    1172. 

  1172.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1173. 

  1173.         //these arrays will aloud to insert correctly groups an questions multi languague survey imports correctly, and will eliminate the need to "searh" the imported data

    1174. 

  1174.         //$newgids = array(); // this array will have the "new gid" for the groups, the kwy will be the "old gid"    <-- not needed when importing groups

    1175. 

  1175.         $newqids = array(); // this array will have the "new qid" for the questions, the kwy will be the "old qid"

    1176. 

  1176. 

    1177. 

  1177.         // DO GROUPS, QUESTIONS FOR GROUPS, THEN ANSWERS FOR QUESTIONS IN A __NOT__ NESTED FORMAT!

    1178. 

  1178.         if (isset($grouparray) && $grouparray)

    1179. 

  1179.         {

    1180. 

  1180.             $surveylanguages=GetAdditionalLanguagesFromSurveyID($surveyid);

    1181. 

  1181.             $surveylanguages[]=GetBaseLanguageFromSurveyID($surveyid);

    1182. 

  1182. 

    1183. 

  1183.             // do GROUPS

    1184. 

  1184.             $gafieldorders=convertCSVRowToArray($grouparray[0],',','"');

    1185. 

  1185.             unset($grouparray[0]);

    1186. 

  1186.             $newgid = 0;

    1187. 

  1187.             $group_order = 0;   // just to initialize this variable

    1188. 

  1188.             foreach ($grouparray as $ga)

    1189. 

  1189.             {

    1190. 

  1190.                 //GET ORDER OF FIELDS

    1191. 

  1191.                 $gacfieldcontents=convertCSVRowToArray($ga,',','"');

    1192. 

  1192.                 $grouprowdata=array_combine($gafieldorders,$gacfieldcontents);

    1193. 

  1193. 

    1194. 

  1194.                 // Skip not supported languages

    1195. 

  1195.                 if (!in_array($grouprowdata['language'],$surveylanguages))

    1196. 

  1196.                 {

    1197. 

  1197.                     $skippedlanguages[]=$grouprowdata['language'];  // this is for the message in the end.

    1198. 

  1198.                     continue;

    1199. 

  1199.                 }

    1200. 

  1200. 

    1201. 

  1201.                 // replace the sid

    1202. 

  1202.                 $oldsid=$grouprowdata['sid'];

    1203. 

  1203.                 $grouprowdata['sid']=$newsid;

    1204. 

  1204. 

    1205. 

  1205.                 // replace the gid  or remove it if needed (it also will calculate the group order if is a new group)

    1206. 

  1206.                 $oldgid=$grouprowdata['gid'];

    1207. 

  1207.                 if ($newgid == 0)

    1208. 

  1208.                 {

    1209. 

  1209.                     unset($grouprowdata['gid']);

    1210. 

  1210. 

    1211. 

  1211.                     // find the maximum group order and use this grouporder+1 to assign it to the new group

    1212. 

  1212.                     $qmaxgo = "select max(group_order) as maxgo from ".db_table_name('groups')." where sid=$newsid";

    1213. 

  1213.                     $gres = db_execute_assoc($qmaxgo) or $this->debugLsrc (("Error")." Failed to find out maximum group order value\n$qmaxqo\n".$connect->ErrorMsg());

    1214. 

  1214.                     $grow=$gres->FetchRow();

    1215. 

  1215.                     $group_order = $grow['maxgo']+1;

    1216. 

  1216.                 }

    1217. 

  1217.                 else

    1218. 

  1218.                 $grouprowdata['gid'] = $newgid;

    1219. 

  1219. 

    1220. 

  1220.                 $grouprowdata["group_order"]= $group_order;

    1221. 

  1221. 

    1222. 

  1222.                 // Everything set - now insert it

    1223. 

  1223.                 $grouprowdata=array_map('convertCsvreturn2return', $grouprowdata);

    1224. 

  1224. 

    1225. 

  1225. 

    1226. 

  1226.                 // translate internal links

    1227. 

  1227.                 $grouprowdata['group_name']=translink('survey', $oldsid, $newsid, $grouprowdata['group_name']);

    1228. 

  1228.                 $grouprowdata['description']=translink('survey', $oldsid, $newsid, $grouprowdata['description']);

    1229. 

  1229. 

    1230. 

  1230.                 $newvalues=array_values($grouprowdata);

    1231. 

  1231.                 $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1232. 

  1232.                 $ginsert = "insert INTO {$dbprefix}groups (".implode(',',array_keys($grouprowdata)).") VALUES (".implode(',',$newvalues).")";

    1233. 

  1233.                 $gres = $connect->Execute($ginsert) or $this->debugLsrc("Error: ".": Failed to insert group\n$ginsert\n".$connect->ErrorMsg());

    1234. 

  1234. 

    1235. 

  1235.                 //GET NEW GID  .... if is not done before and we count a group if a new gid is required

    1236. 

  1236.                 if ($newgid == 0)

    1237. 

  1237.                 {

    1238. 

  1238.                     $newgid = $connect->Insert_ID("{$dbprefix}groups",'gid');

    1239. 

  1239.                     $countgroups++;

    1240. 

  1240.                 }

    1241. 

  1241.             }

    1242. 

  1242.             // GROUPS is DONE

    1243. 

  1243. 

    1244. 

  1244.             // do QUESTIONS

    1245. 

  1245.             if (isset($questionarray) && $questionarray)

    1246. 

  1246.             {

    1247. 

  1247.                 foreach ($questionarray as $qa)

    1248. 

  1248.                 {

    1249. 

  1249.                     $qacfieldcontents=convertCSVRowToArray($qa,',','"');

    1250. 

  1250.                     $questionrowdata=array_combine($questionfieldnames,$qacfieldcontents);

    1251. 

  1251. 

    1252. 

  1252.                     // Skip not supported languages

    1253. 

  1253.                     if (!in_array($questionrowdata['language'],$surveylanguages))

    1254. 

  1254.                     continue;

    1255. 

  1255. 

    1256. 

  1256.                     // replace the sid

    1257. 

  1257.                     $questionrowdata["sid"] = $newsid;

    1258. 

  1258. 

    1259. 

  1259.                     // replace the gid (if the gid is not in the oldgid it means there is a problem with the exported record, so skip it)

    1260. 

  1260.                     if ($questionrowdata['gid'] == $oldgid)

    1261. 

  1261.                     $questionrowdata['gid'] = $newgid;

    1262. 

  1262.                     else

    1263. 

  1263.                     continue; // a problem with this question record -> don't consider

    1264. 

  1264. 

    1265. 

  1265.                     // replace the qid or remove it if needed

    1266. 

  1266.                     $oldqid = $questionrowdata['qid'];

    1267. 

  1267.                     if (isset($newqids[$oldqid]))

    1268. 

  1268.                     $questionrowdata['qid'] = $newqids[$oldqid];

    1269. 

  1269.                     else

    1270. 

  1270.                     unset($questionrowdata['qid']);

    1271. 

  1271. 

    1272. 

  1272.                     // replace the lid for the new one (if there is no new lid in the $newlids array it mean that was not imported -> error, skip this record)

    1273. 

  1273.                     if (in_array($questionrowdata["type"], array("F","W","Z","H", "1", ":", ";")))      // only fot the questions that uses a label set.

    1274. 

  1274.                     if (isset($newlids[$questionrowdata["lid"]]))

    1275. 

  1275.                     {

    1276. 

  1276.                         $questionrowdata["lid"] = $newlids[$questionrowdata["lid"]];

    1277. 

  1277.                         if(isset($newlids[$questionrowdata["lid1"]]))

    1278. 

  1278.                         {

    1279. 

  1279.                             $questionrowdata["lid1"] = $newlids[$questionrowdata["lid1"]];

    1280. 

  1280.                         }

    1281. 

  1281.                     }

    1282. 

  1282.                     else

    1283. 

  1283.                     {

    1284. 

  1284.                         continue; // a problem with this question record -> don't consider

    1285. 

  1285.                     }

    1286. 

  1286.                     //            $other = $questionrowdata["other"]; //Get 'other' field value

    1287. 

  1287.                     //            $oldlid = $questionrowdata['lid'];

    1288. 

  1288. 

    1289. 

  1289.                     // Everything set - now insert it

    1290. 

  1290.                     $questionrowdata=array_map('convertCsvreturn2return', $questionrowdata);

    1291. 

  1291. 

    1292. 

  1292.                     // translate internal links ///XXX rakete may change question data here

    1293. 

  1293.                     //				$questionrowdata['title']=translink('survey', $oldsid, $newsid, $questionrowdata['title']);

    1294. 

  1294.                     //				$questionrowdata['question']=translink('survey', $oldsid, $newsid, $questionrowdata['question']);

    1295. 

  1295.                     //				$questionrowdata['help']=translink('survey', $oldsid, $newsid, $questionrowdata['help']);

    1296. 

  1296. 

    1297. 

  1297.                     $newvalues=array_values($questionrowdata);

    1298. 

  1298.                     $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1299. 

  1299.                     $qinsert = "insert INTO {$dbprefix}questions (".implode(',',array_keys($questionrowdata)).") VALUES (".implode(',',$newvalues).")";

    1300. 

  1300.                     $qres = $connect->Execute($qinsert) or $this->debugLsrc ("Error: "."Failed to insert question\n$qinsert\n".$connect->ErrorMsg());

    1301. 

  1301. 

    1302. 

  1302.                     //GET NEW QID  .... if is not done before and we count a question if a new qid is required

    1303. 

  1303.                     if (!isset($newqids[$oldqid]))

    1304. 

  1304.                     {

    1305. 

  1305.                         $newqids[$oldqid] = $connect->Insert_ID("{$dbprefix}questions",'qid');

    1306. 

  1306.                         $myQid=$newqids[$oldqid];

    1307. 

  1307.                         $countquestions++;

    1308. 

  1308.                     }

    1309. 

  1309.                     else

    1310. 

  1310.                     {

    1311. 

  1311.                         $myQid=$newqids[$oldqid];

    1312. 

  1312.                     }

    1313. 

  1313.                 }

    1314. 

  1314.             }

    1315. 

  1315.             // QESTIONS is DONE

    1316. 

  1316.             $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1317. 

  1317.             // do ANSWERS

    1318. 

  1318.             if (isset($answerarray) && $answerarray)

    1319. 

  1319.             {

    1320. 

  1320.                 foreach ($answerarray as $aa)

    1321. 

  1321.                 {

    1322. 

  1322.                     $aacfieldcontents=convertCSVRowToArray($aa,',','"');

    1323. 

  1323.                     $answerrowdata=array_combine($answerfieldnames,$aacfieldcontents);

    1324. 

  1324. 

    1325. 

  1325.                     // Skip not supported languages

    1326. 

  1326.                     if (!in_array($answerrowdata['language'],$surveylanguages))

    1327. 

  1327.                     continue;

    1328. 

  1328. 

    1329. 

  1329.                     // replace the qid for the new one (if there is no new qid in the $newqids array it mean that this answer is orphan -> error, skip this record)

    1330. 

  1330.                     if (isset($newqids[$answerrowdata["qid"]]))

    1331. 

  1331.                     $answerrowdata["qid"] = $newqids[$answerrowdata["qid"]];

    1332. 

  1332.                     else

    1333. 

  1333.                     continue; // a problem with this answer record -> don't consider

    1334. 

  1334. 

    1335. 

  1335.                     // Everything set - now insert it

    1336. 

  1336.                     $answerrowdata = array_map('convertCsvreturn2return', $answerrowdata);

    1337. 

  1337. 

    1338. 

  1338.                     // translate internal links

    1339. 

  1339.                     $answerrowdata['answer']=translink('survey', $oldsid, $newsid, $answerrowdata['answer']);

    1340. 

  1340. 

    1341. 

  1341.                     $newvalues=array_values($answerrowdata);

    1342. 

  1342.                     $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1343. 

  1343.                     $ainsert = "insert INTO {$dbprefix}answers (".implode(',',array_keys($answerrowdata)).") VALUES (".implode(',',$newvalues).")";

    1344. 

  1344.                     $ares = $connect->Execute($ainsert) or $this->debugLsrc ("Error: "."Failed to insert answer\n$ainsert\n".$connect->ErrorMsg());

    1345. 

  1345.                     $countanswers++;

    1346. 

  1346.                 }

    1347. 

  1347.             }

    1348. 

  1348.             // ANSWERS is DONE

    1349. 

  1349.             $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1350. 

  1350.             // Fix question group sortorder

    1351. 

  1351.             fixSortOrderGroups($surveyid);

    1352. 

  1352.             $baselang = GetBaseLanguageFromSurveyID($surveyid);

    1353. 

  1353.             $cdresult = db_execute_assoc("SELECT gid FROM ".db_table_name('groups')." WHERE sid='{$surveyid}' AND language='{$baselang}' ORDER BY group_order, group_name");

    1354. 

  1354.             $position=0;

    1355. 

  1355.             while ($cdrow=$cdresult->FetchRow())

    1356. 

  1356.             {

    1357. 

  1357.                 $cd2query="UPDATE ".db_table_name('groups')." SET group_order='{$position}' WHERE gid='{$cdrow['gid']}' ";

    1358. 

  1358.                 $cd2result = $connect->Execute($cd2query) or $this->debugLsrc ("Couldn't update group_order$cd2query".$connect->ErrorMsg());  //Checked

    1359. 

  1359.                 $position++;

    1360. 

  1360.             }

    1361. 

  1361. 

    1362. 

  1362. 

    1363. 

  1363.             //... and for the questions inside the groups

    1364. 

  1364.             // get all group ids and fix questions inside each group

    1365. 

  1365.             $gquery = "SELECT gid FROM {$dbprefix}groups where sid=$newsid group by gid ORDER BY gid"; //Get last question added (finds new qid)

    1366. 

  1366.             $gres = db_execute_assoc($gquery);

    1367. 

  1367.             while ($grow = $gres->FetchRow())

    1368. 

  1368.             {

    1369. 

  1369.                 //fixsortorderQuestions(0,$grow['gid']);

    1370. 

  1370.                 $qid=sanitize_int(0);

    1371. 

  1371.                 $gid=sanitize_int($grow['gid']);

    1372. 

  1372.                 $baselang = GetBaseLanguageFromSurveyID($surveyid);

    1373. 

  1373.                 if ($gid == 0)

    1374. 

  1374.                 {

    1375. 

  1375.                     $result = db_execute_assoc("SELECT gid FROM ".db_table_name('questions')." WHERE qid='{$qid}' and language='{$baselang}'");  //Checked

    1376. 

  1376.                     $row=$result->FetchRow();

    1377. 

  1377.                     $gid=$row['gid'];

    1378. 

  1378.                 }

    1379. 

  1379.                 $cdresult = db_execute_assoc("SELECT qid FROM ".db_table_name('questions')." WHERE gid='{$gid}' and language='{$baselang}' ORDER BY question_order, title ASC");      //Checked

    1380. 

  1380.                 $position=0;

    1381. 

  1381.                 while ($cdrow=$cdresult->FetchRow())

    1382. 

  1382.                 {

    1383. 

  1383.                     $cd2query="UPDATE ".db_table_name('questions')." SET question_order='{$position}' WHERE qid='{$cdrow['qid']}' ";

    1384. 

  1384.                     $cd2result = $connect->Execute($cd2query) or $this->debugLsrc ("Couldn't update question_order$cd2query".$connect->ErrorMsg());    //Checked

    1385. 

  1385.                     $position++;

    1386. 

  1386.                 }

    1387. 

  1387.             }

    1388. 

  1388.         }

    1389. 

  1389.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1390. 

  1390.         // do ATTRIBUTES

    1391. 

  1391.         if (isset($question_attributesarray) && $question_attributesarray)

    1392. 

  1392.         {

    1393. 

  1393.             $fieldorders  =convertCSVRowToArray($question_attributesarray[0],',','"');

    1394. 

  1394.             unset($question_attributesarray[0]);

    1395. 

  1395.             foreach ($question_attributesarray as $qar) {

    1396. 

  1396.                 $fieldcontents=convertCSVRowToArray($qar,',','"');

    1397. 

  1397.                 $qarowdata=array_combine($fieldorders,$fieldcontents);

    1398. 

  1398. 

    1399. 

  1399.                 // replace the qid for the new one (if there is no new qid in the $newqids array it mean that this attribute is orphan -> error, skip this record)

    1400. 

  1400.                 if (isset($newqids[$qarowdata["qid"]]))

    1401. 

  1401.                 $qarowdata["qid"] = $newqids[$qarowdata["qid"]];

    1402. 

  1402.                 else

    1403. 

  1403.                 continue; // a problem with this answer record -> don't consider

    1404. 

  1404. 

    1405. 

  1405.                 unset($qarowdata["qaid"]);

    1406. 

  1406. 

    1407. 

  1407.                 // Everything set - now insert it

    1408. 

  1408.                 $newvalues=array_values($qarowdata);

    1409. 

  1409.                 $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1410. 

  1410.                 $qainsert = "insert INTO {$dbprefix}question_attributes (".implode(',',array_keys($qarowdata)).") VALUES (".implode(',',$newvalues).")";

    1411. 

  1411.                 $result=$connect->Execute($qainsert) or $this->debugLsrc ("Couldn't insert question_attribute$qainsert".$connect->ErrorMsg());

    1412. 

  1412.                 $countquestion_attributes++;

    1413. 

  1413.             }

    1414. 

  1414.         }

    1415. 

  1415.         // ATTRIBUTES is DONE

    1416. 

  1416.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1417. 

  1417.         // do CONDITIONS

    1418. 

  1418.         if (isset($conditionsarray) && $conditionsarray)

    1419. 

  1419.         {

    1420. 

  1420.             $fieldorders=convertCSVRowToArray($conditionsarray[0],',','"');

    1421. 

  1421.             unset($conditionsarray[0]);

    1422. 

  1422.             foreach ($conditionsarray as $car) {

    1423. 

  1423.                 $fieldcontents=convertCSVRowToArray($car,',','"');

    1424. 

  1424.                 $conditionrowdata=array_combine($fieldorders,$fieldcontents);

    1425. 

  1425. 

    1426. 

  1426.                 $oldqid = $conditionrowdata["qid"];

    1427. 

  1427.                 $oldcqid = $conditionrowdata["cqid"];

    1428. 

  1428. 

    1429. 

  1429.                 // replace the qid for the new one (if there is no new qid in the $newqids array it mean that this condition is orphan -> error, skip this record)

    1430. 

  1430.                 if (isset($newqids[$oldqid]))

    1431. 

  1431.                 $conditionrowdata["qid"] = $newqids[$oldqid];

    1432. 

  1432.                 else

    1433. 

  1433.                 continue; // a problem with this answer record -> don't consider

    1434. 

  1434. 

    1435. 

  1435.                 // replace the cqid for the new one (if there is no new qid in the $newqids array it mean that this condition is orphan -> error, skip this record)

    1436. 

  1436.                 if (isset($newqids[$oldcqid]))

    1437. 

  1437.                 $conditionrowdata["cqid"] = $newqids[$oldcqid];

    1438. 

  1438.                 else

    1439. 

  1439.                 continue; // a problem with this answer record -> don't consider

    1440. 

  1440. 

    1441. 

  1441.                 list($oldcsid, $oldcgid, $oldqidanscode) = explode("X",$conditionrowdata["cfieldname"],3);

    1442. 

  1442. 

    1443. 

  1443.                 if ($oldcgid != $oldgid)    // this means that the condition is in another group (so it should not have to be been exported -> skip it

    1444. 

  1444.                 continue;

    1445. 

  1445. 

    1446. 

  1446.                 unset($conditionrowdata["cid"]);

    1447. 

  1447. 

    1448. 

  1448.                 // recreate the cfieldname with the new IDs

    1449. 

  1449.                 $newcfieldname = $newsid . "X" . $newgid . "X" . $conditionrowdata["cqid"] .substr($oldqidanscode,strlen($oldqid));

    1450. 

  1450. 

    1451. 

  1451.                 $conditionrowdata["cfieldname"] = $newcfieldname;

    1452. 

  1452.                 if (!isset($conditionrowdata["method"]) || trim($conditionrowdata["method"])=='')

    1453. 

  1453.                 {

    1454. 

  1454.                     $conditionrowdata["method"]='==';

    1455. 

  1455.                 }

    1456. 

  1456.                 $newvalues=array_values($conditionrowdata);

    1457. 

  1457.                 $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1458. 

  1458.                 $conditioninsert = "insert INTO {$dbprefix}conditions (".implode(',',array_keys($conditionrowdata)).") VALUES (".implode(',',$newvalues).")";

    1459. 

  1459.                 $result=$connect->Execute($conditioninsert) or $this->debugLsrc ("Couldn't insert condition$conditioninsert".$connect->ErrorMsg());

    1460. 

  1460.                 $countconditions++;

    1461. 

  1461.             }

    1462. 

  1462.         }

    1463. 

  1463.         $this->debugLsrc("wir sind in - ".__FUNCTION__." Line ".__LINE__.", FERTIG ");

    1464. 

  1464.         // CONDITIONS is DONE

    1465. 

  1465.         return array('gid'=>$newgid,'qid'=>$myQid);

    1466. 

  1466.         //return $newgid;

    1467. 

  1467.     }

    1468. 

  1468. 

    1469. 

  1469.     /**

    1470. 

  1470.      *

    1471. 

  1471.      * Enter description here...

    1472. 

  1472.      * @param $surveyid

    1473. 

  1473.      * @param $sMod

    1474. 

  1474.      * @param $newGroup

    1475. 

  1475.      * @return unknown_type

    1476. 

  1476.      */

    1477. 

  1477.     function importQuestion($surveyid, $sMod, $newGroup=false) //XXX

    1478. 

  1478.     {

    1479. 

  1479.         global $connect ;

    1480. 

  1480.         global $dbprefix ;

    1481. 

  1481.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    1482. 

  1482.         include("lsrc.config.php");

    1483. 

  1483.         $newsid = $surveyid;

    1484. 

  1484. 

    1485. 

  1485.         $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", START OK $dbprefix ");

    1486. 

  1486. 

    1487. 

  1487.         //$getGidSql = "SELECT gid FROM {$dbprefix}  ";

    1488. 

  1488.         $getGidSql = "SELECT gid

    1489. 

  1489. 	                   FROM {$dbprefix}groups 

    1490. 

  1490. 	                   WHERE sid=".$surveyid." AND language='".GetBaseLanguageFromSurveyID($surveyid)."'

    1491. 

  1491. 	                   ORDER BY gid desc ";    

    1492. 

  1492.         $getGidRs = db_execute_num($getGidSql);

    1493. 

  1493.         $gidRow=$getGidRs->FetchRow();

    1494. 

  1494.         $gid = $gidRow[0];

    1495. 

  1495. 

    1496. 

  1496.         if($gid=='')#

    1497. 

  1497.         {

    1498. 

  1498.             $this->debugLsrc("No Group for importing the question, available!");

    1499. 

  1499.             return "No Group for importing the question, available! Import failed.";

    1500. 

  1500.         }

    1501. 

  1501. 

    1502. 

  1502.         if($newGroup===true)

    1503. 

  1503.         ++$gid;

    1504. 

  1504. 

    1505. 

  1505.         $the_full_file_path = $queDir.$sMod.".csv";

    1506. 

  1506. 

    1507. 

  1507.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK $the_full_file_path ");

    1508. 

  1508. 

    1509. 

  1509.         $handle = fopen($the_full_file_path, "r");

    1510. 

  1510.         while (!feof($handle))

    1511. 

  1511.         {

    1512. 

  1512.             $buffer = fgets($handle, 10240); //To allow for very long survey welcomes (up to 10k)

    1513. 

  1513.             $bigarray[] = $buffer;

    1514. 

  1514.         }

    1515. 

  1515.         fclose($handle);

    1516. 

  1516. 

    1517. 

  1517.         // Now we try to determine the dataformat of the survey file.

    1518. 

  1518.         if ((substr($bigarray[1], 0, 24) == "# SURVEYOR QUESTION DUMP")&& (substr($bigarray[4], 0, 29) == "# http://www.phpsurveyor.org/"))

    1519. 

  1519.         {

    1520. 

  1520.             $importversion = 100;  // version 1.0 file

    1521. 

  1521.         }

    1522. 

  1522.         elseif

    1523. 

  1523.         ((substr($bigarray[1], 0, 24) == "# SURVEYOR QUESTION DUMP")&& (substr($bigarray[4], 0, 37) == "# http://phpsurveyor.sourceforge.net/"))

    1524. 

  1524.         {

    1525. 

  1525.             $importversion = 99;  // Version 0.99 file or older - carries a different URL

    1526. 

  1526.         }

    1527. 

  1527.         elseif

    1528. 

  1528.         (substr($bigarray[0], 0, 26) == "# LimeSurvey Question Dump" || substr($bigarray[0], 0, 27) == "# PHPSurveyor Question Dump")

    1529. 

  1529.         {  // Wow.. this seems to be a >1.0 version file - these files carry the version information to read in line two

    1530. 

  1530.             $importversion=substr($bigarray[1], 12, 3);

    1531. 

  1531.         }

    1532. 

  1532.         else    // unknown file - show error message

    1533. 

  1533.         {

    1534. 

  1534.             //		      $importquestion .= "<strong><font color='red'>".("Error")."</font></strong>\n";

    1535. 

  1535.             //		      $importquestion .= ("This file is not a LimeSurvey question file. Import failed.")."\n";

    1536. 

  1536.             //		      $importquestion .= "</font></td></tr></table>\n";

    1537. 

  1537.             //		      $importquestion .= "</body>\n</html>\n";

    1538. 

  1538.             //		      unlink($the_full_file_path);

    1539. 

  1539.             return "This is not a Limesurvey question file. Import failed";

    1540. 

  1540.         }

    1541. 

  1541. 

    1542. 

  1542.         //		if ($importversion != $dbversionnumber)

    1543. 

  1543.         //		{

    1544. 

  1544.         ////		    $importquestion .= "<strong><font color='red'>".("Error")."</font></strong>\n";

    1545. 

  1545.         ////		    $importquestion .= ("Sorry, importing questions is limited to the same version. Import failed.")."\n";

    1546. 

  1546.         ////		    $importquestion .= "</font></td></tr></table>\n";

    1547. 

  1547.         ////		    $importquestion .= "</body>\n</html>\n";

    1548. 

  1548.         ////		    unlink($the_full_file_path);

    1549. 

  1549.         //		    return;

    1550. 

  1550.         //		}

    1551. 

  1551.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1552. 

  1552.         for ($i=0; $i<9; $i++) //skipping the first lines that are not needed

    1553. 

  1553.         {

    1554. 

  1554.             unset($bigarray[$i]);

    1555. 

  1555.         }

    1556. 

  1556.         $bigarray = array_values($bigarray);

    1557. 

  1557.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1558. 

  1558.         //QUESTIONS

    1559. 

  1559.         if (array_search("# ANSWERS TABLE\n", $bigarray))

    1560. 

  1560.         {

    1561. 

  1561.             $stoppoint = array_search("# ANSWERS TABLE\n", $bigarray);

    1562. 

  1562.         }

    1563. 

  1563.         elseif (array_search("# ANSWERS TABLE\r\n", $bigarray))

    1564. 

  1564.         {

    1565. 

  1565.             $stoppoint = array_search("# ANSWERS TABLE\r\n", $bigarray);

    1566. 

  1566.         }

    1567. 

  1567.         else

    1568. 

  1568.         {

    1569. 

  1569.             $stoppoint = count($bigarray)-1;

    1570. 

  1570.         }

    1571. 

  1571.         for ($i=0; $i<=$stoppoint+1; $i++)

    1572. 

  1572.         {

    1573. 

  1573.             if ($i<$stoppoint-2) {$questionarray[] = $bigarray[$i];}

    1574. 

  1574.             unset($bigarray[$i]);

    1575. 

  1575.         }

    1576. 

  1576.         $bigarray = array_values($bigarray);

    1577. 

  1577.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1578. 

  1578.         //ANSWERS

    1579. 

  1579.         if (array_search("# LABELSETS TABLE\n", $bigarray))

    1580. 

  1580.         {

    1581. 

  1581.             $stoppoint = array_search("# LABELSETS TABLE\n", $bigarray);

    1582. 

  1582.         }

    1583. 

  1583.         elseif (array_search("# LABELSETS TABLE\r\n", $bigarray))

    1584. 

  1584.         {

    1585. 

  1585.             $stoppoint = array_search("# LABELSETS TABLE\r\n", $bigarray);

    1586. 

  1586.         }

    1587. 

  1587.         else

    1588. 

  1588.         {

    1589. 

  1589.             $stoppoint = count($bigarray)-1;

    1590. 

  1590.         }

    1591. 

  1591.         for ($i=0; $i<=$stoppoint+1; $i++)

    1592. 

  1592.         {

    1593. 

  1593.             if ($i<$stoppoint-2) {$answerarray[] = str_replace("`default`", "`default_value`", $bigarray[$i]);}

    1594. 

  1594.             unset($bigarray[$i]);

    1595. 

  1595.         }

    1596. 

  1596.         $bigarray = array_values($bigarray);

    1597. 

  1597.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1598. 

  1598.         //LABELSETS

    1599. 

  1599.         if (array_search("# LABELS TABLE\n", $bigarray))

    1600. 

  1600.         {

    1601. 

  1601.             $stoppoint = array_search("# LABELS TABLE\n", $bigarray);

    1602. 

  1602.         }

    1603. 

  1603.         elseif (array_search("# LABELS TABLE\r\n", $bigarray))

    1604. 

  1604.         {

    1605. 

  1605.             $stoppoint = array_search("# LABELS TABLE\r\n", $bigarray);

    1606. 

  1606.         }

    1607. 

  1607.         else

    1608. 

  1608.         {

    1609. 

  1609.             $stoppoint = count($bigarray)-1;

    1610. 

  1610.         }

    1611. 

  1611.         for ($i=0; $i<=$stoppoint+1; $i++)

    1612. 

  1612.         {

    1613. 

  1613.             if ($i<$stoppoint-2) {$labelsetsarray[] = $bigarray[$i];}

    1614. 

  1614.             unset($bigarray[$i]);

    1615. 

  1615.         }

    1616. 

  1616.         $bigarray = array_values($bigarray);

    1617. 

  1617.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1618. 

  1618.         //LABELS

    1619. 

  1619.         if (array_search("# QUESTION_ATTRIBUTES TABLE\n", $bigarray))

    1620. 

  1620.         {

    1621. 

  1621.             $stoppoint = array_search("# QUESTION_ATTRIBUTES TABLE\n", $bigarray);

    1622. 

  1622.         }

    1623. 

  1623.         elseif (array_search("# QUESTION_ATTRIBUTES TABLE\r\n", $bigarray))

    1624. 

  1624.         {

    1625. 

  1625.             $stoppoint = array_search("# QUESTION_ATTRIBUTES TABLE\r\n", $bigarray);

    1626. 

  1626.         }

    1627. 

  1627.         else

    1628. 

  1628.         {

    1629. 

  1629.             $stoppoint = count($bigarray)-1;

    1630. 

  1630.         }

    1631. 

  1631.         for ($i=0; $i<=$stoppoint+1; $i++)

    1632. 

  1632.         {

    1633. 

  1633.             if ($i<$stoppoint-2) {$labelsarray[] = $bigarray[$i];}

    1634. 

  1634.             unset($bigarray[$i]);

    1635. 

  1635.         }

    1636. 

  1636.         $bigarray = array_values($bigarray);

    1637. 

  1637.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1638. 

  1638.         //Question_attributes

    1639. 

  1639.         if (!isset($noconditions) || $noconditions != "Y")

    1640. 

  1640.         {

    1641. 

  1641.             $stoppoint = count($bigarray);

    1642. 

  1642.             for ($i=0; $i<=$stoppoint+1; $i++)

    1643. 

  1643.             {

    1644. 

  1644.                 if ($i<$stoppoint-1) {$question_attributesarray[] = $bigarray[$i];}

    1645. 

  1645.                 unset($bigarray[$i]);

    1646. 

  1646.             }

    1647. 

  1647.         }

    1648. 

  1648.         $bigarray = array_values($bigarray);

    1649. 

  1649. 

    1650. 

  1650.         if (isset($questionarray)) {$countquestions = count($questionarray)-1;}  else {$countquestions=0;}

    1651. 

  1651.         if (isset($answerarray))

    1652. 

  1652.         {

    1653. 

  1653.             $answerfieldnames=convertCSVRowToArray($answerarray[0],',','"');

    1654. 

  1654.             unset($answerarray[0]);

    1655. 

  1655.             $countanswers = count($answerarray);

    1656. 

  1656.         }

    1657. 

  1657.         else {$countanswers=0;}

    1658. 

  1658.         if (isset($labelsetsarray)) {$countlabelsets = count($labelsetsarray)-1;}  else {$countlabelsets=0;}

    1659. 

  1659.         if (isset($labelsarray)) {$countlabels = count($labelsarray)-1;}  else {$countlabels=0;}

    1660. 

  1660.         if (isset($question_attributesarray)) {$countquestion_attributes = count($question_attributesarray)-1;} else {$countquestion_attributes=0;}

    1661. 

  1661. 

    1662. 

  1662.         $languagesSupported = array();  // this array will keep all the languages supported for the survey

    1663. 

  1663. 

    1664. 

  1664.         // Let's check that imported objects support at least the survey's baselang

    1665. 

  1665.         $langcode = GetBaseLanguageFromSurveyID($surveyid);

    1666. 

  1666. 

    1667. 

  1667.         $languagesSupported[$langcode] = 1;     // adds the base language to the list of supported languages

    1668. 

  1668.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1669. 

  1669.         if ($countquestions > 0)

    1670. 

  1670.         {

    1671. 

  1671.             $questionfieldnames = convertCSVRowToArray($questionarray[0],',','"');

    1672. 

  1672.             $langfieldnum = array_search("language", $questionfieldnames);

    1673. 

  1673.             $qidfieldnum = array_search("qid", $questionfieldnames);

    1674. 

  1674.             $questionssupportbaselang = bDoesImportarraySupportsLanguage($questionarray,Array($qidfieldnum), $langfieldnum,$langcode,true);

    1675. 

  1675.             if (!$questionssupportbaselang)

    1676. 

  1676.             {

    1677. 

  1677.                 //				$importquestion .= "<strong><font color='red'>".("Error")."</font></strong>\n"

    1678. 

  1678.                 //				.("You can't import a question which doesn't support the current survey's base language")."\n"

    1679. 

  1679.                 //				."</td></tr></table>\n";

    1680. 

  1680.                 //				unlink($the_full_file_path);

    1681. 

  1681.                 return "You can't import a question which doesn't support the current survey's base language";

    1682. 

  1682.             }

    1683. 

  1683.         }

    1684. 

  1684.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1685. 

  1685.         foreach (GetAdditionalLanguagesFromSurveyID($surveyid) as $language)

    1686. 

  1686.         {

    1687. 

  1687.             $languagesSupported[$language] = 1;

    1688. 

  1688.         }

    1689. 

  1689. 

    1690. 

  1690.         // Let's assume that if the questions do support tye baselang

    1691. 

  1691.         // Then the answers do support it as well.

    1692. 

  1692.         // ==> So the following section is commented for now

    1693. 

  1693.         //if ($countanswers > 0)

    1694. 

  1694.         //{

    1695. 

  1695.         //	$langfieldnum = array_search("language", $answerfieldnames);

    1696. 

  1696.         //	$answercodefilednum1 =  array_search("qid", $answerfieldnames);

    1697. 

  1697.         //	$answercodefilednum2 =  array_search("code", $answerfieldnames);

    1698. 

  1698.         //	$answercodekeysarr = Array($answercodefilednum1,$answercodefilednum2);

    1699. 

  1699.         //	$answerssupportbaselang = bDoesImportarraySupportsLanguage($answerarray,$answercodekeysarr,$langfieldnum,$langcode);

    1700. 

  1700.         //	if (!$answerssupportbaselang)

    1701. 

  1701.         //	{

    1702. 

  1702.         //		$importquestion .= "<strong><font color='red'>".("Error")."</font></strong>\n"

    1703. 

  1703.         //		.("You can't import answers which don't support current survey's base language")."\n"

    1704. 

  1704.         //		."</td></tr></table>\n";

    1705. 

  1705.         //		return;

    1706. 

  1706.         //	}

    1707. 

  1707.         //

    1708. 

  1708.         //}

    1709. 

  1709.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1710. 

  1710.         if ($countlabelsets > 0)

    1711. 

  1711.         {

    1712. 

  1712.             $labelsetfieldname = convertCSVRowToArray($labelsetsarray[0],',','"');

    1713. 

  1713.             $langfieldnum = array_search("languages", $labelsetfieldname);

    1714. 

  1714.             $lidfilednum =  array_search("lid", $labelsetfieldname);

    1715. 

  1715.             $labelsetssupportbaselang = bDoesImportarraySupportsLanguage($labelsetsarray,Array($lidfilednum),$langfieldnum,$langcode,true);

    1716. 

  1716.             if (!$labelsetssupportbaselang)

    1717. 

  1717.             {

    1718. 

  1718.                 //				$importquestion .= "<strong><font color='red'>".("Error")."</font></strong>\n"

    1719. 

  1719.                 //				.("You can't import label sets which don't support the current survey's base language")."\n"

    1720. 

  1720.                 //				."</td></tr></table>\n";

    1721. 

  1721.                 //				unlink($the_full_file_path);

    1722. 

  1722.                 return "You can't import label sets which don't support the current survey's base language";

    1723. 

  1723.             }

    1724. 

  1724.         }

    1725. 

  1725.         // I assume that if a labelset supports the survey's baselang,

    1726. 

  1726.         // then it's labels do support it as well

    1727. 

  1727. 

    1728. 

  1728.         // GET SURVEY AND GROUP DETAILS

    1729. 

  1729.         //$surveyid=$postsid;

    1730. 

  1730.         //$gid=$postgid;

    1731. 

  1731.         $newsid=$surveyid;

    1732. 

  1732.         $newgid=$gid;

    1733. 

  1733. 

    1734. 

  1734.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1735. 

  1735. 

    1736. 

  1736.         //DO ANY LABELSETS FIRST, SO WE CAN KNOW WHAT THEIR NEW LID IS FOR THE QUESTIONS

    1737. 

  1737.         if (isset($labelsetsarray) && $labelsetsarray) {

    1738. 

  1738.             $csarray=buildLabelSetCheckSumArray();   // build checksums over all existing labelsets

    1739. 

  1739.             $count=0;

    1740. 

  1740.             $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1741. 

  1741.             foreach ($labelsetsarray as $lsa) {

    1742. 

  1742.                 $fieldorders  =convertCSVRowToArray($labelsetsarray[0],',','"');

    1743. 

  1743.                 $fieldcontents=convertCSVRowToArray($lsa,',','"');

    1744. 

  1744.                 if ($count==0) {$count++; continue;}

    1745. 

  1745. 

    1746. 

  1746.                 $labelsetrowdata=array_combine($fieldorders,$fieldcontents);

    1747. 

  1747. 

    1748. 

  1748.                 // Save old labelid

    1749. 

  1749.                 $oldlid=$labelsetrowdata['lid'];

    1750. 

  1750.                 // set the new language

    1751. 

  1751.                 unset($labelsetrowdata['lid']);

    1752. 

  1752.                 $newvalues=array_values($labelsetrowdata);

    1753. 

  1753.                 $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1754. 

  1754.                 $lsainsert = "INSERT INTO {$dbprefix}labelsets (".implode(',',array_keys($labelsetrowdata)).") VALUES (".implode(',',$newvalues).")"; //handle db prefix

    1755. 

  1755.                 $lsiresult=$connect->Execute($lsainsert);

    1756. 

  1756. 

    1757. 

  1757.                 // Get the new insert id for the labels inside this labelset

    1758. 

  1758.                 $newlid=$connect->Insert_ID("{$dbprefix}labelsets","lid");

    1759. 

  1759. 

    1760. 

  1760.                 if ($labelsarray) {

    1761. 

  1761.                     $count=0;

    1762. 

  1762.                     foreach ($labelsarray as $la) {

    1763. 

  1763.                         $lfieldorders  =convertCSVRowToArray($labelsarray[0],',','"');

    1764. 

  1764.                         $lfieldcontents=convertCSVRowToArray($la,',','"');

    1765. 

  1765.                         if ($count==0) {$count++; continue;}

    1766. 

  1766. 

    1767. 

  1767.                         // Combine into one array with keys and values since its easier to handle

    1768. 

  1768.                         $labelrowdata=array_combine($lfieldorders,$lfieldcontents);

    1769. 

  1769.                         $labellid=$labelrowdata['lid'];

    1770. 

  1770.                         if ($labellid == $oldlid) {

    1771. 

  1771.                             $labelrowdata['lid']=$newlid;

    1772. 

  1772. 

    1773. 

  1773.                             // translate internal links

    1774. 

  1774.                             $labelrowdata['title']=translink('label', $oldlid, $newlid, $labelrowdata['title']);

    1775. 

  1775. 

    1776. 

  1776.                             $newvalues=array_values($labelrowdata);

    1777. 

  1777.                             $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1778. 

  1778.                             $lainsert = "INSERT INTO {$dbprefix}labels (".implode(',',array_keys($labelrowdata)).") VALUES (".implode(',',$newvalues).")"; //handle db prefix

    1779. 

  1779.                             $liresult=$connect->Execute($lainsert);

    1780. 

  1780.                         }

    1781. 

  1781.                     }

    1782. 

  1782.                 }

    1783. 

  1783. 

    1784. 

  1784.                 //CHECK FOR DUPLICATE LABELSETS

    1785. 

  1785.                 $thisset="";

    1786. 

  1786.                 $query2 = "SELECT code, title, sortorder, language

    1787. 

  1787. 		                   FROM {$dbprefix}labels

    1788. 

  1788. 		                   WHERE lid=".$newlid."

    1789. 

  1789. 		                   ORDER BY language, sortorder, code";    

    1790. 

  1790.                 $result2 = db_execute_num($query2) or $this->debugLsrc("Died querying labelset $lid$query2".$connect->ErrorMsg());

    1791. 

  1791.                 while($row2=$result2->FetchRow())

    1792. 

  1792.                 {

    1793. 

  1793.                     $thisset .= implode('.', $row2);

    1794. 

  1794.                 } // while

    1795. 

  1795.                 $newcs=dechex(crc32($thisset)*1);

    1796. 

  1796.                 unset($lsmatch);

    1797. 

  1797.                 if (isset($csarray))

    1798. 

  1798.                 {

    1799. 

  1799.                     foreach($csarray as $key=>$val)

    1800. 

  1800.                     {

    1801. 

  1801.                         if ($val == $newcs)

    1802. 

  1802.                         {

    1803. 

  1803.                             $lsmatch=$key;

    1804. 

  1804.                         }

    1805. 

  1805.                     }

    1806. 

  1806.                 }

    1807. 

  1807.                 if (isset($lsmatch))

    1808. 

  1808.                 {

    1809. 

  1809.                     //There is a matching labelset. So, we will delete this one and refer

    1810. 

  1810.                     //to the matched one.

    1811. 

  1811.                     $query = "DELETE FROM {$dbprefix}labels WHERE lid=$newlid";

    1812. 

  1812.                     $result=$connect->Execute($query) or $this->debugLsrc("Couldn't delete labels$query".$connect->ErrorMsg());

    1813. 

  1813.                     $query = "DELETE FROM {$dbprefix}labelsets WHERE lid=$newlid";

    1814. 

  1814.                     $result=$connect->Execute($query) or $this->debugLsrc("Couldn't delete labelset$query".$connect->ErrorMsg());

    1815. 

  1815.                     $newlid=$lsmatch;

    1816. 

  1816.                 }

    1817. 

  1817.                 else

    1818. 

  1818.                 {

    1819. 

  1819.                     //There isn't a matching labelset, add this checksum to the $csarray array

    1820. 

  1820.                     $csarray[$newlid]=$newcs;

    1821. 

  1821.                 }

    1822. 

  1822.                 //END CHECK FOR DUPLICATES

    1823. 

  1823.                 $labelreplacements[]=array($oldlid, $newlid);

    1824. 

  1824.             }

    1825. 

  1825.         }

    1826. 

  1826. 

    1827. 

  1827.         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1828. 

  1828. 

    1829. 

  1829.         // QUESTIONS, THEN ANSWERS FOR QUESTIONS IN A NESTED FORMAT!

    1830. 

  1830.         if (isset($questionarray) && $questionarray) {

    1831. 

  1831.             $qafieldorders=convertCSVRowToArray($questionarray[0],',','"');

    1832. 

  1832.             unset($questionarray[0]);

    1833. 

  1833. 

    1834. 

  1834.             //Assuming we will only import one question at a time we will now find out the maximum question order in this group

    1835. 

  1835.             //and save it for later

    1836. 

  1836.             $qmaxqo = "SELECT MAX(question_order) AS maxqo FROM ".db_table_name('questions')." WHERE sid=$newsid AND gid=$newgid";

    1837. 

  1837.             $qres = db_execute_assoc($qmaxqo) or $this->debugLsrc ("Error: ".": Failed to find out maximum question order value\n$qmaxqo\n".$connect->ErrorMsg());

    1838. 

  1838.             $qrow=$qres->FetchRow();

    1839. 

  1839.             $newquestionorder=$qrow['maxqo']+1;

    1840. 

  1840. 

    1841. 

  1841.             $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1842. 

  1842. 

    1843. 

  1843.             foreach ($questionarray as $qa) {

    1844. 

  1844.                 $qacfieldcontents=convertCSVRowToArray($qa,',','"');

    1845. 

  1845.                 $newfieldcontents=$qacfieldcontents;

    1846. 

  1846.                 $questionrowdata=array_combine($qafieldorders,$qacfieldcontents);

    1847. 

  1847.                 if (isset($languagesSupported[$questionrowdata["language"]]))

    1848. 

  1848.                 {

    1849. 

  1849.                     $oldqid = $questionrowdata['qid'];

    1850. 

  1850.                     $oldsid = $questionrowdata['sid'];

    1851. 

  1851.                     $oldgid = $questionrowdata['gid'];

    1852. 

  1852. 

    1853. 

  1853.                     // Remove qid field if there is no newqid; and set it to newqid if it's set

    1854. 

  1854.                     if (!isset($newqid))

    1855. 

  1855.                     unset($questionrowdata['qid']);

    1856. 

  1856.                     else

    1857. 

  1857.                     $questionrowdata['qid'] = $newqid;

    1858. 

  1858. 

    1859. 

  1859.                     $questionrowdata["sid"] = $newsid;

    1860. 

  1860.                     $questionrowdata["gid"] = $newgid;

    1861. 

  1861.                     $questionrowdata["question_order"] = $newquestionorder;

    1862. 

  1862. 

    1863. 

  1863.                     $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1864. 

  1864.                     // Now we will fix up the label id

    1865. 

  1865.                     $type = $questionrowdata["type"]; //Get the type

    1866. 

  1866.                     if ($type == "F" || $type == "H" || $type == "1" || $type == ":" ||	$type == ";" )

    1867. 

  1867.                     {//IF this is a flexible label array, update the lid entry

    1868. 

  1868.                          

    1869. 

  1869.                         $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1870. 

  1870.                          

    1871. 

  1871.                         if (isset($labelreplacements)) {

    1872. 

  1872.                             foreach ($labelreplacements as $lrp) {

    1873. 

  1873.                                 if ($lrp[0] == $questionrowdata["lid"]) {

    1874. 

  1874.                                     $questionrowdata["lid"]=$lrp[1];

    1875. 

  1875.                                 }

    1876. 

  1876.                                 if ($lrp[0] == $questionrowdata["lid1"]) {

    1877. 

  1877.                                     $questionrowdata["lid1"]=$lrp[1];

    1878. 

  1878.                                 }

    1879. 

  1879.                             }

    1880. 

  1880.                         }

    1881. 

  1881.                     }

    1882. 

  1882.                     $other = $questionrowdata["other"]; //Get 'other' field value

    1883. 

  1883.                     $oldlid = $questionrowdata["lid"];

    1884. 

  1884.                     $questionrowdata=array_map('convertCsvreturn2return', $questionrowdata);

    1885. 

  1885. 

    1886. 

  1886.                     // translate internal links

    1887. 

  1887.                     $questionrowdata['title']=translink('survey', $oldsid, $newsid, $questionrowdata['title']);

    1888. 

  1888.                     $questionrowdata['question']=translink('survey', $oldsid, $newsid, $questionrowdata['question']);

    1889. 

  1889.                     $questionrowdata['help']=translink('survey', $oldsid, $newsid, $questionrowdata['help']);

    1890. 

  1890. 

    1891. 

  1891.                     $newvalues=array_values($questionrowdata);

    1892. 

  1892.                     $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1893. 

  1893.                     $qinsert = "INSERT INTO {$dbprefix}questions (".implode(',',array_keys($questionrowdata)).") VALUES (".implode(',',$newvalues).")";

    1894. 

  1894.                     $qres = $connect->Execute($qinsert) or $this->debugLsrc ("Error: ".": Failed to insert question\n$qinsert\n".$connect->ErrorMsg());

    1895. 

  1895. 

    1896. 

  1896.                     $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1897. 

  1897.                     // set the newqid only if is not set

    1898. 

  1898.                     if (!isset($newqid))

    1899. 

  1899.                     $newqid=$connect->Insert_ID("{$dbprefix}questions","qid");

    1900. 

  1900.                 }

    1901. 

  1901.             }

    1902. 

  1902.             $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1903. 

  1903.             //NOW DO ANSWERS FOR THIS QID - Is called just once and only if there was a question

    1904. 

  1904.             if (isset($answerarray) && $answerarray) {

    1905. 

  1905.                 foreach ($answerarray as $aa) {

    1906. 

  1906.                     $answerfieldcontents=convertCSVRowToArray($aa,',','"');

    1907. 

  1907.                     $answerrowdata=array_combine($answerfieldnames,$answerfieldcontents);

    1908. 

  1908.                     if ($answerrowdata===false)

    1909. 

  1909.                     {

    1910. 

  1910.                         $importquestion.=''.("Faulty line in import - fields and data don't match").":".implode(',',$answerfieldcontents);

    1911. 

  1911.                     }

    1912. 

  1912.                     if (isset($languagesSupported[$answerrowdata["language"]]))

    1913. 

  1913.                     {

    1914. 

  1914.                         $code=$answerrowdata["code"];

    1915. 

  1915.                         $thisqid=$answerrowdata["qid"];

    1916. 

  1916.                         $answerrowdata["qid"]=$newqid;

    1917. 

  1917. 

    1918. 

  1918.                         // translate internal links

    1919. 

  1919.                         $answerrowdata['answer']=translink('survey', $oldsid, $newsid, $answerrowdata['answer']);

    1920. 

  1920. 

    1921. 

  1921.                         $newvalues=array_values($answerrowdata);

    1922. 

  1922.                         $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1923. 

  1923.                         $ainsert = "INSERT INTO {$dbprefix}answers (".implode(',',array_keys($answerrowdata)).") VALUES (".implode(',',$newvalues).")";

    1924. 

  1924.                         $ares = $connect->Execute($ainsert) or $this->debugLsrc ("Error: ".": Failed to insert answer\n$ainsert\n".$connect->ErrorMsg());

    1925. 

  1925.                     }

    1926. 

  1926.                 }

    1927. 

  1927.             }

    1928. 

  1928.             $this->debugLsrc("wir sind in ".__FILE__." - ".__FUNCTION__." Line ".__LINE__.", OK ");

    1929. 

  1929.             // Finally the question attributes - Is called just once and only if there was a question

    1930. 

  1930.             if (isset($question_attributesarray) && $question_attributesarray) {//ONLY DO THIS IF THERE ARE QUESTION_ATTRIBUES

    1931. 

  1931.                 $fieldorders  =convertCSVRowToArray($question_attributesarray[0],',','"');

    1932. 

  1932.                 unset($question_attributesarray[0]);

    1933. 

  1933.                 foreach ($question_attributesarray as $qar) {

    1934. 

  1934.                     $fieldcontents=convertCSVRowToArray($qar,',','"');

    1935. 

  1935.                     $qarowdata=array_combine($fieldorders,$fieldcontents);

    1936. 

  1936.                     $qarowdata["qid"]=$newqid;

    1937. 

  1937.                     unset($qarowdata["qaid"]);

    1938. 

  1938. 

    1939. 

  1939.                     $newvalues=array_values($qarowdata);

    1940. 

  1940.                     $newvalues=array_map(array(&$connect, "qstr"),$newvalues); // quote everything accordingly

    1941. 

  1941.                     $qainsert = "INSERT INTO {$dbprefix}question_attributes (".implode(',',array_keys($qarowdata)).") VALUES (".implode(',',$newvalues).")";

    1942. 

  1942.                     $result=$connect->Execute($qainsert) or $this->debugLsrc ("Couldn't insert question_attribute$qainsert".$connect->ErrorMsg());

    1943. 

  1943.                 }

    1944. 

  1944.             }

    1945. 

  1945. 

    1946. 

  1946.         }

    1947. 

  1947.         $this->debugLsrc("wir sind in - ".__FUNCTION__." Line ".__LINE__.", FERTIG ");

    1948. 

  1948.         // CONDITIONS is DONE

    1949. 

  1949.         return array('gid'=>$newgid,'qid'=>$newqid);

    1950. 

  1950.         //return $newgid;

    1951. 

  1951.     }

    1952. 

  1952. 

    1953. 

  1953.     /**

    1954. 

  1954.      * function to delete a Survey with all questions and answersand Tokentable....

    1955. 

  1955.      *

    1956. 

  1956.      * @param int $surveyid

    1957. 

  1957.      * @return boolean

    1958. 

  1958.      */

    1959. 

  1959.     function deleteSurvey($surveyid)

    1960. 

  1960.     {

    1961. 

  1961.         global $connect ;

    1962. 

  1962.         global $dbprefix ;

    1963. 

  1963.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    1964. 

  1964.         include("lsrc.config.php");

    1965. 

  1965.         $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", OK ");

    1966. 

  1966. 

    1967. 

  1967.         $tablelist = $connect->MetaTables();

    1968. 

  1968.         $dict = NewDataDictionary($connect);

    1969. 

  1969. 

    1970. 

  1970.         if (in_array("{$dbprefix}survey_$surveyid", $tablelist)) //delete the survey_$surveyid table

    1971. 

  1971.         {

    1972. 

  1972.             $dsquery = $dict->DropTableSQL("{$dbprefix}survey_$surveyid");

    1973. 

  1973.             //$dict->ExecuteSQLArray($sqlarray);

    1974. 

  1974.             $dsresult = $dict->ExecuteSQLArray($dsquery);

    1975. 

  1975.         }

    1976. 

  1976. 

    1977. 

  1977.         if (in_array("{$dbprefix}tokens_$surveyid", $tablelist)) //delete the tokens_$surveyid table

    1978. 

  1978.         {

    1979. 

  1979.             $dsquery = $dict->DropTableSQL("{$dbprefix}tokens_$surveyid");

    1980. 

  1980.             $dsresult = $dict->ExecuteSQLArray($dsquery) or $this->debugLsrc ("Couldn't \"$dsquery\" because ".$connect->ErrorMsg());

    1981. 

  1981.         }

    1982. 

  1982. 

    1983. 

  1983.         $dsquery = "SELECT qid FROM {$dbprefix}questions WHERE sid=$surveyid";

    1984. 

  1984.         $dsresult = db_execute_assoc($dsquery) or $this->debugLsrc ("Couldn't find matching survey to delete: \n $dsquery \n".$connect->ErrorMsg());

    1985. 

  1985.         while ($dsrow = $dsresult->FetchRow())

    1986. 

  1986.         {

    1987. 

  1987.             $asdel = "DELETE FROM {$dbprefix}answers WHERE qid={$dsrow['qid']}";

    1988. 

  1988.             $asres = $connect->Execute($asdel);

    1989. 

  1989.             $cddel = "DELETE FROM {$dbprefix}conditions WHERE qid={$dsrow['qid']}";

    1990. 

  1990.             $cdres = $connect->Execute($cddel) or die();

    1991. 

  1991.             $qadel = "DELETE FROM {$dbprefix}question_attributes WHERE qid={$dsrow['qid']}";

    1992. 

  1992.             $qares = $connect->Execute($qadel);

    1993. 

  1993.         }

    1994. 

  1994. 

    1995. 

  1995.         $qdel = "DELETE FROM {$dbprefix}questions WHERE sid=$surveyid";

    1996. 

  1996.         $qres = $connect->Execute($qdel);

    1997. 

  1997. 

    1998. 

  1998.         $scdel = "DELETE FROM {$dbprefix}assessments WHERE sid=$surveyid";

    1999. 

  1999.         $scres = $connect->Execute($scdel);

    2000. 

  2000. 

    2001. 

  2001.         $gdel = "DELETE FROM {$dbprefix}groups WHERE sid=$surveyid";

    2002. 

  2002.         $gres = $connect->Execute($gdel);

    2003. 

  2003. 

    2004. 

  2004.         $slsdel = "DELETE FROM {$dbprefix}surveys_languagesettings WHERE surveyls_survey_id=$surveyid";

    2005. 

  2005.         $slsres = $connect->Execute($slsdel);

    2006. 

  2006. 

    2007. 

  2007.         $srdel = "DELETE FROM {$dbprefix}surveys_permissions WHERE sid=$surveyid";

    2008. 

  2008.         $srres = $connect->Execute($srdel);

    2009. 

  2009. 

    2010. 

  2010.         $srdel = "DELETE FROM {$dbprefix}saved_control WHERE sid=$surveyid";

    2011. 

  2011.         $srres = $connect->Execute($srdel);

    2012. 

  2012. 

    2013. 

  2013.         $sdel = "DELETE FROM {$dbprefix}surveys WHERE sid=$surveyid";

    2014. 

  2014.         $sres = $connect->Execute($sdel);

    2015. 

  2015.         $surveyid=false;

    2016. 

  2016. 

    2017. 

  2017.         return true;

    2018. 

  2018. 

    2019. 

  2019.     }

    2020. 

  2020. 

    2021. 

  2021.     /**

    2022. 

  2022.      * This function pulls a CSV representation of the Field map

    2023. 

  2023.      *

    2024. 

  2024.      * @param mixed $surveyid - the survey ID you want the Fieldmap for

    2025. 

  2025.      * @return String $fieldmap

    2026. 

  2026.      */

    2027. 

  2027.     function FieldMap2CSV($surveyid)

    2028. 

  2028.     {

    2029. 

  2029.         $fields=array("fieldname", "type", "sid", "gid", "qid", "aid",'title','question','group_name','lid','lid1');

    2030. 

  2030.         $fieldmap=createFieldMap($surveyid,'full');

    2031. 

  2031. 

    2032. 

  2032.         $result='"'.implode('","',$fields).'"'."\n";

    2033. 

  2033.         foreach ($fieldmap as $entry)

    2034. 

  2034.         {

    2035. 

  2035. 

    2036. 

  2036.             $destfieldmap=array();

    2037. 

  2037.             foreach ($fields as $field)

    2038. 

  2038.             {

    2039. 

  2039.                 if (isset($entry[$field]))

    2040. 

  2040.                 {

    2041. 

  2041.                     $destfieldmap[$field]=$entry[$field];

    2042. 

  2042.                 }

    2043. 

  2043.                 else

    2044. 

  2044.                 {

    2045. 

  2045.                     $destfieldmap[$field]='';

    2046. 

  2046.                 }

    2047. 

  2047.             }

    2048. 

  2048.             $entry=array_map('CSVEscape',array_values($destfieldmap));

    2049. 

  2049.             $result.=implode(',',$entry)."\n";

    2050. 

  2050.         }

    2051. 

  2051.         return $result;

    2052. 

  2052.     }

    2053. 

  2053. 

    2054. 

  2054.     function sendStatistic($surveyid, $to, $tempFile, $html=null)

    2055. 

  2055.     {

    2056. 

  2056.         include("lsrc.config.php");

    2057. 

  2057.         global $sitename;

    2058. 

  2058.         global $clang;

    2059. 

  2059. 

    2060. 

  2060. 

    2061. 

  2061.         if($tempFile==null && isset($html))

    2062. 

  2062.         {

    2063. 

  2063.             $css = "<style type='text/css'>"

    2064. 

  2064.             ."table.statisticstable, table.statisticssummary {

    2065. 

  2065. 				    background-color:#EEF6FF;

    2066. 

  2066. 				    border-collapse:collapse;

    2067. 

  2067. 				    border-width: 0px;

    2068. 

  2068. 				    border-style: none;

    2069. 

  2069. 				}

    2070. 

  2070. 				

    2071. 

  2071. 				.statisticssummary thead th

    2072. 

  2072. 				{

    2073. 

  2073. 				    background:#D2E0F2;

    2074. 

  2074. 				}

    2075. 

  2075. 				

    2076. 

  2076. 				.statisticssummary th:first-child,

    2077. 

  2077. 				.statisticstable td:first-child {

    2078. 

  2078. 				    text-align:right;

    2079. 

  2079. 				}

    2080. 

  2080. 				

    2081. 

  2081. 				.statisticssummary thead th:first-child

    2082. 

  2082. 				{

    2083. 

  2083. 				    text-align:center;

    2084. 

  2084. 				}

    2085. 

  2085. 				

    2086. 

  2086. 				.statisticssummary th, .statisticssummary td, .statisticstable td {

    2087. 

  2087. 				    padding:3px 10px;

    2088. 

  2088. 				    

    2089. 

  2089. 				}

    2090. 

  2090. 				

    2091. 

  2091. 				.statisticstable tr {

    2092. 

  2092. 				    border-color: #fff;

    2093. 

  2093. 				    border-style: solid;

    2094. 

  2094. 				    border-width: 1px;

    2095. 

  2095. 				}

    2096. 

  2096. 				

    2097. 

  2097. 				.statisticstable thead th

    2098. 

  2098. 				{

    2099. 

  2099. 				    background:#D2E0F2;

    2100. 

  2100. 				    text-align:center;

    2101. 

  2101. 				    color:#1D2D45;

    2102. 

  2102. 				    padding:4 10px;

    2103. 

  2103. 				}

    2104. 

  2104. 				

    2105. 

  2105. 				.statisticstable tfoot tr {

    2106. 

  2106. 				    background:#D2E0F2;

    2107. 

  2107. 				    text-align:center;

    2108. 

  2108. 				}"

    2109. 

  2109. 				."</style>";

    2110. 

  2110. 

    2111. 

  2111. 				$message = sprintf($clang->gT("This is your personal statistic sheet for survey #%s"),$css."<center>".$message.$surveyid."<br/>".$html."</center>");

    2112. 

  2112. 				return SendEmailMessage($message, sprintf($clang->gT("Statistics Survey #%s"),$surveyid), $to, getBounceEmail($surveyid), $sitename, true);

    2113. 

  2113.         }

    2114. 

  2114.         else

    2115. 

  2115.         {

    2116. 

  2116.             $message = sprintf($clang->gT("This is your personal statistic sheet for survey #%s"),$surveyid);

    2117. 

  2117.             return SendEmailMessage($message, sprintf($clang->gT("Statistics Survey #%s"),$surveyid), $to , getBounceEmail($surveyid), $sitename, $ishtml, getBounceEmail($surveyid), $tempFile);

    2118. 

  2118.         }

    2119. 

  2119. 

    2120. 

  2120.     }

    2121. 

  2121.     private function getqtypelist($SelectedCode = "T", $ReturnType = "array")

    2122. 

  2122.     {

    2123. 

  2123.         include("lsrc.config.php");

    2124. 

  2124.         global $publicurl;

    2125. 

  2125.         //global $sourcefrom, $clang;

    2126. 

  2126. 

    2127. 

  2127. 

    2128. 

  2128.         $qtypes = array(

    2129. 

  2129. 			"1"=>"Array (Flexible Labels) Dual Scale",

    2130. 

  2130. 			"5"=>"5 Point Choice",

    2131. 

  2131. 			"A"=>"Array (5 Point Choice)",

    2132. 

  2132. 			"B"=>"Array (10 Point Choice)",

    2133. 

  2133. 			"C"=>"Array (Yes/No/Uncertain)",

    2134. 

  2134. 			"D"=>"Date",

    2135. 

  2135. 			"E"=>"Array (Increase, Same, Decrease)",

    2136. 

  2136. 			"F"=>"Array (Flexible Labels)",

    2137. 

  2137. 			"G"=>"Gender",

    2138. 

  2138. 			"H"=>"Array (Flexible Labels) by Column",

    2139. 

  2139. 			"I"=>"Language Switch",

    2140. 

  2140. 			"K"=>"Multiple Numerical Input",

    2141. 

  2141. 			"L"=>"List (Radio)",

    2142. 

  2142. 			"M"=>"Multiple choice",

    2143. 

  2143. 			"N"=>"Numerical Input",

    2144. 

  2144. 			"O"=>"List With Comment",

    2145. 

  2145. 			"P"=>"Multiple choice with comments",

    2146. 

  2146. 			"Q"=>"Multiple Short Text",

    2147. 

  2147. 			"R"=>"Ranking",

    2148. 

  2148. 			"S"=>"Short Free Text",

    2149. 

  2149. 			"T"=>"Long Free Text",

    2150. 

  2150. 			"U"=>"Huge Free Text",

    2151. 

  2151. 			"W"=>"List (Flexible Labels) (Dropdown)",

    2152. 

  2152. 			"X"=>"Boilerplate Question",

    2153. 

  2153. 			"Y"=>"Yes/No",

    2154. 

  2154. 			"Z"=>"List (Flexible Labels) (Radio)",

    2155. 

  2155. 			"!"=>"List (Dropdown)",

    2156. 

  2156. 			":"=>"Array (Multi Flexible) (Numbers)",

    2157. 

  2157. 			";"=>"Array (Multi Flexible) (Text)",

    2158. 

  2158.         );

    2159. 

  2159.         asort($qtypes);

    2160. 

  2160.         if ($ReturnType == "array")

    2161. 

  2161.         {return $qtypes;}

    2162. 

  2162. 

    2163. 

  2163. 

    2164. 

  2164.     }

    2165. 

  2165.     /**

    2166. 

  2166.      * This function removes the UTF-8 Byte Order Mark from a string

    2167. 

  2167.      *

    2168. 

  2168.      * @param string $str

    2169. 

  2169.      * @return string

    2170. 

  2170.      */

    2171. 

  2171.     private function removeBOM($str=""){

    2172. 

  2172.         if(substr($str, 0,3) == pack("CCC",0xef,0xbb,0xbf)) {

    2173. 

  2173.             $str=substr($str, 3);

    2174. 

  2174.         }

    2175. 

  2175.         return $str;

    2176. 

  2176.     }

    2177. 

  2177.     /**

    2178. 

  2178.      * create a token table for the given survey id

    2179. 

  2179.      * @param $iVid

    2180. 

  2180.      * @return unknown_type

    2181. 

  2181.      */

    2182. 

  2182.     function createTokenTable($iVid, $att=0)

    2183. 

  2183.     {

    2184. 

  2184.         global $connect;

    2185. 

  2185.         global $dbprefix;

    2186. 

  2186. 

    2187. 

  2187.         global $databasetabletype;

    2188. 

  2188.         global $databasetype;

    2189. 

  2189. 

    2190. 

  2190.         global $rootdir;

    2191. 

  2191. 

    2192. 

  2192.         global $defaultlang;

    2193. 

  2193. 

    2194. 

  2194.         include("lsrc.config.php");

    2195. 

  2195. 

    2196. 

  2196.         require_once($rootdir.'/classes/core/language.php');

    2197. 

  2197.         $clang = new limesurvey_lang($defaultlang);

    2198. 

  2198.         // check if the Token table already exists, if not, create it...

    2199. 

  2199.         if(!db_tables_exist("{$dbprefix}tokens_".$iVid))

    2200. 

  2200.         {

    2201. 

  2201.             $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", Token Table existiert nicht ");

    2202. 

  2202.             $createtokentable =

    2203. 

  2203. 			"tid int I NOT NULL AUTO PRIMARY,\n "

    2204. 

  2204. 			. "firstname C(40) ,\n "

    2205. 

  2205. 			. "lastname C(40) ,\n ";

    2206. 

  2206. 			//MSSQL needs special treatment because of some strangeness in ADODB

    2207. 

  2207. 			if ($databasetype == 'odbc_mssql' || $databasetype == 'odbtp' || $databasetype == 'mssql_n' || $databasetype == 'mssqlnative')

    2208. 

  2208. 			{

    2209. 

  2209. 			    $createtokentable.= "email text ,\n "

    2210. 

  2210. 			    ."emailstatus text ,\n ";

    2211. 

  2211. 			}

    2212. 

  2212. 			else

    2213. 

  2213. 			{

    2214. 

  2214. 			    $createtokentable.= "email text ,\n "

    2215. 

  2215. 			    ."emailstatus text ,\n ";

    2216. 

  2216. 			}

    2217. 

  2217. 

    2218. 

  2218. 			$createtokentable.= "token C(36) ,\n "

    2219. 

  2219. 			. "language C(25) ,\n "

    2220. 

  2220. 			. "sent C(17) DEFAULT 'N',\n "

    2221. 

  2221. 			. "remindersent C(17) DEFAULT 'N',\n "

    2222. 

  2222. 			. "remindercount int I DEFAULT 0,\n "

    2223. 

  2223. 			. "completed C(17) DEFAULT 'N',\n "

    2224. 

  2224. 			. "validfrom date ,\n "

    2225. 

  2225. 			. "validuntil date ,\n "

    2226. 

  2226. 			. "mpid I ";

    2227. 

  2227. 

    2228. 

  2228. 			$tabname = "{$dbprefix}tokens_{$iVid}"; # not using db_table_name as it quotes the table name (as does CreateTableSQL)

    2229. 

  2229. 			$taboptarray = array('mysql' => 'ENGINE='.$databasetabletype.'  CHARACTER SET utf8 COLLATE utf8_unicode_ci',

    2230. 

  2230. 	                             'mysqli' => 'ENGINE='.$databasetabletype.'  CHARACTER SET utf8 COLLATE utf8_unicode_ci');

    2231. 

  2231. 			$dict = NewDataDictionary($connect);

    2232. 

  2232. 			$sqlarray = $dict->CreateTableSQL($tabname, $createtokentable, $taboptarray);

    2233. 

  2233. 			$execresult = $dict->ExecuteSQLArray($sqlarray, false);

    2234. 

  2234. 

    2235. 

  2235. 			$createtokentableindex = $dict->CreateIndexSQL("{$tabname}_idx", $tabname, array('token'));

    2236. 

  2236. 			$dict->ExecuteSQLArray($createtokentableindex, false);

    2237. 

  2237. 			if($execresult!=0)

    2238. 

  2238. 			$this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", token table created ");

    2239. 

  2239. 			else

    2240. 

  2240. 			{

    2241. 

  2241. 			    $this->debugLsrc("WARNING: ".__FUNCTION__." Line ".__LINE__.", token table NOT created ");

    2242. 

  2242. 			    $this->debugLsrc($createtokentable);

    2243. 

  2243. 			    while(list($key, $value)= each($sqlarray) )

    2244. 

  2244. 			    {

    2245. 

  2245. 			        $this->debugLsrc("$key - $value");

    2246. 

  2246. 			    }

    2247. 

  2247. 			}

    2248. 

  2248. 			$n=1;

    2249. 

  2249. 			while($att>=$n)

    2250. 

  2250. 			{

    2251. 

  2251. 			    $sql = "ALTER TABLE {$dbprefix}tokens_$iVid ADD COLUMN attribute_$n VARCHAR(255); ";

    2252. 

  2252. 

    2253. 

  2253. 			    $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", Attribute_$n anlegen ,sql: $sql");

    2254. 

  2254. 			    //modify_database("","$sql");

    2255. 

  2255. 			    $connect->Execute($sql);

    2256. 

  2256. 			    ++$n;

    2257. 

  2257. 			}

    2258. 

  2258.         }

    2259. 

  2259.         return;

    2260. 

  2260.     }

    2261. 

  2261.     /**

    2262. 

  2262.      * The new one...

    2263. 

  2263.      * * Function to insert Participant data while auto creating token if non is supported...

    2264. 

  2264.      * @param $sUser

    2265. 

  2265.      * @param $sPass

    2266. 

  2266.      * @param $iVid

    2267. 

  2267.      * @param $sParticipantData (FIRSTNAME;LASTNAME;EMAIL;LANG;TOKEN;VALIDFROM;VALIDTO;attrib1,attrib2,attrib3,attrib4,attrib5::)

    2268. 

  2268.      * @return unknown_type

    2269. 

  2269.      */

    2270. 

  2270.     function insertParticipants($iVid, $sParticipantData)

    2271. 

  2271.     {

    2272. 

  2272.         global $connect ;

    2273. 

  2273.         global $dbprefix ;

    2274. 

  2274.         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    2275. 

  2275.         include("lsrc.config.php");

    2276. 

  2276.         //$this = new lsrcHelper();

    2277. 

  2277.         // check for appropriate rights

    2278. 

  2278.         //		if(!$this->checkUser($sUser, $sPass))

    2279. 

  2279.         //		{

    2280. 

  2280.         //			throw new SoapFault("Authentication: ", "User or password wrong");

    2281. 

  2281.         //			exit;

    2282. 

  2282.         //		}

    2283. 

  2283.         $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", $iVid, $sParticipantData ");

    2284. 

  2284.          

    2285. 

  2285.         // check if there is a $iVid, else abort

    2286. 

  2286.         if(!isset($iVid) || $iVid=='' || $iVid==0 )

    2287. 

  2287.         {

    2288. 

  2288.             return 0;

    2289. 

  2289.         }

    2290. 

  2290. 

    2291. 

  2291.         // check if the Survey we want to populate with data and tokens already exists, else -> Fault

    2292. 

  2292.         if(!$this->surveyExists($iVid))

    2293. 

  2293.         {

    2294. 

  2294.             $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", survey does not exist ");

    2295. 

  2295.             return 0;

    2296. 

  2296.         }

    2297. 

  2297. 

    2298. 

  2298.         $this->createTokenTable($iVid);

    2299. 

  2299. 

    2300. 

  2300.         //set the Seperators to default if nothing is set in the lsrc.config.php

    2301. 

  2301.         if(!isset($sDatasetSeperator) || $sDatasetSeperator=='')

    2302. 

  2302.         {$sDatasetSeperator = "::";}

    2303. 

  2303.         if(!isset($sDatafieldSeperator) || $sDatafieldSeperator=='')

    2304. 

  2304.         {$sDatafieldSeperator = ";";}

    2305. 

  2305. 

    2306. 

  2306.         // prepare to fill the table lime_tokens_*

    2307. 

  2307.         // this is sensitiv, if the Seperator is not the defined one, almost everything could happen, BE AWARE OF YOUR SEPERATOR!...

    2308. 

  2308.         $asDataset = explode($sDatasetSeperator, $sParticipantData);

    2309. 

  2309.         // write the tokens to the token_table

    2310. 

  2310.         $iCountParticipants =  count($asDataset);

    2311. 

  2311.         $iInsertedParticipants=0;

    2312. 

  2312. 

    2313. 

  2313.         foreach($asDataset as $sData)

    2314. 

  2314.         {

    2315. 

  2315.             //some extra sql statement comes in here later

    2316. 

  2316.             $attributes='';

    2317. 

  2317.             $attributesData='';

    2318. 

  2318.             $validity='';

    2319. 

  2319.             $validityData='';

    2320. 

  2320.             if($sData!='')

    2321. 

  2321.             {

    2322. 

  2322.                 $asDatafield = explode($sDatafieldSeperator, $sData);

    2323. 

  2323.                 $checkCnt=1;

    2324. 

  2324. 

    2325. 

  2325.                 $iDataLength = count($asDatafield);

    2326. 

  2326.                 for($n=0;$n>=$iDataLength;++$n)

    2327. 

  2327.                 {

    2328. 

  2328.                     if($asDatafield[$n]=='')

    2329. 

  2329.                     {

    2330. 

  2330.                         $asDatafield[$n]=null;

    2331. 

  2331.                     }

    2332. 

  2332.                 }

    2333. 

  2333. 

    2334. 

  2334.                 // token generieren

    2335. 

  2335. 

    2336. 

  2336. 

    2337. 

  2337.                 while($checkCnt>0)

    2338. 

  2338.                 {

    2339. 

  2339.                     $value = sRandomChars(10); //change sRandomChars value for different tokenlength (up to 36 chars max.)

    2340. 

  2340.                     $cQuery= "select token from ".$dbprefix."tokens_".$iVid." where token = '".$value."'; ";

    2341. 

  2341.                     $result = db_execute_assoc($cQuery);

    2342. 

  2342.                     $checkCnt = $result->RecordCount();

    2343. 

  2343.                 }

    2344. 

  2344.                 if(!isset($asDatafield[4]) || $asDatafield[4]=='')

    2345. 

  2345.                 {

    2346. 

  2346.                     $asDatafield[4]= $value;

    2347. 

  2347.                 }

    2348. 

  2348. 

    2349. 

  2349.                 //set session language if no language is set

    2350. 

  2350.                 if(!isset($asDatafield[3]) || $asDatafield[3]=='')

    2351. 

  2351.                 {

    2352. 

  2352.                     $asDatafield[3] = $_SESSION['lang'];

    2353. 

  2353.                 }

    2354. 

  2354. 

    2355. 

  2355.                 //Begin to prepare our statement here. One array for the columns to insert and a parallel array with the values.

    2356. 

  2356.                 $insertColumns = array('firstname', 'lastname', 'email', 'language', 'token');

    2357. 

  2357.                 $insertValues = array($asDatafield[0], $asDatafield[1], $asDatafield[2], $asDatafield[3], $asDatafield[4]);

    2358. 

  2358. 

    2359. 

  2359.                 if(isset($asDatafield[5]) && $asDatafield[5]!=null)

    2360. 

  2360.                 {

    2361. 

  2361.                     //$validity .= ',validfrom';

    2362. 

  2362.                     //$validityData .=",'$asDatafield[5]'";

    2363. 

  2363.                     $insertColumns[] = 'validfrom';

    2364. 

  2364.                     $insertValues[] = $asDatafield[5];

    2365. 

  2365.                 }

    2366. 

  2366.                 if(isset($asDatafield[6]) && $asDatafield[5]!=null)

    2367. 

  2367.                 {

    2368. 

  2368.                     //$validity .= ',validuntil';

    2369. 

  2369.                     //$validityData .=",'$asDatafield[6]'";

    2370. 

  2370.                     $insertColumns[] = 'validuntil';

    2371. 

  2371.                     $insertValues[] = $asDatafield[6];

    2372. 

  2372.                 }

    2373. 

  2373. 

    2374. 

  2374.                 if(isset($asDatafield[7]) && $asDatafield[7]!='')

    2375. 

  2375.                 {

    2376. 

  2376.                     $asAttributes = explode(",", $asDatafield[7]);

    2377. 

  2377.                     $n=0;

    2378. 

  2378.                     foreach($asAttributes as $attribute)

    2379. 

  2379.                     {

    2380. 

  2380. 

    2381. 

  2381.                         ++$n;

    2382. 

  2382.                         //$check = "SELECT attribute_$n FROM {$dbprefix}_tokens_$iVid ";

    2383. 

  2383. 

    2384. 

  2384.                         $sql = "ALTER TABLE {$dbprefix}tokens_$iVid ADD COLUMN attribute_$n VARCHAR(255); ";

    2385. 

  2385.                         //$attributes.=",attribute_$n";

    2386. 

  2386.                         //$attributesData.= ",'$attribute'";

    2387. 

  2387.                         $insertColumns[] = "attribute_$n";

    2388. 

  2388.                         $insertValues[] = $attribute;

    2389. 

  2389. 

    2390. 

  2390.                         $this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", Attribute_$n mit $attribute anlegen ,sql: $sql");

    2391. 

  2391.                         //modify_database("","$sql");

    2392. 

  2392.                         $connect->Execute($sql);

    2393. 

  2393. 

    2394. 

  2394.                     }

    2395. 

  2395.                 }

    2396. 

  2396. 

    2397. 

  2397. 

    2398. 

  2398.                 /*$sInsertParti = "INSERT INTO ".$dbprefix."tokens_".$iVid

    2399. 

  2399.                  ."(firstname,lastname,email,token,"

    2400. 

  2400.                  ."language $validity $attributes) "

    2401. 

  2401.                  ."VALUES ('{$asDatafield[0]}', '{$asDatafield[1]}' , '{$asDatafield[2]}', '{$asDatafield[4]}' , "

    2402. 

  2402.                  ."'{$asDatafield[3]}' $validityData $attributesData) ";*/

    2403. 

  2403. 

    2404. 

  2404.                 $sInsertParti = "INSERT INTO {$dbprefix}tokens_$iVid (".implode(',', $insertColumns).") VALUES (".trim(str_repeat('?,', count($insertColumns)), ',').");";

    2405. 

  2405. 

    2406. 

  2406. 

    2407. 

  2407. 

    2408. 

  2408.                 $this->debugLsrc("$sInsertParti");

    2409. 

  2409. 

    2410. 

  2410. 

    2411. 

  2411.                 //			$sInsertParti = "INSERT INTO ".$dbprefix."tokens_".$iVid

    2412. 

  2412.                 //					."(firstname,lastname,email,emailstatus,token,"

    2413. 

  2413.                 //					."language,sent,completed,attribute_1,attribute_2,mpid)"

    2414. 

  2414.                 //					."VALUES ('".$asDatafield[0]."' ,

    2415. 

  2415.                 //					'".$asDatafield[1]."' , '".$asDatafield[2]."' , 'OK' , '".$asDatafield[5]."',

    2416. 

  2416.                 //					'".$_SESSION['lang']."', 'N', 'N', '".$asDatafield[3]."' , '".$asDatafield[4]."' , NULL); ";

    2417. 

  2417.                 //

    2418. 

  2418.                 if($connect->Execute($sInsertParti, $insertValues))

    2419. 

  2419.                 {

    2420. 

  2420.                     ++$iInsertedParticipants;

    2421. 

  2421.                     // check participants eMail status and set it

    2422. 

  2422.                     // see http://data.iana.org/TLD/tlds-alpha-by-domain.txt

    2423. 

  2423.                     $maxrootdomainlength = 32;

    2424. 

  2424.                     if(1==preg_match("/^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*\.(([0-9]{1,3})|([a-zA-Z]{2,".$maxrootdomainlength."}))$/ix", $asDatafield[2]))

    2425. 

  2425.                     $this->changeTable("tokens_".$iVid,"emailstatus","OK","email='{$asDatafield[2]}'");

    2426. 

  2426. 

    2427. 

  2427.                     //					if(isset($asDatafield[7]) && $asDatafield[7]!='')

    2428. 

  2428.                     //					{

    2429. 

  2429.                     //						$asAttributes = explode(",", $asDatafield[7]);

    2430. 

  2430.                     //						$n=0;

    2431. 

  2431.                     //						foreach($asAttributes as $attribute)

    2432. 

  2432.                     //						{

    2433. 

  2433.                     //

    2434. 

  2434.                     //							++$n;

    2435. 

  2435.                     //							//$check = "SELECT attribute_$n FROM {$dbprefix}_tokens_$iVid ";

    2436. 

  2436.                     //

    2437. 

  2437.                     //							$sql = "ALTER TABLE {$dbprefix}tokens_$iVid ADD COLUMN attribute_$n VARCHAR(255); ";

    2438. 

  2438.                     //							$attributes.=",attribute_$n";

    2439. 

  2439.                     //							$attributesData.= ",'$attribute'";

    2440. 

  2440.                     //

    2441. 

  2441.                     //							$this->debugLsrc("wir sind in ".__FUNCTION__." Line ".__LINE__.", Attribute_$n mit $attribute anlegen ,sql: $sql");

    2442. 

  2442.                     //							//modify_database("","$sql");

    2443. 

  2443.                     //							$connect->Execute($sql);

    2444. 

  2444.                     //

    2445. 

  2445.                     //

    2446. 

  2446.                     //							$insert = "UPDATE {$dbprefix}tokens_$iVid "

    2447. 

  2447.                     //							. " SET attribute_$n='$attribute' WHERE token='$asDatafield[4]' ";

    2448. 

  2448.                     //

    2449. 

  2449.                     //							$this->debugLsrc("$insert");

    2450. 

  2450.                     //							$connect->Execute($insert);

    2451. 

  2451.                     //						}

    2452. 

  2452.                     //					}

    2453. 

  2453.                 }

    2454. 

  2454. 

    2455. 

  2455.             }

    2456. 

  2456. 

    2457. 

  2457.         }

    2458. 

  2458.         return "".$iCountParticipants."Datasets given, ".$iInsertedParticipants." rows inserted. ";

    2459. 

  2459.     }

    2460. 

  2460. }
    2461.