From cdea8caa5617f0cb77bcbc9803759abd2df50644 Mon Sep 17 00:00:00 2001
From: Niklas Olmes <niklas@olmes.de>
Date: Fri, 24 Apr 2026 19:30:00 +0200
Subject: stipcrm

---
 php.scm | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 php.scm

(limited to 'php.scm')

diff --git a/php.scm b/php.scm
new file mode 100644
index 0000000..4e4b82d
--- /dev/null
+++ b/php.scm
@@ -0,0 +1,66 @@
+(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><? }}")
-- 
cgit v1.3.1