& /designobservercomp/header.comp, site=>1, adcols=>2 &>
<& /designobservercomp/nav_designobserver.comp &>
Nominate a Book
<& /designobserver/5050-2012-nominate.comp &>
% if (!$sessid){
In order to nominate a book you need to have an account with Design Observer. If you have an account, please log in below. If not, registration is simple and free.
Register now >>
% } else {
% }
<& /designobservercomp/adDOG_2col.comp &>
<& /designobservercomp/footer.comp &>
<%init>
my $cookie_header = $r->headers_in->get('Cookie');
my @cookies = split (";",$cookie_header);
my ($key,$value,$sessid);
foreach my $cookie (@cookies){
($key,$value) = split("=",$cookie);
if ($key eq "DO" || $key eq " DO"){
$sessid = $value;
}
}
%init>