weave
07-17-2011, 08:06 PM
I am currently in the process of moving my forum from PHPBB to VB4.
I have a tag cloud I made based on the original WP cloud from Ray Tanck, which I can make work in VB4 with one issue. When I click on a word in the cloud, it is not searching on the word, rather just pulling open the search window.
In the version I am using, I control what words go into the cloud manually.
This is the basic structure for the PHPBB cloud (WORD is whatever you define).
<table class="tablebg" cellspacing="1" width="100%">
<tr class="row1">
<td style="text-align:center;">
<div class="cumulus" align="center">
<div id="cumuluscontent" class="cumulus">
<p>Please download <a href="http://www.adobe.com/go/getflashplayer" target="_blank" rel="nofollow">Flash Player 10</a> or higher to view this content.</p>
</div>
<script type="text/javascript" src="./cloud/swfobject.js"></script>
<script type="text/javascript">
var cumulus = new SWFObject("./cloud/tagcloud.swf", "tagcloud", "180", "180", "7", "#ffffff");
var cumulus_temp = encodeURIComponent("<tags>
<a href='search.php?i=search&mode=search&keywords=WOR D' style='8'>WORD</a>
</tags>");
cumulus.addParam("wmode", "transparent");
cumulus.addParam("allowScriptAccess", "always");
cumulus.addVariable("tcolor", "0x4b73d4");
cumulus.addVariable("hicolor", "ff0000");
cumulus.addVariable("tspeed", "100");
cumulus.addVariable("distr", "true");
cumulus.addVariable("mode", "tags");
cumulus.addVariable("tagcloud", cumulus_temp);
cumulus.write("cumuluscontent");
</script>
</div>
</td>
</tr>
</table>
Any idea how I can make the calls to "search" in VB4 so this will work?
I have a tag cloud I made based on the original WP cloud from Ray Tanck, which I can make work in VB4 with one issue. When I click on a word in the cloud, it is not searching on the word, rather just pulling open the search window.
In the version I am using, I control what words go into the cloud manually.
This is the basic structure for the PHPBB cloud (WORD is whatever you define).
<table class="tablebg" cellspacing="1" width="100%">
<tr class="row1">
<td style="text-align:center;">
<div class="cumulus" align="center">
<div id="cumuluscontent" class="cumulus">
<p>Please download <a href="http://www.adobe.com/go/getflashplayer" target="_blank" rel="nofollow">Flash Player 10</a> or higher to view this content.</p>
</div>
<script type="text/javascript" src="./cloud/swfobject.js"></script>
<script type="text/javascript">
var cumulus = new SWFObject("./cloud/tagcloud.swf", "tagcloud", "180", "180", "7", "#ffffff");
var cumulus_temp = encodeURIComponent("<tags>
<a href='search.php?i=search&mode=search&keywords=WOR D' style='8'>WORD</a>
</tags>");
cumulus.addParam("wmode", "transparent");
cumulus.addParam("allowScriptAccess", "always");
cumulus.addVariable("tcolor", "0x4b73d4");
cumulus.addVariable("hicolor", "ff0000");
cumulus.addVariable("tspeed", "100");
cumulus.addVariable("distr", "true");
cumulus.addVariable("mode", "tags");
cumulus.addVariable("tagcloud", cumulus_temp);
cumulus.write("cumuluscontent");
</script>
</div>
</td>
</tr>
</table>
Any idea how I can make the calls to "search" in VB4 so this will work?