Vbadvanced - Weather Channel Module

thanks to dsboyce8624 to fixing this code

This code is based around cLord's weather module

All i did was some simple changes to his code and added the weather channels code


What Does It do?

This gives users a field to add the ZIP CODE once added they will see there local weather on your main Vba


1. In your Admincp - User Profile Fields - Goto "Add New User Profile Field" - Choose single line text box - Create new field titled "Zip Code".

2. Admincp - User Profile Fields - Click "User Profile Field Manager" and look for the Zip Code field number - In my forums its 6.

3. Admin CP - Styles & Templates - Style Manager - Add a new template called "adv_portal_weather".

Now put this code into the template:

<table align="center" border="0" cellpadding="$stylevar[cellpadding]" cellspacing="$stylevar[cellspacing]" class="tborder" width="100%"> 
<tr> 
<td class="tcat"><span class="smallfont"><b>$vba_options[portal_blockbullet] Weather Conditions</b></span></td> 
</tr> 
<tr> 
<td class="$getbgrow"><span class="smallfont"> 

<if condition="!$bbuserinfo['userid']"> 
<span class="smallfont">Registered members can see their local weather forcast here.<br /><br /><phrase 

1="$vboptions[bburl]">$vbphrase[not_a_member_yet_register_now]</phrase></span> 
<else /> 
<if condition="$bbuserinfo[field5] !=''"> 

<script src='http://voap.weather.com/weather/oap/$bbuserinfo[field5]?template=GENXV&par=null&unit=0&key=05afc55b05db4d084c1497353310d74b' alt="Weather for $bbuserinfo[field66] provided by that-sucks.net." border="0"></a></script> 

<else />Add your <A HREF="$vboptions[bburl]/profile.php?do=editprofile">Zip Code</A> to show weather forcast. 
</if> 
</if> 
</span> 
</td> 
</tr> 
</table> 
<br/>

MAKE SURE YOU CHANGE THE $bbuserinfo[field6] TO YOUR FIELD #... say yours is 4 it would be like this $bbuserinfo[field4]

Now Last Step

4. Admincp - vBa CMPS - Add Module

Module Title - Weather
Module Identifier - keep blank
OR Template to Include - weather
Activate - yes
Select the column *Right or Left*

DONE

[boo.3]

Originally Posted by KevinL

Yeah in the navbar..well mine is in the header.

If I enable this and I click on that button it reloads the page. When I shut it off everything works fine again.

I have no idea why that would happen.

thats odd... would anyone know why this is happening?

[dsboyce8624]

Originally Posted by boo.3

ok i tryed your code and it didn't work for me it said i needed to enter zipcode?

did you get that error

Mine? You prolly have to change it back to field6.

EDIT: Now I have to find a way to force it to be a smidge smaller.

[dsboyce8624]

Originally Posted by boo.3

thats odd... would anyone know why this is happening?

No idea, unless there something else already wrong with the navbar.

This hack went nowhere near it.

[boo.3]

haha my bad i didn't add field6

let me check 1 sec

edit: An error has occurred.
Invalid location code provided.
Please notify the webmaster.

i get that now after changing field

[KevinL]

Originally Posted by boo.3

thats odd... would anyone know why this is happening?

ok for some reason that new code fixed that problem!

Thanks!

[dsboyce8624]

Originally Posted by boo.3

haha my bad i didn't add field6

let me check 1 sec

edit: An error has occurred.
Invalid location code provided.
Please notify the webmaster.

i get that now after changing field

I got that before I edited mine, make sure you get all instances.

[dsboyce8624]

Originally Posted by KevinL

ok for some reason that new code fixed that problem!

Thanks!

Damn I'm good!

I have no idea what I'm doing either.

:banana:

[boo.3]

Originally Posted by dsboyce8624

I got that before I edited mine, make sure you get all instances.

everythings right still get error * lol giving me support for my hack *

[dsboyce8624]

Originally Posted by boo.3

everythings right still get error * lol giving me support for my hack *

I cleaned it up some more. Try this new version. Make sure you edit all of the field5's.

PHP Code:

<table align="center" border="0" cellpadding="$stylevar[cellpadding]" cellspacing="$stylevar[cellspacing]" class="tborder" width="100%">
<tr>
<td class="tcat"><span class="smallfont"><b>$vba_options[portal_blockbullet] Weather Conditions</b></span></td>
</tr>
<tr>
<td class="$getbgrow"><span class="smallfont">

<if condition="!$bbuserinfo['userid']">
<span class="smallfont">Registered members can see their local weather forcast here.<br /><br /><phrase 

1="$vboptions[bburl]">$vbphrase[not_a_member_yet_register_now]</phrase></span>
<else />
<if condition="$bbuserinfo[field5] !=''">

<script src='http://voap.weather.com/weather/oap/$bbuserinfo[field5]?template=GENXV&par=null&unit=0&key=05afc55b05db4d084c1497353310d74b' alt="Weather for $bbuserinfo[field66] provided by that-sucks.net." border="0"></a></script>

<else />Add your <A HREF="$vboptions[bburl]/profile.php?do=editprofile">Zip Code</A> to show weather forcast.
</if>
</if>
</span>
</td>
</tr>
</table>
<br/> 


EDIT: Don't worry, I'm happy to finally be able to help somebody.

[boo.3]

ty i'll give that a shot

if this works mind if i upload it to main post?