Index: openacs-4/packages/places/tcl/postal_code-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/places/tcl/Attic/postal_code-procs.tcl,v
diff -u -N
--- openacs-4/packages/places/tcl/postal_code-procs.tcl	20 Apr 2001 20:51:21 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,38 +0,0 @@
-ad_library {
-    Procs for the postal_code place-type.
-
-    @cvs-id $Id: postal_code-procs.tcl,v 1.1 2001/04/20 20:51:21 donb Exp $
-}
-
-
-# Initialize our namespaces:
-
-namespace eval place {
-    namespace eval postal_code {}
-}
-
-ad_proc place::postal_code::postal_code_id {
-    {
-    }
-    postal_code
-} {
-    Returns the <code>postal_code_id</code> matching the <code>postal_code</code> provided.
-
-    @param postal_code The <code>postal_code</code> we are looking up.
-    @author John Mileham (jmileham@arsdigita.com)
-} {
-    return [db_string postal_code_id {select postal_code_id from pl_postal_codes where postal_code = :postal_code} -default ""]
-}
-
-ad_proc place::postal_code::postal_code {
-    {
-    }
-    postal_code_id
-} {
-    Returns the <code>postal_code</code> matching the <code>postal_code_id</code> provided.
-
-    @param postal_code_id The <code>postal_code_id</code> we are looking up.
-    @author John Mileham (jmileham@arsdigita.com)
-} {
-    return [db_string postal_code_id {select postal_code from pl_postal_codes where postal_code_id = :postal_code_id} -default ""]
-}