fhiiqm/test/calendar_simple.php
author Bettina Schwarzer
Fri, 17 Jan 2014 08:50:55 +0100
changeset 42 cfc409017ba8
parent 40 6f4b105daa24
permissions -rw-r--r--
+ Keytyp_Depot Aendern Bem., Korrekturen
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
40
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     1
<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     2
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     3
/**
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     4
 * @author Bettina Schwarzer, Fritz-Haber-Institut
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     5
 * @copyright 8/2013
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     6
 */
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     7
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     8
    error_reporting(E_ALL ^ E_NOTICE);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     9
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    10
    $sub = $_POST["sub"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    11
    $month = $_POST["mon"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    12
    $year = $_POST["yr"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    13
?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    14
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    15
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    16
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    17
<head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    18
	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    19
   	<link href="/fhiiqm/css/db.css" rel="STYLESHEET" type="TEXT/CSS"  media="screen"/> 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    20
   	<link href="/fhiiqm/css/db_print.css" rel="STYLESHEET" type="TEXT/CSS"  media="print"/> 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    21
	<title>Kalender Test</title>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    22
</head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    23
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    24
<body>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    25
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    26
<?php    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    27
    $amon = array("1"=>"Januar","2"=>"Februar","3"=>"März","4"=>"April","5"=>"Mai","6"=>"Juni","7"=>"Juli","8"=>"August","9"=>"September","10"=>"Oktober","11"=>"November","12"=>"Dezember");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    28
    $aday = array("0"=>"Mo","1"=>"Di","2"=>"Mi","3"=>"Do","4"=>"Fr","5"=>"Sa","6"=>"So");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    29
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    30
    //This gets today's date
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    31
    if ($sub == ">")
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    32
    {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    33
        $month += 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    34
        if ($month > 12)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    35
        { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    36
            $month=1; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    37
            $year += 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    38
        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    39
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    40
    if ($sub == "<")
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    41
    {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    42
        $month -= 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    43
        if ($month < 1)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    44
        { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    45
            $month=12; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    46
            $year -= 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    47
        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    48
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    49
    if ($sub && $month && $year)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    50
        $date = mktime(0,0,0,$month,1,$year);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    51
    else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    52
        $date = time () ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    53
    //This puts the day, month, and year in seperate variables
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    54
    $day = date('d', $date) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    55
    $month = date('m', $date) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    56
    $year = date('Y', $date) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    57
//echo "mon = $month, jahr = $year, dat = $day.".".$month.".".$year<br />";    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    58
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    59
    //Here we generate the first day of the month
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    60
    $first_day = mktime(0,0,0,$month, 1, $year) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    61
    $first_day_prev = mktime(0,0,0,$month-1, 1, $year) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    62
    $first_day_next= mktime(0,0,0,$month+1, 1, $year) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    63
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    64
    //This gets us the month name
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    65
    $title = $amon[date('n', $first_day)] ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    66
    $titlep = $amon[date('n', $first_day_prev)] ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    67
    $titlen = $amon[date('n', $first_day_next)] ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    68
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    69
    //Here we find out what day of the week the first day of the month falls on 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    70
    $day_of_week = date('D', $first_day) ; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    71
    $day_of_weekp = date('D', $first_day_prev) ; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    72
    $day_of_weekn = date('D', $first_day_next) ; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    73
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    74
 //Once we know what day of the week it falls on, we know how many blank days occure before it. If the first day of the week is a Sunday then it would be zero
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    75
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    76
    switch($day_of_week)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    77
    { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    78
        case "Mon": $blank = 0; $day_nr = 0; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    79
        case "Tue": $blank = 1; $day_nr = 1; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    80
        case "Wed": $blank = 2; $day_nr = 2; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    81
        case "Thu": $blank = 3; $day_nr = 3; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    82
        case "Fri": $blank = 4; $day_nr = 4; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    83
        case "Sat": $blank = 5; $day_nr = 5; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    84
        case "Sun": $blank = 6; $day_nr = 6; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    85
    } 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    86
    switch($day_of_weekp)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    87
    { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    88
        case "Mon": $day_nrp = 0; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    89
        case "Tue": $day_nrp = 1; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    90
        case "Wed": $day_nrp = 2; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    91
        case "Thu": $day_nrp = 3; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    92
        case "Fri": $day_nrp = 4; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    93
        case "Sat": $day_nrp = 5; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    94
        case "Sun": $day_nrp = 6; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    95
    } 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    96
    switch($day_of_weekn)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    97
    { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    98
        case "Mon": $day_nrn = 0; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    99
        case "Tue": $day_nrn = 1; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   100
        case "Wed": $day_nrn = 2; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   101
        case "Thu": $day_nrn = 3; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   102
        case "Fri": $day_nrn = 4; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   103
        case "Sat": $day_nrn = 5; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   104
        case "Sun": $day_nrn = 6; break; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   105
    } 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   106
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   107
 //We then determine how many days are in the current month
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   108
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   109
    $days_month = cal_days_in_month(0, $month, $year) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   110
    $monthn = $month+1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   111
    $yearn = $year;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   112
    if ($monthn == 13) {$monthn = 1; $yearn = $year+1;}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   113
    $days_monthn = cal_days_in_month(0, $monthn, $yearn) ; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   114
    $monthp = $month-1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   115
    $yearp = $year;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   116
    if ($monthp == 0) {$monthp = 12; $yearp = $year-1;}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   117
    $days_monthp = cal_days_in_month(0, $monthp, $yearp) ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   118
//echo "aktueller Monat=$month, vorheriger Monat=$monthp, nächster Monat=$monthn<br />"; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   119
/*
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   120
    //Here we start building the table heads 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   121
    echo "<div align='center'>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   122
    echo "<table border=1 width=294>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   123
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   124
    echo "<tr><th colspan=7> $title $year </th></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   125
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   126
    echo "<tr><td width=42>Mo</td><td width=42>Di</td><td width=42>Mi</td><td width=42>Do</td><td width=42>Fr</td><td width=42>Sa</td><td width=42>So</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   127
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   128
    //This counts the days in the week, up to 7
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   129
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   130
    $day_count = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   131
    echo "<tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   132
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   133
    //first we take care of those blank days
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   134
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   135
    while ( $blank > 0 ) 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   136
    { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   137
     echo "<td></td>"; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   138
     $blank = $blank-1; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   139
     $day_count++;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   140
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   141
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   142
    //sets the first day of the month to 1 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   143
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   144
    $day_num = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   145
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   146
    //count up the days, untill we've done all of them in the month
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   147
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   148
    while ( $day_num <= $days_in_month ) 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   149
    { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   150
     echo "<td> $day_num </td>"; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   151
     $day_num++; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   152
     $day_count++;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   153
     //Make sure we start a new row every week
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   154
     if ($day_count > 7)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   155
     {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   156
         echo "</tr><tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   157
         $day_count = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   158
     }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   159
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   160
    //Finaly we finish out the table with some blank details if needed
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   161
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   162
    while ( $day_count >1 && $day_count <=7 ) 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   163
    { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   164
     echo "<td> </td>"; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   165
     $day_count++; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   166
    } 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   167
    echo "</tr></table>";   
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   168
    echo "</div>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   169
*/ 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   170
    // Kalender als 1 Zeile
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   171
    echo "<div align='center'>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   172
    echo "<h3> Belegung Appartments FHI</h3>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   173
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   174
	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   175
	if (!isset($dbc) || !$dbc) $dbc = new dbconnection("fhi");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   176
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   177
    $sql = "SELECT id, name, apt, von, bis FROM wover
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   178
            WHERE Year(von) >= $year-1 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   179
            ORDER BY von DESC, apt";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   180
    if ($result = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   181
    {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   182
//        echo "<table>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   183
        foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   184
        {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   185
            if ($row->von)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   186
            {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   187
                $vond = new DateTime($row->von);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   188
                $vond = $vond -> format("d.m.Y");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   189
            }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   190
            else $vonf = $row->von; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   191
            if ($row->bis)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   192
            {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   193
                $bisd = new DateTime($row->bis);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   194
                $bisd = $bisd -> format("d.m.Y");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   195
            } 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   196
            else $bisf = $row->bis; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   197
//            echo "<tr><td>".$row->name . "</td><td>" .$row->apt . "</td><td>" .$vond . "</td><td>" .$bisd . "</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   198
            $aresv["id"][] = $row->id;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   199
            $aresv["name"][] = $row->name;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   200
            $aresv["apt"][] = $row->apt;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   201
            $aresv["von"][] = $row->von;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   202
            $aresv["bis"][] = $row->bis;            
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   203
        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   204
//        echo "</table>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   205
//        print_r ($aresv); echo "<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   206
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   207
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   208
    function aptres($daynr,$month,$year,$von,$bis,$name,$pos)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   209
    {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   210
        $aktdat = date('Y-m-d',mktime(0,0,0,$month,$daynr+1,$year));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   211
        if ($von <= $aktdat && $bis >= $aktdat)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   212
            return substr($name,$pos,1);         
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   213
        else return null;       
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   214
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   215
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   216
    function monat($day_nr,$days_month,$month,$year,$tit,$mon="")
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   217
    {    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   218
        global $aday;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   219
        global $aresv;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   220
        $clg = "class='bgmarkg1 center'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   221
        $cl1 = "class='bgmarkg1 center'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   222
        $cl2 = "class='bgmarkg2 center'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   223
        echo "<table border=1 cellspacing='0' cellpadding='0'>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   224
        echo "<tr><th class='center' colspan='$days_month' >$tit $year </th></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   225
        echo "<tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   226
        $dnr = $day_nr;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   227
        // daynames
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   228
        for ($i=0;$i<$days_month;$i++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   229
        {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   230
            if ($dnr > 4) $cl = " class = 'bgmarkwe'"; else $cl = "";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   231
            if (($mon == "") || ($mon == "p" && $i>14) || ($mon == "n" && $i<15))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   232
                echo "<td$cl width='18'>".$aday[$dnr]."</td>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   233
            if ($dnr<6) $dnr += 1; else $dnr = 0;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   234
        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   235
        echo "</tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   236
        echo "<tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   237
        $dnr = $day_nr;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   238
        // daynumbers
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   239
        for ($i=0;$i<$days_month;$i++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   240
        {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   241
            if ($dnr > 4) $cl = " class = 'bgmarkwe center'"; else $cl = " class = 'center'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   242
            if (($mon == "") || ($mon == "p" && $i>14) || ($mon == "n" && $i<15))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   243
                echo "<td$cl>".($i+1)."</td>\n";  
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   244
            if ($dnr<6) $dnr += 1; else $dnr = 0;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   245
        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   246
        echo "</tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   247
        for ($j=0; $j<11; $j++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   248
            for ($i=0;$i<$days_month;$i++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   249
                for ($k=0; $k<count($aresv["id"]);$k++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   250
                {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   251
                    $gn[$j][$i][$k] = "";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   252
                    $pos[$j][$k] = 0;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   253
                }   
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   254
        // appartments
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   255
        for ($j=0; $j<11; $j++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   256
        {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   257
            if ($j == 3) $j +=1; // kein apt. 4
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   258
            $dnr = $day_nr;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   259
            echo "<tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   260
            for ($i=0;$i<$days_month;$i++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   261
            {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   262
                if ($dnr > 4) $cl = " class = 'bgmarkwe center'"; else $cl = " class = 'center'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   263
                if (($mon == "") || ($mon == "p" && $i>14) || ($mon == "n" && $i<15))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   264
                {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   265
                    $anznam = 0;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   266
                    for ($k=0; $k<count($aresv["id"]);$k++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   267
                    {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   268
                        if ($aresv["apt"][$k] == ($j+1))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   269
                        {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   270
                            if ($namv[$i][$k] == $aresv["name"][$k]) $pos[$k] +=1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   271
 //                           $nam = aptres($i,$month,$year,strtotime($aresv["von"][$k]),strtotime($aresv["bis"][$k]),$aresv["name"][$k]);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   272
                            $nam = aptres($i,$month,$year,$aresv["von"][$k],$aresv["bis"][$k],$aresv["name"][$k],$pos[$j][$k]);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   273
                            if ($nam)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   274
                            { 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   275
                                if ($pos[$j][$k] == 0 && $clg == $cl1) $clg = $cl2;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   276
                                elseif ($pos[$j][$k] == 0 && $clg == $cl2) $clg = $cl1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   277
                                $addr = "<a href='reserv_ed.php?i=".$aresv["id"][$k]."'>$nam</a>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   278
                                echo "<td $clg>".$addr."</td>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   279
                                if ($gn[$j][$i-1][$k] == $aresv["name"][$k]);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   280
                                {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   281
                                    $pos[$j][$k] +=1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   282
                                }    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   283
                                $gn[$j][$i][$k] = $aresv["name"][$k];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   284
                                $anznam +=1; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   285
                            }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   286
                        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   287
                    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   288
                    if (!$anznam)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   289
                    {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   290
                        echo "<td$cl>"."&nbsp;"."</td>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   291
                    }    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   292
                }     
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   293
                if ($dnr<6) $dnr += 1; else $dnr = 0;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   294
            }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   295
            echo "</tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   296
        }    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   297
        echo "</table>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   298
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   299
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   300
    echo "<table border='0' cellspacing='0' cellpadding='0'><tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   301
    echo "<td><table border=1 cellspacing='0' cellpadding='0'><tr><td rowspan='3'>&nbsp;</td><td>&nbsp;</td></tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   302
    echo "<tr><td>&nbsp;</td></tr><tr><td>&nbsp;</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   303
    echo "<tr><td colspan='2' height='18'>Apt. 1</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   304
    echo "<tr><td colspan='2' height='18'>Apt. 2</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   305
    echo "<tr><td colspan='2' height='18'>Apt. 3</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   306
//    echo "<tr><td colspan='2'>Apt. 4</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   307
    echo "<tr><td colspan='2' height='18'>Apt. 5</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   308
    echo "<tr><td colspan='2' height='18'>Apt. 6</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   309
    echo "<tr><td colspan='2' height='18'>Apt. 7</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   310
    echo "<tr><td colspan='2' height='18'>Apt. 8</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   311
    echo "<tr><td colspan='2' height='18'>Apt. 9</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   312
    echo "<tr><td colspan='2' height='18'>Apt. 10</td></tr>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   313
    echo "<tr><td colspan='2' height='18'>Apt. 11</td></tr></table></td><td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   314
    monat($day_nrp,$days_monthp,$monthp,$yearp,$titlep,"p");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   315
    echo "</td><td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   316
    monat($day_nr,$days_month,$month,$year,$title);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   317
    echo "</td><td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   318
    monat($day_nrn,$days_monthn,$monthn,$yearn,$titlen,"n");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   319
    echo "</td></tr></table>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   320
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   321
    echo "<form action=\"".$_SERVER['PHP_SELF'] ."\" method=\"post\" enctype=\"application/x-www-form-urlencoded\" name=\"form_w\">";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   322
    echo "<p><input class=\"button\" type=\"submit\" name=\"sub\" value=\"<\" title='mon-1'>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   323
    echo "&nbsp;&nbsp;&nbsp;";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   324
    echo "<input class=\"button\" type=\"submit\" name=\"sub\" value=\">\" title='mon+1'></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   325
    echo "<input type=\"hidden\" name=\"mon\" value=\"$month\">";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   326
    echo "<input type=\"hidden\" name=\"yr\" value=\"$year\">";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   327
    echo "</form>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   328
    echo "</div>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   329
          
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   330
?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   331
</body>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   332
</html>