Dropping last 'CGI' references.

diff --git a/project/List.pm b/project/List.pm
index 6bd3c0e..e8e913d 100755 (executable)
--- a/project/List.pm
+++ b/project/List.pm
@@ -24,7 +24,6 @@ use strict;
 use warnings;
 
 use My::Web;
-require CGI;
 Wrequire 'project::Lib';
 
 
@@ -42,8 +41,6 @@ My::Web->init(
 My::Web->heading();
 
 
-my $CGI=CGI->new();
-
 print(project::Lib->views(($W->{"args"}{"platform"} ? "BriefPlatform" : "BriefUnified")));
 print(project::Lib->platforms(undef(),"novskip"=>1)) if $W->{"args"}{"platform"};
 
@@ -133,7 +130,7 @@ my($platform)=@_;
                                print '</td>';
                                }
                        print '</tr>'."\n";
-                       if ($CGI->param("description_opt")) {
+                       if ($W->{"args"}{"description_opt"}) {
                                print '<tr><td style="border: none;"></td>';
                                print '<td colspan="'.(scalar(@col_order)-1).'"><blockquote>'.$item{$row}{"description"}.'</blockquote></td>';
                                print '</tr>'."\n";