folder-add-2.tcl

Credit for the ACS 3 version of this module goes to:

Location:
/packages/bookmarks/www/folder-add-2.tcl
Authors:
David Hill <dh@arsdigita.com>
Aurelius Prochazka (aure@arsdigita.com) The upgrade of this module to ACS 4 was done by
Peter Marklund <pmarklun@arsdigita.com>
Ken Kennedy (kenzoid@io.com) in December 2000.
Created:
December 2000
CVS ID:
$Id: folder-add-2.tcl,v 1.5 2014/08/07 07:36:55 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Credit for the ACS 3 version of this module goes to:
    @author David Hill (dh@arsdigita.com)
    @author Aurelius Prochazka (aure@arsdigita.com)
  
    The upgrade of this module to ACS 4 was done by
    @author Peter Marklund (pmarklun@arsdigita.com)
    @author Ken Kennedy (kenzoid@io.com)
    in December 2000.

    @creation-date December 2000
    @cvs-id $Id: folder-add-2.tcl,v 1.5 2014/08/07 07:36:55 gustafn Exp $
} {
    return_url
    local_title:notnull
    bookmark_id:naturalnum,notnull
    parent_id:naturalnum,notnull
    viewed_user_id:naturalnum,notnull
}


# Insert the folder

# First fetch necessary variables
set creation_ip [ad_conn peeraddr]
set user_id [ad_conn user_id]

permission::require_permission -object_id $parent_id -privilege write

set folder_p "t"
set closed_p "f"

if {[catch {db_exec_plsql bookmark_add "
declare
dummy_var integer;
begin
dummy_var := bookmark.new (
bookmark_id => :bookmark_id,
owner_id    => :viewed_user_id,
local_title => :local_title,
parent_id   => :parent_id,
folder_p    => :folder_p,
creation_user => :user_id,
creation_ip => :creation_ip
);       
end;"} errmsg]} {

    bm_handle_bookmark_double_click $bookmark_id $errmsg $return_url
}


ad_returnredirect $return_url