Forum OpenACS Q&A: Co-branding / Partner problem

Server Error
The server encountered a configuration or operating system error while attempting to satisfy your request.

There is the default partner (ArsDigita) in the system, but I cannot add a new one. Any help would be appreciated.

[25/Jul/2000:08:52:37][14742.1625093][-conn13-] Error: nsd.tcl: can't read "db": no such variable
can't read "db": no such variable
    while executing
"with_transaction $db {

    dp_process -where_clause "partner_id=${dp.ad_partner.partner_id}"
} { ns_log Error "transaction failed" }"
    (file "/web/bender/www/admin/partner/partner-ae-2.tcl" line 21)
    invoked from within
"source $script"
    (procedure "ns_sourceproc" line 6)
    invoked from within
"ns_sourceproc cns152 {}"

The file partner-ae-2.tcl (which I've not modified) looks like this around line 21:

with_transaction $db {

    dp_process -where_clause "partner_id=${dp.ad_partner.partner_id}"
} { ns_log Error "transaction failed" }

[02/Aug/2000:11:16:55][3611.1563653][-conn9-] Error: Ns_PgExec: result status: 7 message: ERROR:  Function 'decode(int4, int4, int4, int4)' does not exist
        Unable to identify a function that satisfies the given argument types
        You may need to add explicit typecasts

[02/Aug/2000:11:16:55][3611.1563653][-conn9-] Error: nsd.tcl: Database operation "1row" failed (exception NSDB, "Query was not a statement returning rows.")
Database operation "1row" failed (exception NSDB, "Query was not a statement returning rows.")
    while executing
"ns_db 1row $db [db_sql_prep $sql"
    (procedure "database_to_tcl_string" line 6)
    invoked from within
"database_to_tcl_string $db "select decode(count(*),0,0,1) 
                                          from ad_partner_procs 
                          ..."
    invoked from within
"set exists_p [database_to_tcl_string $db "select decode(count(*),0,0,1) 
                                          from ad_partner_procs 
            ..."
    (file "/web/bender/www/admin/partner/partner-proc-ae-2.tcl" line 17)
    invoked from within
"source $script"
    (procedure "ns_sourceproc" line 6)
    invoked from within
"ns_sourceproc cns65 {}"

Is the decode() function a built-in, or is that something that should have been defined in one of the www/doc/sql/*.sql files? A grep throught the files didn't turn up a create function decode anywhere.

Try it out some more and see what happens. Here's the new select without the "decode":

set exists_p [database_to_tcl_string $db "select case count(*) when 0 then 0 else 1 end
                                          from ad_partner_procs
                                          where url_id='$QQurl_id'
                                          and proc_name='$QQproc_name'
                                          and proc_id<>$proc_id
                                          and proc_type='$QQproc_type'"]