- added stuff from wiki.noncvs

lib/new.tcl

@@ -5,6 +5,8 @@ ad_page_contract {
     item_id:integer,optional
 }
 
+if {"" == $name} { ad_return_complaint 1 "name is empty" }
+
 set folder_id [wiki::get_folder_id]
 set user_id [ad_conn user_id]
 set ip_address [ad_conn peeraddr]

lib/page.tcl

@@ -99,6 +99,7 @@ set content [ad_wiki_text_to_html $content "wiki::get_info"]
 set context [list $title]
 set focus ""
 set header_stuff ""
+set page_title $title
 
 set edit_link_p [permission::permission_p \
                  -object_id $item_id \

sql/postgresql/wiki-create.sql

@@ -2,10 +2,18 @@
 -- 
 -- 
 -- @author Dave Bauer (dave@thedesignexperience.org)
+-- @author Frank Bergmann (frank.bergmann@project-open.com)
 -- @creation-date 2004-09-06
 -- @arch-tag: 0d6b6723-0e95-4c00-8a84-cb79b4ad3f9d
 -- @cvs-id $Id$
 --
 
+-- there seems to be an error in CMS 4.1.x with 
+-- the view "cr_revisioni". This error seems to be due
+-- to the fact that the content type "content_revision" hasn't
+-- been created correctly. Strange stuff...
+--
+select content_type__refresh_view ('content_revision');
+
 insert into cr_mime_types values ('Text - Wiki','text/x-openacs-wiki','');
 insert into cr_mime_types values ('Text - Markdown','text/x-openacs-markdown','');
\ No newline at end of file

wiki.info

@@ -15,7 +15,7 @@
 
         <provides url="wiki" version="0.2d"/>
         <requires url="acs-kernel" version="5.1.4"/>
-        <requires url="cms" version="5.1.4"/>
+        <requires url="cms" version="4.1.1"/>
 
         <callbacks>
             <callback type="after-install"  proc="wiki::install::package_install"/>