Forum OpenACS Development: Re: In 5.3.0 final, unable to drop content type using content_type__drop_type() in pg-8.1.5

Finally, I'm interested in adding something like the following code to acs_object (to facilitate testing data model):

ad_proc object_exists {
    -id:required
} {
    @author Jim Lynch (jim@jam.sessionsnet.org)
    @creation-date 2007-01-26

    @param id

    @return true if object whose id is $id exists
} {
    set id \
        [db_string test_exists \
	     "select 
                  object_id 
              from 
                  acs_objects 
              where 
                  object_id = :id" \
	    -default "NULL"]

    set exists 0

    if {$id ne "NULL"} {set exists 1}

    return $exists
}