From: short <>
Date: Sun, 2 Oct 2005 06:31:21 +0000 (+0000)
Subject: Dropping last 'CGI' references.
X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=8fa30dad36a14b7dd673bc1bd3f069f0c19970dd

Dropping last 'CGI' references.
---

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";