httemplate/view/svc_Common.html

   1 <%init>
   2
   3 # false laziness w/edit/svc_Common.html
   4
   5 $cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb";
   6 my $table = $1;
   7 require "FS/$table.pm";
   8
   9 my %opt;
  10 if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
  11   $opt{'name'}   = "FS::$table"->table_info->{'name'};
  12
  13   my $fields = "FS::$table"->table_info->{'fields'};
  14   my %labels = map { $_ =>  ( ref($fields->{$_})
  15                                ? $fields->{$_}{'label'}
  16                                : $fields->{$_}
  17                            );
  18                    }
  19                keys %$fields;
  20   $opt{'labels'} = \%labels;
  21 }
  22
  23 </%init>
  24 <% include('elements/svc_Common.html',
  25              'table'    => $table,
  26              'edit_url' => $p."edit/svc_Common.html?svcdb=$table;svcnum=",
  27              %opt,
  28           )
  29 %>