<%@ language=PerlScript %> <% ############################################################################### # # Licensed for use on www.homesbydesantis.com # # Software designed and developed by Insite|TNG Inc. and remains the sole property of Insite|TNG Inc. # Copyright (c) 1999,2000,2001 Insite|TNG Inc. ALL RIGHTS RESERVED # # ANY DUPLICATION OR MODIFICATION, ON WHOLE OR IN PART IS STRICTLY PROHIBITED # # Init(); sub Init { $GlobalCommunityCode='vv'; $CommunityModels=GetCommunityModels($GlobalCommunityCode); $Detached38=local_GetModelTypes(1,$CommunityModels,38); $Detached50=local_GetModelTypes(1,$CommunityModels,50); $Towns=local_GetModelTypes(4,$CommunityModels); } %>

<% # # start processing # foreach (keys %$Detached38) { $hrModel=$Detached38->{$_}; $hrElevations=$Detached38->{$_}->{Elevations}; @ElevationKeys=keys %$hrElevations; %> <% } %> <% # # start processing # foreach (keys %$Detached50) { $hrModel=$Detached50->{$_}; $hrElevations=$Detached50->{$_}->{Elevations}; @ElevationKeys=keys %$hrElevations; %> <% } %> <% # # start processing # foreach (keys %$Towns) { $hrModel=$Towns->{$_}; $hrElevations=$Towns->{$_}->{Elevations}; foreach (keys %$hrElevations) { # @ElevationKeys=keys %$hrElevations; %> <% } } %> Escarpment Designed 38' Singles <%=$hrModel->{Name} %> <%=$hrModel->{Elevations}->{@ElevationKeys[0]}->{Name} %> - <%=$hrModel->{Elevations}->{@ElevationKeys[0]}->{SquareFootage} %> sq.ft. <% if ($hrModel->{Name} eq 'Chianti') { %><% } %> <% $Response->Write(' '); my @tempDesc=split(/\n/,$hrModel->{Description}); foreach (@tempDesc) { $Response->Write(' '.$_); } $Response->Write(' '); %> Escarpment Designed 50' Singles <%=$hrModel->{Name} %> <%=$hrModel->{Elevations}->{@ElevationKeys[0]}->{Name} %> - <%=$hrModel->{Elevations}->{@ElevationKeys[0]}->{SquareFootage} %> sq.ft. <% if ($hrModel->{Name} eq 'Chianti') { %><% } %> <% $Response->Write(' '); my @tempDesc=split(/\n/,$hrModel->{Description}); foreach (@tempDesc) { $Response->Write(' '.$_); } $Response->Write(' '); %> Freehold/Condo Courtyard Townhomes <%=$hrModel->{Name} %> <%=$hrElevations->{$_}->{Name} %> <%=$hrElevations->{$_}->{SquareFootage} %> sq.ft. <% $Response->Write(' '); my @tempDesc=split(/\n/,$hrElevations->{$_}->{Description}); foreach (@tempDesc) { $Response->Write(' '.$_); } $Response->Write(' '); %>

Builder Profile | Communities | Customer Service | Contact Us Copyright © 2001, 2002, 2003 Homes by DeSantis. ALL RIGHTS RESERVED

<% sub local_GetModelTypes { my $HomeTypeID=$_[0]; my $hrModels=$_[1]; my $LotSize=$_[2]; my %Matches; foreach (keys %$hrModels) { my $hrModel=$hrModels->{$_}; if ($hrModel->{HomeTypeID} == $HomeTypeID) { if ($LotSize) { if ($hrModel->{LotSize} == $LotSize) { $Matches{$hrModel->{ModelID}}=$hrModel; } } else { $Matches{$hrModel->{ModelID}}=$hrModel; } } } return \%Matches; } %> [an error occurred while processing this directive] [an error occurred while processing this directive]