Index: openacs-4/packages/acs-core-docs/www/files/note-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/note-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-core-docs/www/files/note-procs.tcl	11 Nov 2003 14:26:38 -0000	1.1
@@ -0,0 +1,84 @@
+ad_library {
+
+    Procs to add, edit, and remove notes for My First Package.
+
+    @author oumi@arsdigita.com
+    @cvs-id $Id: note-procs.tcl,v 1.1 2003/11/11 14:26:38 joela Exp $
+
+}
+
+namespace eval mfp {}
+namespace eval mfp::note {}
+
+ad_proc -public mfp::note::get {
+    -item_id:required
+    -array:required
+} { 
+    This proc retrieves a note.  This is annoying code that is only
+    here because we wanted to give you a working tutorial in 5.0 that
+    uses content repository, but the tcl api for content repository
+    won't be complete until 5.1.  At least we can use the pregenerated views for select and edit.
+} {
+    upvar 1 $array row
+    db_1row note_select {
+	select ci.item_id,
+	       n.title
+	from   cr_items ci,
+               mfp_notesx n
+       where   ci.item_id = :item_id
+       and     n.note_id = ci.live_revision
+    } -column_array row
+}
+
+ad_proc -public mfp::note::add {
+    -title:required
+} { 
+    This proc adds a note.  
+} {
+    db_transaction {
+	set item_id [db_exec_plsql note_insert {
+	    select content_item__new(:title,-100,null,null,null,null,null,null,'content_item','mfp_note',:title,null,null,null,null)
+	}]
+
+	set revision_id [db_nextval acs_object_id_seq]
+	
+	db_dml revision_add {
+ 	    insert into mfp_notesi (item_id, revision_id, title) 
+	    values (:item_id, :revision_id, :title)
+	}
+
+	db_exec_plsql make_live {
+	    select content_item__set_live_revision(:revision_id)
+	}
+    }
+}
+
+ad_proc -public mfp::note::edit {
+    -item_id:required
+    -title:required
+} { 
+    This proc edits a note. Note that to edit a cr_item, you insert a new revision instead of changing the current revision.
+} {
+    db_transaction {
+	set revision_id [db_nextval acs_object_id_seq]
+	
+	db_dml revision_add {
+ 	    insert into mfp_notesi (item_id, revision_id, title) 
+	    values (:item_id, :revision_id, :title)
+	}
+
+	db_exec_plsql make_live {
+	    select content_item__set_live_revision(:revision_id)
+	}
+    }
+}
+
+ad_proc -public mfp::note::delete {
+    -item_id:required
+} { 
+    This proc deletes a note.
+} {
+    db_exec_plsql note_delete {
+	select content_item__delete(:item_id)
+    }
+}
Index: openacs-4/packages/acs-core-docs/www/xml/engineering-standards/variables.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/xml/engineering-standards/variables.xml,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-core-docs/www/xml/engineering-standards/variables.xml	11 Nov 2003 14:24:37 -0000	1.1
@@ -0,0 +1,37 @@
+<?xml version='1.0' ?>
+<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN"
+               "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd" [
+<!ENTITY % myvars SYSTEM "../variables.ent">
+%myvars;
+]>
+<sect1 id="variables">
+<title>Variables</title>
+
+ 
+<authorblurb>
+<para>By <ulink url="mailto:joel@aufrecht.org">joel@aufrecht.org</ulink></para>
+</authorblurb>
+
+  <sect2 id="variables-datetime">
+    <title>Date and Time Variables</title>
+    <para>Starting with OpenACS 5.0 and the introduction of acs-lang,
+    we recommend retrieving date/time information from the database in
+    ANSI format and then using <ulink url="/api-doc/proc-view?proc=lc%5ftime%5ffmt">lc_time_fmt</ulink> to format it for display.</para>
+    <example>
+      <title>Getting datetime from the database ANSI-style</title>
+      <programlisting>
+    db_multirow -extend { mydate_pretty } {
+    select to_char(mydate, 'YYYY-MM-DD HH24:MI:SS') as mydate_ansi,
+          ...
+    ...
+} {
+    set mydate_ansi [lc_time_system_to_conn $mydate_ansi]
+    set mydate_pretty [lc_time_fmt $mydate_ansi "%x %X"]
+}
+</programlisting>
+    </example>
+  </sect2>
+
+<para><phrase role="cvstag">($Id: variables.xml,v 1.1 2003/11/11 14:24:37 joela Exp $)</phrase></para>
+
+</sect1>