import rt 2.0.14

[freeside.git] / httemplate / browse / nas.cgi

diff --git a/httemplate/browse/nas.cgi b/httemplate/browse/nas.cgi
index 5125bac..9ccbfe6 100755 (executable)
--- 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 = (