Index: openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-admin-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-admin-portlet-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-admin-portlet-create.sql 19 Jun 2005 06:05:08 -0000 1.1 +++ openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-admin-portlet-create.sql 24 Jun 2005 09:16:07 -0000 1.2 @@ -1,37 +1,4 @@ --- --- This file is part of dotLRN. --- --- dotLRN is free software; you can redistribute it and/or modify it under the --- terms of the GNU General Public License as published by the Free Software --- Foundation; either version 2 of the License, or (at your option) any later --- version. --- --- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY --- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS --- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more --- details. --- --- --- packages/dotlrn-expense-tracking/sql/dotlrn-expense-tracking-portlets-create.sql --- - --- Creates the dotlrn expense-tracking admin datasources for portal portlets - --- This is a modified version of the standard expense-tracking admin portlet which includes --- some admin UI options tied to dotlrn specific features. The particular feature --- that triggered the creation of this custom portlet is the optional autosubscribing --- of dotlrn community members to a forum. - --- @author Don Baccus (arjun@openforce.net) --- @creation-date 2002-08-29 - --- $Id$ - --- This is free software distributed under the terms of the GNU Public --- License version 2 or higher. Full text of the license is available --- from the GNU Project: http://www.fsf.org/copyleft/gpl.html - create function inline_0() returns integer as ' declare Index: openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-drop.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-drop.sql 31 May 2005 22:05:38 -0000 1.1 +++ openacs-4/packages/dotlrn-expense-tracking/sql/postgresql/dotlrn-expense-tracking-drop.sql 24 Jun 2005 09:16:07 -0000 1.2 @@ -98,3 +98,5 @@ 'dotlrn_applet', 'dotlrn_expense_tracking' ); + +\i dotlrn-expense-tracking-admin-portlet-drop.sql \ No newline at end of file Index: openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl 19 Jun 2005 06:05:08 -0000 1.2 +++ openacs-4/packages/dotlrn-expense-tracking/tcl/dotlrn-expense-tracking-procs.tcl 24 Jun 2005 09:16:07 -0000 1.3 @@ -175,15 +175,18 @@ } { Clone this applet's content from the old community to the new one } { - ns_log notice "Cloning: [applet_key]" - set new_package_id [add_applet_to_community $new_community_id] - set old_package_id [dotlrn_community::get_applet_package_id \ - -community_id $old_community_id \ - -applet_key [applet_key] - ] + + # ns_log notice "Cloning: [applet_key]" + #set new_package_id [add_applet_to_community $new_community_id] + #set old_package_id [dotlrn_community::get_applet_package_id \ + # -community_id $old_community_id \ + # -applet_key [applet_key] + #] + # db_exec_plsql call_expense_tracking_clone {} + # return $new_package_id - db_exec_plsql call_expense_tracking_clone {} - return $new_package_id + add_applet_to_community $new_community_id + } ad_proc -public change_event_handler {