Index: openacs-4/packages/lors/tcl/lors-imsmd-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imsmd-procs.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lors/tcl/lors-imsmd-procs.xql 29 Aug 2006 11:36:09 -0000 1.1.2.1 @@ -0,0 +1,204 @@ + + + + + + + insert into ims_md_technical (ims_md_id, t_size, instl_rmrks_l, instl_rmrks_s, otr_plt_l, otr_plt_s, duration, duration_l, duration_s) + values + (:p_ims_md_id, :p_size, :p_instl_rmks_l, :p_instl_rmks_s, :p_otr_plt_l, :p_otr_plt_s, :p_duration, :p_duration_l, :p_duration_s) + + + + + + insert into ims_md_technical_format (ims_md_te_fo_id, ims_md_id, format) + values + (:p_ims_md_te_fo_id, :p_ims_md_id, :p_format) + + + + + + insert into ims_md_technical_location (ims_md_te_lo_id, ims_md_id, type, location) + values + (:p_ims_md_te_lo_id, :p_ims_md_id, :p_type, :p_location) + + + + + + insert into ims_md_technical_requirement (ims_md_te_rq_id, ims_md_id, type_s, type_v, name_s, name_v, min_version, max_version) + values + (:p_ims_md_te_rq_id, :p_ims_md_id, :p_type_s, :p_type_v, :p_name_s, :p_name_v, :p_min_version, :p_max_version) + + + + + + insert into ims_md_educational (ims_md_id, int_type_s, int_type_v, int_level_s, int_level_v, sem_density_s, sem_density_v, difficulty_s, difficulty_v, type_lrn_time, type_lrn_time_l, type_lrn_time_s) + values + (:p_ims_md_id, :p_int_type_s, :p_int_type_v, :p_int_level_s, :p_int_level_v, :p_sem_density_s, :p_sem_density_v, :p_difficulty_s, :p_difficulty_v, :p_type_lrn_time, :p_type_lrn_time_l, :p_type_lrn_time_s) + + + + + + insert into ims_md_educational_descrip (ims_md_ed_de_id, ims_md_id, descrip_l, descrip_s) + values + (:p_ims_md_ed_de_id, :p_ims_md_id, :p_descrip_l, :p_descrip_s) + + + + + + insert into ims_md_educational_lrt (ims_md_ed_lr_id, ims_md_id, lrt_s, lrt_v) + values + (:p_ims_md_ed_lr_id, :p_ims_md_id, :p_lrt_s, :p_lrt_v) + + + + + + insert into ims_md_educational_ieur (ims_md_ed_ie_id, ims_md_id, ieur_s, ieur_v) + values + (:p_ims_md_ed_ie_id, :p_ims_md_id, :p_ieur_s, :p_ieur_v) + + + + + + insert into ims_md_educational_context (ims_md_ed_co_id, ims_md_id, context_s, context_v) + values + (:p_ims_md_ed_co_id, :p_ims_md_id, :p_context_s, :p_context_v) + + + + + + insert into ims_md_educational_tar (ims_md_ed_ta_id, ims_md_id, tar_l, tar_s) + values + (:p_ims_md_ed_ta_id, :p_ims_md_id, :p_tar_l, :p_tar_s) + + + + + + insert into ims_md_educational_lang (ims_md_ed_la_id, ims_md_id, language) + values + (:p_ims_md_ed_la_id, :p_ims_md_id, :p_language) + + + + + + insert into ims_md_rights (ims_md_id, cost_s, cost_v, caor_s, caor_v, descrip_l, descrip_s) + values + (:p_ims_md_id, :p_cost_s, :p_cost_v, :p_caor_s, :p_caor_v, :p_descrip_l, :p_descrip_s) + + + + + + insert into ims_md_relation (ims_md_re_id, ims_md_id, kind_s, kind_v) + values + (:p_ims_md_re_id, :p_ims_md_id, :p_kind_s, :p_kind_v) + + + + + + + insert into ims_md_relation_resource (ims_md_re_re_id, ims_md_re_id, identifier, descrip_l, descrip_s) + values + (:p_ims_md_re_re_id, :p_ims_md_re_id, null, :p_descrip_l, :p_descrip_s) + + + + + + insert into ims_md_rel_resource_catalog (ims_md_re_re_ca_id, ims_md_re_re_id, catalog, entry_l, entry_s) + values + (:p_ims_md_re_re_ca_id, :p_ims_md_re_re_id, :p_catalog, :p_entry_l, :p_entry_s) + + + + + + insert into ims_md_annotation (ims_md_an_id, ims_md_id, entity, annotation_date, date_l, date_s) + values + (:p_ims_md_an_id, :p_ims_md_id, :p_entity, :p_date, :p_date_l, :p_date_s) + + + + + + insert into ims_md_annotation_descrip (ims_md_an_de_id, ims_md_an_id, descrip_l, descrip_s) + values + (:p_ims_md_an_de_id, :p_ims_md_an_id, :p_descrip_l, :p_descrip_s) + + + + + + insert into ims_md_classification (ims_md_cl_id, ims_md_id, purpose_s, purpose_v) + values + (:p_ims_md_cl_id, :p_ims_md_id, :p_purpose_s, :p_purpose_v) + + + + + + insert into ims_md_classification_descrip (ims_md_cl_de_id, ims_md_cl_id, descrip_l, descrip_s) + values + (:p_ims_md_cl_de_id, :p_ims_md_cl_id, :p_descrip_l, :p_descrip_s) + + + + + + insert into ims_md_classification_taxpath (ims_md_cl_ta_id, ims_md_cl_id, source_l, source_v) + values + (:p_ims_md_cl_ta_id, :p_ims_md_cl_id, :p_source_l, :p_source_s) + + + + + + insert into ims_md_classif_taxpath_taxon (ims_md_cl_ta_ta_id, ims_md_cl_ta_id, hierarchy, identifier, entry_l, entry_s) + values + (:p_ims_md_cl_ta_ta_id, :p_ims_md_cl_ta_id, :p_hierarchy, :p_identifier, :p_entry_l, :p_entry_s) + + + + + + insert into ims_md_classification_keyword (ims_md_cl_ke_id, ims_md_cl_id, keyword_l, keyword_s) + values + (:p_ims_md_cl_ke_id, :p_ims_md_cl_id, :p_keyword_l, :p_keyword_s) + + + + + + select ims_md_id + from ims_md + where ims_md_id = :p_ims_md_id + + + + + + delete from ims_md where ims_md_id = :p_ims_md_id + + + + + + select ims_md_id + from ims_md + where ims_md_id = :p_ims_md_id + + + + \ No newline at end of file