smf/smfwizard_property_group.cgi

   1 #!/usr/local/bin/perl
   2
   3 require './smf-lib.pl';
   4 &ReadParse();
   5 &ui_print_header(undef, $text{'smfwizard_title'}, "");
   6
   7 # wizard-specific info here
   8 &wizard_header($wizard, "smfwizard_property_group.cgi",
   9         "$text{'smfwizard_property_group_heading'}",
  10         &convert_links_in_text("$text{'smfwizard_property_group_description'}"),
  11         "images/smf.gif");
  12
  13 &wizard_input("smfwizard_property_group.cgi",
  14         "$text{'smfwizard_property_group_name'}",
  15         "property_group_name", 60, ".+",
  16         "$text{'smfwizard_property_group_name_error'}");
  17 &wizard_input("smfwizard_property_group.cgi",
  18         "$text{'smfwizard_property_group_type'}", "property_group_type",
  19         60, ".+", "$text{'smfwizard_property_group_type_error'}");
  20 &wizard_select("smfwizard_property_group.cgi",
  21         "$text{'smfwizard_property_group_stability'}",
  22         "property_group_stability",
  23         \@stability_values, ".+",
  24         "$text{'smfwizard_property_group_stability_error'}");
  25
  26 &wizard_footer($wizard, "smfwizard_property_group.cgi");
  27 # end wizard-specific info
  28
  29 &ui_print_footer("index.cgi", $text{'index'});