fhiiqm/inc/func_lib.inc.php
author Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
Tue, 26 Mar 2013 15:41:01 +0100
changeset 35 679bc22e37e2
parent 34 fc60ef80a7ad
child 38 45c139f74ea4
permissions -rw-r--r--
+ Vertrag mehrere Dokumente, Projektreports
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
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    10
    function tab_column($colnum=2,$bez,$sort,$dir,$fcol=0,$fanr=0,$filtb="",$start="",$anzds="25",$id="",$g=0,$tab="",$adr="")
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
28
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    23
        * $id       fuer spezielle ID als zusaetzl. Filter (Laser-Log)
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    24
        * $g        Gesamtansicht (rag-gefahr-massnahmen-vorsorge)
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
    25
        * [$tab     fuer tab-basierte Seite
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
    26
        * $adr      wohin gehen (Teilseite)]
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    27
        */
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
        if ($colnum == $sort)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    30
            if ($dir == 'DESC')
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
                $auf = "auf";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
                $ab = "ab_activ";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    34
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    35
            else
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
                $auf = "auf_activ";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    38
                $ab = "ab";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    39
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    40
        else
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
                $auf = "auf";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
                $ab = "ab";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
        
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 28
diff changeset
    46
        if ($bez == "Haus") $tip = "Haus: A, B, BES, C, D, E, F, FAB, HAR, K, L, M, N, P, Q, R, S, T, U"; else $tip = "Filter";
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    47
        if ($tab > "!")
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    48
        {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    49
            $addr = $adr;
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    50
            $ank = $tab; 
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    51
        } 
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    52
        else 
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    53
        {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    54
            $addr = $_SERVER['PHP_SELF'];
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    55
            $ank = "";
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    56
        }
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    57
        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
    58
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
            if ($fcol == $fanr) $filt = "filter_activ"; else $filt = "filter"; 
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    60
            $filt = "&nbsp;<a href='".$addr."$ank?f=$fcol&s=$sort&d=$dir&st=$start&z=$anzds&i=$id&g=$g'><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
    61
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
            $filt="";
28
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    64
        if ($filtb>'!') $where = "&f=$fanr&b=$filtb&i=$id&g=$g"; else $where="&i=$id&g=$g";
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    65
        echo "<th>$bez&nbsp;<a href='".$addr."$ank?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>            
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
    66
                  <a href='".$addr."$ank?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";
