93 lines
2.4 KiB
Perl
Executable File
93 lines
2.4 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_field.cgi
|
|
# Display a form for editing an existing field or creating a new one
|
|
|
|
require './postgresql-lib.pl';
|
|
&ReadParse();
|
|
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
|
|
$desc = &text('field_in', "<tt>$in{'table'}</tt>", "<tt>$in{'db'}</tt>");
|
|
if ($in{'type'}) {
|
|
# Creating a new field
|
|
&ui_print_header($desc, $text{'field_title1'}, "", "create_field");
|
|
$type = $in{'type'};
|
|
}
|
|
else {
|
|
# Editing an existing field
|
|
&ui_print_header($desc, $text{'field_title2'}, "", "edit_field");
|
|
@desc = &table_structure($in{'db'}, $in{'table'});
|
|
$f = $desc[$in{'idx'}];
|
|
$type = $f->{'type'};
|
|
}
|
|
|
|
# Start of form block
|
|
print &ui_form_start("save_field.cgi", "post");
|
|
print &ui_hidden("db", $in{'db'});
|
|
print &ui_hidden("table", $in{'table'});
|
|
print &ui_hidden("new", $in{'type'});
|
|
print &ui_table_start($text{'field_header'}, undef, 2);
|
|
|
|
# Field name
|
|
print &ui_table_row($text{'field_name'},
|
|
&ui_textbox("field", $f->{'field'}, 40));
|
|
print &ui_hidden("old", $f->{'field'}) if (!$in{'type'});
|
|
|
|
# Field type
|
|
if ($type =~ /^(\S+)\((.*)\)/) {
|
|
$type = $1;
|
|
$size = $2;
|
|
}
|
|
print &ui_table_row($text{'field_type'}, $type);
|
|
print &ui_hidden("type", $type);
|
|
|
|
if ($type eq 'char' || $type eq 'varchar' || $type eq 'numeric' ||
|
|
$type eq 'bit') {
|
|
if ($in{'type'}) {
|
|
# Type has a size
|
|
print &ui_table_row($text{'field_size'},
|
|
&ui_textbox("size", $size, 15));
|
|
}
|
|
else {
|
|
# Type cannot be edited
|
|
print &ui_table_row($text{'field_size'}, $size);
|
|
}
|
|
}
|
|
|
|
if (!$in{'type'}) {
|
|
# Display if primary key
|
|
print &ui_table_row($text{'field_key'},
|
|
$f->{'key'} eq 'PRI' ? $text{'yes'} : $text{'no'});
|
|
}
|
|
|
|
if ($in{'type'}) {
|
|
# Ask if this is an array
|
|
print &ui_table_row($text{'field_arr'},
|
|
&ui_yesno_radio("arr", 0));
|
|
}
|
|
else {
|
|
# Display if array or not
|
|
print &ui_table_row($text{'field_arr'},
|
|
$f->{'arr'} eq 'YES' ? $text{'yes'} : $text{'no'});
|
|
}
|
|
|
|
if (!$in{'type'}) {
|
|
# Display nulls
|
|
print &ui_table_row($text{'field_null'},
|
|
$f->{'null'} eq 'YES' ? $text{'yes'} : $text{'no'});
|
|
}
|
|
|
|
print &ui_table_end();
|
|
if ($in{'type'}) {
|
|
print &ui_form_end([ [ undef, $text{'create'} ] ]);
|
|
}
|
|
else {
|
|
print &ui_form_end([ [ undef, $text{'save'} ],
|
|
&can_drop_fields() && @desc > 1 ?
|
|
( [ 'delete', $text{'delete'} ] ) : ( ) ]);
|
|
}
|
|
|
|
&ui_print_footer("edit_table.cgi?db=$in{'db'}&table=$in{'table'}",
|
|
$text{'table_return'},
|
|
"edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
|
|
&get_databases_return_link($in{'db'}), $text{'index_return'});
|
|
|