Forum OpenACS CMS: Examples of OpenACS CMS

hey Ian, we built an CMS for the United Nations using OpenACS. We had to customize though and our system doesn't fully rely on the content repository. If you want I can send you a distribution copy of the package. Under http://www.unido.org/doc/doc you can find a comprehensive documentation about the features/restrictions of the system. /gregor

Hi Gregor,
thanks for your reply and the offer of a distribution of the package - may take you up on this at some stage. There's been a bit of a gap since my last post - I'm back actively looking at CMS now. The CMS site you've created looks very impressive.

I must admit, I never got my head fully around the OpenACS CMS. There's a few of us here looking at it now so hopefully we'll get a better grip of it.

I have a couple of questions:
1. What are the main differences between your package and the standard OpenACS CMS core package?
and
2. How did you find the OpenACS CMScore package?

I took a look at the UNIDO site. It looks great!  I wanted to know how you went about developping such a site with CMS.  I want to create a web with the same ideas, where the user can type in the search anything and it will bring up some result.      I am currently using OpenACS 4.6.3 with PostgreSQL 7.2 running on Red Hat Linux 8.0.  How did you configure the search because my search is not bringing up any results.  Plaus I want users to be able to upload and download files.

THank you

I have the CMS package documentation. On the section for admnistrator's guide, under content type, it says to use methods from the content_type package. I do not have the content_type package, I dont think it is available for OpenACS 4.6.3. So anyways, I am trying to create a new content type, under "basic item". After filling the form, and submitting it, I get this error:

Request Error

Query did not return any rows.
    while executing
"db_1row get_storage_type {select 
        storage_type, item_id 
        from 
        cr_items 
        where 
        item_id = (select 
           ..."
    (procedure "upload_content" line 15)
    invoked from within
"upload_content $revision_id $tmpfile $filename"
    invoked from within
"if { ![string equal $tmpfile {}] } {

            set revision_id [ns_set get $bind_vars revision_id]
            upload_content $revision_id $tmpfile..."
    ("uplevel" body line 5)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {

        db_dml add_revision $statement -bind $bind_vars 

        if { ![string equal $tmpfile {}] } {

            set revision_id ..."
    (procedure "add_revision_dml" line 2)
    invoked from within
"add_revision_dml $insert_statement $bind_vars $tmpfile $filename"
    (procedure "add_revision" line 26)
    invoked from within
"add_revision $form_name $tmpfile $prefix [expr !$exists]"
    ("uplevel" body line 8)
    invoked from within
"uplevel 1 $transaction_code "
    (procedure "db_transaction" line 39)
    invoked from within
"db_transaction {
        if {!$exists} { 
            set item_id [db_exec_plsql get_item_id  "
                     begin 
                       :1 ..."
    (procedure "content::new_item" line 56)
    invoked from within
"content::new_item create_item $storage_type"
    invoked from within
"if { [form is_valid create_item] } {

    # check for duplicate name within same folder or parent item.
    if { ![content::validate_name create_item]..."
    ("uplevel" body line 67)
    invoked from within
"uplevel {
    	  # /create-2.tcl
# Get the folder where the item is being created

# Parameters:
#
#  parent_id      - create the item under this pare..."
    (procedure "code::tcl::/web/service0/packages/cms/www/modules/items/crea..." 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 7)
    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([ad_conn url]) [ad_conn path_inf..."

Also when I try to use the search function, this is the error I get after submitting:

Request Error

no value given for parameter "user_id" to "AcsSc.FtsEngineDriver.search.openfts-driver"
    while executing
"AcsSc.FtsEngineDriver.search.openfts-driver test 0 100"
    ("uplevel" body line 1)
    invoked from within
"uplevel $func_and_args"
    (procedure "apply" line 3)
    invoked from within
"apply $proc_name $arguments"
    (procedure "acs_sc_call" line 5)
    invoked from within
"acs_sc_call FtsEngineDriver search [list $q $offset $limit] $driver"
    (procedure "content_search__search_ids" line 5)
    invoked from within
"content_search__search_ids $keywords"
    invoked from within
"join [content_search__search_ids $keywords] ,"
    invoked from within
"subst -nobackslashes {

    select 
      i.item_id, content_item__get_path(i.item_id,null) as item_path,
      r.revision_id,
      t.pretty_name as ..."
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 [list subst -nobackslashes $sql"
    (procedure "db_map" line 7)
    invoked from within
"db_map sql_query"
    invoked from within
"if { [form is_valid search] } {

  form get_values search content_type keywords mime_type which_revisions start_date end_date

  # Assemble the litera..."
    ("uplevel" body line 36)
    invoked from within
"uplevel {
    	  request create
request set_param id -datatype keyword -optional
request set_param mount_point -datatype keyword -optional -value sear..."
    (procedure "code::tcl::/web/service0/packages/cms/www/modules/search/ind..." 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 7)
    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([ad_conn url]) [ad_conn path_inf..."

What do those error mean? What do I need to do to fix them? Thank you