+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;
+
+ '';
+}
+