Index: openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl,v diff -u -N -r1.6.2.2 -r1.6.2.3 --- openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl 8 May 2019 14:33:40 -0000 1.6.2.2 +++ openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl 7 Feb 2020 08:44:05 -0000 1.6.2.3 @@ -1,9 +1,9 @@ ad_page_contract { - popup for choosing a target for wiki link + popup for choosing a target for wiki link } { - {package_id:naturalnum,notnull} - {page_number:integer 1} - {page_size:integer 20} + {package_id:naturalnum,notnull} + {page_number:integer 1} + {page_size:integer 20} } ::xowiki::Package initialize -package_id $package_id @@ -40,9 +40,9 @@ template::add_event_listener -id "body" -event "load" -script {Init();} foreach entry [$listing children] { - $entry instvar name parent_id title formatted_date page_id + $entry instvar name parent_id title formatted_date page_id set entry_package_id [$entry set package_id] - + set page_link [::$package_id pretty_link -parent_id $parent_id $name] t1 add \ -title $title \