1
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
    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
    function date_obj($jahr,$mon,$tag)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
       /** 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
    72
        *  Voraussetzung: Klasse 'DateTime_s' ist included
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
        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
    75
        if ($jahr && $mon && $tag)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    77
            $dat = $jahr."-".$mon."-".$tag;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    78
            // Datum valid?
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    79
            if (!$dat = new DateTime_s($dat)) $dat = null;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
        }    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    82
            $dat = null;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    83
        return $dat;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    84
        
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
    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    87
    function liste_links($start,$zeil,$anz,$liste)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    88
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    89
       /** erstellt links zu Seiten einer Liste
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    90
         * Parameter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    91
         * $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
    92
         * $zeil    Anzahl Zeilen pro Seite
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    93
         * $anz     Anzahl DS gesamt
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    94
         * $liste   weitere Inhalte fuer $_GET-Array
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
        $page = 1;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    97
        while (($page-1)*$zeil < $anz)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    98
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    99
            $be = ($page-1)*$zeil+1;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   100
            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
   101
            $st = ($page-1)*$zeil;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   102
            if ($start == $be-1)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   103
                echo "$be - $en";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   104
            else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   105
                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
   106
            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
   107
            $page++;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   108
        }
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
    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   111
    
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   112
    function login($target, $headl="")
1
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
       /** 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
   115
        *   Parameter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   116
        *   $target     Zieladresse
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   117
        *   $headl      Ueberschrift Loginform
1
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
          
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   120
       session_start();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   121
       if ($_SESSION["userid"]) 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   122
        	{
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   123
        	header("Location: $target");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   124
        	exit;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   125
        	}
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
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   128
        
19
33ee23fafd4d + Anlage Pruefung, Anlage Risiko, Menue anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 15
diff changeset
   129
        $login  = $_POST["login"];
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   130
        $log    = $_POST["log"];
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 ($login)
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
        	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
   135
        	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   136
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   137
            $stmt = $dbc -> stmtinit();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   138
            if (is_object($stmt))
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   139
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   140
                $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
   141
                $stmt -> bind_param('s',$log["user"]);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   142
                $result = $stmt -> execute();
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   143
                // $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
   144
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   145
            if ($result)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   146
            {
34
fc60ef80a7ad + Telefonliste pdf: 4 Varianten
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 31
diff changeset
   147
                if ($log["pass"] <= '') $log["pass"] = null;
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   148
                $stmt->bind_result($userid, $pwdmd5);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   149
                if ($stmt->fetch()) 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   150
                {
34
fc60ef80a7ad + Telefonliste pdf: 4 Varianten
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 31
diff changeset
   151
//                    if ($pwdmd5 == md5($log["pass"]) || $log["pass"]==null)
fc60ef80a7ad + Telefonliste pdf: 4 Varianten
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 31
diff changeset
   152
                    if ($pwdmd5 === md5($log["pass"]) || ($pwdmd5 === null && $log["pass"] === null))
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   153
                    {
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   154
                        $_SESSION = array();
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   155
                        $_SESSION["userid"] = $userid;
13
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
                        // Recht
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   158
                        $stmt -> free_result(); // wegen weiterer query
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   159
                        $sql = "SELECT recht_ID FROM user_recht WHERE userid = '$userid'";
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   160
                        if ($res = $dbc -> queryObjectArray($sql))
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   161
                        {
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   162
                            $arecht = array();
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   163
                            foreach ($res as $row)
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   164
                            {    $arecht[] = $row->recht_ID;}
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   165
                            if (count($arecht)>0)
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   166
                                $_SESSION["recht"] = $arecht;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   167
                            else 
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   168
                                $_SESSION["recht"] = null;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   169
                        }
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   170
                        else 
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   171
                        {
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   172
                            $_SESSION["recht"] = null;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   173
//                            echo "error_recht: " . $dbc->error . "<br />";
15
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   174
                        }
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   175
//                        print_r($arecht);
15
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   176
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   177
                        // Recht Produkt-Gruppe
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   178
                        $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
   179
                        if ($re = $dbc -> queryObjectArray($sql))
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   180
                        {
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   181
                            $pgrecht = array();
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   182
                            foreach ($re as $row)
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   183
                            {    $pgrecht[] = $row->prod_group_ID;}
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   184
                            if (count($pgrecht)>0)
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   185
                                $_SESSION["prodg"] = $pgrecht;
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   186
                            else 
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   187
                                $_SESSION["prodg"] = null;
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   188
                        }
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   189
                        else 
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   190
                            $_SESSION["prodg"] = null;
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   191
                		header("Location: $target");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   192
                		exit;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   193
                    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   194
                    else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   195
                        $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
   196
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   197
                else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   198
                    $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
   199
       
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   200
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   201
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   202
        if ($err1 || $err2 || !$log)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   203
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   204
            ?>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   205
            <!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
   206
            <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
   207
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   208
            <head>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   209
            	<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
   210
               	<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
   211
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   212
            	<title>Login fhiiqm</title>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   213
            </head>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   214
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   215
            <body onload="document.flogin.user.focus();">
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   216
            <!--    <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
   217
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   218
            <?php
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   219
                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
   220
            echo "</body>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   221
            </html>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   222
        }    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   223
    }
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   224
    
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   225
    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
   226
    {
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   227
       /** dupliziert Datensatz in table
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   228
        *   Parameter
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   229
        *   $table      Tabellenname
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   230
        *   $key_name   Name ID-Spalte
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   231
        *   $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
   232
        *   $auto       ID ist Auto-Wert
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   233
        */
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   234
         
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   235
    	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
   236
        global $dbc; // Verbindung ist schon da? 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   237
    	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   238
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   239
        // erfragen Namen aller Felder in $table
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   240
        $sql = 'SHOW COLUMNS FROM ' . $table . ';';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   241
        $result = $dbc -> queryObjectArray($sql);
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   242
        
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   243
        // 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
   244
        $query = 'INSERT INTO ' . $table . ' (SELECT ';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   245
        
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   246
        foreach ($result as $row) 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   247
        {
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   248
            if ($row->Field == $key_name && $auto) {
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   249
            $query .= 'NULL, ';
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   250
            }
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   251
            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
   252
                {$query .= '"'. $key_value . '_COPY", ';}
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   253
            else {
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   254
            $query .= $row->Field . ', ';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   255
            } // END IF
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   256
        } 
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
        $query = substr($query, 0, strlen($query) - 2);
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   259
        $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
   260
//        echo "$query<br />";
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   261
        $ret = $dbc -> execute($query);
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   262
        if ($ret && $auto)
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   263
        { 
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   264
            // Return new id
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   265
            $new_id = $dbc -> insertId();
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   266
            return $new_id;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   267
        }
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   268
        elseif ($ret && !$auto)
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   269
            return $key_value . "_COPY";
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   270
        else
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   271
            return false;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   272
/*
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   273
        return $query;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   274
*/    
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
   275
    }
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
    
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
    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
   278
    {
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
        /** 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
   280
         * 
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
         * 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
   282
         * $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
   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
         
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
        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
   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
            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
   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
                $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
   290
                $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
   291
                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
   292
                {
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
                    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
   294
                    {
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
                        $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
   296
                    }    
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
                    $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
   298
                }
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
                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
   300
                    $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
   301
            }
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
            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
   303
            {
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
                $aw = explode('.',$wert);
35
679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 34
diff changeset
   305
                if (count($aw) > 1 && 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
   306
                {   // 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
   307
                    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
   308
                    {
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
   309
                        $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
   310
                    }    
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
   311
                    $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
   312
                }
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
   313
                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
   314
                    $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
   315
            }    
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
   316
            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
   317
        }
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
   318
        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
   319
            return 0;
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   320
    } 
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   321
       
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   322
?>