Index: openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl 15 Dec 2007 11:27:07 -0000 1.1 +++ openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl 16 Dec 2007 14:10:18 -0000 1.2 @@ -302,6 +302,7 @@ } ad_proc facebook_api::get_group_members { + -package_key -session_key -gid {-format json} @@ -389,7 +390,7 @@ @return JSON data from are_friends } { - set json [facebook_api::are_friends -package_key "netgraph" \ + set json [facebook_api::are_friends -package_key $package_key \ -friend_ids $friend_ids \ -session_key $session_key] ad_return_complaint 1 [json::json2dict $json]