This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

1 files changed, 0 insertions, 126 deletions

diff --git a/httemplate/search/477partIA_detail.html b/httemplate/search/477partIA_detail.html
deleted file mode 100755
index 6fea39109..000000000
--- a/httemplate/search/477partIA_detail.html
+++ /dev/null
@@ -1,126 +0,0 @@
-<% include( 'elements/search.html',
-                  'html_init'        => $html_init,
-                  'name'             => 'lines',
-                  'query'            => $query,
-                  'count_query'      => $count_query,
-                  'really_disable_download' => 1,
-                  'disable_download' => 1,
-                  'nohtmlheader'     => 1,
-                  'disable_total'    => 1,
-                  'header'           => [ '', @column_option_name ],
-                  'xml_elements'     => [ @xml_elements ],
-                  'xml_omit_empty'   => 1,
-                  'fields'           => [  @fields ],
-              )
-%>
-<%init>
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-die "access denied"
-  unless $curuser->access_right('List packages');
-
-my %opt = @_;
-my %search_hash = ();
-  
-for ( qw(agentnum magic classnum) ) {
-  $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
-}
-
-my @column_option = grep { /^\d+/ } $cgi->param('part1_column_option')
-  if $cgi->param('part1_column_option');
-
-my @row_option = grep { /^\d+/ } $cgi->param('part1_row_option')
-  if $cgi->param('part1_row_option');
-
-my @technology_option = &FS::Report::FCC_477::parse_technology_option($cgi);
-
-my @column_option_name = scalar(@column_option)
-  ? ( map { my $part_pkg_report_option = 
-              qsearchs({ 'table' => 'part_pkg_report_option',
-                         'hashref' => { num => $_ },
-                      });
-            $part_pkg_report_option ? $part_pkg_report_option->name
-                                    : 'no such report option';
-          } @column_option
-    )
-  : ( 'all packages' );
-
-my $where = join(' OR ', map { "num = $_" } @row_option );
-my %row_option_name = $where ?
-                        ( map { $_->num => $_->name }
-                          qsearch({ 'table' => 'part_pkg_report_option',
-                                    'hashref' => {},
-                                    'extra_sql' => "WHERE $where",
-                                 })
-                        ) :
-                        ();
-
-my $tech_code = $opt{tech_code};
-my $technology = $FS::Report::FCC_477::technology[$tech_code] || 'unknown';
-my $html_init = "<H2>Part IA $technology breakdown by speeds</H2>";
-my $xml_prefix = 'PartIA_'. chr(65 + $tech_code);
-
-if ($cgi->param('_type') eq 'xml') {
-  #rotate data pi/2
-  my @temp = @column_option;
-  @column_option = @row_option;
-  @row_option = @temp;
-}
-
-my $query = 'SELECT '. join(' UNION ALL SELECT ',@row_option);
-my $count_query = 'SELECT '. scalar(@row_option);
-
-my $xml_element = 'OOPS, I was never set';
-my $rowchar = 101; # 'e' -- rows are columns! (pi/2)
-
-my $value = sub {
-  my ($rowref, $column) = (shift, shift);
-  my $row = $rowref->[0];
-
-  if ($column eq 'name') {
-    return $row_option_name{$row} || 'no such report option';
-  } elsif ( $column =~ /^(\d+)$/ ) {
-    my @report_option = ( $row || '',
-                          $column_option[$column] || '',
-                          $technology_option[$tech_code] || '',
-                        );
-
-    my ( $count, $residential ) = FS::cust_pkg->fcc_477_count(
-      { %search_hash, 'report_option' => join(',', @report_option) }
-    );
-
-    my $percentage = sprintf('%.2f', $count ? 100 * $residential / $count : 0);
-    my $return = $count;
-
-    if ($cgi->param('_type') eq 'xml') {
-      $rowchar++ if $column == 0;
-      $xml_element = $xml_prefix. chr($rowchar). ($column+1);
-      $return = '' if $count == 0 and $cgi->param('_type') eq 'xml';
-    } else {
-      $return .= "<BR>$percentage% residential";
-    }
-
-    return $return;
-  } else {
-    return '<FONT SIZE="+1" COLOR="#ff0000">Bad call to column_value</FONT>';
-  }
-};
-
-my @fields = map { my $ci = $_; sub { &{$value}(shift, $ci); } }
-            ( 'name', (0 .. $#column_option) );
-shift @fields if $cgi->param('_type') eq 'xml';
-
-my @xml_elements = (  # -- columns are rows! (pi/2)
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-  sub { return $xml_element; },
-);
-
-</%init>