my $svctn = $qual->phonenum;
+ my $zip = $location_hash{zip};
+ $zip =~ s/(\d{5})-\d{4}/$1/;
+
my $result = $self->ikano_command('PREQUAL',
{ AddressLine1 => $location_hash{address1},
AddressUnitType => $location_hash{location_type},
AddressUnitValue => $location_hash{location_number},
AddressCity => $location_hash{city},
AddressState => $location_hash{state},
- ZipCode => $location_hash{zip},
+ ZipCode => $zip,
Country => $location_hash{country},
LocationType => $location_hash{location_kind},
PhoneNumber => length($svctn) > 1 ? $svctn : "STANDALONE",
@filtered_quals;
}
-sub notes_html {
- my($self,$svc_dsl) = (shift,shift);
- my $conf = new FS::Conf;
- my $date_format = $conf->config('date_format') || '%m/%d/%Y';
- my @notes = $svc_dsl->notes;
- my $html = '<TABLE border="1" cellspacing="2" cellpadding="2" id="dsl_notes">
- <TR><TH>Date</TH><TH>By</TH><TH>Priority</TH><TH>Note</TH></TR>';
- foreach my $note ( @notes ) {
- $html .= "<TR>
- <TD>".time2str("$date_format %H:%M",$note->date)."</TD>
- <TD>".$note->by."</TD>
- <TD>". ($note->priority eq 'N' ? 'Normal' : 'High') ."</TD>
- <TD>".$note->note."</TD></TR>";
- }
- $html .= '</TABLE>';
- $html;
-}
-
sub loop_type_long { # sub, not a method
my($svc_dsl) = (shift);
return $loopType{$svc_dsl->loop_type};