diff options
| -rwxr-xr-x | cgi/sets.cgi | 8 | ||||
| -rw-r--r-- | schema.sql | 25 |
2 files changed, 26 insertions, 7 deletions
diff --git a/cgi/sets.cgi b/cgi/sets.cgi index 4cb21db..5dd8a8d 100755 --- a/cgi/sets.cgi +++ b/cgi/sets.cgi @@ -1,5 +1,5 @@ #!/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 @@ -43,10 +43,8 @@ unless ( $cgi->param('magic') ) { #first time through print $cgi->start_table, $cgi->tr( - ( map { - $cgi->th($_) - } @columns - ), $cgi->th('People'); + ( map { $cgi->th($_) } @columns ), + $cgi->th('People') ) ; @@ -3,7 +3,7 @@ CREATE TABLE CREWS ( CREW VARCHAR(80) NOT NULL, DESCRIPTION VARCHAR(160), KEYWORDS VARCHAR(160), - HOMEPAGE VARCHAR(80), + URL VARCHAR(80), INDEX ( CREW_ID ), INDEX ( NAME ) ); @@ -11,6 +11,7 @@ CREATE TABLE CREWS ( CREATE TABLE CREWS_PERSONS ( CREW_ID INT NOT NULL, PERSON_ID INT NOT NULL, + TITLE VARCHAR(80), INDEX ( CREW_ID ), INDEX ( PERSON_ID ) ); @@ -20,13 +21,29 @@ CREATE TABLE PERSONS ( 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, @@ -88,6 +105,10 @@ CREATE TABLE STUDIOS ( 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 ( |