Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv20270/UI
Modified Files:
HTML.pm
Log Message:
URL encode lookup and bucket URLs to handle characters like #
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.163
retrieving revision 1.164
diff -C2 -d -r1.163 -r1.164
*** HTML.pm 30 May 2003 19:39:18 -0000 1.163
--- HTML.pm 30 May 2003 20:57:40 -0000 1.164
***************
*** 1550,1554 ****
for my $word (sort { $temp{$b} <=> $temp{$a} } keys %temp) {
$body .= "</tr><tr valign=\"top\">" if ( ( $count % 6 ) == 0 );
! $body .= "<td><a class=\"wordListLink\" href=\"\/buckets\?session=$self->{session_key__}\&lookup=Lookup\&word=$word#Lookup\"><b>$word</b><\/a></td><td>$temp{$word}</td><td> </td>";
$count += 1;
}
--- 1550,1554 ----
for my $word (sort { $temp{$b} <=> $temp{$a} } keys %temp) {
$body .= "</tr><tr valign=\"top\">" if ( ( $count % 6 ) == 0 );
! $body .= "<td><a class=\"wordListLink\" href=\"\/buckets\?session=$self->{session_key__}\&lookup=Lookup\&word=". $self->url_encode_( $word ) . "#Lookup\"><b>$word</b><\/a></td><td>$temp{$word}</td><td> </td>";
$count += 1;
}
***************
*** 1559,1563 ****
$j = '';
! $body .= "<a href=/buckets?session=$self->{session_key__}\&showbucket=$self->{form_}{showbucket}\&showletter=$first><b>$first</b></a>\n";
}
}
--- 1559,1563 ----
$j = '';
! $body .= "<a href=/buckets?session=$self->{session_key__}\&showbucket=$self->{form_}{showbucket}\&showletter=" . $self->url_encode_($first) . "><b>$first</b></a>\n";
}
}
|
