X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fsqlradius_withdomain.pm;fp=FS%2FFS%2Fpart_export%2Fsqlradius_withdomain.pm;h=1c8f38c9ddbfb3ba07ee2f6c33a7465bfd73e79d;hb=70997699eb64ce36ca408214cfe4dbc502d7ca58;hp=0000000000000000000000000000000000000000;hpb=44c2f829e36a7751e0c97a4dd33dff8e3f192a30;p=freeside.git

diff --git a/FS/FS/part_export/sqlradius_withdomain.pm b/FS/FS/part_export/sqlradius_withdomain.pm
new file mode 100644
index 000000000..1c8f38c9d
--- /dev/null
+++ b/FS/FS/part_export/sqlradius_withdomain.pm
@@ -0,0 +1,12 @@
+package FS::part_export::sqlradius_withdomain;
+
+use vars qw(@ISA);
+use FS::part_export::sqlradius;
+
+@ISA = qw(FS::part_export::sqlradius);
+
+sub export_username {
+  my($self, $svc_acct) = (shift, shift);
+  $svc_acct->email;
+}
+