Untitled

Error: SQL(): nsoracle.c:3542:ora_tcl_command: error in `OCIStmtExecute ()': ORA-06550: line 3, column 23:
PLS-00306: wrong number or types of arguments in call to 'NEW'
ORA-06550: line 3, column 17:
PL/SQL: Statement ignored

SQL:
            begin
                :1 := portal.new (
                    name => :name,
                    theme_id => :theme_id,
                    layout_id => :layout_id,
                    template_id => :template_id,
                    default_page_name => :default_page_name,
                    context_id => :context_id
                );
            end;

[31/May/2007:09:04:02][2909.1086323056][-conn:::2] Error: POST http://83.246.68.232:8000/dotlrn/admin/club-new?
referred by "http://83.246.68.232:8000/dotlrn/admin/club-new"
nsoracle.c:3542:ora_tcl_command: error in `OCIStmtExecute ()': ORA-06550: line 3, column 23:
PLS-00306: wrong number or types of arguments in call to 'NEW'
ORA-06550: line 3, column 17:
PL/SQL: Statement ignored

SQL:
            begin
                :1 := portal.new (
                    name => :name,
                    theme_id => :theme_id,
                    layout_id => :layout_id,
                    template_id => :template_id,
                    default_page_name => :default_page_name,
                    context_id => :context_id
                );
            end;

    while executing
"ns_ora exec_plsql_bind nsdb0 {
            begin
                :1 := portal.new (
                    name => :name,
                    theme_id =>..."
    ("uplevel" body line 1)
    invoked from within
"uplevel $ulevel [list ns_ora $type $db $sql] $args"
    ("oracle" arm line 2)
    invoked from within
"switch $driverkey {
                oracle {
                    return [uplevel $ulevel [list ns_ora $type $db $sql] $args]
                }
       ..."
    invoked from within
"db_exec exec_plsql_bind $db $full_statement_name $sql 2 1 """
    invoked from within
"if { [regexp {:1} $test_sql] } {
                return [db_exec exec_plsql_bind $db $full_statement_name $sql 2 1 ""]
            } else {
          ..."
    ("uplevel" body line 5)
    invoked from within
"uplevel 1 $code_block "
    invoked from within
"db_with_handle -dbn $dbn db {
            # Right now, use :1 as the output value if it occurs in the statement,
            # or not otherwise.
     ..."
    (procedure "db_exec_plsql" line 26)
    invoked from within
"db_exec_plsql create_new_portal {}"
    invoked from within
"set portal_id [db_exec_plsql create_new_portal {}]"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {
            # create the portal and the first page

            set portal_id [db_exec_plsql create_new_portal {}]

            permi..."
    (procedure "portal::create" line 39)
    invoked from within
"portal::create  -template_id $template_id  -name "$pretty_name Portal"  -context_id $community_id  $user_id  "
    invoked from within
"set portal_id [portal::create  -template_id $template_id  -name "$pretty_name Portal"  -context_id $community_id  $user_id  ]"
    ("uplevel" body line 21)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {
            set user_id [ad_conn user_id]
            set community_id [package_instantiate_object -extra_vars $extra_vars $object_ty..."
    (procedure "dotlrn_community::new" line 25)
    invoked from within
"dotlrn_community::new  -community_type [community_type]  -object_type [community_type]  -pretty_name $pretty_name  -description $description  -parent_..."
    (procedure "dotlrn_club::new" line 6)
    invoked from within
"dotlrn_club::new  -description $description  -pretty_name $pretty_name  -join_policy $join_policy"
    invoked from within
"if {[form is_valid add_club]} {
    form get_values add_club  pretty_name description join_policy referer

    set key [dotlrn_club::new  -description..."
    ("uplevel" body line 44)
    invoked from within
"uplevel {
          #
#  Copyright (C) 2001, 2002 MIT
#
#  This file is part of dotLRN.
#
#  dotLRN is free software; you can redistribute it and/or modi..."
    (procedure "code::tcl::/var/www/service/packages/dotlrn/www/admin/c..." line 2)
    invoked from within
"code::tcl::$__adp_stub"
    invoked from within
"if { [file exists $__adp_stub.tcl] } {

      # ensure that data source preparation procedure exists and is up-to-date
      adp_init tcl $__adp_stub
..."
    ("uplevel" body line 3)
    invoked from within
"uplevel {

    if { [file exists $__adp_stub.tcl] } {

      # ensure that data source preparation procedure exists and is up-to-date
      adp_init t..."
    (procedure "adp_prepare" line 2)
    invoked from within
"adp_prepare "
    (procedure "template::adp_parse" line 30)
    invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
    (procedure "adp_parse_ad_conn_file" line 5)
    invoked from within
"$handler"
    ("uplevel" body line 2)
    invoked from within
"uplevel $code"
    invoked from within
"ad_try {
                $handler
            } ad_script_abort val {
                # do nothing
            }"
    invoked from within
"rp_serve_concrete_file [ad_conn file]"
    (procedure "rp_serve_abstract_file" line 60)
    invoked from within
"rp_serve_abstract_file "$root/$path""
    ("uplevel" body line 2)
    invoked from within
"uplevel $code"
    invoked from within
"ad_try {
            rp_serve_abstract_file "$root/$path"
            set tcl_url2file([ad_conn url]) [ad_conn file]
            set tcl_url2path_info..."