Index: openacs-4/packages/contacts-lite/www/admin/phone-type/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-lite/www/admin/phone-type/delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts-lite/www/admin/phone-type/delete.tcl	20 Jan 2021 18:35:37 -0000	1.1
+++ openacs-4/packages/contacts-lite/www/admin/phone-type/delete.tcl	20 Jan 2021 21:17:08 -0000	1.2
@@ -7,14 +7,17 @@
     @cvs-id $Id$
 
     $Log$
+    Revision 1.1  2021/01/20 18:35:37  gustafn
+    New package as provided by Jon Griffin
 
+
 } {
    phone_type_id:integer,notnull
 }  -validate {
     phone_type_exists -requires {phone_type_id} {
-	if ![db_0or1row phone_type_exists {
+	if {![db_0or1row phone_type_exists {
 
-	}] {
+	}]} {
 	    ad_complain "Phone Type $phone_type_id does not exist"
 	    return 0
 	}