<%@language=perlscript%> <% use strict; use vars qw ($Response $Request $Session $Server); use lib ($Server->MapPath('/') . '/../../modules/'); use NZSki::SnowCoNz; use NZSki::Newsletter; use FamilyHomes::Configuration; # Connect to database my $db = Alchemy::DB::dbOpenDatabase(FamilyHomes::Configuration::GetOpenDatabaseArgs()); my $error = undef; my $rhNewsletter = undef; # Processing if ($db) { my @newsletters = (); my $where = "companyCode = ".FamilyHomes::Configuration::GetCompanyCode()." AND webVisible = 1"; $error = NZSki::Newsletter::getSomeNewsletters('db'=>$db, 'newsletters'=>\@newsletters, 'whereClause'=>$where, 'orderClause'=>"releaseDate DESC"); if (! $error) { $rhNewsletter = $newsletters[0]; } # Disconnect from database Alchemy::DB::dbCloseDatabase($db); } else { $error = "The database could not be contacted at this time"; } %>

Welcome to

www.familyhome.co.nz

   Simply click on one of the buttons to......

  • view family homes for sale
  • Register as a family home buyer
  • Register as a possible family home seller
  • Find the location of a street
  • Find out more about us and our services
  • Obtain our full contact details

Or, if you know the ID# of the family home you wish to view you can go straight there using the ID search at the top of the page.

NEWS FLASH !

<% if (defined($rhNewsletter)) { %>
<%=$rhNewsletter->{'title'}%>
<%=$rhNewsletter->{'leader'}%>
<% #if ($rhNewsletter->{'page'} && # -e $Server->MapPath("/")."\\".FamilyHomes::Configuration::GetNewsletterPath().$rhNewsletter->{'page'}) #{ # my $imagePath = FamilyHomes::Configuration::GetPropertyImagePath().$rhListing->{'Image'.$i.'Path'}; # FIX - temporary while backend is still done via www.snow.co.nz, as newsletters are put into familyhomes client directory if ($rhNewsletter->{'page'} && -e $Server->MapPath("/")."\\..\\..\\..\\..\\snow\\www\\wwwroot\\script\\clients\\familyhomes\\".FamilyHomes::Configuration::GetNewsletterPath().$rhNewsletter->{'page'}) { open(INCLUDEFILE, $Server->MapPath("/")."\\..\\..\\..\\..\\snow\\www\\wwwroot\\script\\clients\\familyhomes\\".FamilyHomes::Configuration::GetNewsletterPath().$rhNewsletter->{'page'}); while () { $Response->Write("$_"); } close (INCLUDEFILE); } %>
<% } else { %> No updates are available at this time <% } %>