OpenACS

yon
committed
MAIN:yon:20020518203557
on 18 May 02
using right parameter
openacs-4/.../tcl/dotlrn-fs-procs.tcl (+2 -2)
356 356             ]
357 357
358 358             portal::mapping::new -object_id $user_root_folder_id -node_id $node_id
359 359
360 360             # set the permissions for this folder; only the user has access to it
361 361             permission::set_not_inherit -object_id $user_root_folder_id
362 362             permission::grant -party_id $user_id -object_id $user_root_folder_id -privilege "read"
363 363             permission::grant -party_id $user_id -object_id $user_root_folder_id -privilege "write"
364 364             permission::grant -party_id $user_id -object_id $user_root_folder_id -privilege "admin"
365 365
366 366         }
367 367
368 368         # get the user's portal
369 369         set portal_id [dotlrn::get_workspace_portal_id $user_id]
370 370
371 371         set page_id [portal::get_page_id \
372 372             -portal_id $portal_id \
373 373             -page_name [get_user_default_page] \
374 374         ]
375 375
376           ns_log notice "[get_url]all-contents"
  376         ns_log notice "[get_url]all-objects"
377 377
378 378         # add the portlet here
379 379         if {![empty_string_p $portal_id]} {
380 380             fs_portlet::add_self_to_page \
381 381                 -page_id $page_id \
382 382                 -extra_params [list style list contents_url "[get_url]all-contents"] \
383 383                 $portal_id \
384 384                 $package_id \
385 385                 $user_root_folder_id
386 386         }
387 387
388 388         # does this user already have a shared folder?
389 389         set user_shared_folder_id [fs::get_folder \
390 390             -name [get_user_shared_folder_name -user_id $user_id] \
391 391             -parent_id $user_root_folder_id \
392 392         ]
393 393
394 394         if {[empty_string_p $user_shared_folder_id]} {
395 395
396 396             # create the user's shared folder