[popfile-commit] engine/UI HTML.pm,1.163,1.164

[<jgr...@us...>]

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__}\&amp;lookup=Lookup\&amp;word=$word#Lookup\"><b>$word</b><\/a></td><td>$temp{$word}</td><td>&nbsp;</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__}\&amp;lookup=Lookup\&amp;word=". $self->url_encode_( $word ) . "#Lookup\"><b>$word</b><\/a></td><td>$temp{$word}</td><td>&nbsp;</td>";
  	      $count += 1;
  	    }
***************
*** 1559,1563 ****
  	    $j = '';
  
! 	    $body .= "<a href=/buckets?session=$self->{session_key__}\&amp;showbucket=$self->{form_}{showbucket}\&amp;showletter=$first><b>$first</b></a>\n";
  	  }
          }
--- 1559,1563 ----
  	    $j = '';
  
! 	    $body .= "<a href=/buckets?session=$self->{session_key__}\&amp;showbucket=$self->{form_}{showbucket}\&amp;showletter=" . $self->url_encode_($first) . "><b>$first</b></a>\n";
  	  }
          }