fhiiqm/test/fpdf_create.php
author Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
Fri, 21 Dec 2012 15:31:50 +0100
changeset 33 f1a8785434e4
permissions -rw-r--r--
+ MA-Telefon-Liste, Edit MA, Telefon + Report dezentrale Anlagen + Report MA - Beziehungen
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
33
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     1
<?php
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     2
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     3
/**
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     4
 * @author Bettina Schwarzer, Fritz-Haber-Institut
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     5
 * @copyright 11/2012
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     6
 * 
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     7
 * pdf-Dokument erstellen
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     8
 */
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     9
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    10
    error_reporting(E_ALL ^ E_NOTICE);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    11
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    12
    include ($_SERVER['DOCUMENT_ROOT']."/fhiiqm/tool/fpdf.php");
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    13
    class PDF extends FPDF
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    14
    {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    15
        //Cell with horizontal scaling if text is too wide
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    16
        function CellFit($w, $h=0, $txt='', $border=0, $ln=0, $align='', $fill=false, $link='', $scale=false, $force=true)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    17
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    18
            //Get string width
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    19
            $str_width=$this->GetStringWidth($txt);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    20
            // Division by 0 avoid, 21.11.2012, bs
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    21
            if ($str_width == 0) $str_width = 0.1;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    22
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    23
            //Calculate ratio to fit cell
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    24
            if($w==0)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    25
                $w = $this->w-$this->rMargin-$this->x;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    26
            $ratio = ($w-$this->cMargin*2)/$str_width;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    27
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    28
            $fit = ($ratio < 1 || ($ratio > 1 && $force));
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    29
            if ($fit)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    30
            {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    31
                if ($scale)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    32
                {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
                    //Calculate horizontal scaling
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    34
                    $horiz_scale=$ratio*100.0;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    35
                    //Set horizontal scaling
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    36
                    $this->_out(sprintf('BT %.2F Tz ET',$horiz_scale));
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    37
                }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    38
                else
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    39
                {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    40
                    //Calculate character spacing in points
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    41
                    $char_space=($w-$this->cMargin*2-$str_width)/max($this->MBGetStringLength($txt)-1,1)*$this->k;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    42
                    //Set character spacing
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
                    $this->_out(sprintf('BT %.2F Tc ET',$char_space));
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
                }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
                //Override user alignment (since text will fill up cell)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    46
                $align='';
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    47
            }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    48
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    49
            //Pass on to Cell method
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    50
            $this->Cell($w,$h,$txt,$border,$ln,$align,$fill,$link);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    51
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    52
            //Reset character spacing/horizontal scaling
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    53
            if ($fit)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    54
                $this->_out('BT '.($scale ? '100 Tz' : '0 Tc').' ET');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    55
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    56
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    57
        //Cell with horizontal scaling only if necessary
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    58
        function CellFitScale($w, $h=0, $txt='', $border=0, $ln=0, $align='', $fill=false, $link='')
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    60
            $this->CellFit($w,$h,$txt,$border,$ln,$align,$fill,$link,true,false);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    61
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
        //Cell with horizontal scaling always
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    64
        function CellFitScaleForce($w, $h=0, $txt='', $border=0, $ln=0, $align='', $fill=false, $link='')
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    65
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    66
            $this->CellFit($w,$h,$txt,$border,$ln,$align,$fill,$link,true,true);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    67
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    68
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
        //Cell with character spacing only if necessary
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
        function CellFitSpace($w, $h=0, $txt='', $border=0, $ln=0, $align='', $fill=false, $link='')
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    72
            $this->CellFit($w,$h,$txt,$border,$ln,$align,$fill,$link,false,false);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    73
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    74
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    75
        //Cell with character spacing always
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
        function CellFitSpaceForce($w, $h=0, $txt='', $border=0, $ln=0, $align='', $fill=false, $link='')
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    77
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    78
            //Same as calling CellFit directly
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    79
            $this->CellFit($w,$h,$txt,$border,$ln,$align,$fill,$link,false,true);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    82
        //Patch to also work with CJK double-byte text
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    83
        function MBGetStringLength($s)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    84
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    85
            if($this->CurrentFont['type']=='Type0')
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    86
            {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    87
                $len = 0;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    88
                $nbbytes = strlen($s);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    89
                for ($i = 0; $i < $nbbytes; $i++)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    90
                {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    91
                    if (ord($s[$i])<128)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    92
                        $len++;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    93
                    else
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    94
                    {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    95
                        $len++;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    96
                        $i++;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    97
                    }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    98
                }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    99
                return $len;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   100
            }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   101
            else
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   102
                return strlen($s);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   103
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   104
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   105
        //Kopfzeile
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   106
        function Header()
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   107
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   108
            global $header;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   109
            //$this->Cell(20);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   110
            //Titel
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   111
            //Arial fett 15
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   112
            $this->SetFont('Arial','BI',11);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   113
            $this->Cell(55,10,'Fritz-Haber-Institut',0,0,'L');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   114
            $this->SetFont('Arial','B',11);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   115
            $this->Cell(40,10,'Telefonverzeichnis',0,0,'L');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   116
            $this->SetTextColor(255,0,0);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   117
            $this->Cell(0,10,'(intern)',0,0,'L');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   118
            //Logo
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   119
            $this->Image($_SERVER['DOCUMENT_ROOT']."/fhiiqm/img/fhilogotransp.png",170,8,25);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   120
            //Zeilenumbruch
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   121
            $this->Ln(20);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   122
            //Colors, line width and bold font
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   123
            $this->SetFont('helvetica','',8);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   124
            $this->SetFillColor(104,172,191);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   125
            $this->SetTextColor(0,0,102);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   126
            $this->SetDrawColor(255,255,255);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   127
            $this->SetLineWidth(.0);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   128
            $this->SetFont('','B');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   129
            //Tabellen-Header immer im Kopf
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   130
            $w=array(55,40,30,15,40);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   131
            for($i=0;$i<count($header);$i++)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   132
                $this->Cell($w[$i],5,$header[$i],1,0,'L',1);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   133
            $this->Ln();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   134
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   135
        
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   136
        //Fusszeile
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   137
        function Footer()
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   138
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   139
            //Position 1,5 cm von unten
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   140
            $this->SetY(-15);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   141
            //Arial kursiv 8
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   142
            $this->SetFont('Arial','I',8);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   143
            //Datum der Liste
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   144
            $heute = new DateTime();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   145
            $this->Cell(0,10,$heute->format('d.m.Y H:i:s'),0,0,'L');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   146
            //Seitenzahl
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   147
            $this->Cell(0,10,'Seite '.$this->PageNo().'/{nb}',0,0,'R');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   148
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   149
        //Colored table
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   150
        function FancyTable($header,$data)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   151
        {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   152
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   153
            //Colors, line width and bold font
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   154
            $this->SetFillColor(104,172,191);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   155
            $this->SetTextColor(0,0,102);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   156
            $this->SetDrawColor(255,255,255);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   157
            $this->SetLineWidth(.0);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   158
            $this->SetFont('','B');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   159
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   160
            //Header notwendig fuer Tabelle, Hoehe = 0!
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   161
            $w=array(55,40,30,15,40);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   162
            for($i=0;$i<count($header);$i++)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   163
                $this->Cell($w[$i],0,'',1,0,'L',1);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   164
            $this->Ln();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   165
            //Color and font restoration
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   166
//            $this->SetFillColor(222,222,222);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   167
            $this->SetFillColor(238,238,238);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   168
            $this->SetTextColor(0);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   169
            $this->SetFont('');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   170
            //Data
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   171
            $fill=0;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   172
            $fill = !$fill;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   173
            foreach($data as $row)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   174
            {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   175
    			if ($row->persknr != $vpnr)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   176
                {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   177
/*                    if ($newline)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   178
                    {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   179
                        $this->Cell(array_sum($w),4,'',0,'',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   180
                        $this->Ln();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   181
                        $newline = 0;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   182
                    } 
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   183
*/  
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   184
                    $fill=!$fill;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   185
                    $titel = ($row->titel)? ", $row->titel" : "" ;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   186
                    $vname = ($row->vorname)? ", $row->vorname" : "";
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   187
                    $name = $row->name . $titel . $vname;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   188
/*                    $y = $this->GetY();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   189
                    if (strlen($row->name . $titel . $vname) > 40)
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   190
                    {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   191
                        echo "name = $name<br />";
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   192
                        $name = $row->name . $titel . "\n" . substr($vname,2);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   193
                        $this->MultiCell($w[0],4,$name,0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   194
                        $this -> SetXY($w[0]+$this->lMargin,$y);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   195
                        $newline = 1;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   196
*/
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   197
/*                    }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   198
                    else
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   199
                        $this->Cell($w[0],4,$name,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   200
*/                        
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   201
                    $this->CellFitScale($w[0],4.5,$name,0,0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   202
                    $this->CellFitScale($w[1],4.5,$row->abt_name,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   203
                    if ($row->telefon_typ == "fax") $typ = " FAX"; else $typ = "";
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   204
                    if (!$row->public) $this->SetTextColor(255,0,0); else $this->SetTextColor(0,0,136); 
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   205
                    $this->CellFitScale($w[2],4.5,$row->telefon_nr.$typ,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   206
                    $this->SetTextColor(0);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   207
                    $this->CellFitScale($w[3],4.5,$row->geb_ID . " " . $row->raum_nr,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   208
                    $this->CellFitScale($w[4],4.5,$row->email,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   209
                    $this->Ln();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   210
                }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   211
                else
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   212
                {
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   213
                    $newline = 0;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   214
                    $this->Cell($w[0],4.5,'','LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   215
                    if ($vabt != $row->abt_name) $abt = $row->abt_name;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   216
                    else $abt = '';    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   217
                    $this->CellFitScale($w[1],4.5,$abt,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   218
                    if ($row->telefon_typ == "fax") $typ = " FAX"; else $typ = "";
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   219
                    if (!$row->public) $this->SetTextColor(255,0,0); else $this->SetTextColor(0,0,136); 
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   220
                    $this->CellFitScale($w[2],4.5,$row->telefon_nr.$typ,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   221
                    $this->SetTextColor(0);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   222
                    $this->CellFitScale($w[3],4.5,$row->geb_ID . " " . $row->raum_nr,'LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   223
                    $this->Cell($w[4],4.5,'','LR',0,'L',$fill);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   224
                    $this->Ln();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   225
                    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   226
                }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   227
                $vpnr = $row->persknr;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   228
                $vabt = $row->abt_name;
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   229
            }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   230
//            $this->Cell(array_sum($w),0,'','T');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   231
        }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   232
    }
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   233
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   234
//    $pdf = new FPDF();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   235
    $header=array('Name','Abteilung','Tel/Fax','Raum','E-Mail');
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   236
    $pdf = new PDF();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   237
    $pdf->SetLeftMargin(25);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   238
    $pdf->AddPage();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   239
    $pdf->AliasNbPages();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   240
/*
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   241
    $pdf->SetFont('Arial','B',16);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   242
    $pdf->Cell(40,10,'Hallo Du!',0,1);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   243
    $pdf->SetFont('courier','i',12);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   244
    $pdf->Cell(100,10,'Dieser Text ist mit fpdf erstellt worden.',0,1);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   245
*/    
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   246
    // Telefonliste
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   247
	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   248
//    include_once ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   249
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   250
	$dbc = new dbconnection();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   251
    $sql = "SELECT persknr, name, vorname, titel, abt_name, telefon_nr, telefon_typ, public, geb_ID, raum_nr, email FROM v_tel_list 
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   252
            ORDER BY 2,3,5,6";
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   253
    $result = $dbc ->queryObjectArray($sql);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   254
    $pdf->SetFont('helvetica','',9);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   255
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   256
    $pdf->FancyTable($header,$result);
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   257
    $pdf->Output();
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   258
f1a8785434e4 + MA-Telefon-Liste, Edit MA, Telefon
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   259
?>