I'm dealing with Myfirstpackage example, and after I have changed the code in the note-procs.tcl:
ad_proc -public mfp::note::add {
-title:required
-item_id
} {
This proc adds a note.
@return item_id of the new note.
} {
if { ! [info exists item_id] } {
set item_id[db_nextval acs_object_id_seq]
}
}
{
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]
I have another error:
[21/ago/2007:20:17:25][2997.3064855472][-conn:plataforma::3] Error: Error sourcing /home/jesusdavid/web/plataforma/packages/myfirstpackage/tcl/note-procs.tcl:
invalid command name "
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)
}
}
return $item_id
"
while executing
"{
db_transaction {
set item_id [db_exec_plsql note_insert {
select content_item__new(:title,-100,null,null,null,null,null,null,'content_item..."
(file "/home/jesusdavid/web/plataforma/packages/myfirstpackage/tcl/note-procs.tcl" line 44)
invoked from within
"source $__file "
Somebody can help me?
Thanks,
Silvia