Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v diff -u -N -r1.67 -r1.68 --- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 14 Aug 2002 19:24:47 -0000 1.67 +++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 23 Oct 2002 12:38:38 -0000 1.68 @@ -314,12 +314,13 @@ } ad_proc -public parameter { + -localize:boolean {-name:required} {-default ""} } { wrap } { - return [parameter::get -package_id [get_package_id] -parameter $name -default $default] + return [parameter::get -localize=$localize_p -package_id [get_package_id] -parameter $name -default $default] } ad_proc -public set_type_portal_id { @@ -393,7 +394,7 @@ # a connection put it here. This needs to be a vaild # grantee for the perms set user_id -1 - + set portal_id [portal::create \ -name "$pretty_name Portal" \ -csv_list $csv_list \ @@ -417,3 +418,4 @@ } } +