| |
5 |
5 |
@creation-date 2006-01-18 |
| |
6 |
6 |
@author eduardo.perez@uc3m.es |
| |
7 |
7 |
@cvs-id $Id$ |
| |
8 |
8 |
} |
| |
9 |
9 |
|
| |
10 |
10 |
namespace eval lorsm {} |
| |
11 |
11 |
namespace eval lorsm::sc {} |
| |
12 |
12 |
|
| |
13 |
13 |
ad_proc -private lorsm::datasource { man_id } { |
| |
14 |
14 |
@param man_id |
| |
15 |
15 |
} { |
| |
16 |
16 |
# noop |
| |
17 |
17 |
} |
| |
18 |
18 |
|
| |
19 |
19 |
ad_proc -private lorsm::url { man_id } { |
| |
20 |
20 |
@param man_id |
| |
21 |
21 |
|
| |
22 |
22 |
returns the url for the lorsm man |
| |
23 |
23 |
|
| |
24 |
24 |
} { |
| |
|
25 |
# TODO find a better way to lookup the package_id to get the URL |
| |
25 |
26 |
set package_id [db_string package_id { |
| |
26 |
|
select package_id from cr_folders where folder_id=(select context_id from acs_objects where object_id=:man_id) |
| |
|
27 |
select context_id from acs_objects where object_id=(select context_id from acs_objects where object_id=:man_id) |
| |
27 |
28 |
}] |
| |
28 |
29 |
set url [apm_package_url_from_id $package_id] |
| |
29 |
30 |
return "${url}delivery-no-index/?man_id=$man_id" |
| |
30 |
31 |
} |
| |
31 |
32 |
|
| |
32 |
33 |
ad_proc -private lorsm::sc::register_implementations {} { |
| |
33 |
34 |
Register the ims_manifest_object content type fts contract |
| |
34 |
35 |
} { |
| |
35 |
36 |
lorsm::sc::register_fts_impl |
| |
36 |
37 |
} |
| |
37 |
38 |
|
| |
38 |
39 |
ad_proc -private lorsm::sc::unregister_implementations {} { |
| |
39 |
40 |
acs_sc::impl::delete -contract_name FtsContentProvider -impl_name ims_manifest_object |
| |
40 |
41 |
} |
| |
41 |
42 |
|
| |
42 |
43 |
ad_proc -private lorsm::sc::register_fts_impl {} { |
| |
43 |
44 |
set spec { |
| |
44 |
45 |
name "ims_manifest_object" |
| |
45 |
46 |
aliases { |
| |
46 |
47 |
datasource lorsm::datasource |
