httemplate/search/report_477.html

   1 % if ( $conf->exists('old_fcc_report') ) {
   2 %   $m->clear_buffer;
   3 %   $m->print($cgi->redirect($fsurl . 'search/old477/report_477.html'));
   4 %   $m->abort;
   5 % }
   6 <& /elements/header.html, 'FCC Form 477 Report' &>
   7 % if ( $curuser->access_right('Edit FCC report configuration') ) {
   8 <FONT SIZE="+1"><STRONG>Preparation</STRONG></FONT>
   9 <UL>
  10   <LI> <A HREF="<% $p %>browse/part_pkg-fcc.html">Configure packages</A> for FCC reporting categories.</LI>
  11   <LI> <A HREF="<% $p %>browse/deploy_zone.html">Enter deployment zones</A> for broadband Internet or mobile phone.</LI>
  12 </UL>
  13 % }
  14
  15 <FORM ACTION="477.html" METHOD="GET">
  16
  17   <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
  18
  19     <TR>
  20       <TH CLASS="background" COLSPAN=2 ALIGN="left">
  21         <FONT SIZE="+1">Report options</FONT>
  22       </TH>
  23     </TR>
  24
  25     <& /elements/tr-select-agent.html,
  26       'curr_value'    => scalar( $cgi->param('agentnum') ),
  27       'disable_empty' => 0,
  28     &>
  29
  30     <& /elements/tr-input-date-field.html, {
  31         'label'         => 'As of date',
  32         'name'          => 'date',
  33         'value'         => '',
  34         'format'        => '%m/%d/%Y'
  35     } &>
  36
  37     <& /elements/tr-checkbox-multiple.html,
  38       'label'   => 'Enable parts',
  39       'field'   => 'parts',
  40       'labels'  => $part_titles,
  41       'options' => [ keys %$part_titles ]
  42     &>
  43
  44     <& /elements/tr-checkbox.html,
  45       'label'   => 'Ignore package quantities',
  46       'field'   => 'ignore_quantity',
  47       'value'   => 1,
  48     &>
  49   </TABLE>
  50
  51   <BR>
  52   <INPUT TYPE="submit" VALUE="Get Report">
  53
  54 </FORM>
  55
  56 <& /elements/footer.html &>
  57 <%init>
  58
  59 my $curuser = $FS::CurrentUser::CurrentUser;
  60 die "access denied"
  61   unless $curuser->access_right('List packages');
  62
  63 my $conf = FS::Conf->new;
  64
  65 my $part_titles = FS::Report::FCC_477->parts;
  66
  67 </%init>