function addEvents()
{
    global $o, $c, $m, $a, $y, $w, $id, $table_prefix, $page_title, $calendar_title, $supergroup, $supercategory, $lang;
    $title = $_REQUEST["title"];
    $venue = $_REQUEST["venue"];
    $contact = $_REQUEST["contact"];
    $category = $_REQUEST["category"];
    $group = $_REQUEST["group"];
    $date = $_REQUEST["date"];
    $start = $_REQUEST["start"];
    $end = $_REQUEST["end"];
    $description = $_REQUEST["description"];
    while (list($k, $v) = each($start)) {
        $dstart = eregi_replace("([0-9]{1,2}:[0-9]{2}):[0-9]{2}([ ]?[a|p]m)", "\\1\\2", $v);
        $dend = eregi_replace("([0-9]{1,2}:[0-9]{2}):[0-9]{2}([ ]?[a|p]m)", "\\1\\2", $end[$k]);
        $dc = "";
        $sc = "";
        $ec = "";
        if (!ereg("([0-9]{1,2})[\\/-]+([0-9]{1,2})[\\/-]+([0-9]{4})", $date[$k])) {
            $dc = " class=\"error\"";
        }
        if (!eregi("([0-9]{1,2}):([0-9]{2})[ ]?([a|p]m)", $dstart)) {
            $sc = " class=\"error\"";
        }
        if ($dend && !eregi("([0-9]{1,2}):([0-9]{2})[ ]?([a|p]m)", $dend)) {
            $ec = " class=\"error\"";
        }
        if ($dc | $sc | $ec) {
            $verify .= "There are date/time errors in your listings. ";
        }
        if (!$supercategory) {
            $q = "select * from " . $table_prefix . "users_to_categories where category_id = " . $category[$k] . " and user_id = " . $_SESSION["user_id"];
            $qu = mysql_query($q);
            if (mysql_num_rows($qu) < 2) {
                $verify = $lang["no_permision_post_events"];
            }
        }
        if (!$supergroup) {
            $q = "select * from " . $table_prefix . "users_to_groups where group_id = " . $group[$k] . " and user_id = " . $_SESSION["user_id"];
            $qu = mysql_query($q);
            if (mysql_num_rows($qu) < 2) {
                $verify = $lang["no_permision_post_events"];
            }
        }
        // verify categories
    }
    reset($start);
    if ($verify) {
        include "includes/header.php";
        ?>
<form action="<?php 
        echo $PHP_SELF;
        ?>
" method="post">
<?php 
        include "includes/hidden_fields.php";
        ?>
<h3><?php 
        echo $lang["verify_event_listings_title"];
        ?>
</h3>
<p><?php 
        echo $lang["errors_in_listings"];
        ?>
 <?php 
        echo $verify;
        ?>
</p>
<table>
<tr><th><?php 
        echo $lang["title"];
        ?>
</th><th><?php 
        echo $lang["venue"];
        ?>
</th><th><?php 
        echo $lang["contact_sponsor"];
        ?>
</th><th><?php 
        echo $lang["category"];
        ?>
</th><th><?php 
        echo $lang["group"];
        ?>
</th><th><?php 
        echo $lang["date"];
        ?>
</th><th><?php 
        echo $lang["start_time"];
        ?>
</th><th<?php 
        echo $lang["end_time"];
        ?>
</th><th><?php 
        echo $lang["description"];
        ?>
</th></tr>
<?php 
        while (list($k, $v) = each($start)) {
            $dstart = eregi_replace("([0-9]{1,2}:[0-9]{2}):[0-9]{2}([ ]?[a|p]m)", "\\1\\2", $v);
            $dend = eregi_replace("([0-9]{1,2}:[0-9]{2}):[0-9]{2}([ ]?[a|p]m)", "\\1\\2", $end[$k]);
            $dc = "";
            $sc = "";
            $ec = "";
            if (!ereg("([0-9]{1,2})[\\/-]+([0-9]{1,2})[\\/-]+([0-9]{4})", $date[$k])) {
                $dc = " class=\"error\"";
            }
            if (!eregi("([0-9]{1,2}):([0-9]{2})[ ]?([a|p]m)", $dstart)) {
                $sc = " class=\"error\"";
            }
            if ($dend && !eregi("([0-9]{1,2}):([0-9]{2})[ ]?([a|p]m)", $dend)) {
                $ec = " class=\"error\"";
            }
            echo "<tr>\n";
            echo "<td><input type=\"text\" size=\"20\" id=\"title[]\" name=\"title[]\" value=\"" . $title[$k] . "\"></td>\n";
            echo "<td><select name=\"venue[]\" id=\"venue[]\" size=\"1\"><option value=\"1\">" . $lang["in_main_description"] . "</option>\n";
            select_place($venue[$k]);
            echo "</select></td>\n";
            echo "<td><select name=\"contact[]\" id=\"contact[]\" size=\"1\"><option value=\"1\">" . $lang["none"] . "</option>\n";
            select_place($contact[$k]);
            echo "</select></td>\n";
            echo "<td><select name=\"category[]\" id=\"category[]\" size=\"1\">\n";
            $scategory = $category[$k];
            category_tree(0);
            echo "</select></td>\n";
            echo "<td><select name=\"category[]\" id=\"category[]\" size=\"1\">\n";
            $sgroup = $group[$k];
            group_tree(0);
            echo "</select></td>\n";
            echo "<td><input type=\"text\"" . $dc . " id=\"date[]\" size=\"10\" name=\"date[]\" value=\"" . $date[$k] . "\"></td>\n";
            echo "<td><input type=\"text\"" . $sc . " id=\"start[]\" size=\"8\" name=\"start[]\" value=\"" . $dstart . "\"></td>\n";
            echo "<td><input type=\"text\"" . $ec . " id=\"end[]\" size=\"8\" name=\"end[]\" value=\"" . $dend . "\"></td>\n";
            echo "<td><textarea cols=\"30\" rows=\"1\" name=\"description[]\">" . $description[$k] . "</textarea></td>\n";
            echo "</tr>\n";
        }
        echo "</table>\n";
        echo "<INPUT TYPE=\"submit\" NAME=\"mode\" VALUE=\"" . $lang["add_events"] . "\"></form>";
    } else {
        while (list($k, $v) = each($start)) {
            $dstart = eregi_replace("([0-9]{1,2}:[0-9]{2}):[0-9]{2}([ ]?[a|p]m)", "\\1\\2", $v);
            $dend = eregi_replace("([0-9]{1,2}:[0-9]{2}):[0-9]{2}([ ]?[a|p]m)", "\\1\\2", $end[$k]);
            $title[$k] = addslashes(strip_tags($title[$k]));
            $descriptioni[$k] = addslashes($description[$k]);
            $q = "INSERT into " . $table_prefix . "events (title, venue_id, contact_id, description, category_id, user_id, group_id) values ('" . $title[$k] . "', " . $venue[$k] . ", " . $contact[$k] . ", '" . $description[$k] . "', " . $category[$k] . ", " . $_SESSION["user_id"] . ", " . $group[$k] . ")";
            $query = mysql_query($q);
            $event_id = mysql_insert_id();
            if (!$query) {
                $msg .= "Database Error : " . $q;
            } else {
                if (!ereg("([0-9]{1,2})[\\/-]+([0-9]{1,2})[\\/-]+([0-9]{4})", $date[$k], $d_date)) {
                    $msg .= "Bad Date:" . $date[$k];
                } else {
                    if (!eregi("([0-9]{1,2}):([0-9]{2})[ ]?([a|p]m)", $dstart, $start_time)) {
                        $msg .= "Bad Start Time:" . $dstart;
                    } else {
                        if ($dend && !eregi("([0-9]{1,2}):([0-9]{2})[ ]?([a|p]m)", $dend, $end_time)) {
                            $msg .= "Bad End Time:" . $dend;
                        } else {
                            if (strlen($d_date[1]) == 1) {
                                $d_date[1] = "0" . $d_date[1];
                            }
                            if (strlen($d_date[2]) == 1) {
                                $d_date[2] = "0" . $d_date[2];
                            }
                            if (eregi("pm", $start_time[3]) && $start_time[1] < 12) {
                                $start_time[1] = $start_time[1] + 12;
                            }
                            if (eregi("pm", $end_time[3]) && $end_time[1] < 12) {
                                $end_time[1] = $end_time[1] + 12;
                            }
                            if (strlen($start_time[1]) == 1) {
                                $start_time[1] = "0" . $start_time[1];
                            }
                            if (strlen($end_time[1]) == 1) {
                                $end_time[1] = "0" . $end_time[1];
                            }
                            $start_date = $d_date[3] . "-" . $d_date[1] . "-" . $d_date[2] . " " . $start_time[1] . ":" . $start_time[2];
                            if ($dend) {
                                $end_date = $d_date[3] . "-" . $d_date[1] . "-" . $d_date[2] . " " . $end_time[1] . ":" . $end_time[2];
                                if ($end_time[1] . $end_time[2] > $start_time[1] . $start_time[2]) {
                                    $q = "INSERT into " . $table_prefix . "dates (event_id, date, end_date) values (" . $event_id . ", '" . $start_date . "', '" . $end_date . "')";
                                } else {
                                    $q = "INSERT into " . $table_prefix . "dates (event_id, date) values (" . $event_id . ", '" . $start_date . "')";
                                }
                            } else {
                                $q = "INSERT into " . $table_prefix . "dates (event_id, date) values (" . $event_id . ", '" . $start_date . "')";
                            }
                            $query = mysql_query($q);
                            if (!$query) {
                                $msg .= "Database Error : " . $q;
                            }
                        }
                    }
                }
            }
        }
        if (!$msg) {
            $msg = $lang["events_added"];
        }
        header("Location: upload_events.php?msg=" . $msg . "&" . $common_get);
    }
}
			</select>
		</td>
	</tr>
	<tr>
		<td><?php 
    echo $lang["contact_sponsor"];
    ?>
