diff options
| author | Mark Wells <mark@freeside.biz> | 2013-05-31 17:40:44 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-05-31 17:40:44 -0700 |
| commit | 283452572ef5c0ae62f6753c8e144cd5863d581e (patch) | |
| tree | 33cd38c70fc03e4d2a4e2239baf7823a5c1036f7 | |
| parent | 52e1a09b0f426bf572e0af9d97bc1c00dd22f427 (diff) | |
convert mac addresses to uppercase on upgrade
| -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 002aa55ce..b5012caa3 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 => ''}, |