#!/usr/bin/perl -Tw
-# $Id: sets.cgi,v 1.6 1999-04-23 06:34:07 ivan Exp $
+# $Id: sets.cgi,v 1.7 1999-07-18 05:08:29 ivan Exp $
# Copyright (c) 1999 Ivan Kohler. All rights reserved.
# This program is free software; you can redistribute it and/or modify it under
# the same terms as perl itself
print $cgi->start_table,
$cgi->tr(
- ( map {
- $cgi->th($_)
- } @columns
- ), $cgi->th('People');
+ ( map { $cgi->th($_) } @columns ),
+ $cgi->th('People')
)
;
CREW VARCHAR(80) NOT NULL,
DESCRIPTION VARCHAR(160),
KEYWORDS VARCHAR(160),
- HOMEPAGE VARCHAR(80),
+ URL VARCHAR(80),
INDEX ( CREW_ID ),
INDEX ( NAME )
);
CREATE TABLE CREWS_PERSONS (
CREW_ID INT NOT NULL,
PERSON_ID INT NOT NULL,
+ TITLE VARCHAR(80),
INDEX ( CREW_ID ),
INDEX ( PERSON_ID )
);
NAME VARCHAR(80) NOT NULL,
DESCRIPTION VARCHAR(160),
EMAIL VARCHAR(80),
- HOMEPAGE VARCHAR(80),
+ URL VARCHAR(80),
KEYWORDS VARCHAR(160),
PICTURE LONGBLOB,
INDEX ( PERSON_ID ),
INDEX ( NAME )
);
+CREATE TABLE CONTACTS (
+ PERSON_ID INT PRIMARY KEY,
+ TITLE VARCHAR(80),
+ PHONE VARCHAR(80),
+ PAGER VARCHAR(20),
+ CELL VARCHAR(20),
+ FAX VARCHAR(10),
+ EMAIL VARCHAR(80),
+ ADDRESS1 VARCHAR(80),
+ ADDRESS2 VARCHAR(80),
+ CITY VARCHAR(80),
+ STATE VARCHAR(80),
+ ZIP VARCHAR(10),
+ COUNTRY CHAR(2),
+);
+
CREATE TABLE PERSONS_SETS (
PERSON_ID INT NOT NULL,
SET_ID INT NOT NULL,
CREATE TABLE GEARS (
GEAR_ID INT AUTO_INCREMENT PRIMARY KEY,
+ GEAR VARCHAR(80) NOT NULL,
+ DESCRIPTION VARCHAR(160),
+ PRICE FLOAT
+ URL VARCHAR(80),
);
CREATE TABLE PERSONS_GEARS (