bookmarks-init.tcl

Startup script for the bookmarks module. Credit for the ACS 3 version of this module goes to:

Location:

packages/bookmarks/tcl/bookmarks-init.tcl

Created:

December 2000

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.

CVS Identification:

$Id: bookmarks-init.tcl,v 1.4 2004/06/29 10:17:48 jeffd Exp $

Procedures in this file

• bm_clean_up_session_data (public)

Detailed information

 bm_clean_up_session_data

Content File Source

ad_library {
    Startup script for the bookmarks module.

    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: bookmarks-init.tcl,v 1.4 2004/06/29 10:17:48 jeffd Exp $
}



# The table bm_in_closed_p holds session data that needs to be removed
# to avoid the table growing to large (maximum size of the table would be
# number_of_bookmarks times number_of_users)
ad_schedule_proc 86400 bm_clean_up_session_data


ad_proc bm_clean_up_session_data {} {
The table bm_in_closed_p holds session data that needs to be removed
 to avoid the table growing to large (maximum size of the table would be
 number_of_bookmarks times number_of_users)
} {
    set max_days 31
    db_dml delete_old_in_closed_p "delete from bm_in_closed_p where creation_date < (sysdate - :max_days)"
}