fhiiqm/inc/func_lib.inc.php
author Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
Mon, 07 May 2012 16:21:00 +0200
changeset 26 3c1e3ac7089f
parent 25 482252ff12fd
child 28 8d8bce56918f
permissions -rw-r--r--
+ csv-Dateien Laser, Vertrag, Raum + Erfassen GVP mehrere Verantwortliche autocomplete + Arbeitsplatz Gefahr Liste + edit + Arbeitsplatz Vorsorge Liste + edit + Report Arbeitssicherheit
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     1
<?php
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     2
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     3
/**
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     4
 * @author Bettina Schwarzer,  Fritz-Haber-Institut
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     5
 * @copyright 06/2011
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     6
 * 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     7
 * 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     8
 */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     9
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
    10
    function tab_column($colnum=2,$bez,$sort,$dir,$fcol=0,$fanr=0,$filtb="",$start="",$anzds="25",$id="")
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    11
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    12
      /** beliebige Tabellenspalte mit Sortier-/Filtersymbolen und Links generieren
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    13
        * Parameter
14
32203b8f40ee Rechteverwaltung II, vertrag_flist-Spaltenreihenfolge
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 13
diff changeset
    14
        * $colnum   SpaltenNr. in SELECT-Statement 
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    15
        * $bez      Spaltenbezeichnung
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    16
        * $sort     aktuelle SortspaltenNr.
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    17
        * $dir      Sortrichtung (ASC/DESC)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    18
        * $fcol     SpaltenNr. Filter (=0, wenn nicht gefiltert werden soll)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    19
        * $fanr     aktuelle FilterspaltenNr.
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    20
        * $filtb    Filterbegriff
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    21
        * $start    ab Datensatz $start+1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    22
        * $anzds    Anzahl angezeigter Datensaetze
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
    23
        * $id       fuer spezielle ID als zusaetzl. Filter (Laser-Log))
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    24
        */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    25
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    26
        if ($colnum == $sort)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    27
            if ($dir == 'DESC')
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    28
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    29
                $auf = "auf";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    30
                $ab = "ab_activ";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    31
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    32
            else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    34
                $auf = "auf_activ";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    35
                $ab = "ab";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    36
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    37
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    38
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    39
                $auf = "auf";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    40
                $ab = "ab";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    41
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    42
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
        if ($bez == "Haus") $tip = "Haus: A, B, C, D, E, F, FAB, HAR, K, L, M, N, P, Q, R, S, T, U"; else $tip = "Filter";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
        if ($fcol>0 && $fanr>0) // Filtern nach Spalte moeglich
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    46
            if ($fcol == $fanr) $filt = "filter_activ"; else $filt = "filter"; 
26
3c1e3ac7089f + csv-Dateien Laser, Vertrag, Raum
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 25
diff changeset
    47
            $filt = "&nbsp;<a href='".$_SERVER['PHP_SELF']."?f=$fcol&s=$sort&d=$dir&st=$start&z=$anzds&i=$id'><img src='/fhiiqm/img/$filt.gif' border='0' width='14' hight='11' alt='$tip' title='$tip'></a>";
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    48
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    49
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    50
            $filt="";
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
    51
        if ($filtb>'!') $where = "&f=$fanr&b=$filtb&i=$id"; else $where="&i=$id";
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    52
        echo "<th>$bez&nbsp;<a href='".$_SERVER['PHP_SELF']."?s=$colnum$where&st=$start&z=$anzds'><img src='/fhiiqm/img/$auf.gif' border='0' width='11' hight='11' alt='sort aufsteigend' title='sort aufsteigend'></a>            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    53
                  <a href='".$_SERVER['PHP_SELF']."?s=$colnum&d=DESC$where&st=$start&z=$anzds'><img src='/fhiiqm/img/$ab.gif' border='0' width='11' hight='11' alt='sort absteigend' title='sort absteigend'></a>$filt</th>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    54
    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    55
    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    56
    function date_obj($jahr,$mon,$tag)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    57
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    58
       /** prueft auf valides Datum und erstellt DateTime-Objekt, wenn o.k.
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
        *  Voraussetzung: Klasse 'DateTime_s' ist included
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    60
        */  
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    61
        include_once ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
        if ($jahr && $mon && $tag)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    64
            $dat = $jahr."-".$mon."-".$tag;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    65
            // Datum valid?
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    66
            if (!$dat = new DateTime_s($dat)) $dat = null;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    67
        }    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    68
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
            $dat = null;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
        return $dat;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    72
    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    73
    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    74
    function liste_links($start,$zeil,$anz,$liste)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    75
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
       /** erstellt links zu Seiten einer Liste
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    77
         * Parameter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    78
         * $start   Beginn bei DS $start+1 (1.DS -> $start=0)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    79
         * $zeil    Anzahl Zeilen pro Seite
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
         * $anz     Anzahl DS gesamt
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
         * $liste   weitere Inhalte fuer $_GET-Array
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    82
         */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    83
        $page = 1;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    84
        while (($page-1)*$zeil < $anz)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    85
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    86
            $be = ($page-1)*$zeil+1;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    87
            if (($page-1)*$zeil+$zeil < $anz) $en = ($page-1)*$zeil+$zeil; else $en = $anz;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    88
            $st = ($page-1)*$zeil;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    89
            if ($start == $be-1)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    90
                echo "$be - $en";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    91
            else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    92
                echo "<a href=\"" . $_SERVER['PHP_SELF'] . "?st=$st$liste\"  class=\"sc\">$be - $en</a>";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    93
            if (($page-1)*$zeil+$zeil < $anz) echo "<span class=\"sc\"> | </span>";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    94
            $page++;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    95
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    96
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    97
    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    98
    
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
    99
    function login($target, $headl="")
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   100
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   101
       /** zeigt Login-Form, prueft userid und passwort, leitet zu gewuenschter Seite weiter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   102
        *   Parameter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   103
        *   $target     Zieladresse
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   104
        *   $headl      Ueberschrift Loginform
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   105
        */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   106
          
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   107
       session_start();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   108
       if ($_SESSION["userid"]) 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   109
        	{
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   110
        	header("Location: $target");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   111
        	exit;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   112
        	}
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   113
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   114
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   115
        
