Index: openacs-4/packages/notes/notes.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/notes.info,v diff -u -r1.3 -r1.4 --- openacs-4/packages/notes/notes.info 30 Aug 2001 05:06:04 -0000 1.3 +++ openacs-4/packages/notes/notes.info 3 Sep 2001 17:54:02 -0000 1.4 @@ -1,11 +1,11 @@ - + Note Notes f - f + t @@ -28,6 +28,9 @@ + + + @@ -43,6 +46,8 @@ + + Index: openacs-4/packages/notes/sql/postgresql/notes-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/sql/postgresql/notes-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/notes/sql/postgresql/notes-create.sql 9 Jul 2001 15:37:14 -0000 1.2 +++ openacs-4/packages/notes/sql/postgresql/notes-create.sql 3 Sep 2001 17:55:51 -0000 1.3 @@ -144,3 +144,14 @@ end;' language 'plpgsql'; + +-- neophytosd +\i notes-sc-create.sql + + + + + + + + Index: openacs-4/packages/notes/sql/postgresql/notes-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/sql/postgresql/notes-drop.sql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/notes/sql/postgresql/notes-drop.sql 9 Jul 2001 15:37:38 -0000 1.3 +++ openacs-4/packages/notes/sql/postgresql/notes-drop.sql 3 Sep 2001 17:55:51 -0000 1.4 @@ -3,6 +3,9 @@ -- Vinod Kurup, vkurup@massmed.org -- +-- neophytosd +\i notes-sc-drop.sql + --drop functions drop function note__new (integer,integer,varchar,varchar,varchar,timestamp,integer,varchar,integer); drop function note__delete (integer); Index: openacs-4/packages/notes/sql/postgresql/notes-sc-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/sql/postgresql/notes-sc-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/notes/sql/postgresql/notes-sc-create.sql 3 Sep 2001 17:55:51 -0000 1.1 @@ -0,0 +1,64 @@ +select acs_sc_impl__new( + 'FtsContentProvider', -- impl_contract_name + 'note', -- impl_name + 'notes' -- impl_owner_name +); + +select acs_sc_impl_alias__new( + 'FtsContentProvider', -- impl_contract_name + 'note', -- impl_name + 'datasource', -- impl_operation_name + 'notes__datasource', -- impl_alias + 'TCL' -- impl_pl +); + +select acs_sc_impl_alias__new( + 'FtsContentProvider', -- impl_contract_name + 'note', -- impl_name + 'url', -- impl_operation_name + 'notes__url', -- impl_alias + 'TCL' -- impl_pl +); + + +create function notes__itrg () +returns opaque as ' +begin + perform search_observer__enqueue(new.note_id,''INSERT''); + return new; +end;' language 'plpgsql'; + +create function notes__dtrg () +returns opaque as ' +begin + perform search_observer__enqueue(old.note_id,''DELETE''); + return old; +end;' language 'plpgsql'; + +create function notes__utrg () +returns opaque as ' +begin + insert into search_observer_queue ( + object_id, + event + ) values ( + old.note_id, + ''UPDATE'' + ); + return new; +end;' language 'plpgsql'; + + +create trigger notes__itrg after insert on notes +for each row execute procedure notes__itrg (); + +create trigger notes__dtrg after delete on notes +for each row execute procedure notes__dtrg (); + +create trigger notes__utrg after update on notes +for each row execute procedure notes__utrg (); + + + + + Index: openacs-4/packages/notes/sql/postgresql/notes-sc-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/sql/postgresql/notes-sc-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/notes/sql/postgresql/notes-sc-drop.sql 3 Sep 2001 17:55:51 -0000 1.1 @@ -0,0 +1,18 @@ +select acs_sc_impl__delete( + 'FtsContentProvider', -- impl_contract_name + 'note' -- impl_name +); + + + + +drop trigger notes__utrg on notes; +drop trigger notes__dtrg on notes; +drop trigger notes__itrg on notes; + + + +drop function notes__utrg (); +drop function notes__dtrg (); +drop function notes__itrg (); + Index: openacs-4/packages/notes/tcl/notes-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/tcl/notes-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/notes/tcl/notes-procs.tcl 3 Sep 2001 17:53:24 -0000 1.1 @@ -0,0 +1,37 @@ +ad_proc notes__datasource { + object_id +} { + @author Neophytos Demetriou +} { + db_0or1row notes_datasource { + select n.note_id as object_id, + n.title as title, + n.body as content, + 'text/plain' as mime, + '' as keywords, + 'text' as storage + from notes n + where note_id = :object_id + } -column_array datasource + + return [array get datasource] +} + + +ad_proc notes__url { + object_id +} { + @author Neophytos Demetriou +} { + + set package_id [apm_package_id_from_key notes] + db_1row get_url_stub " + select site_node__url(node_id) as url_stub + from site_nodes + where object_id=:package_id + " + + set url "${url_stub}view-one?note_id=$object_id" + + return $url +} Index: openacs-4/packages/notes/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/index.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/notes/www/index.adp 20 Apr 2001 20:51:11 -0000 1.1 +++ openacs-4/packages/notes/www/index.adp 3 Sep 2001 17:57:33 -0000 1.2 @@ -26,12 +26,10 @@   + @notes.title@ - @notes.title@ + [Edit] - - @notes.title@ - Index: openacs-4/packages/notes/www/view-one.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/view-one.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/notes/www/view-one.adp 3 Sep 2001 17:56:50 -0000 1.1 @@ -0,0 +1,7 @@ + + +

@title@

+@context_bar@ +
+ +@body@ \ No newline at end of file Index: openacs-4/packages/notes/www/view-one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/view-one.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/notes/www/view-one.tcl 3 Sep 2001 17:56:50 -0000 1.1 @@ -0,0 +1,21 @@ +ad_page_contract { + @author Neophytos Demetriou + @creation-date 2001-09-02 +} { + note_id:integer,notnull +} -properties { + context_bar:onevalue + title:onevalue + body:onevalue +} + +set context_bar [ad_context_bar] + +db_1row note_select { + select title, body + from notes + where note_id = :note_id +} + + +ad_return_template