:</td>
		<td>
			<select name="contact" id="contact" size="1">
				<option value="1"><?php 
    echo $lang["none"];
    ?>
</option>
				<?php 
    select_place($_POST["contact"]);
    ?>
			</select>
		</td>
	</tr>
</table>
<?php 
    echo $lang["dates"];
    ?>
:
<table>
	<tr>
		<th><?php 
    echo $lang["delete?"];
    ?>
</th>
select_place();
?>
</select>
			<span> 時刻:</span>
			<select name="shur"><?php 
select_hour();
?>
</select> 
			<select name="smin"><?php 
select_min();
?>
</select><br>
			 ~ <br>
			<span>到着  地点:</span>
			<select name="fi_loc"><?php 
select_place();
?>
</select>
			<span> 時刻:</span>
			<select name="fhur"><?php 
select_hour();
?>
</select>
			<select name="fmin"><?php 
select_min();
?>
</select>
		</label>
		<label><p>メモ:</p><textarea type="text" name="r_memo" id="form_ta" cols="60" rows="5" /></textarea></label>

	
    $person = $_GET['person'];
    $name = get_name($person);
    $title = "{$_Edit_event} #{$event} ({$_person} #{$person} {$name})";
    require "./form_header.php";
    echo "<h2>{$title}</h2>\n";
    $rec = fetch_row_assoc("SELECT tag_fk, place_fk, event_date, date2text(sort_date) AS sd, event_note\n                            FROM events WHERE event_id = {$event}");
    $note = note_from_db($rec['event_note']);
    $notelen = strlen($note);
    $notelen < 1000 ? $note_height = 5 : ($note_height = 20);
    $note_width = 100;
    form_begin('edit_event', $_SERVER['PHP_SELF']);
    hidden_input('person', $person);
    hidden_input('event', $event);
    hidden_input('posted', 1);
    select_tag($rec['tag_fk'], $person, $event);
    select_place($rec['place_fk']);
    date_input($rec['event_date'], $rec['sd']);
    textarea_input("{$_Text}:<br />{$notelen}", $note_height, $note_width, 'event_note', $note);
    source_input();
    text_input("{$_Age}:", 10, 'age', '', "({$_Adds_birth_event})");
    form_submit();
    form_end();
    echo "<h3>{$_Citations}</h3>\n";
    $handle = pg_query("SELECT source_fk FROM event_citations WHERE event_fk = {$event}");
    while ($row = pg_fetch_row($handle)) {
        echo '<p>' . $row[0] . ' ';
        echo fetch_val("SELECT get_source_text({$row['0']})");
        echo "</p>\n";
    }
    echo "</body>\n</html>\n";
} else {
require "./forms.php";
if (!isset($_POST['posted'])) {
    // display form
    $note_height = 5;
    $note_width = 100;
    $person = $_GET['person'];
    $name = get_name($person);
    $title = "{$_Add_event_for} ({$person}) {$name}";
    require "./form_header.php";
    echo "<h2>{$title}</h2>\n";
    form_begin('insert_event', $_SERVER['PHP_SELF']);
    hidden_input('posted', 1);
    hidden_input('person', $person);
    select_tag(0, 0, 0);
    participant_input(0);
    select_place(0);
    date_input();
    textarea_input("{$_Text}:", $note_height, $note_width, 'event_note', '', 4);
    source_input();
    text_input("{$_Age}:", 10, 'age', '', "({$_Adds_birth_event})", 7);
    form_submit();
    form_end();
    echo "</body>\n</html>\n";
} else {
    $src = $_POST['source_id'];
    $txt = $_POST['source_text'];
    if ($txt && fetch_val("SELECT is_leaf({$src})") == 't') {
        echo "Cannot create subsource under source #{$src}. ";
        echo "Please go back and check your source reference.";
        die;
    }