Here is I modified section. Please check any error;
Code:
%db_def = (
ID => [1, 'numer', 5, 8, 1, '', ''],
Date => [2, 'date', 12, 15, 1, &get_date, ''],
Company-name => [3, 'alpha', 40, 255, 1, '', ''],
Address => [4, 'alpha', 40, 255, 1, '', ''],
Factory-address => [5, 'alpha', 40, 255, 0, '', ''],
Company-number => [6, 'alpha', 40, 255, 0, '', ''],
President-name => [7, 'alpha', 40, 255, 1, '', ''],
Products => [8, 'alpha', 40, 255, 0, '', ''],
Company-tel => [9, 'alpha', 40, 255, 0, '', ''],
Company-fax => [10, 'alpha', 40, 255, 0, '', ''],
Name => [11, 'alpha', 40, 255, 1, '', ''],
ID-number => [12, 'alpha', 40, 255, 1, '', ''],
Tel => [13, 'alpha', 40, 255, 1, '', ''],
Homepage1 => [14, 'alpha', 40, 255, 1, 'http://', '^http://'],
Homepage2 => [15, 'alpha', 40, 255, 0, 'http://', '^http://'],
E-mail1 => [16, 'alpha', 40, 255, 1, '', ''],
E-mail2 => [17, 'alpha', 40, 255, 0, '', ''],
Bank-name => [18, 'alpha', 40, 255, 1, '', ''],
Bene-name => [19, 'alpha', 40, 255, 1, '', ''],
Account => [20, 'alpha', 40, 255, 1, '', ''],
Card => [21, 'alpha', 0, 3, 1, 'Yes', 'Yes|No'],
Rentversion => [22, 'alpha', 0, 255, 1, '', ''],
Directory-name => [23, 'alpha', 40, 255, 0, '', ''],
Admin-id => [24, 'alpha', 40, 255, 1, '', ''],
Admin-password => [25, 'alpha', 40, 255, 1, '', ''],
Image => [26, 'alpha', 0, 3, 1, 'Yes', 'Yes|No'],
Others => [27, 'alpha', '60x4', 500, 0, '', ''],
Userid => [28, 'alpha', -2, 15, 0, '', ''],
);
# The column name for the database key. Can be any column, but it must be unique!
# You can't have two records with the same key value!
$db_key = 'ID';
# Track the key? Should DBMan keep a counter of the next key to use? This isn't
# neccessary if you can guarantee that your entry in the key field will be unique
# (i.e. a userid).
$db_key_track = 1;
# Database delimeter.
$db_delim = '|';
# Use file locking (1 = Yes, 0 = No). Should be used, but won't work on Win95.
$db_use_flock = 1;
# Auto generate the html forms (1 = Yes, 0 = No).
$db_auto_generate = 0;
# Display Benchmarking Information (1 = Yes, 0 = No).
# use Benchmark; # Uncomment this line if benchmarking is used.
$db_benchmark = 0;
# Display Debugging Information (1 = Yes, 0 = No).
$db_debug = 1;
# Select fields. Field name => 'comma seperated list of drop down options'.
%db_select_fields = (
Rentversion => 'Factory Cart Lite,Factory Cart,Factory Cart Gold'
);
# Radio fields. Field name => comma seperated list of radio buttons.
%db_radio_fields = (
Card => 'Yes,No',
Image => 'Yes,No'
);
# Checkbox fields. Field name => Checkbox value.
# %db_checkbox_fields = ( Popular => 'Yes' );
# Default maximum number of hits returned in a search.
$db_max_hits = 10;
# Bold search results (1 = Yes, 0 = No).
$db_bold = 1;
# Regular and title fonts used in auto_generatrion and html.pl.
$font = 'font face="verdana,arial,helvetica" size="2"';
$font_title = 'font face="verdana,arial,helvetica" size="4"';
# Authorization Options
# --------------------------------------------------------
# No Authentication? (1 = "there is no authentication", 0 = "there is authentication")
# If you choose no authentication, then set the permissions of what
# people can do with: @auth_default_permissions below.
$auth_no_authentication = 0;
# The amount of time in seconds that user files are kept in the
# auth directory before the program removes them. 2-6 hours is
# probably a good value.
$auth_time = 22600; # 6 hours (in seconds)
# Enable (1) or disable (0) logging.
$auth_logging = 1;
# Allow a default user? This means you can specify a user via the URL
# and skip the logon process. Use this to allow people to search without
# logging on, but require log in if they want to add/modify/remove etc.
# (1 = "yes", 0 = "no")
$auth_allow_default = 1;
# Default permissions used if there is no authentication, or for a default
# user. (View, Add, Delete, Modify, Admin), 1 = enable, 0 = disable.
@auth_default_permissions = (0,1,0,1,0);
# Allow people to sign up for their own userid/passwords? They will
# recieve default permissions.
$auth_signup = 1;
# Permissions a new signup should get.
@auth_signup_permissions = (1,1,1,1,0);
# Registered users: can modify/delete _only_ own records. For this to make
# sense you should set default off or to 1,0,0,0.
$auth_modify_own = 1;
# Registered users: can view _only_ own records. For this to make sense
# you should turn off default permissions.
$auth_view_own = 1;
# Auth user field. This is the field position in the database used for storing
# the userid who owns the record. Set to -1 if not used.
$auth_user_field = 9;
# URL to send user if they chose log off. Leave blank and the script will return to
# the logon prompt (although this only makes sense if you are using authentication).
$auth_logoff = "http://www.gossamer-threads.com/scripts/dbman/";
[This message has been edited by koreags (edited June 29, 1999).]