diff options
| author | Mark Wells <mark@freeside.biz> | 2013-05-31 17:40:32 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-05-31 17:40:32 -0700 |
| commit | 13a5508296bd6760314bdccdb52926d67e955d9e (patch) | |
| tree | eea20d4cb0187e499f6684b36cc9e1943df5fa84 /FS/FS/svc_broadband.pm | |
| parent | 055ca451ae55f5deec95ce113d3dd648c9cc9b49 (diff) | |
convert mac addresses to uppercase on upgrade
Diffstat (limited to 'FS/FS/svc_broadband.pm')
| -rwxr-xr-x | FS/FS/svc_broadband.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/svc_broadband.pm b/FS/FS/svc_broadband.pm index 002aa55..b5012ca 100755 --- a/FS/FS/svc_broadband.pm +++ b/FS/FS/svc_broadband.pm @@ -440,6 +440,11 @@ sub _upgrade_data { local($FS::svc_Common::noexport_hack) = 1; + # fix wrong-case MAC addresses + my $dbh = dbh; + $dbh->do('UPDATE svc_broadband SET mac_addr = UPPER(mac_addr);') + or die $dbh->errstr; + # set routernum to addr_block.routernum foreach my $self (qsearch('svc_broadband', { blocknum => {op => '!=', value => ''}, |