From 8fa30dad36a14b7dd673bc1bd3f069f0c19970dd Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 2 Oct 2005 06:31:21 +0000
Subject: [PATCH] Dropping last 'CGI' references.

---
 project/List.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/project/List.pm b/project/List.pm
index 6bd3c0e..e8e913d 100755
--- 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";
-- 
1.8.3.1