Index: openacs-4/packages/ref-us-zipcodes/www/zip-check.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ref-us-zipcodes/www/zip-check.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ref-us-zipcodes/www/zip-check.adp	25 Sep 2003 23:51:05 -0000	1.1
@@ -0,0 +1,29 @@
+<master src="master">
+
+<property name="title">Zip Code Check</property>
+
+<table border="0" cellspacing="0" cellpadding="0" width="100%" bgcolor="#FFFFFF">
+ <tr>
+  <td>
+   <if @ref_zipcode@ not nil>
+    <if @zipcodes:rowcount@ eq 0>
+     The Zip Code does not exist
+    </if>
+    <else>
+    <multiple name="zipcodes">
+    <ul>
+    <li>Maquest Zipcode: <a href="http://www.mapquest.com/maps/map.adp?country=US&zipcode=@ref_zipcode@" target="_blank">@ref_zipcode@</a>
+    <li>Maquest Lat/Long: <a href="http://www.mapquest.com/maps/map.adp?latlongtype=decimal&latitude=@zipcodes.latitude@&longitude=@zipcodes.longitude@" target="_blank">Latitude: @zipcodes.latitude@, Longitude: @zipcodes.longitude@</a>
+    </ul>
+    <br>
+    </multiple>
+    </else>
+   </if>
+
+   <form action="zip-check" method="post">
+   <input type="text" name="ref_zipcode" value="@ref_zipcode@" size="5" maxlength="5">
+   <input type="submit" value="search">
+   </form>
+  </td>
+ </tr>
+</table>
Index: openacs-4/packages/ref-us-zipcodes/www/zip-check.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ref-us-zipcodes/www/zip-check.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ref-us-zipcodes/www/zip-check.tcl	25 Sep 2003 23:51:05 -0000	1.1
@@ -0,0 +1,26 @@
+# /packages/oli-dealers/www/zip_check.tcl
+ad_page_contract {
+    takes a zipcode and gives mapquest links to it
+ 
+    @author Gilbert Wong (gwong@orchardlabs.com)
+    @creation-date 2003-09-01
+} {
+    {ref_zipcode:optional ""}
+} 
+
+
+set package_id [ad_conn package_id]
+set package_url [ad_conn package_url]
+set package_admin_p [ad_permission_p $package_id admin]
+ad_require_permission $package_id admin
+set this_user_id [ad_verify_and_get_user_id]
+
+set system_name [ad_parameter -package_id [ad_acs_kernel_id] SystemName]
+
+db_multirow zipcodes zipcode_select {
+    select s.abbrev, z.zipcode, z.latitude, z.longitude
+    from us_states s, us_zipcodes z
+    where z.zipcode = :ref_zipcode
+    and z.fips_state_code = s.fips_state_code
+}
+