X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fnas.cgi;h=9ccbfe6325761cd75c0fff37e73c95d3d62d36a7;hp=5125bacb741f22166aefbcf6642ae945a1b9e387;hb=3ef62a0570055da710328937e7f65dbb2c027c62;hpb=91387f8f489e561deaf1de052d80ef800a4970a3

diff --git a/httemplate/browse/nas.cgi b/httemplate/browse/nas.cgi
index 5125bacb7..9ccbfe632 100755
--- a/httemplate/browse/nas.cgi
+++ b/httemplate/browse/nas.cgi
@@ -1,23 +1,7 @@
+<!-- mason kludge -->
 <%
 
-use strict;
-use vars qw( $cgi $p );
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use Date::Format;
-use FS::UID qw(cgisuidsetup);
-use FS::Record qw(qsearch); # qsearchs);
-use FS::CGI qw(header menubar table popurl);
-use FS::nas;
-use FS::port;
-use FS::session;
-
-$cgi = new CGI;
-&cgisuidsetup($cgi);
-
-$p=popurl(2);
-
-print $cgi->header( @FS::CGI::header ), header('NAS ports', menubar(
+print header('NAS ports', menubar(
   'Main Menu' => $p,
 ));
 
@@ -61,6 +45,7 @@ foreach my $nas ( sort { $a->nasnum <=> $b->nasnum } qsearch( 'nas', {} ) ) {
   print "</TABLE><BR>";
 }
 
+#Time::Duration??
 sub pretty_interval {
   my $interval = shift;
   my %howlong = (