FCC form 477 report improvements, RT12089

[freeside.git] / FS / FS / Report / FCC_477.pm

diff --git a/FS/FS/Report/FCC_477.pm b/FS/FS/Report/FCC_477.pm
index 518b9f0..453cf8d 100644 (file)
--- a/FS/FS/Report/FCC_477.pm
+++ b/FS/FS/Report/FCC_477.pm
@@ -3,6 +3,7 @@ package FS::Report::FCC_477;
 use strict;
 use vars qw( @ISA @upload @download @technology @part2aoption @part2boption );
 use FS::Report;
+use FS::Record qw( dbh );
 
 @ISA = qw( FS::Report );
 
@@ -76,12 +77,37 @@ Documentation.
  'other broadband',
 );
 
+sub restore_fcc477map {
+    my $key = shift;
+    FS::Record::scalar_sql('',"select formvalue from fcc477map where formkey = ?",$key);
+}
+
+sub save_fcc477map {
+    my $key = shift;
+    my $value = shift;
+
+    # lame, particularly lack of transactions
+
+    my $sql = "delete from fcc477map where formkey = ?";
+    my $sth = dbh->prepare($sql) or die dbh->errstr;
+    $sth->execute($key) or die "Error removing FCC 477 form defaults: " . $sth->errstr;
+
+    $sql = "insert into fcc477map (formkey,formvalue) values (?,?)";
+    $sth = dbh->prepare($sql) or die dbh->errstr;
+    $sth->execute($key,$value) or die "Error setting FCC 477 form defaults: " . $sth->errstr;
+
+    '';
+}
+
 sub parse_technology_option {
   my $cgi = shift;
+  my $save = shift;
   my @result = ();
   my $i = 0;
   for (my $i = 0; $i < scalar(@technology); $i++) {
     my $value = $cgi->param("part1_technology_option_$i"); #lame
+    save_fcc477map("part1_technology_option_$i",$value) 
+        if $save && $value =~ /^\d+$/;
     push @result, $value =~ /^\d+$/ ? $value : 0;
   }
   return (@result);