projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
regenerate raddb.pm from freeradius-0.4 dicts
[freeside.git]
/
htetc
/
handler.pl
diff --git
a/htetc/handler.pl
b/htetc/handler.pl
index
5f24492
..
d55ba33
100644
(file)
--- a/
htetc/handler.pl
+++ b/
htetc/handler.pl
@@
-61,17
+61,20
@@
sub handler
#use CGI::Carp qw(fatalsToBrowser);
use Date::Format;
use Date::Parse;
#use CGI::Carp qw(fatalsToBrowser);
use Date::Format;
use Date::Parse;
+ use Time::Local;
use Tie::IxHash;
use HTML::Entities;
use IO::Handle;
use IO::File;
use String::Approx qw(amatch);
use Tie::IxHash;
use HTML::Entities;
use IO::Handle;
use IO::File;
use String::Approx qw(amatch);
- use HTML::Widgets::SelectLayers;
- use FS::UID qw(cgisuidsetup dbh getotaker datasrc);
+ use Chart::LinesPoints;
+ use HTML::Widgets::SelectLayers 0.02;
+ use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name);
use FS::Record qw(qsearch qsearchs fields dbdef);
use FS::Conf;
use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot
use FS::Record qw(qsearch qsearchs fields dbdef);
use FS::Conf;
use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot
- small_custview myexit);
+ small_custview myexit http_header);
+ use FS::Msgcat qw(gettext geterror);
use FS::agent;
use FS::agent_type;
use FS::agent;
use FS::agent_type;
@@
-104,7
+107,9
@@
sub handler
use FS::svc_www;
use FS::type_pkgs;
use FS::part_export;
use FS::svc_www;
use FS::type_pkgs;
use FS::part_export;
- #use FS::part_export_option;
+ use FS::part_export_option;
+ use FS::export_svc;
+ use FS::msgcat;
*CGI::redirect = sub {
my( $self, $location ) = @_;
*CGI::redirect = sub {
my( $self, $location ) = @_;