--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/fhiiqm/raum_list_csv.php	Mon May 07 16:21:00 2012 +0200
@@ -0,0 +1,61 @@
+<?php
+
+/**
+ * @author Bettina Schwarzer, Fritz-Haber-Institut
+ * @copyright 04/2012
+ * 
+ * Export der Raumdaten als csv-Datei
+ * 
+ */
+
+    error_reporting(E_ALL ^ E_NOTICE);
+    
+    include_once($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/inc/dbconnect.inc.php");
+    if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
+    
+	$sort   = $_GET["s"];   // Sortierung nach Spalte
+    if (!$sort) $sort   = 2;
+    $dir    = $_GET["d"];   // Sortierrichtung
+    if (!$dir) $dir    = '';
+    $fnum   = $_GET["f"];   // Spaltennummer, nach der aktuell gefiltert wird
+    if (!$fnum) $fnum   = 1;
+    $filter = $_GET["b"];   // Filterbegriff 
+    if (!$filter) $filter = '';
+    $start = $_GET["st"];   // Start-DS - 1
+    if (!$start) $start  = 0;
+    $zeil = $_GET["z"];     // Anzahl zu zeigender DS
+    if (!$zeil) $zeil   = 9999;
+
+    $sql = "CALL raum_flist($sort,'" . $dir . "',$fnum, '" . $filter . "',$start,$zeil,@anz);"; 
+
+    $result = $dbc ->queryObjectArray($sql);
+
+    if ($result)
+    {
+        $crlf = array("\r\n","\n\r","\r","\n"); // Zeilenumbrueche
+        $file ="Raum-ID;Raum-Nr.;Raum-Bez.;Haus;Raum-Typ;Reinig.-Typ;R.-Typ-ID;Reinig.-Kat.;Reinig.-Turn.;R.-Turn.-ID;Boden-Typ;Reinig.-Fl.(m²);Fläche(m²);\r\n";
+
+        foreach ($result as $row)
+        {
+            $file .= $row->raum_ID . ";";
+            $file .= " ".$row->raum_nr . ";";
+            $file .= $row->raum_name . ";";
+            $file .= $row->geb_ID . ";";
+            $file .= $row->raumtyp_bez . ";";
+            $file .= $row->reinigung_typ_bez . ";";
+            $file .= $row->reinigung_typ_ID . ";";
+            $file .= $row->reinigung_kat. ";";
+            $file .= $row->reinigung_turnus_bez. ";";
+            $file .= str_replace(".",",",$row->reinigung_turnus_ID). ";";
+            $file .= $row->boden_typ_bez. ";";
+            $file .= number_format($row->reinigung_flaeche,2,",","."). ";";
+            $file .= number_format($row->raum_flaeche,2,",","."). ";";
+            $file .= "\r\n";
+        }
+        header( 'Content-Type: text/csv' );
+        header('Content-Disposition: attachment; filename="raum.csv"');
+        header("Content-Length: " . strlen($file));
+        echo $file;
+    }
+    else echo "kein Ergebnis!";
+?>
\ No newline at end of file