Index: openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl,v diff -u -N -r1.3 -r1.3.6.1 --- openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl 24 Apr 2008 08:38:30 -0000 1.3 +++ openacs-4/packages/xowiki-portlet/tcl/xowiki-portlet-procs.tcl 8 Mar 2019 15:18:09 -0000 1.3.6.1 @@ -58,7 +58,7 @@ xowiki_portlet ad_proc show {cf} { } { portal::show_proc_helper \ - -package_key [my package_key] \ + -package_key [:package_key] \ -config_list $cf \ -template_src "xowiki-portlet" } @@ -67,8 +67,8 @@ # install # xowiki_portlet proc install {} { - my log "--portlet calling [self proc]" - set name [my name] + :log "--portlet calling [self proc]" + set name [:name] # # create the datasource # @@ -136,19 +136,19 @@ ::xo::db::sql::acs_sc_binding new \ -contract_name "portal_datasource" -impl_name $name } - my log "--portlet end of [self proc]" + :log "--portlet end of [self proc]" } # # uninstall # xowiki_portlet proc uninstall {} { - my log "--portlet calling [self proc]" + :log "--portlet calling [self proc]" # # completely identical to "xowiki_admin_portlet uninstall" # - set name [my name] + set name [:name] db_transaction { # @@ -190,7 +190,7 @@ ::xo::db::sql::acs_sc_impl delete \ -impl_contract_name "portal_datasource" -impl_name $name } - my log "--portlet end of [self proc]" + :log "--portlet end of [self proc]" } ::xowiki_portlet proc after-install {} { @@ -201,4 +201,4 @@ ::xowiki_portlet proc before-uninstall {} { ::xowiki_portlet uninstall ::xowiki_admin_portlet uninstall -} \ No newline at end of file +}