| |
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 |
