postgresql/edit_view.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for creating or editing a view
   3
   4 require './postgresql-lib.pl';
   5 &ReadParse();
   6 &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
   7 $access{'edonly'} && &error($text{'dbase_ecannot'});
   8 $access{'views'} || &error($text{'view_ecannot'});
   9
  10 if ($in{'view'}) {
  11         # Editing an index
  12         $str = &view_structure($in{'db'}, $in{'view'});
  13         }
  14 $desc = "<tt>$in{'db'}</tt>";
  15 &ui_print_header($desc, $in{'view'} ? $text{'view_title2'}
  16                                      : $text{'view_title1'}, "");
  17
  18 print &ui_form_start("save_view.cgi", "post");
  19 print &ui_hidden("db", $in{'db'}),"\n";
  20 print &ui_hidden("old", $in{'view'}),"\n";
  21 print &ui_table_start($text{'view_header1'}, undef, 2, [ "width=30%" ]);
  22
  23 # View name
  24 print &ui_table_row($text{'view_name'},
  25                     &ui_textbox("name", $str->{'name'}, 20));
  26
  27 # Column names
  28 if (!$in{'view'}) {
  29         print &ui_table_row($text{'view_cols'},
  30                     &ui_radio("cols_set", 0, [ [ 0, $text{'view_auto'} ],
  31                                                [ 1, $text{'view_below'} ] ]).
  32                     "<br>\n".
  33                     &ui_textarea("cols", undef, 3, 20));
  34         }
  35
  36 # Selection query
  37 print &ui_table_row($text{'view_query'},
  38                     &ui_textarea("query", $str->{'query'}, 5, 60, "on"));
  39
  40 print &ui_table_end();
  41 if ($in{'view'}) {
  42         print &ui_form_end([ [ "save", $text{'save'} ],
  43                              [ "delete", $text{'delete'} ] ]);
  44         }
  45 else {
  46         print &ui_form_end([ [ "create", $text{'create'} ] ]);
  47         }
  48
  49 &ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
  50         "", $text{'index_return'});