diff options
| author | ivan <ivan> | 2006-04-03 09:46:57 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-04-03 09:46:57 +0000 |
| commit | 929f432c766bbe3bdeed5b80818a12ddf6ec6339 (patch) | |
| tree | 8129b16aa927db1e4182fcaaeea0c5ee9f050fd4 /htetc | |
| parent | 36693c42cbaca86f6957d5ed6794624810018bb3 (diff) | |
have the UI use full country names, and state names outside the US...
Diffstat (limited to 'htetc')
| -rw-r--r-- | htetc/handler.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/htetc/handler.pl b/htetc/handler.pl index 9b808e68c..008b0b5f9 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -114,6 +114,7 @@ sub handler use String::Approx qw(amatch); use Chart::LinesPoints; use HTML::Widgets::SelectLayers 0.05; + use Locale::Country; use FS; use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name); use FS::Record qw(qsearch qsearchs fields dbdef); @@ -122,7 +123,7 @@ sub handler eidiot small_custview myexit http_header); use FS::UI::Web; use FS::Msgcat qw(gettext geterror); - use FS::Misc qw( send_email send_fax ); + use FS::Misc qw( send_email send_fax states_hash state_label ); use FS::Report::Table::Monthly; use FS::TicketSystem; @@ -208,6 +209,7 @@ sub handler my( $self, $location ) = @_; use vars qw($m); + # false laziness w/below if ( defined(@DBIx::Profile::ISA) ) { #profiling redirect my $page = |