X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fsearch%2F477partIA_detail.html;h=d5184e3f39e1320a75723cd5ccb89a3c78177cbf;hb=c2a0fd8311842fd4bd27a5bdc93081c9300c7131;hp=546d56c7f02760308eaaae746334dc3608ded8ef;hpb=0d9db42dfe5e86f2f7c5eaf2f5fd16b52385083d;p=freeside.git

diff --git a/httemplate/search/477partIA_detail.html b/httemplate/search/477partIA_detail.html
index 546d56c7f..d5184e3f3 100755
--- a/httemplate/search/477partIA_detail.html
+++ b/httemplate/search/477partIA_detail.html
@@ -60,6 +60,13 @@ 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);
 
@@ -102,24 +109,33 @@ my @fields = (
  );
 shift @fields if $cgi->param('_type') eq 'xml';
 
+my $rowchar = 102; # 'f' -- rows are columns! (pi/2)
+my $opentag = 0;
 my $xml_element = sub {
   my ($rowref, $column) = (shift, shift);
-  my $row = $rowref->[0];
+  my $row = chr($rowchar);
+
+  if ($column == 8) {
+    $opentag++;
+    if ($opentag > 1) { # a new row
+      $rowchar++;
+      $opentag = 0;
+    }
+  }
 
-  $row++;
-  $xml_prefix. $column. $row;
+  $xml_prefix. $row. $column;
 
 };
 
 my @xml_elements = (
-  sub { &{$xml_element}(shift, 'f') },
-  sub { &{$xml_element}(shift, 'g') },
-  sub { &{$xml_element}(shift, 'h') },
-  sub { &{$xml_element}(shift, 'i') },
-  sub { &{$xml_element}(shift, 'j') },
-  sub { &{$xml_element}(shift, 'k') },
-  sub { &{$xml_element}(shift, 'l') },
-  sub { &{$xml_element}(shift, 'm') },
+  sub { &{$xml_element}(shift, '1') },
+  sub { &{$xml_element}(shift, '2') },
+  sub { &{$xml_element}(shift, '3') },
+  sub { &{$xml_element}(shift, '4') },
+  sub { &{$xml_element}(shift, '5') },
+  sub { &{$xml_element}(shift, '6') },
+  sub { &{$xml_element}(shift, '7') },
+  sub { &{$xml_element}(shift, '8') },
 );
 
 </%init>