(define prepare-destatis-countries
  '(!php "if ($stmt) $stmt->reset(); $sql = \"SELECT ID, Code, Name FROM Länder ORDER BY Prio DESC, Name ASC;\"; $stmt = $mysqli->prepare($sql); $stmt->bind_result($id, $code, $name); $stmt->execute();"))

(define prepare-iso3166-countries-de
  '(!php "if ($stmt) $stmt->reset(); $sql = \"SELECT code, de FROM iso3166 ORDER BY de;\"; $stmt = $mysqli->prepare($sql); $stmt->bind_result($code, $name); $stmt->execute();"))

(define prepare-iso3166-countries-en
  '(!php "if ($stmt) $stmt->reset(); $sql = \"SELECT code, en FROM iso3166 ORDER BY en;\"; $stmt = $mysqli->prepare($sql); $stmt->bind_result($code, $name); $stmt->execute();"))

(define prepare-iso3166-countries
  (decide-by-lang prepare-iso3166-countries-de prepare-iso3166-countries-en))

(define (iter-countries-php var)
  (string-append "while ($stmt->fetch()) { ?> <option value=\"<?=$code?>\" ng-selected=\"d." var " == '<?=$code?>'\"><?=$name?></option> <? }"))

(define (prepare-u-location u)
  `(!php
     ,(string-append
           "if ($stmt) $stmt->reset();$sql = \"SELECT `Standort` FROM Abschlusskombis WHERE (HochschuleText='" u "' "
           "OR Hochschule='" u "') AND active=1 GROUP BY `Standort` ORDER BY `Standort`;\";"
           "$stmt = $mysqli->prepare($sql);$stmt->bind_result($location);$stmt->execute();")))

(define (iter-u-location var)
  (string-append "while ($stmt->fetch()) { ?> <option value=\"<?=$location?>\" ng-selected=\"d." var " == '<?=$location?>'\"><?=$location?></option> <? }"))

(define prepare-course-of-study '(!php "if ($stmt) $stmt->reset();$sql = \"SELECT `Text Studienfach` FROM Abschlusskombis WHERE (HochschuleText=? OR HochschuleText=?) AND active=1 GROUP BY `Text Studienfach` ORDER BY `Text Studienfach`;\";$stmt = $mysqli->prepare($sql);$stmt->bind_param('ss', $hsname, $hs);$stmt->bind_result($sname);$stmt->execute();"))

(define (iter-course-of-study-php var)
  (string-append "while ($stmt->fetch()) { ?> <option value=\"<?=$sname?>\" ng-selected=\"d." var " == '<?=$sname?>'\"><?=$sname?></option> <?php }"))

(define get-organization-name-php '(!php "if ($stmt) $stmt->reset(); $sql = \"SELECT Organisationen.Name, KanonischerName FROM Hochschulen INNER JOIN Organisationen ON Hochschulen.Organisation = Organisationen.ID WHERE Code=?;\"; $stmt = $mysqli->prepare($sql); $stmt->bind_param('s', $hs); $stmt->bind_result($hsfull, $hsname); $stmt->execute(); $stmt->fetch(); echo $hsfull;"))

(define prepare-fakultaet '(!php "if ($stmt) $stmt->reset(); $sql = \"SELECT Fakultät FROM Abschlusskombis WHERE (HochschuleText=? OR HochschuleText=?) AND TRIM(Fakultät) <> '' AND active=1 GROUP BY Fakultät;\"; $stmt = $mysqli->prepare($sql); $stmt->bind_param('ss', $hsname, $hs); $stmt->bind_result($fak); $stmt->execute();"))

(define iter-fakultaet "while ($stmt->fetch()) { ?> <option value=\"<?php echo $fak; ?>\" ng-selected=\"d.fakultaet == '<?php echo $fak; ?>'\"><?php echo $fak; ?></option><?php }")

(define prepare-studiumart '(!php "if ($stmt) $stmt->reset(); $sql = \"SELECT `Art Studium` FROM Abschlusskombis WHERE (HochschuleText=? OR HochschuleText=?) AND `Art Studium` NOT LIKE '%Kein Abschluss%' AND active=1 GROUP BY `Art Studium`;\"; $stmt = $mysqli->prepare($sql); $stmt->bind_param('ss', $hsname, $hs); $stmt->bind_result($sart); $stmt->execute();"))

(define iter-studiumart "while ($stmt->fetch()) { ?> <option value=\"<?=$sart?>\" ng-selected=\"d.studium_art == '<?=$sart?>'\"><?=$sart?></option><?php }")

(define prepare-abschlusskombis '(!php "if ($stmt) $stmt->reset();$sql = \"SELECT `Text Abschluss`, `Art Studium` FROM Abschlusskombis WHERE (HochschuleText=? OR HochschuleText=?) AND active=1 GROUP BY `Text Abschluss`, `Art Studium`;\";$stmt = $mysqli->prepare($sql);$stmt->bind_param('ss', $hsname, $hs);$stmt->bind_result($sabschluss, $sart);$stmt->execute();"))

(define iter-abschlusskombis "while ($stmt->fetch()) { ?><option data-art=\"<?=$sart?>\" value=\"<?=$sabschluss?>\" ng-selected=\"d.studium_abschluss == '<?=$sabschluss?>'\"><?=$sabschluss?></option><?php }")

(define prepare-studiengang '(!php "if ($stmt) $stmt->reset();$sql = \"SELECT ID, `Text Studienfach`, `Art Studium`, `Text Abschluss` FROM Abschlusskombis WHERE (HochschuleText=? OR HochschuleText=?) AND active=1 ORDER BY `Text Studienfach`;\";$stmt = $mysqli->prepare($sql);$stmt->bind_param('ss', $hsname, $hs);$stmt->bind_result($id, $sname, $sart, $sabschluss);$stmt->execute();"))

(define iter-studiengang "while ($stmt->fetch()) { ?><option value=\"<?=$id?>\" data-art=\"<?=$sart?>\" data-abschluss=\"<?=$sabschluss?>\" ng-selected=\"d.studiengang == '<?=$id?>'\"><?=$sname?></option><?php }")

(define prepare-abschlussarten '(!php "if ($stmt) $stmt->reset();$sql = \"SELECT ID, Code, Name FROM Abschlussarten;\";$stmt = $mysqli->prepare($sql);$stmt->bind_result($id, $code, $name);$stmt->execute();"))

(define iter-abschlussarten "while ($stmt->fetch()) { ?><option value=\"<?=$id?>\" ng-selected=\"s.zs_art == '<?=$id?>'\"><?=$name?></option><?php }")

(define prepare-abschluss '(!php "if ($stmt) $stmt->reset();$sql = \"SELECT ID, Name FROM AbschlüsseEinfach;\";$stmt = $mysqli->prepare($sql);$stmt->bind_result($id, $name);$stmt->execute();"))

(define iter-abschluss "while ($stmt->fetch()) { ?> <option value=\"<?=$id?>\" ng-selected=\"s.zs_abschluss == '<?=$id?>'\"><?=$name?></option><?php } ")

(define* (iter-multicontainer-options-php startvalue maxvalue incvalue suffix variableprefix variable #:key (calcyear "1") . opt)
  (string-append "for ($i = " startvalue "; $i <=" maxvalue "; $i+=" incvalue ") { ?> <option value=\"<?=$i?>\" ng-selected=\"" variableprefix "." variable " =='<?=$i?>'\"><?=$i /" calcyear ";?> " suffix "</option> <? }" ))

(define iter-s5-engagement-cur-start "for ($j = date('Y'); $j >= 1970; $j--) { for ($i = 12; $i > 0; $i--) { ?> <option value=\"<?php echo $j;?>/<?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>\" ng-selected=\"b.start == '<?php echo $j;?>/<?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>'\"><?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>/<?php echo $j;?></option> <? }}")

(define iter-s5-engagement-umfang "for ($i = 1; $i < 51; $i++) { ?> <option value=\"<?=$i?>\" ng-selected=\"b.umfang == '<?=$i?>'\"><?=$i?></option> <? }")

(define iter-s5-engagement-past-start "for ($j = date('Y'); $j >= 1970; $j--) { for ($i = date('Y') == $j ? 6 : 12; $i > 0; $i--) {?> <option value=\"<?php echo $j;?>/<?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>\" ng-selected=\"b.start == '<?php echo $j;?>/<?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>'\"><?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>/<?php echo $j;?></option><? }}")

(define iter-s5-engagement-past-end "for ($j = date('Y'); $j >= 1970; $j--) { for ($i = date('Y') == $j ? 6 : 12; $i > 0; $i--) {?><option value=\"<?php echo $j;?>/<?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>\" ng-selected=\"b.ende == '<?php echo $j;?>/<?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>'\"><?php echo str_pad($i, 2, '0', STR_PAD_LEFT);?>/<?php echo $j;?></option><? }}")