From e84932dd7c5d1488c746407f8375aa7b3b4947ab Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 20 Nov 2005 05:58:47 +0000
Subject: [PATCH] Activate contractorship state.

---
 WebConfig.pm             | 14 +++++---------
 project/captive/Index.pm | 10 +---------
 2 files changed, 6 insertions(+), 18 deletions(-)

diff --git a/WebConfig.pm b/WebConfig.pm
index 5160bd2..4939e46 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -107,20 +107,16 @@ if ($r=~/resumejankratochvil.pm/) {
 		"footing_delimit_sub_push"=>sub () {
 			return if $My::Web::W->{"no_job"};
 			print <<"HERE";
-<table border="0" style="margin: 4ex; padding: 2ex; background: #552222;">
+<table border="0" style="margin: 4ex; padding: 2ex; background: #552222; color: white;">
 	<tr><td>
-		<b>A programmer for hire:</b>
-		<span style="color: #ffaaaa;">
-			I am looking for new challenges.
-			If you find the software here useful, please
-			@{[ My::Web::a_href($My::Web::W->{"resume_url"},'consider me') ]}
-			for your next software project.
-		</span>
+		<b>Contractor - Software Engineer:</b>
+		Please check if your planned project
+		@{[ My::Web::a_href($My::Web::W->{"resume_url"},'matches my experience',"attr"=>'style="color: inherit;"') ]},
 	</td></tr>
 </table>
 HERE
 			},
-		"no_job"=>1,
+		"no_job"=>0,
 		"css_inherit"=>1,
 		);
 
diff --git a/project/captive/Index.pm b/project/captive/Index.pm
index f28a8ca..bc2da31 100755
--- a/project/captive/Index.pm
+++ b/project/captive/Index.pm
@@ -79,15 +79,7 @@ my $W=project::Lib->init(
 		);
 
 
-print <<"HERE" if !$W->{"no_job"};
-@{[ vskip "3ex" ]}
-
-<table border="0" style="margin: 3ex; padding: 2ex; background: #bb8888;" class="margin-center">
-	<tr><td style="font-size: larger;">
-		Looking for a challenging job: @{[ a_href $W->{"resume_url"},"My resume" ]}
-	</td></tr>
-</table>
-HERE
+&{$_}() for reverse @{$W->{"footing_delimit_sub_push"}};
 
 my %version=(
 		map(($_=>["1.1.5","0"]),qw(captive captive-lufs captive-install)),
-- 
1.8.3.1