19
33ee23fafd4d + Anlage Pruefung, Anlage Risiko, Menue anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 15
diff changeset
   116
        $login  = $_POST["login"];
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   117
        $log    = $_POST["log"];
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   118
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   119
        if ($login)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   120
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   121
        	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   122
        	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   123
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   124
            $stmt = $dbc -> stmtinit();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   125
            if (is_object($stmt))
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   126
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   127
                $stmt -> prepare("SELECT userid, pwd FROM userweb WHERE userid = ?");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   128
                $stmt -> bind_param('s',$log["user"]);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   129
                $result = $stmt -> execute();
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   130
                // $stmt -> store_result();    // wegen weiterer query dies oder $stmt -> free_result();
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   131
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   132
            if ($result)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   133
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   134
                $stmt->bind_result($userid, $pwdmd5);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   135
                if ($stmt->fetch()) 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   136
                {
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   137
                    if ($pwdmd5 == md5($log["pass"]) || $log["pass"]==null)
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   138
                    {
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   139
                        $_SESSION = array();
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   140
                        $_SESSION["userid"] = $userid;
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   141
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   142
                        // Recht
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   143
                        $stmt -> free_result(); // wegen weiterer query
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   144
                        $sql = "SELECT recht_ID FROM user_recht WHERE userid = '$userid'";
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   145
                        if ($res = $dbc -> queryObjectArray($sql))
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   146
                        {
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   147
                            $arecht = array();
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   148
                            foreach ($res as $row)
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   149
                            {    $arecht[] = $row->recht_ID;}
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   150
                            if (count($arecht)>0)
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   151
                                $_SESSION["recht"] = $arecht;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   152
                            else 
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   153
                                $_SESSION["recht"] = null;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   154
                        }
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   155
                        else 
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   156
                        {
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   157
                            $_SESSION["recht"] = null;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   158
//                            echo "error_recht: " . $dbc->error . "<br />";
15
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   159
                        }
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   160
//                        print_r($arecht);
15
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   161
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   162
                        // Recht Produkt-Gruppe
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   163
                        $sql = "SELECT prod_group_ID FROM user_prodgroup WHERE userid = '$userid'";   
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   164
                        if ($re = $dbc -> queryObjectArray($sql))
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   165
                        {
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   166
                            $pgrecht = array();
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   167
                            foreach ($re as $row)
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   168
                            {    $pgrecht[] = $row->prod_group_ID;}
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   169
                            if (count($pgrecht)>0)
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   170
                                $_SESSION["prodg"] = $pgrecht;
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   171
                            else 
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   172
                                $_SESSION["prodg"] = null;
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   173
                        }
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   174
                        else 
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   175
                            $_SESSION["prodg"] = null;
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   176
                		header("Location: $target");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   177
                		exit;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   178
                    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   179
                    else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   180
                        $err2 = "<br /><span class=\"red\">Passwort ist nicht korrekt</span>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   181
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   182
                else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   183
                    $err1 = "<br /><span class=\"red\">Username ist nicht korrekt</span>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   184
       
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   185
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   186
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   187
        if ($err1 || $err2 || !$log)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   188
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   189
            ?>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   190
            <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   191
            <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   192
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   193
            <head>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   194
            	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   195
               	<link href="/fhiiqm/css/db.css" rel="STYLESHEET" type="TEXT/CSS" /> 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   196
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   197
            	<title>Login fhiiqm</title>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   198
            </head>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   199
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   200
            <body onload="document.flogin.user.focus();">
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   201
            <!--    <div class="float-r"><img src="img/document_mark_as_final.png" border="0" alt="Vertr&auml;ge" title="Vertr&auml;ge"/></div> -->
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   202
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   203
            <?php
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   204
                include ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/form/login_form.inc.php");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   205
            echo "</body>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   206
            </html>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   207
        }    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   208
    }
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   209
    
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   210
    function duplicate_record ($table, $key_name, $key_value, $auto=1) 
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   211
    {
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   212
       /** dupliziert Datensatz in table
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   213
        *   Parameter
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   214
        *   $table      Tabellenname
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   215
        *   $key_name   Name ID-Spalte
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   216
        *   $key_value  Wert ID des DSes, der dupliziert werden soll
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   217
        *   $auto       ID ist Auto-Wert
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   218
        */
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   219
         
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   220
    	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   221
        global $dbc; // Verbindung ist schon da? 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   222
    	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   223
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   224
        // erfragen Namen aller Felder in $table
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   225
        $sql = 'SHOW COLUMNS FROM ' . $table . ';';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   226
        $result = $dbc -> queryObjectArray($sql);
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   227
        
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   228
        // Generieren der INSERT-Abfrage mit allen Feldern ausser ID-Feld
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   229
        $query = 'INSERT INTO ' . $table . ' (SELECT ';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   230
        
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   231
        foreach ($result as $row) 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   232
        {
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   233
            if ($row->Field == $key_name && $auto) {
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   234
            $query .= 'NULL, ';
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   235
            }
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   236
            elseif ($row->Field == $key_name && !$auto) 
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   237
                {$query .= '"'. $key_value . '_COPY", ';}
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   238
            else {
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   239
            $query .= $row->Field . ', ';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   240
            } // END IF
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   241
        } 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   242
        
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   243
        $query = substr($query, 0, strlen($query) - 2);
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   244
        $query .= ' FROM ' . $table . ' WHERE ' . $key_name . ' = "' . $key_value . '")';
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   245
//        echo "$query<br />";
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   246
        $ret = $dbc -> execute($query);
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   247
        if ($ret && $auto)
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   248
        { 
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   249
            // Return new id
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   250
            $new_id = $dbc -> insertId();
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   251
            return $new_id;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   252
        }
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   253
        elseif ($ret && !$auto)
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   254
            return $key_value . "_COPY";
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   255
        else
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   256
            return false;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   257
/*
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   258
        return $query;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   259
*/    
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   260
    }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   261
    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   262
    function dbformat_wert($wert)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   263
    {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   264
        /** wandelt Dezimalzahl mit Komma und Tausender-Trennzeichen in Datenbankformat
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   265
         * 
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   266
         * Parameter
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   267
         * $wert    -   zu konvertierende Zahl
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   268
         */
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   269
         
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   270
        if (isset($wert) && $wert<>0)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   271
        {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   272
            if (strpos($wert,',') >0) 
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   273
            {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   274
                $wert = str_replace(',','.',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   275
                $aw = explode('.',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   276
                if (count($aw) > 2) // mit Dezimalpunkt und Tausendertrennzeichen
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   277
                {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   278
                    for ($i=0; $i<count($aw)-1; $i++)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   279
                    {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   280
                        $dbw .= $aw[$i];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   281
                    }    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   282
                    $dbw .= "." .$aw[count($aw)-1];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   283
                }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   284
                else // kein Dezimalpunkt,nur Kommastellen
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   285
                    $dbw = $wert;
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   286
            }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   287
            else
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   288
            {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   289
                $aw = explode('.',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   290
                if (strlen($aw[count($aw)-1]) == 2)
25
482252ff12fd + Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   291
                {   // Dezimalpunkt mit 2 Stellen danach (= .nn)
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   292
                    for ($i=0; $i<count($aw)-1; $i++)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   293
                    {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   294
                        $dbw .= $aw[$i];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   295
                    }    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   296
                    $dbw .= "." .$aw[count($aw)-1];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   297
                }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   298
                else
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   299
                    $dbw = str_replace('.','',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   300
            }    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   301
            return $dbw;            
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   302
        }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   303
        else
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   304
            return 0;
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   305
    } 
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   306
       
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   307
?>