+@context;noquote@
+
+
+
+
#lorsm.lt_Preliminary_informati#
+
+
+
+
+
+
+ #lorsm.lt_The_uploaded_file_is_# #lorsm.lt_SCORM_complaint_packa#
+
+
+
+
+
+#lorsm.SCORM_Package_Info#
+
+
+
+
+
+
+#lorsm.IMS_Package_Info#
+
+ #lorsm.lt_The_uploaded_file_is_# #lorsm.lt_Blackboard_6_complain#.
+
+
+
+
+
+
+#lorsm.Note##lorsm._the_package_has# #lorsm.not_yet# #lorsm.lt_being_added_to_the_Le#
+
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/course-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-2.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-add-2.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,385 @@
+ad_page_contract {
+ Upload an IMS Content Package
+
+ Scope:
+
+ 1.- Uploads file
+ 2.- Unzip file
+ 3.- Finds imsmanifest.xml
+ 4.- Displays basic imsmanifest.xml information
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 19 March 2003
+ @cvs-id $Id: course-add-2.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+} {
+ folder_id:integer,notnull
+ upload_file:trim,optional
+ upload_file.tmpfile:optional,tmpfile
+ course_id:integer,notnull
+ indb_p:integer,notnull
+ fs_package_id:integer,notnull
+
+} -validate {
+ non_empty -requires {upload_file.tmpfile:notnull} {
+ if {![empty_string_p $upload_file] && (![file exists ${upload_file.tmpfile}] || [file size ${upload_file.tmpfile}] < 4)} {
+ ad_complain "[_ lorsm.lt_The_upload_failed_or_]"
+ }
+ }
+}
+
+
+# Permissions
+set user_id [ad_conn user_id]
+
+# unzips the file
+if { ![empty_string_p $upload_file] &&
+ [ catch {set tmp_dir [lors::imscp::expand_file $upload_file ${upload_file.tmpfile} lors-imscp-$course_id] } errMsg] } {
+ ad_return_complaint 1 "[_ lorsm.lt_The_uploaded_file_doe]"
+ ad_script_abort
+}
+
+# if it is not blank...
+if {![empty_string_p $upload_file]} {
+ ns_log Debug "LORS Package: made directory $tmp_dir to extract from ${upload_file.tmpfile} ($upload_file)\n"
+ set allfiles [lors::imscp::dir_walk $tmp_dir]
+
+} else {
+ set allfiles [lors::imscp::dir_walk $directory]
+
+}
+
+
+# Permissions on target folder
+ad_require_permission $folder_id admin
+
+
+# unzips the file
+if { ![empty_string_p $upload_file] &&
+ [ catch {set tmp_dir [lors::imscp::expand_file $upload_file ${upload_file.tmpfile} lors-imscp-$course_id] } errMsg] } {
+ ad_return_complaint 1 "[_ lorsm.lt_The_uploaded_file_doe]"
+ ad_script_abort
+}
+
+# search for manifest file
+set file imsmanifest.xml
+
+set manifest [lors::imscp::findmanifest $tmp_dir $file]
+
+# see if the file actually is where it suppose to be. Othewise abort
+if {$manifest == 0} {
+ lors::imscp::deltmpdir $tmp_dir
+ ad_return_complaint 1 "[_ lorsm.lt_There_is_no_file_with_1]"
+}
+
+
+# Is this a Blackboard6 package?
+set isBB [lors::imscp::bb6::isBlackboard6 -tmp_dir $tmp_dir]
+
+if {$isBB == 1} {
+ # we generate metadata for the file
+ ns_log Notice "Generating MD record from Blackboard6 package $tmp_dir --"
+ lors::imscp::bb6::create_MD -tmp_dir $tmp_dir -file $file
+ ns_log Notice "Done!"
+
+}
+
+## adds folder to the CR
+set parent_id $folder_id
+set fs_dir $tmp_dir
+
+# checks for write permission on the parent folder
+ad_require_permission $parent_id write
+
+# get their IP
+set creation_ip [ad_conn peeraddr]
+
+# checks whether the directory given actually exists
+if {[file exists $fs_dir]} {
+ set all_files [list]
+ # now that exists, let's create it on the CR
+
+ ## Create lists and multirows
+ multirow create element_nodes element attributes
+
+ template::list::create \
+ -name d_info \
+ -multirow d_info \
+ -no_data "[_ lorsm.No_Information]" \
+ -elements {
+ col1 {
+ label ""
+ html {valign top style "background-color: #e0e0e0; font-weight: bold;"}
+ }
+ col2 {
+ label ""
+ html {valign top style "background-color: #f0f0f0; font-weight: bold;"}
+ }
+ }
+
+ multirow create d_info col1 col2
+
+
+ template::list::create \
+ -name d_IMS_package_info \
+ -multirow d_IMS_package_info \
+ -no_data "[_ lorsm.lt_No_IMS_Package_struct]" \
+ -elements {
+ organizations {
+ label "[_ lorsm.Organizations]"
+ html {valign top align center}
+ }
+ items {
+ label "[_ lorsm.Items]"
+ html {valign top align center}
+ }
+ resources {
+ label "[_ lorsm.Resources]"
+ html {valign top align center}
+ }
+ files {
+ label "[_ lorsm.Files]"
+ html {valign top align center}
+ }
+ }
+
+ multirow create d_IMS_package_info organizations items resources files
+
+ template::list::create \
+ -name d_SCORM_package_info \
+ -multirow d_SCORM_package_info \
+ -no_data "[_ lorsm.No_Items]" \
+ -elements {
+ scos {
+ label "[_ lorsm.SCOs]"
+ html {valign top}
+ }
+ assets {
+ label "[_ lorsm.Assets]"
+ html {valign top}
+ }
+ sharableresources {
+ label "[_ lorsm.Sharable_Resources]"
+ html {valign top}
+ }
+ files {
+ label "[_ lorsm.files]"
+ html {valign top}
+ }
+ }
+
+ multirow create d_SCORM_package_info scos assets sharableresources files
+
+ ## Opens imsmanifest.xml
+
+ # open manifest file with tDOM
+ dom parse [::tDOM::xmlReadFile $manifest] doc
+ # gets the manifest tree
+ set manifest [$doc documentElement]
+
+ # gets metadata node
+ set metadata [$manifest child all metadata]
+
+ # DETECT SCORM OR IMS CP
+ set isSCORM [lors::imscp::isSCORM -node $manifest]
+
+ ## Gets manifest title
+
+ if { ![empty_string_p $metadata] } {
+
+ # gets metadataschema
+ set MetadataSchema [lindex [lindex [lors::imsmd::getMDSchema $metadata] 0] 0]
+ set MetadataSchemaVersion [lindex [lors::imsmd::getMDSchema $metadata] 1]
+ set lom [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 0]
+ set prefix [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 1]
+
+ if { $lom != 0 } {
+ # Get title
+ set manifest_title_lang [lindex [lindex [lors::imsmd::mdGeneral -element title -node $lom -prefix $prefix] 0] 0]
+ set manifest_title [lindex [lindex [lors::imsmd::mdGeneral -element title -node $lom -prefix $prefix] 0] 1]
+ # set context
+ set context "[_ lorsm.lt_Importing_manifest_ti]"
+
+ ## Gets manifest description
+
+ set manifest_descrip_lang [lindex [lindex [lors::imsmd::mdGeneral -element description -node $lom -prefix $prefix] 0] 0]
+ set manifest_descrip [lindex [lindex [lors::imsmd::mdGeneral -element description -node $lom -prefix $prefix] 0] 1]
+
+ # adds course information for display
+ multirow append d_info "Manifest Title: " "\[$manifest_title_lang\] $manifest_title "
+ multirow append d_info "Metadata Type: " [concat $MetadataSchema $MetadataSchemaVersion]
+ if {![empty_string_p $manifest_descrip]} {
+ multirow append d_info "Description: " "\[$manifest_descrip_lang\] $manifest_descrip"
+ }
+ # Gets Rights info
+ set copyright [lors::imsmd::mdRights -element copyrightandotherrestrictions -node $lom -prefix $prefix]
+ if { $copyright != 0 } {
+ set copyright_s [lindex [lindex [lindex $copyright 0] 0] 1]
+ set copyright_v [lindex [lindex [lindex $copyright 0] 1] 1]
+ set cr_descrip [lors::imsmd::mdRights -element description -node $lom -prefix $prefix]
+ set cr_descrip_s [lindex [lindex $cr_descrip 0] 1]
+
+ multirow append d_info "Copyrighted?: " "\[$copyright_s\] $copyright_v"
+ multirow append d_info "Copyrighted Description: " "$cr_descrip_s"
+
+ } else {
+ multirow append d_info "Copyrighted?: " "Information not available"
+ }
+ } else {
+ # Didn't find LOM although it did find the Metadata schema and
+ # version
+ regexp {([^/\\]+)$} $tmp_dir match manifest_title
+ set context "[_ lorsm.lt_Importing_No_Metadata]"
+ }
+ } else {
+ # manifest title doesn't exist, so we create one for it.
+ regexp {([^/\\]+)$} $tmp_dir match manifest_title
+ set context "[_ lorsm.lt_Importing_No_Metadata]"
+ }
+
+
+ # Gets the organizations
+
+ set organizations [$manifest child all organizations]
+
+ if { ![empty_string_p $organizations] } {
+
+ set num_organizations [$organizations child all organization]
+
+ multirow append d_info "Number of Organizations: " [llength $num_organizations]
+
+ set items 0
+
+ foreach organization $num_organizations {
+
+ set items [expr $items + [lors::imscp::countItems $organization]]
+
+ }
+ multirow append d_info "Number of Items: " $items
+ }
+
+ # gets the resources
+ set resources [$manifest child all resources]
+
+ # Complain if there's no resources
+ if {[empty_string_p $resources]} {
+ ad_return_complaint 1 "[_ lorsm.lt_The_package_you_are_t_1]"
+ ad_script_abort
+ }
+
+ set resourcex [$resources child all resource]
+
+ if { $isSCORM == 1 } {
+ # The imsmanifest.xml file contains a SCORM course
+
+ # extract all the resources and files
+ set scos 0
+ set assets 0
+ set sharableresources 0
+ set files 0
+
+ if { ![empty_string_p $resources] } {
+
+ foreach resourcex [$resources child all resource] {
+
+ # gets the type of resource
+ set resource_scormtype [string tolower [lors::imsmd::getAtt $resourcex adlcp:scormtype]]
+
+ switch $resource_scormtype {
+ sco {
+ incr scos
+ }
+ asset {
+ incr assets
+ }
+ sharableresource {
+ incr sharableresources
+ }
+ }
+
+ set files [expr $files + [llength [lors::imsmd::getResource -node $resourcex -att files]]]
+
+ }
+ }
+
+ multirow append d_SCORM_package_info $scos $assets $sharableresources $files
+
+
+
+ # end isSCORM if
+ } else {
+ # The imsmanifest.xml file corresponds to a IMS CP (but not SCORM)
+
+ set files 0
+ if { ![empty_string_p $resourcex] } {
+
+ foreach resource $resourcex {
+ set files [expr $files + [llength [lors::imsmd::getResource -node $resource -att files]]]
+ }
+ }
+ multirow append d_IMS_package_info [llength $num_organizations] $items [llength $resourcex] $files
+
+ }
+
+
+} else {
+ # Error MSG here
+ ad_return_complaint 1 "[_ lorsm.lt_There_has_been_a_prob]"
+ ad_script_abort
+
+}
+
+template::form create course_upload -action course-add-3 \
+ -display_buttons { {"[_ lorsm.Upload_Course]" upload_course} } \
+ -html {enctype multipart/form-data} \
+ -mode edit \
+ -cancel_url "[_ lorsm.index]"
+
+
+template::element create course_upload course_name \
+ -label "[_ lorsm.Course_Name]" -datatype text -widget text -help_text "[_ lorsm.lt_This_is_the_name_the_]" \
+ -maxlength 200
+
+template::element create course_upload format_id \
+ -label "[_ lorsm.lt_Course_Presentation_S]" -datatype text -widget select -options [db_list_of_lists select_formats_for_select_widget {select format_pretty_name,
+ format_id
+ from lorsm_course_presentation_formats
+ order by format_pretty_name}] \
+ -help_text "[_ lorsm.lt_Use_the_Classic_Style]" -value [db_string default_format {select format_id from lorsm_course_presentation_formats where format_name = 'default'}]
+
+template::element create course_upload course_id \
+ -label "[_ lorsm.course_id]" -datatype integer -widget hidden
+
+template::element create course_upload indb_p \
+ -label "[_ lorsm.indb_p]" -datatype integer -widget hidden
+
+template::element create course_upload tmp_dir \
+ -label "[_ lorsm.tmp_dir]" -datatype text -widget hidden -optional
+
+template::element create course_upload folder_id \
+ -label "[_ lorsm.folder_id]" -datatype integer -widget hidden
+
+template::element create course_upload isSCORM \
+ -label "[_ lorsm.isSCORM]" -datatype integer -widget hidden -optional
+
+template::element create course_upload fs_package_id \
+ -label "[_ lorsm.fs_package_id]" -datatype integer -widget hidden
+
+template::element set_properties course_upload course_name -value $manifest_title
+
+template::element set_properties course_upload course_id -value $course_id
+
+template::element set_properties course_upload indb_p -value $indb_p
+
+template::element set_properties course_upload tmp_dir -value $tmp_dir
+
+template::element set_properties course_upload folder_id -value $folder_id
+
+template::element set_properties course_upload isSCORM -value $isSCORM
+
+template::element set_properties course_upload fs_package_id -value $fs_package_id
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/course-add-3.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/Attic/course-add-3.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-add-3.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,56 @@
+
+@context;noquote@
+
+
+
+
#lorsm.lt_Preliminary_informati#
+
+
+
+
+
+ #lorsm.lt_The_uploaded_file_is_# #lorsm.lt_SCORM_complaint_packa#
+
+
+#lorsm.Note##lorsm._the_package_has# #lorsm.not_yet# #lorsm.lt_being_added_to_the_Le#
+
+
+
#lorsm.Organizations#
+
+
+
+
+#lorsm.Items#
+
+
+
+
+
+
+#lorsm.SCOs#
+
+
+
+
#lorsm.Assets#
+
+
+
+
+
+
+#lorsm.Resources#
+
+
+
+
+
+
+
+
+@l_files@
+
+
+
+@all_files@
+
+
Index: openacs-4/packages/lorsm/www/admin/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-3.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-add-3.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,596 @@
+ad_page_contract {
+ Upload an IMS Content Package 3
+
+ Scope:
+
+ Add files to the CR
+ Process imsmanifest.xml
+ Determines this is a Blackboard course and if it is process it accordingly.
+ Inserts all ims_items, resources and all IMS CP entities into the DB.
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 19 March 2003
+ @cvs-id $Id: course-add-3.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+} {
+ folder_id:integer,notnull
+ format_id:integer,notnull
+ tmp_dir:optional,notnull
+ course_id:integer,notnull
+ course_name:notnull
+ indb_p:integer,notnull
+ fs_package_id:integer,notnull
+
+} -validate {
+ non_empty -requires {upload_file.tmpfile:notnull} {
+ if {![empty_string_p $upload_file] && (![file exists ${upload_file.tmpfile}] || [file size ${upload_file.tmpfile}] < 4)} {
+ ad_complain "[_ lorsm.lt_The_upload_failed_or_]"
+ }
+ }
+}
+
+set context ""
+
+#check permission
+set user_id [ad_conn user_id]
+ad_require_permission $folder_id admin
+
+
+# Display progress bar
+ad_progress_bar_begin \
+ -title "[_ lorsm.Uploading_course]" \
+ -message_1 "[_ lorsm.lt_Uploading_and_process]" \
+ -message_2 "[_ lorsm.lt_We_will_continue_auto]"
+
+
+ns_write "
[_ lorsm.lt_Initiating_Updating_l]
"
+
+# Is this a Blackboard6 package?
+set isBB [lors::imscp::bb6::isBlackboard6 -tmp_dir $tmp_dir]
+
+if {$isBB == 1} {
+ ns_write "[_ lorsm.lt_Blackboard6_Content_P].
[_ lorsm.lt_Modifying_package_to_]"
+ ns_write "
[_ lorsm.lt_Cleaning_up_unused_ap]"
+ lors::imscp::bb6::clean_items -tmp_dir $tmp_dir -file "imsmanifest.xml"
+ ns_write "[_ lorsm.Done]"
+ ns_write "
[_ lorsm.lt_Renaming_content_type]"
+ lors::imscp::bb6::extract_html -tmp_dir $tmp_dir -file "imsmanifest.xml"
+ ns_write "[_ lorsm.Done]
"
+
+}
+
+
+ns_write " [_ lorsm.lt_Starting_File_Process]
"
+
+
+db_transaction {
+
+ ## adds folder to the CR
+ set parent_id $folder_id
+ set fs_dir $tmp_dir
+
+ # checks for write permission on the parent folder
+ ad_require_permission $parent_id write
+
+ # get their IP
+ set creation_ip [ad_conn peeraddr]
+
+ # checks whether the directory given actually exists
+ if {[file exists $fs_dir]} {
+ set all_files [list]
+ # now that exists, let's create it on the CR
+
+ # gets rid of the path and leaves the name of the directory
+ # if course_name is changed, then use that name. Otherwise it will use the default folder name given
+ if {![empty_string_p $course_name]} {
+ regexp {([^/\\]+)$} $course_name match cr_dir
+ } else {
+ regexp {([^/\\]+)$} $fs_dir match cr_dir
+
+ }
+
+ # We need to separate folders (since now all are cr_items) one for the files (content) and the other
+ # one for the created cr_items
+ set new_parent_id [lors::cr::add_folder -parent_id $parent_id -folder_name $cr_dir]
+ set new_items_parent_id [lors::cr::add_folder -parent_id $parent_id -folder_name "${cr_dir}_items"]
+
+ # PERMISSIONS FOR FILE-STORAGE
+
+ # Before we go about anything else, lets just set permissions straight.
+ # Disable folder permissions inheritance
+ permission::toggle_inherit -object_id $new_parent_id
+ permission::toggle_inherit -object_id $new_items_parent_id
+
+ # Set read permissions for community/class dotlrn_member_rel
+
+ set community_id [dotlrn_community::get_community_id]
+
+ set party_id_member [db_string party_id {select segment_id from rel_segments \
+ where group_id = :community_id \
+ and rel_type = 'dotlrn_member_rel'}]
+
+ permission::grant -party_id $party_id_member -object_id $new_parent_id -privilege read
+ permission::grant -party_id $party_id_member -object_id $new_items_parent_id -privilege read
+
+ # Set read permissions for community/class dotlrn_admin_rel
+
+ set party_id_admin [db_string party_id {select segment_id from rel_segments \
+ where group_id = :community_id \
+ and rel_type = 'dotlrn_admin_rel'}]
+
+ permission::grant -party_id $party_id_admin -object_id $new_parent_id -privilege read
+ permission::grant -party_id $party_id_admin -object_id $new_items_parent_id -privilege read
+
+ # Set read permissions for *all* other professors within .LRN
+ # (so they can see the content)
+
+ set party_id_professor [db_string party_id {select segment_id from rel_segments \
+ where rel_type = 'dotlrn_professor_profile_rel'}]
+
+ permission::grant -party_id $party_id_professor -object_id $new_parent_id -privilege read
+ permission::grant -party_id $party_id_professor -object_id $new_items_parent_id -privilege read
+
+ # Set read permissions for *all* other admins within .LRN
+ # (so they can see the content)
+
+ set party_id_admins [db_string party_id {select segment_id from rel_segments \
+ where rel_type = 'dotlrn_admin_profile_rel'}]
+
+ permission::grant -party_id $party_id_admins -object_id $new_parent_id -privilege read
+ permission::grant -party_id $party_id_admins -object_id $new_items_parent_id -privilege read
+
+
+
+ set filesx [lors::cr::add_files -parent_id $new_parent_id -indb_p $indb_p -files [lors::cr::has_files -fs_dir $fs_dir]]
+
+ set all_files [concat $all_files $filesx]
+
+ # get all the directories and files under those dirs
+
+ set dirs [lors::cr::has_dirs -fs_dir $fs_dir]
+
+ set base_parent_id $new_parent_id
+
+ # dirx = directory loop
+ set dirx [list "$base_parent_id [list $dirs]"]
+
+ # for each directory found..
+ while {[llength $dirx] != 0} {
+ set collector [list]
+ foreach dir $dirx {
+ # if the dirx loop is 0...
+ set base_parent_id [lindex $dir 0]
+
+ foreach subdir [lindex $dir 1] {
+
+ # remove all path
+ regexp {([^/\\]+)$} $subdir match cr_dir
+
+ # add the folder to the CR
+ ns_write "[_ lorsm.Processing_folder]![](\"/resources/file-storage/folder.gif\")
: $cr_dir
"
+ set new_cr_folder_id [lors::cr::add_folder -parent_id $base_parent_id -folder_name $cr_dir]
+ lappend collector "$new_cr_folder_id [list [lors::cr::has_dirs -fs_dir $subdir]]"
+
+ # add files (if any)
+ set files [lors::cr::has_files -fs_dir $subdir]
+
+ #For display purposes
+ ns_write "[_ lorsm.Processing_files]"
+ foreach file $files {
+ set tempval [regsub $tmp_dir $file {}]
+ ns_write "![](\"/resources/file-storage/file.gif\")
$tempval[_ lorsm.OK]
"
+ }
+ ns_write "
"
+ #
+
+ if ![empty_string_p $files] {
+ set filesx [lors::cr::add_files -parent_id $new_cr_folder_id -files $files -indb_p $indb_p]
+ set all_files [concat $all_files $filesx]
+ }
+
+ }
+ }
+ if {[llength $collector] == 0} {
+ # then just add the name of the directories
+ set dirx $collector
+ } else {
+ # otherwise, then just add the new directories to the queue
+ set dirx
+ set dirx $collector
+ }
+ }
+
+ ## Finish adding files to the CR.
+
+ ## Now we start processing the imsmanifest.xml file
+
+ ns_write "[_ lorsm.Now_processing]imsmanifest.xml [_ lorsm.file]"
+ ## Opens imsmanifest.xml
+
+ # open manifest file with tDOM
+ dom parse [::tDOM::xmlReadFile $tmp_dir/imsmanifest.xml] doc
+ # gets the manifest tree
+ set manifest [$doc documentElement]
+
+ # Gets manifest characteristics
+ set man_identifier [lors::imsmd::getAtt $manifest identifier]
+ set man_version [lors::imsmd::getAtt $manifest version]
+
+ # DETECT SCORM OR IMS CP
+ # NOTE: it requires that the manifest contains a metadata record (which is not always the case) :-(
+ ##
+
+ # gets metadata node
+ set metadata [$manifest child all metadata]
+
+ if { ![empty_string_p $metadata] } {
+ # gets metadataschema
+ set MetadataSchema [lindex [lindex [lors::imsmd::getMDSchema $metadata] 0] 0]
+ set MetadataSchemaVersion [lindex [lors::imsmd::getMDSchema $metadata] 1]
+ if {![empty_string_p $MetadataSchema]} {
+ set isSCORM [regexp -nocase scorm $MetadataSchema]
+ }
+ if {$isSCORM == 1} {
+ set man_isscorm 1
+ } else {
+ set man_isscorm 0
+ }
+ } else {
+ set man_isscorm 0
+ }
+ # use isscorm proc!
+ set man_isscorm [lors::imscp::isSCORM -node $manifest]
+
+ if { ![empty_string_p $metadata] } {
+ set man_hasmetadata 1
+ } else {
+ set man_hasmetadata 0
+ }
+
+
+ ## Gets manifest title
+
+ if { ![empty_string_p $metadata] } {
+ set lom [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 0]
+ set prefix [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 1]
+ if { $lom != 0 } {
+ # Get title
+ set manifest_title_lang [lindex [lindex [lors::imsmd::mdGeneral -element title -node $lom -prefix $prefix] 0] 0]
+ set manifest_title [lindex [lindex [lors::imsmd::mdGeneral -element title -node $lom -prefix $prefix] 0] 1]
+ # set context
+ set context "[_ lorsm.lt_Importing_manifest_ti]"
+
+ ## Gets manifest description
+
+ set manifest_descrip_lang [lindex [lindex [lors::imsmd::mdGeneral -element description -node $lom -prefix $prefix] 0] 0]
+ set manifest_descrip [lindex [lindex [lors::imsmd::mdGeneral -element description -node $lom -prefix $prefix] 0] 1]
+
+ # adds course information for display
+
+
+ # Gets Rights info
+ set copyright [lors::imsmd::mdRights -element copyrightandotherrestrictions -node $lom -prefix $prefix]
+ if { ![empty_string_p $copyright] } {
+ set copyright_s [lindex [lindex [lindex $copyright 0] 0] 1]
+ set copyright_v [lindex [lindex [lindex $copyright 0] 1] 1]
+ set cr_descrip [lors::imsmd::mdRights -element description -node $lom -prefix $prefix]
+ set cr_descrip_s [lindex [lindex $cr_descrip 0] 1]
+
+
+ }
+
+
+ } else {
+ set context "[_ lorsm.lt_Importing_No_Metadata]"
+ }
+
+ }
+
+
+
+ # Gets the organizations
+
+ set organizations [$manifest child all organizations]
+ set man_orgs_default [lors::imsmd::getAtt $organizations default]
+
+ set man_id [lors::imscp::manifest_add \
+ -course_name $course_name \
+ -identifier $man_identifier \
+ -version $man_version \
+ -orgs_default $man_orgs_default \
+ -hasmetadata $man_hasmetadata \
+ -course_presentation_format $format_id \
+ -isscorm $man_isscorm \
+ -folder_id $new_items_parent_id \
+ -fs_package_id $fs_package_id \
+ -community_id $community_id \
+ -content_folder_id $new_parent_id]
+
+
+ ns_write "[_ lorsm.lt_Granting_permissions__1]
"
+
+ # PERMISSIONS FOR MANIFEST and learning objects
+
+ # set up in the same way as permissions for the file storage
+ # objects. As we want to maintain consistency btw the
+ # learnining objects and their content
+
+ # Disable folder permissions inheritance
+ permission::toggle_inherit -object_id $man_id
+
+ # Set read permissions for community/class dotlrn_member_rel
+
+ set community_id [dotlrn_community::get_community_id]
+
+ set party_id_member [db_string party_id {select segment_id from rel_segments \
+ where group_id = :community_id \
+ and rel_type = 'dotlrn_member_rel'}]
+
+ permission::grant -party_id $party_id_member -object_id $man_id -privilege read
+
+ # Set read permissions for community/class dotlrn_admin_rel
+
+ set party_id_admin [db_string party_id {select segment_id from rel_segments \
+ where group_id = :community_id \
+ and rel_type = 'dotlrn_admin_rel'}]
+
+ permission::grant -party_id $party_id_admin -object_id $man_id -privilege read
+
+ # Set read permissions for *all* other professors within .LRN
+ # (so they can see the content)
+
+ set party_id_professor [db_string party_id {select segment_id from rel_segments \
+ where rel_type = 'dotlrn_professor_profile_rel'}]
+
+ permission::grant -party_id $party_id_professor -object_id $man_id -privilege read
+
+ # Set read permissions for *all* other admins within .LRN
+ # (so they can see the content)
+
+ set party_id_admins [db_string party_id {select segment_id from rel_segments \
+ where rel_type = 'dotlrn_admin_profile_rel'}]
+
+ permission::grant -party_id $party_id_admins -object_id $man_id -privilege read
+
+
+ # Done with Manifest and learning object Permissions
+
+
+ ns_write "[_ lorsm.lt_Adding_course_name_Ma]
"
+
+ if {$man_hasmetadata == 1} {
+ # adds manifest metadata
+ set aa [lors::imsmd::addMetadata \
+ -acs_object $man_id \
+ -node $metadata \
+ -dir $tmp_dir]
+
+ ns_write "[_ lorsm.lt_Adding_Manifest_Metad]
"
+
+ }
+
+
+ if { ![empty_string_p $organizations] } {
+
+ # for multiple organizations
+ set add [list]
+
+ foreach organization [$organizations child all organization] {
+
+ set org_identifier [lors::imsmd::getResource -node $organization -att identifier]
+
+ set org_identifier [lors::imsmd::getResource -node $organization -att identifier]
+ set org_structure [lors::imsmd::getResource -node $organization -att structure]
+ if {![empty_string_p [$organization child all title]]} {
+ set org_title [lors::imsmd::getElement [$organization child all title]]
+ } else {
+ set org_title ""
+ }
+ set org_hasmetadata [lors::imsmd::hasMetadata $organization]
+
+ set org_id [lors::imscp::organization_add \
+ -man_id $man_id \
+ -identifier $org_identifier \
+ -structure $org_structure \
+ -title $org_title \
+ -hasmetadata $org_hasmetadata\
+ -org_folder_id $new_items_parent_id]
+
+ ns_write "[_ lorsm.lt_Adding_Organization_o]
"
+
+
+ if {$org_hasmetadata == 1} {
+ # adds manifest metadata
+ set aa [lors::imsmd::addMetadata \
+ -acs_object $org_id \
+ -node [lors::imsmd::getMDNode $organization] \
+ -dir $tmp_dir]
+ }
+
+ set list_items [lors::imscp::getItems $organization]
+
+# ns_write "[_ lorsm.lt_here_is_list_items_li]"
+
+ set add [concat $add [lors::imscp::addItems -itm_folder_id $new_items_parent_id -org_id $org_id $list_items 0 $tmp_dir]]
+
+ set tempval [llength $add]
+ ns_write "[_ lorsm.lt_Adding_tempval_items_]
"
+
+ }
+
+
+ }
+
+ set l_files [list]
+
+ set resources [$manifest child all resources]
+
+ set resourcex [$resources child all resource]
+
+ if { ![empty_string_p $resourcex] } {
+
+ set res_list [list]
+ foreach resource $resourcex {
+ set res_identifier [lors::imsmd::getResource -node $resource -att identifier]
+ set res_type [lors::imsmd::getResource -node $resource -att type]
+ set res_href [lors::imsmd::getResource -node $resource -att href]
+ set res_dependencies [lors::imsmd::getResource -node $resource -att dependencies]
+ set res_hasmetadata [lors::imsmd::hasMetadata $resource]
+ set res_files [lors::imsmd::getResource -node $resource -att files]
+ set res_scormtype [lors::imsmd::getAtt $resource adlcp:scormtype]
+
+ # Integration with other packages
+ # This callback gets the href of the imported content (if some package imported it)
+ set res_href_tmp [callback -catch lors::import -res_type $res_type -res_href $res_href -tmp_dir $tmp_dir -community_id $community_id]
+ if {![empty_string_p $res_href_tmp]} {
+ set res_href $res_href_tmp
+ }
+
+ set resource_id [lors::imscp::resource_add \
+ -man_id $man_id \
+ -identifier $res_identifier \
+ -type $res_type \
+ -href $res_href \
+ -scorm_type $res_scormtype \
+ -hasmetadata $res_hasmetadata \
+ -res_folder_id $new_items_parent_id]
+
+ ns_write "[_ lorsm.lt_Adding_resource_res_i_2]
"
+
+ lappend res_list [concat "$resource_id $res_identifier"]
+
+
+
+
+ if {$res_hasmetadata == 1} {
+ set res_md_add [lors::imsmd::addMetadata \
+ -acs_object $resource_id \
+ -node [lors::imsmd::getMDNode $resource] \
+ -dir $tmp_dir]
+
+ ns_write "[_ lorsm.lt_Adding_resource_res_i_3]
"
+
+ }
+
+
+ foreach dependency $res_dependencies {
+
+ set dep_id [lors::imscp::dependency_add \
+ -res_id $resource_id \
+ -identifierref $dependency]
+
+ ns_write "[_ lorsm.lt_Adding_resource_depen]
"
+
+ }
+
+
+ foreach file $res_files {
+ lappend l_files [list [lindex $file 0] $resource_id [lindex $file 1]]
+
+ # ns_write "[_ lorsm.lt_resource_id_res_ident]"
+ # ns_write "\t$file \n"
+ }
+ }
+ }
+
+ # gets the resources
+ set resources [$manifest child all resources]
+
+ } else {
+ # Error MSG here
+ #ns_write "[_ lorsm.no_page]"
+ }
+
+
+ # Here's where we link items and resources. Take into
+ # account that a resources can have 1 to many items
+
+
+ # So first, let's create a list of only item_identifierrefs
+ # [lindex $add 1]. Therefore we can do a lsearch -exact instead of
+ # a -regexp
+
+ foreach ref $add {
+ lappend i_identref [lindex $ref 1]
+ }
+
+ foreach resource $res_list {
+
+ set find_item_id [lsearch -all -exact $i_identref [lindex $resource 1]]
+
+ if {$find_item_id != -1} {
+
+ foreach item_to_res $find_item_id {
+
+ set item_to_resource [lors::imscp::item_to_resource_add \
+ -item_id [lindex [lindex $add $item_to_res] 0] \
+ -res_id [lindex $resource 0]
+ ]
+ }
+
+ }
+
+ }
+
+ ns_write "[_ lorsm.lt_Now_we_are_almost_don]
"
+
+ foreach file $l_files {
+
+ set filename [lindex $file 0]
+
+ set found_file [lsearch -all -regexp $all_files $filename]
+
+ if {[llength $found_file] > 1} {
+ # we are suppose to get only one element back, so we have
+ # to refine the search a bit more.
+ set found_file [lsearch -all -regexp $all_files $tmp_dir/$filename]
+ }
+
+ if {![empty_string_p $found_file]} {
+ set file_id [lindex [lindex $all_files $found_file] 3]
+ set file_rev_id [content::item::get_live_revision -item_id $file_id]
+ set res_id [lindex $file 1]
+ set file_hasmetadata [lindex $file 2]
+
+ regexp {([^/\\]+)$} $filename match filex
+
+ if {$file_hasmetadata != 0} {
+ set hasmetadata 1
+ } else {
+ set hasmetadata 0
+ }
+
+ set fileadd [lors::imscp::file_add \
+ -file_id $file_rev_id \
+ -res_id $res_id \
+ -pathtofile $filename \
+ -filename $filex \
+ -hasmetadata $hasmetadata]
+
+ ns_write "[_ lorsm.Adding_file_filex]
"
+
+
+ if {$file_hasmetadata != 0} {
+ set add_file_metadata [lors::imsmd::addMetadata \
+ -acs_object $file_id \
+ -node $file_hasmetadata \
+ -dir $tmp_dir]
+
+ ns_write "[_ lorsm.lt_Adding_file_filex_met_1]
"
+ }
+ }
+
+ }
+
+
+ # Delete temporary directory
+ ns_write "[_ lorsm.lt_Deleting_temporary_fo]
"
+ ns_log Debug "Delete temporary folder $tmp_dir"
+ lors::imscp::deltmpdir $tmp_dir
+
+ ns_write "[_ lorsm.Done]
"
+
+ # jump to the front page
+ ad_progress_bar_end -url [apm_package_url_from_id [ad_conn package_id]]
+
+
+}
Index: openacs-4/packages/lorsm/www/admin/course-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-add.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,35 @@
+
+#lorsm.lt_Upload_an_IMSSCORM_Co#
+@context;noquote@
+
+
+
+
+ #lorsm.lt_Shared_Courses_in_the#
+ |
+
+
+
+ #lorsm.lt_You_can_add_courses_a#
+
+
+ |
+
+
+
+ #lorsm.Create_a_new_course#
+ |
+
+
+
+
+
+ #lorsm.or_upload_existing_course#
+
+
+ |
+
+
+
Index: openacs-4/packages/lorsm/www/admin/course-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-add.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,85 @@
+ad_page_contract {
+ Upload and imports an IMS Content Package file
+ Initial form data
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 19 March 2003
+ @cvs-id $Id: course-add.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+
+} {
+ man_id:optional
+}
+
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
+
+if { ![info exists man_id] } {
+ set man_id ""
+}
+
+# Gets file-storage root folder_id
+# eventually, we should provide an option so it can be imported in
+# different subfolders
+set fs_package_id [site_node_apm_integration::get_child_package_id \
+ -package_id [dotlrn_community::get_package_id $community_id] \
+ -package_key "file-storage"\
+ ]
+
+#set fs_package_id [apm_package_id_from_key "file-storage"] -- if used
+# with OpenACS
+
+# Gets root folder and root folder name
+set folder_id [fs::get_root_folder -package_id $fs_package_id]
+set folder_name [fs::get_object_name -object_id $folder_id]
+
+# Gets whether the file-storage instance is a indb_p or file system
+# (StoreFilesInDatabaseP) one not that we use it now -since we are
+# currently putting everything on the file system, but eventually we
+# will have the option to put it on the db.
+
+set indb_p [parameter::get -parameter "StoreFilesInDatabaseP" -package_id $fs_package_id]
+
+# Gets URL for file-storage package
+
+set fs_url [apm_package_url_from_id $fs_package_id]
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+
+# set course id
+set course_id 1
+
+# set context
+set context [list "[_ lorsm.lt_Upload_IMS_Content_Pa]"]
+
+template::form create course_upload -action course-add-2 -html {enctype multipart/form-data}
+
+template::element create course_upload course_id \
+ -label "[_ lorsm.course_id]" -datatype integer -widget hidden
+
+template::element create course_upload indb_p \
+ -label "[_ lorsm.indb_p]" -datatype integer -widget hidden
+
+template::element create course_upload fs_package_id \
+ -label "[_ lorsm.fs_package_id]" -datatype integer -widget hidden
+
+template::element create course_upload folder_id \
+ -label "[_ lorsm.folder_id]" -datatype integer -widget hidden
+
+template::element create course_upload upload_file \
+ -label "[_ lorsm.lt_Choose_the_course_zip]" -help_text "[_ lorsm.lt_Use_the_Browse_button]" -datatype text -widget file
+
+# To support course versions
+template::element create course_upload man_id \
+ -datatype integer -widget hidden
+
+template::element set_properties course_upload course_id -value $course_id
+template::element set_properties course_upload folder_id -value $folder_id
+template::element set_properties course_upload indb_p -value $indb_p
+template::element set_properties course_upload fs_package_id -value $fs_package_id
+template::element set_properties course_upload man_id -value $man_id
+
+
+ad_return_template
+
+
Index: openacs-4/packages/lorsm/www/admin/course-structure.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-structure.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-structure.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,5 @@
+
+ @title;noquote@
+ @context;noquote@
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/admin/course-structure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-structure.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-structure.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,19 @@
+# # packages/lorsm/www/course_structure.tcl
+
+ ad_page_contract {
+
+ View Manifest Course Structure
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-03-31
+ @arch-tag 208f2801-d110-45d3-9401-d5eae1f72c93
+ @cvs-id $Id: course-structure.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+ } {
+ man_id:integer,notnull
+ } -properties {
+ } -validate {
+ } -errors {
+ }
+
+ set context [list "[_ lorsm.Course_Structure]"]
+ set title "[_ lorsm.Course_Structure]"
Index: openacs-4/packages/lorsm/www/admin/course-structure.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-structure.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/course-structure.xql 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,184 @@
+
+
+
+
+
+ select
+ cp.man_id,
+ cp.course_name,
+ cp.identifier,
+ text 'Yes' as hello,
+ case
+ when hasmetadata = 't' then 'Yes'
+ else 'No'
+ end as man_metadata,
+ case
+ when isscorm = 't' then 'Yes'
+ else 'No'
+ end as isscorm,
+ cp.fs_package_id,
+ case
+ when fs_package_id is null then 'f'
+ else 't'
+ end as lorsm_p,
+ cp.folder_id,
+ cp.isshared,
+ acs.creation_user,
+ acs.creation_date,
+ acs.context_id,
+ cpmc.isenabled,
+ pf.format_pretty_name,
+ cpmc.istrackable
+ from
+ ims_cp_manifests cp, acs_objects acs, ims_cp_manifest_class cpmc, lorsm_course_presentation_formats pf
+ where
+ cp.man_id = acs.object_id
+ and cp.man_id = :man_id
+ and cp.man_id = cpmc.man_id
+ and cpmc.lorsm_instance_id = :package_id
+ and cp.parent_man_id = 0
+ and cp.course_presentation_format = pf.format_id
+
+
+
+
+
+ select
+ count(revision_id)
+ from
+ cr_revisions
+ where
+ item_id = (
+ select
+ item_id
+ from
+ cr_revisions
+ where
+ revision_id = :man_id
+ )
+
+
+
+
+
+ select
+ item_id
+ from
+ cr_items
+ where
+ name = :instance and
+ parent_id = :root_folder
+
+
+
+
+
+ select
+ count(*) as submanifests
+ from
+ ims_cp_manifests
+ where
+ man_id = :man_id
+ and
+ parent_man_id = :man_id
+
+
+
+
+
+
+ select
+ org.org_id,
+ org.org_title as org_title,
+ org.hasmetadata,
+ tree_level(o.tree_sortkey) as indent
+ from
+ ims_cp_organizations org, acs_objects o
+ where
+ org.org_id = o.object_id
+ and
+ man_id = :man_id
+ order by
+ org_id
+
+
+
+
+
+ SELECT
+ o.object_id,
+ repeat(' ', (tree_level(tree_sortkey) - :indent)* 3) as indent,
+ i.ims_item_id as item_id,
+ i.item_title as item_title,
+ i.hasmetadata,
+ i.org_id,
+ case
+ when i.isshared = 'f' then (
+ 'false'
+ )
+ else 'true'
+ end as isshared,
+ case
+ when i.identifierref <> '' then (
+ SELECT
+ res.href
+ FROM
+ ims_cp_items_to_resources i2r,
+ ims_cp_resources res
+ WHERE
+ i2r.res_id = res.res_id
+ AND
+ i2r.ims_item_id = i.ims_item_id
+)
+ else ''
+ end as identifierref,
+ case
+ when i.identifierref <> '' then (
+ SELECT
+ res.type
+ FROM
+ ims_cp_items_to_resources i2r,
+ ims_cp_resources res
+ WHERE
+ i2r.res_id = res.res_id
+ AND
+ i2r.ims_item_id = i.ims_item_id
+)
+ else ''
+ end as type,
+ m.fs_package_id,
+ m.folder_id,
+ m.course_name
+ FROM
+ acs_objects o, ims_cp_items i, ims_cp_manifests m
+ WHERE
+ o.object_type = 'ims_item_object'
+ AND
+ i.org_id = :org_id
+ AND
+ o.object_id = i.ims_item_id
+ AND
+ i.ims_item_id = (
+ select
+ live_revision
+ from
+ cr_items
+ where
+ item_id = (
+ select
+ item_id
+ from
+ cr_revisions
+ where
+ revision_id = i.ims_item_id
+ )
+ )
+ AND
+ m.man_id = :man_id
+ ORDER BY
+ tree_sortkey, object_id
+
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/admin/enabler.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/enabler.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/enabler.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,5 @@
+
+ @title@
+ @context@
+
+
Index: openacs-4/packages/lorsm/www/admin/enabler.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/enabler.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/enabler.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,62 @@
+# packages/lorsm/www/enabler.tcl
+
+ad_page_contract {
+
+ enable/disable courses for a class
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-05-19
+ @arch-tag ebea2a9b-b6d6-4083-83c5-58686ba9e201
+ @cvs-id $Id: enabler.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+} {
+ man_id:integer,notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
+
+set title [list "[_ lorsm.Set_Course_Trackable]"]
+set context [list "[_ lorsm.Set_Course_Status]"]
+
+ad_form -name enabler \
+ -export {package_id} \
+ -form {
+ {man_id:key}
+ {project:text(inform)
+ {label "[_ lorsm.Course_Name]"}
+ {value {[lorsm::get_course_name -manifest_id $man_id]}}
+ }
+ {isenabled:text(inform)
+ {label "[_ lorsm.Current_Status]"}
+ }
+ {enable:text(radio)
+ {label "[_ lorsm.Status_3]"}
+ {options {{"[_ lorsm.Enable]" t} {"[_ lorsm.Disable]" f}}}
+ }
+ } -select_query {
+ select
+ case when isenabled = 't' then 'Enabled'
+ else 'Disabled'
+ end as isenabled
+ from ims_cp_manifest_class
+ where man_id = :man_id and
+ lorsm_instance_id = :package_id
+ } -edit_data {
+ db_dml do_update "
+ update ims_cp_manifest_class
+ set isenabled = :enable
+ where man_id = :man_id and
+ lorsm_instance_id = :package_id"
+ } -after_submit {
+ ad_returnredirect [site_node::get_url_from_object_id -object_id package_id]
+ ad_script_abort
+ }
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/formater.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/formater.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/formater.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,5 @@
+
+ @title@
+ @context@
+
+
Index: openacs-4/packages/lorsm/www/admin/formater.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/formater.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/formater.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,63 @@
+# packages/lorsm/www/formater.tcl
+
+ad_page_contract {
+
+ Change course format presentation
+
+ @author jopezku@gmail.com
+ @cvs-id $Id: formater.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+} {
+ man_id:integer
+ return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
+
+# check write permisssion for the learning object/manifest
+permission::require_write_permission -object_id $man_id -creation_user $user_id
+
+
+set title "[_ lorsm.lt_Set_Course_Presentati]"
+set context [list "[_ lorsm.lt_Set_Course_Presentati]"]
+
+ad_form -name formater \
+ -export {return_url} \
+ -form {
+ {man_id:key}
+ {project:text(inform)
+ {label "[_ lorsm.Course_Name]"}
+ {value {[lorsm::get_course_name -manifest_id $man_id]}}
+ }
+ {format_pretty_name:text(inform)
+ {label "[_ lorsm.Current_Format]"}
+ }
+ {format:text(select)
+ {label "[_ lorsm.Format_1]"}
+ {options {[db_list_of_lists select_formats_for_select_widget {select format_pretty_name,
+ format_id
+ from lorsm_course_presentation_formats
+ order by format_pretty_name}]}}
+ }
+ } -select_query {
+ select cp.course_presentation_format as format, pf.format_pretty_name
+ from ims_cp_manifests cp, lorsm_course_presentation_formats pf
+ where cp.man_id = :man_id
+ and cp.course_presentation_format = pf.format_id
+ } -edit_data {
+ db_transaction {
+ db_dml do_update {
+ update ims_cp_manifests
+ set course_presentation_format = :format
+ where man_id = :man_id }
+ }
+ } -after_submit {
+ ad_returnredirect $return_url
+ }
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/index.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/index.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,16 @@
+
+ @title@
+ @context@
+
+
+
+
+ #lorsm.lt_Courses_in_your_Repos#
+ |
+
+ |
+
+ |
+
+
+
Index: openacs-4/packages/lorsm/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/index.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,187 @@
+# packages/lorsm/www/index.tcl
+
+ad_page_contract {
+ Learning Object Repository Management Index page
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 19 January 2003
+ @cvs-id $Id: index.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+
+} {
+}
+
+set title "[_ lorsm.lt_Manage_Courses_in_Rep]"
+set context [list "[_ lorsm.Manage_Courses]"]
+
+
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
+
+set actions [list]
+
+lappend actions "[_ lorsm.Add_Course]" [export_vars -base "course-add"] "[_ lorsm.lt_Add_a_IMSSCORM_Compli]"
+lappend actions "[_ lorsm.lt_Search_Learning_Objec]" [export_vars -base "/search"] "[_ lorsm.lt_Search_for_Learninng_]"
+lappend actions "[_ lorsm.Available_Courses]" [export_vars -base "shared/"] "[_ lorsm.lt_View_Available_Course]"
+
+template::list::create \
+ -name d_courses \
+ -multirow d_courses \
+ -html {width 50%} \
+ -actions $actions \
+ -key man_id \
+ -no_data "[_ lorsm.No_Courses]" \
+ -elements {
+ course_name {
+ label "[_ lorsm.Available_Courses]"
+ display_template {@d_courses.course_url;noquote@}
+ display_col course_name
+ link_html {title "Access Course"}
+ }
+ hasmetadata {
+ label "[_ lorsm.Metadata_1]"
+ display_template {
+
+
+ @d_courses.hasmetadata@
+
+
+
+ @d_courses.hasmetadata@
+
+ }
+ }
+ isscorm {
+ label "[_ lorsm.SCORM]"
+ html { align center }
+ }
+ isenabled {
+ label "[_ lorsm.Status_1]"
+ html { align center }
+ }
+ istrackable {
+ label "[_ lorsm.Tracking]"
+ link_url_eval {tracking/?[export_vars man_id]}
+ link_html {title "[_ lorsm.lt_Track_Students_Progre]" class button}
+ html { align center }
+ }
+ deliverymethod {
+ label "[_ lorsm.Default_delivery]"
+ html { align center }
+ }
+ hasrtedata {
+ label "[_ lorsm.SCORM_session]"
+ display_template {
+
+
+ @d_courses.hasrtedata@
+
+ }
+ }
+ creation_user {
+ label "[_ lorsm.Owner]"
+ display_eval {[person::name -person_id $creation_user]}
+ link_url_eval {[acs_community_member_url -user_id $creation_user]}
+ }
+ creation_date {
+ label "[_ lorsm.Creation_Date]"
+ display_eval {[lc_time_fmt $creation_date "%x %X"]}
+ }
+ export {
+ label "[_ lorsm.Export]"
+ display_template {
+
+
+ \[zip\]
+
+
+ }
+ }
+ admin {
+ label "[_ lorsm.Admin_Course]"
+ display_eval {Admin}
+ link_url_eval {[export_vars -base course-structure man_id]}
+ link_html {title "[_ lorsm.Admin_Course]" class button}
+ html { align center }
+ }
+ }
+
+
+db_multirow -extend { ims_md_id course_url } d_courses select_d_courses {
+ select
+ cp.man_id,
+ cp.course_name,
+ cp.identifier,
+ cp.version,
+ case
+ when cp.hasmetadata = 't' then 'Yes'
+ else 'No'
+ end as hasmetadata,
+ case
+ when isscorm = 't' then 'Yes'
+ else 'No'
+ end as isscorm,
+ cp.fs_package_id,
+ case when fs_package_id is null then 'f'
+ else 't'
+ end as lorsm_p,
+ cp.folder_id,
+ acs.creation_user,
+ acs.creation_date,
+ pf.folder_name,
+ pf.format_name,
+ acs.context_id,
+ case
+ when cpmc.isenabled = 't' then 'Enabled'
+ else 'Disabled'
+ end as isenabled,
+ case
+ when cpmc.istrackable = 't' then 'Yes'
+ else 'No'
+ end as istrackable,
+ -- micheles
+ -- addition for rte stuff
+-- 'Click here' as hasrtedata,
+ case
+ when
+ upper(scorm_type) = 'SCO'
+ then 'Click here'
+ else ''
+ end as hasrtedata,
+ case
+ when
+ upper(scorm_type) = 'SCO'
+ then 'delivery-scorm'
+ else 'delivery'
+ end as deliverymethod
+
+ from
+ acs_objects acs,
+ ims_cp_manifest_class cpmc,
+ lorsm_course_presentation_formats pf,
+ -- micheles
+ ims_cp_manifests cp left join (select man_id, max(scorm_type) as scorm_type from ims_cp_resources group by man_id ) as cpr using (man_id)
+
+ where
+ cp.man_id = acs.object_id
+ and
+ cp.man_id = cpmc.man_id
+ and
+ cpmc.community_id = :community_id
+ and
+ cp.course_presentation_format = pf.format_id
+ and
+ cp.man_id in (select cr.live_revision
+ from cr_items cr where content_type = 'ims_manifest_object')
+
+ order by acs.creation_date desc, cp.man_id asc
+
+} {
+ set ims_md_id $man_id
+# if { [string eq $format_name "default"] } {
+ set course_url "$course_name"
+ # } else {
+# set course_url "$course_name"
+# }
+}
+
Index: openacs-4/packages/lorsm/www/admin/object-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/object-delete.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/object-delete.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,10 @@
+ad_page_contract {
+ Delete a learning object
+} {
+ item_id
+ return_url
+}
+
+lors::imscp::item_delete -item_id $item_id
+
+ad_returnredirect $return_url
Index: openacs-4/packages/lorsm/www/admin/object-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/object-new.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/object-new.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,5 @@
+
+ @page_title@
+ @context@
+
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/admin/object-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/object-new.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/object-new.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,20 @@
+# packages/lorsm/www/add-new.tcl
+
+ad_page_contract {
+
+ add a new learning object
+
+ @author Dave Bauer (dave@thedesignexperience.org)
+ @creation-date 2006-06-05
+ @cvs-id $Id: object-new.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+} {
+ man_id:integer,notnull
+ add_type
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set page_title "Add New"
+set context [list $page_title]
Index: openacs-4/packages/lorsm/www/admin/reorder-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/reorder-items.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/reorder-items.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,39 @@
+ad_page_contract {
+ Reorders all the items according to sort_order
+} {
+ item_id:integer,notnull
+ dir:notnull
+}
+
+set ims_item_id $item_id
+set man_id [db_string get_man_id ""]
+db_1row get_item_sort_and_parent { }
+
+db_transaction {
+ db_list lock_rows "select ims_item_id from ims_cp_items where parent_item=:parent_item for update"
+
+ if { $dir eq "up" } {
+ set next_sort_order [expr { $sort_order - 1 }]
+ } else {
+ set next_sort_order [expr { $sort_order + 1 }]
+ }
+
+ db_dml swap_sort_orders "
+update ims_cp_items
+set sort_order = (case when sort_order = :sort_order :: integer then :next_sort_order :: integer when sort_order = :next_sort_order ::integer then :sort_order end)
+where parent_item=:parent_item
+and sort_order in (:sort_order, :next_sort_order)
+"
+
+ } on_error {
+
+ ad_return_error "Database error" "A database error occured while trying
+to swap your items. Here's the error:
+
+$errmsg
+
+"
+ ad_script_abort
+}
+
+ad_returnredirect "course-structure?man_id=$man_id"
Index: openacs-4/packages/lorsm/www/admin/reorder-items.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/reorder-items.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/reorder-items.xql 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+
+
+ select
+ man_id
+ from
+ ims_cp_organizations o, ims_cp_items i
+ where
+ ims_item_id=:item_id
+ and o.org_id=i.org_id
+
+
+
+
+
+ select
+ sort_order, parent_item
+ from
+ ims_cp_items
+ where
+ ims_item_id = :ims_item_id
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/sharer.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/sharer.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/sharer.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,5 @@
+
+ @title@
+ @context@
+
+
Index: openacs-4/packages/lorsm/www/admin/sharer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/sharer.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/sharer.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,89 @@
+# packages/lorsm/www/sharer.tcl
+
+ad_page_contract {
+
+ Enable sharing of courses, organizations and learning objects
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-07-09
+ @arch-tag: 0d48cf78-3d5d-4a39-b2e0-2f090bfbecb8
+ @cvs-id $Id: sharer.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+} {
+ man_id:integer
+ folder_id:integer
+ return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+# check write permisssion for the learning object/manifest
+permission::require_write_permission -object_id $man_id -creation_user $user_id
+
+
+set title "[_ lorsm.lt_Share_CourseLearning_]"
+set context [list "[_ lorsm.lt_Share_CourseLearning_]"]
+
+ad_form -name sharer \
+ -export {return_url folder_id} \
+ -form {
+ {man_id:key}
+ {project:text(inform)
+ {label "[_ lorsm.Course_Name]"}
+ {value {[lorsm::get_course_name -manifest_id $man_id]}}
+ }
+ {isshared:text(inform)
+ {label "[_ lorsm.Current_Status]"}
+ }
+ {share:text(radio)
+ {label Status?}
+ {options {{"[_ lorsm.Shared]" t} {"[_ lorsm.Not_Shared]" f}}}
+ }
+ } -select_query {
+ select
+ case when isshared = 't' then 'Shared'
+ else 'Not Shared'
+ end as isshared
+ from ims_cp_manifests
+ where man_id = :man_id
+ } -edit_data {
+ db_transaction {
+ db_dml do_update {
+ update ims_cp_manifests
+ set isshared = :share
+ where man_id = :man_id }
+
+ if {$share == "t"} {
+
+ set party_id_students [db_string party_id {select segment_id from rel_segments \
+ where rel_type = 'dotlrn_student_profile_rel'}]
+
+ permission::grant -party_id $party_id_students -object_id $man_id -privilege read
+ permission::grant -party_id $party_id_students -object_id $folder_id -privilege read
+
+
+ } else {
+
+ set party_id_students [db_string party_id {select segment_id from rel_segments \
+ where rel_type = 'dotlrn_student_profile_rel'}]
+
+ permission::revoke -party_id $party_id_students -object_id $man_id -privilege read
+ permission::revoke -party_id $party_id_students -object_id $folder_id -privilege read
+
+ }
+ }
+ } -after_submit {
+ ad_returnredirect $return_url
+
+ }
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/tracker.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracker.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/tracker.adp 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,7 @@
+
+ @title@
+ @context@
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/tracker.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracker.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/tracker.tcl 31 Dec 2006 00:36:04 -0000 1.1
@@ -0,0 +1,61 @@
+# packages/lorsm/www/tracker.tcl
+
+ad_page_contract {
+
+ set a course for a class to be trackable
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-05-25
+ @arch-tag 07ceb832-2053-4579-bec2-76708522707a
+ @cvs-id $Id: tracker.tcl,v 1.1 2006/12/31 00:36:04 donb Exp $
+} {
+ man_id:integer,notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+set title "[_ lorsm.lt_Set_Course_Track_Opti]"
+set context [list "[_ lorsm.Set_Course_Options]"]
+
+ad_form -name tracker \
+ -export {package_id} \
+ -form {
+ {man_id:key}
+ {project:text(inform)
+ {label "[_ lorsm.Course_Name]"}
+ {value {[lorsm::get_course_name -manifest_id $man_id]}}
+ }
+ {istrackable:text(inform)
+ {label "[_ lorsm.Current_Status]"}
+ }
+ {enable:text(radio)
+ {label Status?}
+ {options {{"[_ lorsm.Trackable_1]" t} {"[_ lorsm.No_Thanks]" f}}}
+ }
+ } -select_query {
+ select
+ case when istrackable = 't' then 'Yes'
+ else 'No'
+ end as istrackable
+ from ims_cp_manifest_class
+ where man_id = :man_id and
+ lorsm_instance_id = :package_id
+ } -edit_data {
+ db_dml do_update "
+ update ims_cp_manifest_class
+ set istrackable = :enable
+ where man_id = :man_id and
+ lorsm_instance_id = :package_id"
+ } -after_submit {
+ ad_returnredirect [site_node::get_url_from_object_id -object_id package_id]
+ ad_script_abort
+ }
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/export/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/export/index.vuh,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/export/index.vuh 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,84 @@
+# packages/lorsm/www/export/index.vuh
+
+ad_page_contract {
+
+ Export IMS Content Packages from the Content Repository
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-04-15
+ @arch-tag 59c959a1-a9ce-450d-a33e-5221db50abd7
+ @cvs-id $Id: index.vuh,v 1.1 2006/12/31 00:36:05 donb Exp $
+} -query {
+ {folder_id:integer,optional}
+}
+
+set user_id [ad_conn user_id]
+
+# check write permisssion to export the course
+
+
+# Based on Yun's file system exports
+
+if {[exists_and_not_null folder_id]} {
+ permission::require_write_permission -object_id $folder_id -creation_user $user_id
+ set download_name [fs::get_file_system_safe_object_name -object_id $folder_id]
+
+ # We get rid of spaces since they are annoying
+ regsub -all { } $download_name {_} download_name
+
+ set tmp_dir $download_name
+ set ext "zip"
+ if {![empty_string_p $ext]} {
+ append download_name ".${ext}"
+ }
+ ad_returnredirect "${folder_id}/${download_name}"
+ ad_script_abort
+}
+
+
+# convenient way to get the values out of a list
+foreach {folder_id download_name} [split [ad_conn path_info] /] {break}
+
+if {![fs::object_p -object_id $folder_id]} {
+ ad_return_complaint 1 "Object \#$folder_id is not a file storage object."
+ ad_script_abort
+}
+
+set user_id [ad_conn user_id]
+if {$user_id == 0} {
+ set user_id ""
+}
+
+# publish the object to the file system
+set in_path [ns_tmpnam]
+file mkdir $in_path
+
+set file [fs::publish_object_to_file_system -object_id $folder_id -path $in_path -user_id $user_id]
+set file_name [file tail $file]
+
+# create a temp dir to put the archive in
+set out_path [ns_tmpnam]
+file mkdir $out_path
+
+set out_file [file join ${out_path} ${download_name}]
+
+# get the archive command
+#set cmd [fs::get_archive_command -in_file $file_name -out_file $out_file]
+set cmd "zip -r '$out_file' *"
+
+
+# create the archive
+with_catch errmsg {
+ exec bash -c "cd '$file'; $cmd; cd -"
+} {
+ # some day we'll do something useful here
+ error $errmsg
+}
+
+
+# return the archive to the connection.
+ns_returnfile 200 application/octet-stream $out_file
+
+# clean everything up
+exec rm -fr $in_path
+exec rm -fr $out_path
Index: openacs-4/packages/lorsm/www/admin/md/addmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/addmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/addmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,31 @@
+
+@title;noquote@
+@context;noquote@
+
+MD Schema
+
+
+
+ | Metadata Schema |
+
+
+ |
+
+
+
+
+
+
+
Add Metadata Schema
+
+
+
+ Object: @object_type@
+ Add details for the metadata schema and version.
+ |
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/addmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/addmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/addmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,135 @@
+# packages/lorsm/www/md/addmd.tcl
+
+ad_page_contract {
+
+ Add metadata schema
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-11-13
+ @arch-tag: 28b76527-a05f-42cf-b562-37c7b85e799f
+ @cvs-id $Id: addmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# Get object information
+set object_type [acs_object_type $ims_md_id]
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.lt_Edit_Metadata_Schema_]"]
+set title "[_ lorsm.lt_AddEdit_MD_Schema_and]"
+
+
+# Form
+ad_form -name add_md \
+ -cancel_url ".." \
+ -mode edit \
+ -form {
+
+ {schema:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Metadata_schema_ie_IM]"}
+ {label "[_ lorsm.Schema]"}
+ }
+
+ {schemaversion:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Version_of_the_Schema]"}
+ {label "[_ lorsm.Schema_Version]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ db_transaction {
+
+ if {![lors::imsmd::mdExist -ims_md_id $ims_md_id]} {
+
+ db_dml do_insert "
+ insert into ims_md(ims_md_id, schema, schemaversion)
+ values (:ims_md_id, :schema, :schemaversion)"
+
+ } else {
+
+ db_dml do_update {
+ update ims_md set schema = :schema, schemaversion = :schemaversion
+ where ims_md_id = :ims_md_id
+ }
+
+ }
+
+ # If the object_type is on any of the IMS CP object types,
+ # then we update also the ims cp tables accordingly.
+
+ switch $object_type {
+
+ "ims_manifest_object" {
+
+ db_dml upd_manifest "
+ update ims_cp_manifests set hasmetadata = 't'
+ where man_id = :ims_md_id"
+ }
+ "ims_item_object" {
+
+ db_dml upd_item "
+ update ims_cp_items set hasmetadata = 't'
+ where ims_item_id = :ims_md_id"
+ }
+ "ims_organization_object" {
+
+ db_dml upd_organization "
+ update ims_cp_organizations set hasmetadata = 't'
+ where org_id = :ims_md_id"
+ }
+ "ims_resource_object" {
+
+ db_dml upd_resource "
+ update ims_cp_resources set hasmetadata = 't'
+ where res_id = :ims_md_id"
+ }
+ "content_item" {
+
+ db_dml upd_file "
+ update ims_cp_files set hasmetadata = 't'
+ where file_id = :ims_md_id"
+ }
+
+ }
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "." ims_md_id]
+ ad_script_abort
+}
+
+# MD Schema Info
+template::list::create \
+ -name md_schema_info \
+ -multirow md_schema_info \
+ -no_data "[_ lorsm.No_Schema_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ schema {
+ label "[_ lorsm.Schema_1]"
+ html { align center }
+ }
+ schemaversion {
+ label "[_ lorsm.Version_1]"
+ html { align center }
+ }
+ }
+
+ db_multirow md_schema_info select_md_schema {
+ select
+ schema,
+ schemaversion
+ from
+ ims_md
+ where
+ ims_md_id = :ims_md_id
+ }
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,16 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | Annotation Metadata |
+
+
+ | Annotations: |
+ |
+
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,45 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Annotation
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: annotationmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.Annotation_MD]"]
+set title "[_ lorsm.Annotation_MD]"
+
+# Annotation
+template::list::create \
+ -name d_an_annot \
+ -multirow d_an_annot \
+ -no_data "[_ lorsm.lt_No_Annotation_Availab]" \
+ -actions [list "[_ lorsm.Add_Annotation]" [export_vars -base annotationmd/annotation_add {ims_md_id}] "[_ lorsm.lt_Add_another_Annotatio_1]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ entity {
+ label "[_ lorsm.Entry_1]"
+ }
+ export {
+ display_eval {\[View\]}
+ link_url_eval { [export_vars -base "annotationmd/annotation" {ims_md_an_id ims_md_id}] }
+ link_html {title "[_ lorsm.lt_View_associated_Annot]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_an_annot select_an_annot {
+select
+ entity,
+ ims_md_an_id,
+ ims_md_id
+from
+ ims_md_annotation
+where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,16 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | Classification Metadata |
+
+
+ | Classifications: |
+ |
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,49 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Classification
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classificationmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.Classification_MD]"]
+set title "[_ lorsm.Classification_MD]"
+
+# Classification
+template::list::create \
+ -name d_cl_class \
+ -multirow d_cl_class \
+ -no_data "[_ lorsm.lt_No_Classification_Ava]" \
+ -actions [list "[_ lorsm.Add_Classification]" [export_vars -base classificationmd/classification_add {ims_md_id}] "[_ lorsm.lt_Add_another_Classific_2]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ purpose_s {
+ label ""
+ }
+ purpose_v {
+ label ""
+ }
+ export {
+ display_eval {\[View\]}
+ link_url_eval { [export_vars -base "classificationmd/classification" {ims_md_cl_id ims_md_id}] }
+ link_html {title "[_ lorsm.lt_View_associated_Class]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_cl_class select_cl_class {
+select
+ purpose_s,
+ purpose_v,
+ ims_md_cl_id,
+ ims_md_id
+from
+ ims_md_classification
+where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,69 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | #lorsm.Educational_Metadata# |
+
+
+
+ | #lorsm.Interactivity_Type# |
+ |
+
+
+
+ | #lorsm.lt_Learning_Resource_Typ# |
+ |
+
+
+
+ | #lorsm.Interactivity_Level# |
+ |
+
+
+
+ | #lorsm.Semantic_Density# |
+ |
+
+
+
+ | #lorsm.lt_Intended_End_User_Rol# |
+ |
+
+
+
+ | #lorsm.Context# |
+ |
+
+
+
+ | #lorsm.Typical_Age_Range# |
+ |
+
+
+
+ | #lorsm.Difficulty# |
+ |
+
+
+
+ | #lorsm.lt_Typical_Learning_Time# |
+ |
+
+
+
+ | #lorsm.Description# |
+ |
+
+
+
+ | #lorsm.Language# |
+ |
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,260 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Educational
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 30 January 2004
+ @cvs-id $Id: educationalmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.Educational_MD]"]
+set title "[_ lorsm.Educational_MD]"
+
+# Educational Interactivity Type
+template::list::create \
+ -name d_ed_intt \
+ -multirow d_ed_intt \
+ -no_data "[_ lorsm.lt_No_Interactivity_Type]" \
+ -actions [list "[_ lorsm.lt_Add_Interactivity_Typ]" [export_vars -base educationalmd/educational_intt {ims_md_id}] "[_ lorsm.lt_Add_another_Interacti]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ intt {
+ label ""
+ }
+ }
+
+db_multirow d_ed_intt select_ed_intt {
+ select
+ '[' || int_type_s || '] ' || int_type_v as intt
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Learning Resource Type
+template::list::create \
+ -name d_ed_lrt \
+ -multirow d_ed_lrt \
+ -no_data "[_ lorsm.lt_No_Learning_Resource_]" \
+ -actions [list "[_ lorsm.lt_Add_Learning_Resource]" [export_vars -base educationalmd/educational_lrt {ims_md_id}] "[_ lorsm.lt_Add_another_Learning_]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ lrt {
+ label ""
+ }
+ }
+
+db_multirow d_ed_lrt select_ed_lrt {
+ select
+ '[' || lrt_s || '] ' || lrt_v as lrt
+ from
+ ims_md_educational_lrt
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Interactivity Level
+template::list::create \
+ -name d_ed_intl \
+ -multirow d_ed_intl \
+ -no_data "[_ lorsm.lt_No_Interactivity_Leve]" \
+ -actions [list "[_ lorsm.lt_Add_Interactivity_Lev]" [export_vars -base educationalmd/educational_intl {ims_md_id}] "[_ lorsm.lt_Add_another_Interacti_1]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ intl {
+ label ""
+ }
+ }
+
+db_multirow d_ed_intl select_ed_intl {
+ select
+ '[' || int_level_s || '] ' || int_level_v as intl
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Semantic Density
+template::list::create \
+ -name d_ed_semd \
+ -multirow d_ed_semd \
+ -no_data "[_ lorsm.lt_No_Semantic_Density_A]" \
+ -actions [list "[_ lorsm.Add_Semantic_Density]" [export_vars -base educationalmd/educational_semd {ims_md_id}] "[_ lorsm.lt_Add_another_Semantic_]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ semd {
+ label ""
+ }
+ }
+
+db_multirow d_ed_semd select_ed_semd {
+ select
+ '[' || sem_density_s || '] ' || sem_density_v as semd
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Intended End User Role
+template::list::create \
+ -name d_ed_ieur \
+ -multirow d_ed_ieur \
+ -no_data "[_ lorsm.lt_No_Intended_End_User_]" \
+ -actions [list "[_ lorsm.lt_Add_Intended_End_User]" [export_vars -base educationalmd/educational_ieur {ims_md_id}] "[_ lorsm.lt_Add_another_Intended_]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ ieur {
+ label ""
+ }
+ }
+
+db_multirow d_ed_ieur select_ed_ieur {
+ select
+ '[' || ieur_s || '] ' || ieur_v as ieur
+ from
+ ims_md_educational_ieur
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Context
+template::list::create \
+ -name d_ed_cont \
+ -multirow d_ed_cont \
+ -no_data "[_ lorsm.No_Context_Available]" \
+ -actions [list "[_ lorsm.Add_Context]" [export_vars -base educationalmd/educational_cont {ims_md_id}] "[_ lorsm.Add_another_Context]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ context {
+ label ""
+ }
+ }
+
+db_multirow d_ed_cont select_ed_cont {
+ select
+ '[' || context_s || '] ' || context_v as context
+ from
+ ims_md_educational_context
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Typical Age Range
+template::list::create \
+ -name d_ed_tar \
+ -multirow d_ed_tar \
+ -no_data "[_ lorsm.lt_No_Typical_Age_Range_]" \
+ -actions [list "[_ lorsm.lt_Add_Typical_Age_Range]" [export_vars -base educationalmd/educational_tar {ims_md_id}] "[_ lorsm.lt_Add_another_Typical_A]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ tar {
+ label ""
+ }
+ }
+
+db_multirow d_ed_tar select_ed_tar {
+ select
+ '[' || tar_l || '] ' || tar_s as tar
+ from
+ ims_md_educational_tar
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Difficulty
+template::list::create \
+ -name d_ed_dif \
+ -multirow d_ed_dif \
+ -no_data "[_ lorsm.lt_No_Difficulty_Availab]" \
+ -actions [list "[_ lorsm.Add_Difficulty_Type]" [export_vars -base educationalmd/educational_dif {ims_md_id}] "[_ lorsm.lt_Add_another_Difficult]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ diff {
+ label ""
+ }
+ }
+
+db_multirow d_ed_dif select_ed_dif {
+ select
+ '[' || difficulty_s || '] ' || difficulty_v as diff
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Typical Learning Time
+template::list::create \
+ -name d_ed_tlt \
+ -multirow d_ed_tlt \
+ -no_data "[_ lorsm.lt_No_Typical_Learning_T]" \
+ -actions [list "[_ lorsm.lt_Add_Typical_Learning_]" [export_vars -base educationalmd/educational_tlt {ims_md_id}] "[_ lorsm.lt_Add_another_Typical_L]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ tlt {
+ label ""
+ }
+ tlt_ls {
+ label ""
+ }
+ }
+
+db_multirow d_ed_tlt select_ed_tlt {
+ select
+ type_lrn_time as tlt,
+ '[' || type_lrn_time_l || '] ' || type_lrn_time_s as tlt_ls
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Description
+template::list::create \
+ -name d_ed_desc \
+ -multirow d_ed_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -actions [list "[_ lorsm.Add_Description]" [export_vars -base educationalmd/educational_desc {ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label ""
+ }
+ }
+
+db_multirow d_ed_desc select_ed_desc {
+ select
+ '[' || descrip_l || '] ' || descrip_s as desc
+ from
+ ims_md_educational_descrip
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Educational Language
+template::list::create \
+ -name d_ed_lang \
+ -multirow d_ed_lang \
+ -no_data "[_ lorsm.lt_No_Language_Available]" \
+ -actions [list "[_ lorsm.Add_Language]" [export_vars -base educationalmd/educational_lang {ims_md_id}] "[_ lorsm.Add_another_Language]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ language {
+ label ""
+ }
+ }
+
+db_multirow d_ed_lang select_ed_lang {
+ select
+ language
+ from
+ ims_md_educational_lang
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/generalmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,53 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | #lorsm.General_Metadata# |
+
+
+ | #lorsm.Titles# |
+ |
+
+
+
+ | #lorsm.Catalog-Entries# |
+ |
+
+
+
+ | #lorsm.Languages# |
+ |
+
+
+
+ | #lorsm.Descriptions# |
+ |
+
+
+
+ | #lorsm.Keywords# |
+ |
+
+
+
+ | #lorsm.Coverage# |
+ |
+
+
+
+ | #lorsm.Structure# |
+ |
+
+
+
+ | #lorsm.Aggregation_Level# |
+ |
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,227 @@
+# packages/lorsm/www/md/generalmd.tcl
+
+ad_page_contract {
+ Displays/Adds IMS Metadata General
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 19 January 2004
+ @cvs-id $Id: generalmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.General_MD]"]
+set title "[_ lorsm.General_MD]"
+
+# General Title
+template::list::create \
+ -name d_gen_titles \
+ -multirow d_gen_titles \
+ -no_data "[_ lorsm.No_Titles_Available]" \
+ -actions [list "[_ lorsm.Add_Title]" [export_vars -base generalmd/general_title {ims_md_id}] "[_ lorsm.Add_another_title]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ title_l {
+ label ""
+ }
+ title_s {
+ label ""
+ }
+ }
+
+db_multirow d_gen_titles select_ge_titles {
+ select title_l,
+ title_s
+ from
+ ims_md_general_title
+ where
+ ims_md_id = :ims_md_id
+} {
+ set item_url [export_vars -base "item" { ims_md_id }]
+}
+
+# General Description
+template::list::create \
+ -name d_gen_desc \
+ -multirow d_gen_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -actions [list "[_ lorsm.Add_Description]" [export_vars -base generalmd/general_desc {ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ descrip_l {
+ label ""
+ }
+ descrip_s {
+ label ""
+ }
+ }
+
+db_multirow d_gen_desc select_ge_desc {
+ select descrip_l,
+ descrip_s
+ from
+ ims_md_general_desc
+ where
+ ims_md_id = :ims_md_id
+}
+
+# General Catalog-entry
+template::list::create \
+ -name d_gen_cata \
+ -multirow d_gen_cata \
+ -no_data "[_ lorsm.lt_No_Catalog_Entry_Avai]" \
+ -actions [list "[_ lorsm.Add_Catalog-Entry]" [export_vars -base generalmd/general_cata {ims_md_id}] "[_ lorsm.lt_Add_another_Catalog-E]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ catalog {
+ label ""
+ }
+ entry_l {
+ label ""
+ }
+ entry_s {
+ label ""
+ }
+ }
+
+db_multirow d_gen_cata select_ge_cata {
+ select
+ catalog,
+ entry_l,
+ entry_s
+ from
+ ims_md_general_cata
+ where
+ ims_md_id = :ims_md_id
+}
+
+
+
+# General Language
+template::list::create \
+ -name d_gen_lang \
+ -multirow d_gen_lang \
+ -no_data "[_ lorsm.lt_No_Language_Available]" \
+ -actions [list "[_ lorsm.Add_Language]" [export_vars -base generalmd/general_lang {ims_md_id}] "[_ lorsm.Add_another_Language]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ language {
+ label ""
+ }
+ }
+
+db_multirow d_gen_lang select_ge_lang {
+ select
+ language
+ from
+ ims_md_general_lang
+ where
+ ims_md_id = :ims_md_id
+}
+
+# General Keywords
+template::list::create \
+ -name d_gen_key \
+ -multirow d_gen_key \
+ -no_data "[_ lorsm.lt_No_Keywords_Available]" \
+ -actions [list "[_ lorsm.Add_Keywords]" [export_vars -base generalmd/general_key {ims_md_id}] "[_ lorsm.Add_another_Keywords]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ keyword_l {
+ label ""
+ }
+ keyword_s {
+ label ""
+ }
+ }
+
+db_multirow d_gen_key select_ge_key {
+ select
+ keyword_l,
+ keyword_s
+ from
+ ims_md_general_key
+ where
+ ims_md_id = :ims_md_id
+}
+
+# General Coverage
+template::list::create \
+ -name d_gen_cover \
+ -multirow d_gen_cover \
+ -no_data "[_ lorsm.lt_No_Coverage_Available]" \
+ -actions [list "[_ lorsm.Add_Coverage]" [export_vars -base generalmd/general_cover {ims_md_id}] "[_ lorsm.Add_another_Coverage]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ cover_l {
+ label ""
+ }
+ cover_s {
+ label ""
+ }
+ }
+
+db_multirow d_gen_cover select_ge_cover {
+ select
+ cover_l,
+ cover_s
+ from
+ ims_md_general_cover
+ where
+ ims_md_id = :ims_md_id
+}
+
+# General Structure
+template::list::create \
+ -name d_gen_struc \
+ -multirow d_gen_struc \
+ -no_data "[_ lorsm.lt_No_Structure_Availabl]" \
+ -actions [list "[_ lorsm.Add_Structure]" [export_vars -base generalmd/general_struc {ims_md_id}] "[_ lorsm.lt_Add_another_Structure]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ structure_s {
+ label ""
+ }
+ structure_v {
+ label ""
+ }
+ }
+
+db_multirow d_gen_struc select_ge_struc {
+ select
+ structure_s,
+ structure_v
+ from
+ ims_md_general
+ where
+ ims_md_id = :ims_md_id
+}
+
+
+# General Aggregation level
+template::list::create \
+ -name d_gen_aggl \
+ -multirow d_gen_aggl \
+ -no_data "[_ lorsm.lt_No_Aggregation_Level_]" \
+ -actions [list "[_ lorsm.lt_Add_Aggregation_Level]" [export_vars -base generalmd/general_aggl {ims_md_id}] "[_ lorsm.lt_Add_another_Aggregati]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ agg_level_s {
+ label ""
+ }
+ agg_level_v {
+ label ""
+ }
+ }
+
+db_multirow d_gen_aggl select_ge_aggl {
+ select
+ agg_level_s,
+ agg_level_v
+ from
+ ims_md_general
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/index.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/index.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,27 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+
+
+ #lorsm.You_can# #lorsm.lt_upload_a_XML_LOM_meta# #lorsm.lt_to_addchange_the_meta#
+
+
+
+ #lorsm.lt_Heres_a_link_to_the_a#
+
+
+
+
+
+#lorsm.lt_No_metadata_record_ex#
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/index.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,21 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 19 January 2004
+ @cvs-id $Id: index.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context
+set context [list "[_ lorsm.IMS_Metadata_Editor]"]
+set title [list "[_ lorsm.IMS_Metadata_Editor]"]
+set link [export_vars -base "md_upload" ims_md_id]
+
+set hasmetadata [lors::imsmd::mdExist -ims_md_id $ims_md_id]
+set object_type [acs_object_type $ims_md_id]
+
+set write_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege write]
+set read_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege read]
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | #lorsm.Lifecycle_Metadata# |
+
+
+ | #lorsm.Version# |
+ |
+
+
+
+ | #lorsm.Status# |
+ |
+
+
+
+ | #lorsm.Contribution# |
+ |
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,103 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Lifecycle
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 30 January 2004
+ @cvs-id $Id: lifecyclemd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "IMS Metadata Editor"] "Lifecycle MD"]
+
+set title "Lifecycle MD"
+
+# Lifecycle version
+template::list::create \
+ -name d_lf_ver \
+ -multirow d_lf_ver \
+ -no_data "[_ lorsm.No_Version_Available]" \
+ -actions [list "[_ lorsm.Add_Version]" [export_vars -base lifecyclemd/lifecycle_version {ims_md_id}] "[_ lorsm.Add_Version]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ version_l {
+ label ""
+ }
+ version_s {
+ label ""
+ }
+ }
+
+db_multirow d_lf_ver select_lf_ver {
+ select version_l,
+ version_s
+ from
+ ims_md_life_cycle
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Lifecycle status
+template::list::create \
+ -name d_lf_stat \
+ -multirow d_lf_stat \
+ -no_data "[_ lorsm.No_Status_Available]" \
+ -actions [list "[_ lorsm.Add_Status]" [export_vars -base lifecyclemd/lifecycle_stat {ims_md_id}] "[_ lorsm.Add_Status]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ status_s {
+ label ""
+ }
+ status_v {
+ label ""
+ }
+ }
+
+db_multirow d_lf_stat select_lf_stat {
+ select status_s,
+ status_v
+ from
+ ims_md_life_cycle
+ where
+ ims_md_id = :ims_md_id
+}
+
+
+# Lifecycle Contrib
+template::list::create \
+ -name d_lf_cont \
+ -multirow d_lf_cont \
+ -no_data "[_ lorsm.lt_No_Contributors_Avail]" \
+ -actions [list "[_ lorsm.Add_Contributors]" [export_vars -base lifecyclemd/lifecycle_cont {ims_md_id}] "[_ lorsm.lt_Add_another_Contribut]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ role {
+ label "[_ lorsm.Role]"
+ }
+ entity {
+ label "[_ lorsm.Entity_1]"
+ }
+ cont_date {
+ label "[_ lorsm.Contribution_Date]"
+ }
+ cont_date_ls {
+ label "[_ lorsm.Description_1]"
+ }
+ }
+
+db_multirow d_lf_cont select_lf_cont {
+select
+ lfc.role_v || ' ' || '[' || lfc.role_s || ']' as role,
+ lfce.entity,
+ lfc.cont_date,
+ '[' || lfc.cont_date_l || ']' || ' ' || lfc.cont_date_s as cont_date_ls
+from
+ ims_md_life_cycle_contrib lfc,
+ ims_md_life_cycle_contrib_entity lfce
+where
+ lfc.ims_md_lf_cont_id = lfce.ims_md_lf_cont_id
+and
+ lfc.ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/metamd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,34 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | #lorsm.Meta_Metadata# |
+
+
+ | #lorsm.Catalog-Entries# |
+ |
+
+
+
+ | #lorsm.Contribution# |
+ |
+
+
+
+ | #lorsm.Scheme# |
+ |
+
+
+
+ | #lorsm.Language# |
+ |
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,122 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Metametadata
+
+ @author Ernie Ghiglione (ErnieG@ee.usyd.edu.au)
+ @creation-date 30 January 2004
+ @cvs-id $Id: metamd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.Meta_Metadata]"]
+set title "[_ lorsm.Meta_MD]"
+
+# Metametadata Catalogentry
+template::list::create \
+ -name d_md_cata \
+ -multirow d_md_cata \
+ -no_data "[_ lorsm.lt_No_Catalog_Entry_Avai]" \
+ -actions [list "[_ lorsm.Add_Catalog-Entry]" [export_vars -base metamd/meta_cata {ims_md_id}] "[_ lorsm.lt_Add_another_Catalog-E]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ catalog {
+ label "[_ lorsm.Catalog_1]"
+ }
+ entry_ls {
+ label "[_ lorsm.Language_Entry]"
+ }
+ }
+
+db_multirow d_md_cata select_md_cata {
+ select
+ catalog,
+ '[' || entry_l || ']' || ' ' || entry_s as entry_ls
+ from
+ ims_md_metadata_cata
+ where
+ ims_md_id = :ims_md_id
+}
+
+
+# Metametadata Contrib
+template::list::create \
+ -name d_md_cont \
+ -multirow d_md_cont \
+ -no_data "[_ lorsm.lt_No_Contributors_Avail]" \
+ -actions [list "[_ lorsm.Add_Contributors]" [export_vars -base metamd/meta_cont {ims_md_id}] "[_ lorsm.lt_Add_another_Contribut]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ role {
+ label "[_ lorsm.Role]"
+ }
+ entity {
+ label "[_ lorsm.Entity_1]"
+ }
+ cont_date {
+ label "[_ lorsm.Contribution_Date]"
+ }
+ cont_date_ls {
+ label "[_ lorsm.Description_1]"
+ }
+ }
+
+db_multirow d_md_cont select_md_cont {
+select
+ mdc.role_v || ' ' || '[' || mdc.role_s || ']' as role,
+ mdce.entity,
+ mdc.cont_date,
+ '[' || mdc.cont_date_l || ']' || ' ' || mdc.cont_date_s as cont_date_ls
+from
+ ims_md_metadata_contrib mdc,
+ ims_md_metadata_contrib_entity mdce
+where
+ mdc.ims_md_md_cont_id = mdce.ims_md_md_cont_id
+and
+ mdc.ims_md_id = :ims_md_id
+}
+
+# Metametadata metadatascheme
+template::list::create \
+ -name d_md_scheme \
+ -multirow d_md_scheme \
+ -no_data "[_ lorsm.No_Scheme_Available]" \
+ -actions [list "[_ lorsm.Add_Scheme]" [export_vars -base metamd/meta_scheme {ims_md_id}] "[_ lorsm.Add_another_Scheme]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ scheme {
+ label ""
+ }
+ }
+
+db_multirow d_md_scheme select_md_scheme {
+ select
+ scheme
+ from
+ ims_md_metadata_scheme
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Metametadata language
+template::list::create \
+ -name d_md_lang \
+ -multirow d_md_lang \
+ -no_data "[_ lorsm.lt_No_Language_Available]" \
+ -actions [list "[_ lorsm.Add_Language]" [export_vars -base metamd/meta_lang {ims_md_id}] "[_ lorsm.lt_Add_another_Languages]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ language {
+ label ""
+ }
+ }
+
+db_multirow d_md_lang select_md_lang {
+ select
+ language
+ from
+ ims_md_metadata
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/relationmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,17 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | #lorsm.Relation_Metadata# |
+
+
+ | #lorsm.Relations# |
+ |
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,53 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Relation
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: relationmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.Relation_MD]"]
+set title "Relation MD"
+
+# Relation
+template::list::create \
+ -name d_re_relat \
+ -multirow d_re_relat \
+ -no_data "[_ lorsm.lt_No_Relation_Available]" \
+ -actions [list "[_ lorsm.Add_Relation]" [export_vars -base relationmd/relation_add {ims_md_id}] "[_ lorsm.lt_Add_another_Relation__1]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ kind_s {
+ label ""
+ }
+ kind_v {
+ label ""
+ }
+ export {
+ display_eval {\[View \\ Edit\]}
+ link_url_eval { [export_vars -base "relationmd/relation" {ims_md_re_re_id ims_md_re_id ims_md_id}] }
+ link_html {title "[_ lorsm.lt_View_associated_Relat]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_re_relat select_re_relat {
+select
+ re.kind_s,
+ re.kind_v,
+ re.ims_md_id,
+ re.ims_md_re_id,
+ rere.ims_md_re_re_id
+from
+ ims_md_relation re,
+ ims_md_relation_resource rere
+where
+ re.ims_md_id = :ims_md_id
+and
+ rere.ims_md_re_id = re.ims_md_re_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,28 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | #lorsm.Rights_Metadata# |
+
+
+
+ | #lorsm.Cost# |
+ |
+
+
+
+ | #lorsm.lt_Copyright_or_other_Re# |
+ |
+
+
+
+ | #lorsm.Description# |
+ |
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,80 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Rights
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 30 January 2004
+ @cvs-id $Id: rightsmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "IMS Metadata Editor"] "Rights MD"]
+set title "[_ lorsm.Rights_MD]"
+
+# Rights Cost
+template::list::create \
+ -name d_ri_cost \
+ -multirow d_ri_cost \
+ -no_data "[_ lorsm.No_Cost_Available]" \
+ -actions [list "[_ lorsm.Add_Cost]" [export_vars -base rightsmd/rights_cost {ims_md_id}] "[_ lorsm.Add_another_Cost]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ cost {
+ label ""
+ }
+ }
+
+db_multirow d_ri_cost select_ri_cost {
+ select
+ '[' || cost_s || '] ' || cost_v as cost
+ from
+ ims_md_rights
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Rights Copyright or other Restrictions
+template::list::create \
+ -name d_ri_caor \
+ -multirow d_ri_caor \
+ -no_data "[_ lorsm.lt_No_Copyright_or_other]" \
+ -actions [list "[_ lorsm.lt_Add_Copyright_or_othe]" [export_vars -base rightsmd/rights_caor {ims_md_id}] "[_ lorsm.lt_Add_another_Copyright]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ caor {
+ label ""
+ }
+ }
+
+db_multirow d_ri_caor select_ri_caor {
+ select
+ '[' || caor_s || '] ' || caor_v as caor
+ from
+ ims_md_rights
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Rights Description
+template::list::create \
+ -name d_ri_desc \
+ -multirow d_ri_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -actions [list "[_ lorsm.Add_Description]" [export_vars -base rightsmd/rights_desc {ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label ""
+ }
+ }
+
+db_multirow d_ri_desc select_ri_desc {
+ select
+ '[' || descrip_l || '] ' || descrip_s as desc
+ from
+ ims_md_rights
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,49 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | #lorsm.Technical_Metadata# |
+
+
+
+ | #lorsm.Formats# |
+ |
+
+
+
+ | #lorsm.Size# |
+ |
+
+
+
+ | #lorsm.Locations# |
+ |
+
+
+
+ | #lorsm.Requirements# |
+ |
+
+
+
+ | #lorsm.Installation_Remarks# |
+ |
+
+
+
+ | #lorsm.lt_Other_Platform_Requir# |
+ |
+
+
+
+ | #lorsm.Duration# |
+ |
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,192 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Metametadata
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 30 January 2004
+ @cvs-id $Id: technicalmd.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.Technical_MD]"]
+set title "[_ lorsm.Technical_MD]"
+
+# Technical Format
+template::list::create \
+ -name d_te_form \
+ -multirow d_te_form \
+ -no_data "[_ lorsm.No_Format_Available]" \
+ -actions [list "[_ lorsm.Add_Format]" [export_vars -base technicalmd/technical_form {ims_md_id}] "[_ lorsm.Add_another_Format]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ format {
+ label ""
+ }
+ }
+
+db_multirow d_te_form select_te_form {
+ select
+ format
+ from
+ ims_md_technical_format
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Technical Size
+template::list::create \
+ -name d_te_size \
+ -multirow d_te_size \
+ -no_data "[_ lorsm.No_Size_Available]" \
+ -actions [list "[_ lorsm.Add_Size]" [export_vars -base technicalmd/technical_size {ims_md_id}] "[_ lorsm.Add_another_Size]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ t_size_bytes {
+ label ""
+ }
+ }
+
+db_multirow d_te_size select_te_size {
+ select
+ t_size || ' bytes' as t_size_bytes
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Technical Location
+template::list::create \
+ -name d_te_loca \
+ -multirow d_te_loca \
+ -no_data "No Location Available" \
+ -actions [list "Add Location" [export_vars -base technicalmd/technical_loca {ims_md_id}] "Add another Location"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ type {
+ label ""
+ }
+ location {
+ label ""
+ }
+ }
+
+db_multirow d_te_loca select_te_loca {
+ select
+ type,
+ location
+ from
+ ims_md_technical_location
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Technical Requirements
+template::list::create \
+ -name d_te_req \
+ -multirow d_te_req \
+ -no_data "[_ lorsm.lt_No_Requirements_Avail]" \
+ -actions [list "[_ lorsm.Add_Requirements]" [export_vars -base technicalmd/technical_req {ims_md_id}] "[_ lorsm.lt_Add_another_Requireme]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ type {
+ label "[_ lorsm.Type]"
+ }
+ name {
+ label "[_ lorsm.Name]"
+ }
+ min_version {
+ label "[_ lorsm.Min_Version]"
+ }
+ max_version {
+ label "[_ lorsm.Max_Version]"
+ }
+ }
+
+db_multirow d_te_req select_te_req {
+ select
+ '[' || type_s || ']' || ' ' || type_v as type,
+ '[' || name_s || ']' || ' ' || name_v as name,
+ min_version,
+ max_version
+ from
+ ims_md_technical_requirement
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Technical Installation Remarks
+template::list::create \
+ -name d_te_inst \
+ -multirow d_te_inst \
+ -no_data "[_ lorsm.lt_No_Installation_Remar]" \
+ -actions [list "[_ lorsm.lt_Add_Installation_Rema]" [export_vars -base technicalmd/technical_inst {ims_md_id}] "[_ lorsm.lt_Add_another_Installat]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ instl_rmrks {
+ label ""
+ }
+ }
+
+db_multirow d_te_inst select_te_inst {
+ select
+ '[' || instl_rmrks_l || ']' || ' ' || instl_rmrks_s as instl_rmrks
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Technical Other Platform Requirements
+template::list::create \
+ -name d_te_otr \
+ -multirow d_te_otr \
+ -no_data "[_ lorsm.lt_No_Other_Platform_Req]" \
+ -actions [list "[_ lorsm.lt_Add_Other_Platform_Re]" [export_vars -base technicalmd/technical_otr {ims_md_id}] "[_ lorsm.lt_Add_another_Other_Pla]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ otr_plt {
+ label ""
+ }
+ }
+
+db_multirow d_te_otr select_te_otr {
+ select
+ '[' || otr_plt_l || ']' || ' ' || otr_plt_s as otr_plt
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
+
+# Technical Duration
+template::list::create \
+ -name d_te_dur \
+ -multirow d_te_dur \
+ -no_data "[_ lorsm.lt_No_Duration_Available]" \
+ -actions [list "[_ lorsm.Add_Duration]" [export_vars -base technicalmd/technical_dur {ims_md_id}] "[_ lorsm.Add_another_Duration]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ duration_sec {
+ label ""
+ }
+ duration_l {
+ label ""
+ }
+ duration_s {
+ label ""
+ }
+ }
+
+db_multirow d_te_dur select_te_dur {
+ select
+ duration_l,
+ duration_s,
+ duration || 's' as duration_sec
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,28 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | Annotation Metadata |
+
+
+
+ | Entity: |
+ |
+
+
+
+ | Date: |
+ |
+
+
+
+ | Descriptions: |
+ |
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,84 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Annotation
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: annotation.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_an_id:integer
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../annotationmd" ims_md_id] "[_ lorsm.Annotation_MD]"] "[_ lorsm.Annotation_Entry]"]
+set title "[_ lorsm.Annotation_MD]"
+
+# Annotation Entity
+template::list::create \
+ -name d_an_ent \
+ -multirow d_an_ent \
+ -no_data "[_ lorsm.No_Entity_Available]" \
+ -actions [list "[_ lorsm.Add_Entity]" [export_vars -base annotation_ent {ims_md_an_id ims_md_id}] "[_ lorsm.Add_another_Entity]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ entity {
+ label ""
+ }
+ }
+
+db_multirow d_an_ent select_an_ent {
+ select entity
+ from
+ ims_md_annotation
+ where
+ ims_md_an_id = :ims_md_an_id
+}
+
+# Annotation Date
+template::list::create \
+ -name d_an_date \
+ -multirow d_an_date \
+ -no_data "[_ lorsm.No_Date_Available]" \
+ -actions [list "[_ lorsm.Add_Date]" [export_vars -base annotation_date {ims_md_an_id ims_md_id}] "[_ lorsm.Add_another_Date]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ date {
+ label "[_ lorsm.Date_1]"
+ }
+ datels {
+ label "[_ lorsm.Description_1]"
+ }
+ }
+
+db_multirow d_an_date select_an_date {
+ select date,
+ '[' || date_l || '] ' || date_s as datels
+ from
+ ims_md_annotation
+ where
+ ims_md_an_id = :ims_md_an_id
+}
+
+# Annotation Description
+template::list::create \
+ -name d_an_desc \
+ -multirow d_an_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -actions [list "[_ lorsm.Add_Description]" [export_vars -base annotation_desc {ims_md_an_id ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label ""
+ }
+ }
+
+db_multirow d_an_desc select_an_desc {
+ select
+ '[' || descrip_l || '] ' || descrip_s as desc
+ from
+ ims_md_annotation_descrip
+ where
+ ims_md_an_id = :ims_md_an_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_add.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_add.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,22 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+Annotation Metadata Entry
+
+
+
+ | Annotation Metadata |
+
+
+ | Add another Annotation Metadata Entry? |
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_add.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_add.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,43 @@
+# packages/lorsm/www/md/annotationmd/annotation_add.tcl
+
+ad_page_contract {
+
+ Add/Edit Annotation MD Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: annotation_add.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../annotationmd" ims_md_id] "[_ lorsm.Annotation_MD]"] "[_ lorsm.Annotation_Entry]"]
+set title "[_ lorsm.lt_Add_Annotation_MD_Ent]"
+
+# Form
+ad_form -name annotationmd_add \
+ -cancel_url ../annotationmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_an_id:key(ims_md_annotation_seq)
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_annotation (ims_md_an_id, ims_md_id)
+ values (:ims_md_an_id, :ims_md_id)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../annotationmd" {ims_md_id}]
+ ad_script_abort
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Annotation Metadata Date
+
+
+
+ | Annotation Metadata |
+
+
+ | Date: |
+ |
+
+
+
+
+
+
+
Add/Edit Annotation Metadata Date
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,95 @@
+# packages/lorsm/www/md/annotationmd/annotation_date.tcl
+
+ad_page_contract {
+
+ Add/Edit Annotation MD Date
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: annotation_date.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_an_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../annotationmd" ims_md_id] "[_ lorsm.Annotation_MD]"] [list [export_vars -base "annotation" {ims_md_id ims_md_an_id}] "[_ lorsm.Annotation_Entry]"] "[_ lorsm.AddEdit_Date]"]
+set title "[_ lorsm.lt_Edit_Annotation_MD_Da]"
+
+
+# Form
+
+ad_form -name annotationmd_date \
+ -cancel_url annotation?ims_md_id=$ims_md_id&ims_md_an_id=$ims_md_an_id \
+ -mode edit \
+ -form {
+
+ ims_md_an_id:key(ims_md_annotation_seq)
+
+ {date:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Annotation_MD_2]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.Date_of_contribution]"}
+ {label "[_ lorsm.Date]"}
+ }
+
+ {date_l:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi_3]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {date_s:text(textarea),nospell,optional
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Date_and_Time_descrip]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_annotation where ims_md_an_id = :ims_md_an_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_annotation
+ set date = :date,
+ date_l = :date_l,
+ date_s = :date_s
+ where ims_md_an_id = :ims_md_an_id "
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "annotation" {ims_md_an_id ims_md_id}]
+ ad_script_abort
+}
+
+# Annotation Date
+template::list::create \
+ -name d_an_date \
+ -multirow d_an_date \
+ -no_data "[_ lorsm.No_Date_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ date {
+ label "[_ lorsm.Date_1]"
+ }
+ datels {
+ label "[_ lorsm.Description_1]"
+ }
+ }
+
+db_multirow d_an_date select_an_date {
+ select date,
+ '[' || date_l || '] ' || date_s as datels,
+ ims_md_an_id,
+ ims_md_id
+ from
+ ims_md_annotation
+ where
+ ims_md_an_id = :ims_md_an_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Annotation Metadata Description
+
+
+
+ | Annotation Metadata |
+
+
+ | Description: |
+ |
+
+
+
+
+
+
+
Add/Edit Annotation Metadata Description
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,109 @@
+# packages/lorsm/www/md/annotationmd/annotation_desc.tcl
+
+ad_page_contract {
+
+ Add/Edit Annotation MD Description
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: annotation_desc.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_an_id:integer
+ ims_md_an_de_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_an_de_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../annotationmd" ims_md_id] "[_ lorsm.Annotation_MD]"] [list [export_vars -base "annotation" {ims_md_id ims_md_an_id}] "[_ lorsm.Annotation_Entry]"] "[_ lorsm.Edit_Description]"]
+ set title "Edit Annotation MD Description"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../annotationmd" ims_md_id] "[_ lorsm.Annotation_MD]"] [list [export_vars -base "annotation" {ims_md_id ims_md_an_id}] "[_ lorsm.Annotation_Entry]"] "[_ lorsm.Add_Description]"]
+ set title "[_ lorsm.lt_Add_Annotation_MD_Des]"
+}
+
+# Form
+
+ad_form -name annotationmd_desc \
+ -cancel_url annotation?ims_md_id=$ims_md_id&ims_md_an_id=$ims_md_an_id \
+ -mode edit \
+ -form {
+
+ ims_md_an_de_id:key(ims_md_annotation_descrip_seq)
+
+ {descrip_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Annotation_MD]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {descrip_s:text(textarea),nospell
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Content_of_the_annota]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+ {ims_md_an_id:text(hidden) {value $ims_md_an_id}
+ }
+
+} -select_query {select * from ims_md_annotation_descrip where ims_md_an_de_id = :ims_md_an_de_id and ims_md_an_id = :ims_md_an_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_annotation_descrip
+ set descrip_l = :descrip_l,
+ descrip_s = :descrip_s
+ where ims_md_an_de_id = :ims_md_an_de_id"
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_annotation_descrip (ims_md_an_de_id, ims_md_an_id, descrip_l, descrip_s)
+ values
+ (:ims_md_an_de_id, :ims_md_an_id, :descrip_l, :descrip_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "annotation" {ims_md_an_id ims_md_id}]
+ ad_script_abort
+}
+
+# Annotation Description
+template::list::create \
+ -name d_an_desc \
+ -multirow d_an_desc \
+ -no_data "No Description Available" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label ""
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "annotation_desc" {ims_md_an_de_id ims_md_an_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_an_desc select_an_desc {
+ select
+ '[' || ande.descrip_l || '] ' || ande.descrip_s as desc,
+ ande.ims_md_an_de_id,
+ an.ims_md_an_id,
+ an.ims_md_id
+ from
+ ims_md_annotation_descrip ande,
+ ims_md_annotation an
+ where
+ ande.ims_md_an_id = an.ims_md_an_id
+ and
+ ande.ims_md_an_id = :ims_md_an_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_ent.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_ent.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_ent.adp 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Annotation Metadata Entity
+
+
+
+ | Annotation Metadata |
+
+
+ | Entity: |
+ |
+
+
+
+
+
+
+
Add/Edit Annotation Metadata Entity
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_ent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_ent.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_ent.tcl 31 Dec 2006 00:36:05 -0000 1.1
@@ -0,0 +1,78 @@
+# packages/lorsm/www/md/annotationmd/annotation_ent.tcl
+
+ad_page_contract {
+
+ Add/Edit Annotation MD Entity
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: annotation_ent.tcl,v 1.1 2006/12/31 00:36:05 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_an_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../annotationmd" ims_md_id] "[_ lorsm.Annotation_MD]"] [list [export_vars -base "annotation" {ims_md_id ims_md_an_id}] "[_ lorsm.Annotation_Entry]"] "[_ lorsm.AddEdit_Entity]"]
+set title "[_ lorsm.lt_Edit_Annotation_MD_En]"
+
+
+# Form
+
+ad_form -name annotationmd_ent \
+ -cancel_url annotation?ims_md_id=$ims_md_id&ims_md_an_id=$ims_md_an_id \
+ -mode edit \
+ -form {
+
+ ims_md_an_id:key(ims_md_annotation_seq)
+
+ {entity:text(textarea),nospell
+ {section "[_ lorsm.lt_AddEdit_Annotation_MD_1]"}
+ {html {rows 5 cols 50}}
+ {help_text "[_ lorsm.Annotator]"}
+ {label "[_ lorsm.Entity]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_annotation where ims_md_an_id = :ims_md_an_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_annotation
+ set entity = :entity
+ where ims_md_an_id = :ims_md_an_id "
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "annotation" {ims_md_an_id ims_md_id}]
+ ad_script_abort
+}
+
+# Annotation Entity
+template::list::create \
+ -name d_an_ent \
+ -multirow d_an_ent \
+ -no_data "[_ lorsm.No_Entity_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ entity {
+ label ""
+ }
+ }
+
+db_multirow d_an_ent select_an_ent {
+ select
+ entity,
+ ims_md_an_id,
+ ims_md_id
+ from
+ ims_md_annotation
+ where
+ ims_md_an_id = :ims_md_an_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,28 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | Classification Metadata |
+
+
+ | Purpose: |
+ |
+
+
+ | Taxonomic Paths: |
+ |
+
+
+ | Descriptions: |
+ |
+
+
+ | Keywords: |
+ |
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,118 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Classification
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_cl_id:integer
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] "[_ lorsm.Classification_Entry]"]
+set title "[_ lorsm.Classification_MD]"
+
+# Classification Purpose
+template::list::create \
+ -name d_cl_pur \
+ -multirow d_cl_pur \
+ -no_data "[_ lorsm.No_Purpose_Available]" \
+ -actions [list "[_ lorsm.Add_Purpose]" [export_vars -base classification_pur {ims_md_cl_id ims_md_id}] "[_ lorsm.Add_another_Purpose]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ purpose_s {
+ label ""
+ }
+ purpose_v {
+ label ""
+ }
+ }
+
+db_multirow d_cl_pur select_cl_pur {
+ select purpose_s,
+ purpose_v
+ from
+ ims_md_classification
+ where
+ ims_md_cl_id = :ims_md_cl_id
+}
+
+# Classification Taxonomic Path
+template::list::create \
+ -name d_cl_tpath \
+ -multirow d_cl_tpath \
+ -no_data "[_ lorsm.lt_No_Taxonomic_Paths_Av]" \
+ -actions [list "[_ lorsm.Add_Taxonomic_Path]" [export_vars -base classification_addpath {ims_md_cl_id ims_md_id}] "[_ lorsm.lt_Add_another_Taxonomic]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ source {
+ label ""
+ }
+ export {
+ display_eval {\[[_ lorsm.View]\]}
+ link_url_eval { [export_vars -base "classification_tpath" {ims_md_cl_ta_id ims_md_cl_id ims_md_id}] }
+ link_html {title "[_ lorsm.lt_View_associated_Taxon]"}
+ html { align right }
+ }
+ }
+
+db_multirow d_cl_tpath select_cl_tpath {
+ select
+ '[' || ctp.source_l || '] ' || ctp.source_v as source,
+ ctp.ims_md_cl_ta_id,
+ ctp.ims_md_cl_id,
+ cl.ims_md_id
+ from
+ ims_md_classification_taxpath ctp,
+ ims_md_classification cl
+ where
+ ctp.ims_md_cl_id = :ims_md_cl_id
+ and cl.ims_md_cl_id = :ims_md_cl_id
+}
+
+# Classification Description
+template::list::create \
+ -name d_cl_desc \
+ -multirow d_cl_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -actions [list "[_ lorsm.Add_Description]" [export_vars -base classification_desc {ims_md_cl_id ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label ""
+ }
+ }
+
+db_multirow d_cl_desc select_cl_desc {
+ select
+ '[' || descrip_l || '] ' || descrip_s as desc
+ from
+ ims_md_classification_descrip
+ where
+ ims_md_cl_id = :ims_md_cl_id
+}
+
+# Classification Keywords
+template::list::create \
+ -name d_cl_key \
+ -multirow d_cl_key \
+ -no_data "[_ lorsm.lt_No_Keywords_Available]" \
+ -actions [list "[_ lorsm.Add_Keyword]" [export_vars -base classification_key {ims_md_cl_id ims_md_id}] "[_ lorsm.Add_another_Keyword]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ keyword {
+ label ""
+ }
+ }
+
+db_multirow d_cl_key select_cl_key {
+ select
+ '[' || keyword_l || '] ' || keyword_s as keyword
+ from
+ ims_md_classification_keyword
+ where
+ ims_md_cl_id = :ims_md_cl_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_add.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_add.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,22 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+Classification Metadata Entry
+
+
+
+ | Classification Metadata |
+
+
+ | Add another Classification Metadata Entry? |
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_add.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_add.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,41 @@
+# packages/lorsm/www/md/classificationmd/classification_add.tcl
+
+ad_page_contract {
+
+ Add Classification MD Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @creation-date 16 October 2004
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list "[_ lorsm.lt_IMS_Metadata_Editor_-]"]
+set title "[_ lorsm.lt_Add_Classification_MD]"
+
+# Form
+ad_form -name classificationmd_add \
+ -cancel_url ../classificationmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_cl_id:key(ims_md_classification_seq)
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_classification (ims_md_cl_id, ims_md_id)
+ values (:ims_md_cl_id, :ims_md_id)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../classificationmd" {ims_md_id}]
+ ad_script_abort
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_addpath.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_addpath.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_addpath.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,22 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+Classification Metadata
+
+
+
+ | Classification Metadata |
+
+
+ | Add another Classification Metadata Taxonomic Path Entry? |
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_addpath.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_addpath.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_addpath.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,47 @@
+# packages/lorsm/www/md/classificationmd/classification_addpath.tcl
+
+ad_page_contract {
+
+ Add Classification MD Taxonomic Path Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification_addpath.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_cl_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.lt_Add_Taxonomic_Path_En]"]
+set title "[_ lorsm.lt_Add_Classification_MD_1]"
+
+# Form
+ad_form -name classificationmd_addpath \
+ -cancel_url classification?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id \
+ -mode edit \
+ -form {
+
+ ims_md_cl_ta_id:key(ims_md_classification_taxpath_seq)
+
+ {ims_md_cl_id:text(hidden) {value $ims_md_cl_id}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_classification_taxpath (ims_md_cl_ta_id, ims_md_cl_id)
+ values (:ims_md_cl_ta_id, :ims_md_cl_id)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
+ ad_script_abort
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_desc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_desc.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_desc.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Classification Metadata Description
+
+
+
+ | Classification Metadata |
+
+
+ | Descriptions: |
+ |
+
+
+
+
+
+
+
Add/Edit Classification Metadata Description
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_desc.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_desc.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,109 @@
+# packages/lorsm/www/md/classificationmd/classification_desc.tcl
+
+ad_page_contract {
+
+ Add/Edit Classification MD Description
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification_desc.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_cl_id:integer
+ ims_md_cl_de_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_cl_de_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.Edit_Description]"]
+ set title "[_ lorsm.lt_Edit_Classification_M_4]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.Add_Description]"]
+ set title "[_ lorsm.lt_Add_Classification_MD_2]"
+}
+
+# Form
+
+ad_form -name classificationmd_desc \
+ -cancel_url classification?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id \
+ -mode edit \
+ -form {
+
+ ims_md_cl_de_id:key(ims_md_classification_desc_seq)
+
+ {descrip_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Classificatio_5]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {descrip_s:text(textarea),nospell
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Description_of_the_le]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+ {ims_md_cl_id:text(hidden) {value $ims_md_cl_id}
+ }
+
+} -select_query {select * from ims_md_classification_descrip where ims_md_cl_de_id = :ims_md_cl_de_id and ims_md_cl_id = :ims_md_cl_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_classification_descrip
+ set descrip_l = :descrip_l,
+ descrip_s = :descrip_s
+ where ims_md_cl_de_id = :ims_md_cl_de_id"
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_classification_descrip (ims_md_cl_de_id, ims_md_cl_id, descrip_l, descrip_s)
+ values
+ (:ims_md_cl_de_id, :ims_md_cl_id, :descrip_l, :descrip_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
+ ad_script_abort
+}
+
+# Classification Description
+template::list::create \
+ -name d_cl_desc \
+ -multirow d_cl_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label ""
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "classification_desc" {ims_md_cl_de_id ims_md_cl_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_cl_desc select_cl_desc {
+ select
+ '[' || clde.descrip_l || '] ' || clde.descrip_s as desc,
+ clde.ims_md_cl_de_id,
+ cl.ims_md_cl_id,
+ cl.ims_md_id
+ from
+ ims_md_classification_descrip clde,
+ ims_md_classification cl
+ where
+ clde.ims_md_cl_id = cl.ims_md_cl_id
+ and
+ clde.ims_md_cl_id = :ims_md_cl_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Classification Metadata Keyword
+
+
+
+ | Classification Metadata |
+
+
+ | Keywords: |
+ |
+
+
+
+
+
+
+
Add/Edit Classification Metadata Keyword
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,109 @@
+# packages/lorsm/www/md/classificationmd/classification_key.tcl
+
+ad_page_contract {
+
+ Add/Edit Classification MD Keyword
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification_key.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_cl_id:integer
+ ims_md_cl_ke_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_cl_ke_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.Edit_Keyword_1]"]
+ set title "[_ lorsm.lt_Edit_Classification_M]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.Add_Keyword]"]
+ set title "[_ lorsm.lt_Add_Classification_MD_3]"
+}
+
+# Form
+
+ad_form -name classificationmd_key \
+ -cancel_url classification?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id \
+ -mode edit \
+ -form {
+
+ ims_md_cl_ke_id:key(ims_md_classification_keyword_seq)
+
+ {keyword_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Classificatio_6]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {keyword_s:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Keyword_description_o]"}
+ {label "[_ lorsm.Keyword]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+ {ims_md_cl_id:text(hidden) {value $ims_md_cl_id}
+ }
+
+} -select_query {select * from ims_md_classification_keyword where ims_md_cl_ke_id = :ims_md_cl_ke_id and ims_md_cl_id = :ims_md_cl_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_classification_keyword
+ set keyword_l = :keyword_l,
+ keyword_s = :keyword_s
+ where ims_md_cl_ke_id = :ims_md_cl_ke_id"
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_classification_keyword (ims_md_cl_ke_id, ims_md_cl_id, keyword_l, keyword_s)
+ values
+ (:ims_md_cl_ke_id, :ims_md_cl_id, :keyword_l, :keyword_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
+ ad_script_abort
+}
+
+# Classification Keyword
+template::list::create \
+ -name d_cl_key \
+ -multirow d_cl_key \
+ -no_data "[_ lorsm.No_Keyword_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ keyword {
+ label ""
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "classification_key" {ims_md_cl_ke_id ims_md_cl_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_cl_key select_cl_key {
+ select
+ '[' || kw.keyword_l || '] ' || kw.keyword_s as keyword,
+ kw.ims_md_cl_ke_id,
+ cl.ims_md_cl_id,
+ cl.ims_md_id
+ from
+ ims_md_classification_keyword kw,
+ ims_md_classification cl
+ where
+ kw.ims_md_cl_id = cl.ims_md_cl_id
+ and
+ kw.ims_md_cl_id = :ims_md_cl_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Classification Metadata Purpose
+
+
+
+ | Classification Metadata |
+
+
+ | Purpose: |
+ |
+
+
+
+
+
+
+
Add/Edit Classification Metadata Purpose
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_pur.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,89 @@
+# packages/lorsm/www/md/classificationmd/classification_pur.tcl
+
+ad_page_contract {
+
+ Add/Edit Classification MD Purpose
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification_pur.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_cl_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.AddEdit_Purpose]"]
+set title "[_ lorsm.lt_Edit_Classification_M_1]"
+
+
+# Form
+
+ad_form -name classificationmd_pur \
+ -cancel_url classification?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id \
+ -mode edit \
+ -form {
+
+ ims_md_cl_id:key(ims_md_classification_seq)
+
+ {purpose_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Classificatio_7]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {purpose_v:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Characteristics_of_th]"}
+ {label "[_ lorsm.Purpose]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_classification where ims_md_cl_id = :ims_md_cl_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_classification
+ set purpose_s = :purpose_s,
+ purpose_v = :purpose_v
+ where ims_md_cl_id = :ims_md_cl_id "
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
+ ad_script_abort
+}
+
+# Classification Purpose
+template::list::create \
+ -name d_cl_pur \
+ -multirow d_cl_pur \
+ -no_data "[_ lorsm.No_Purpose_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ purpose_s {
+ label ""
+ }
+ purpose_v {
+ label ""
+ }
+ }
+
+db_multirow d_cl_pur select_cl_pur {
+ select purpose_s,
+ purpose_v,
+ ims_md_cl_id,
+ ims_md_id
+ from
+ ims_md_classification
+ where
+ ims_md_cl_id = :ims_md_cl_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Classification Metadata Taxonomic Path Taxonomy
+
+
+
+ | Classification Metadata |
+
+
+ | Keywords: |
+ |
+
+
+
+
+
+
+
Add/Edit Classification Metadata Taxonomic Path Taxonomy
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_taxon.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,124 @@
+# packages/lorsm/www/md/classificationmd/classification_taxon.tcl
+
+ad_page_contract {
+
+ Add/Edit Classification MD Taxonomic Path Taxonomy
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification_taxon.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_cl_id:integer
+ ims_md_cl_ta_id:integer
+ ims_md_cl_ta_ta_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_cl_ta_ta_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] "[_ lorsm.Classification_Entry]"] [list [export_vars -base "classification_tpath" {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] "[_ lorsm.Taxonomic_Paths_2]"] "[_ lorsm.Edit_Taxonomy]"]
+ set title "[_ lorsm.lt_Edit_Classification_M_2]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] "[_ lorsm.lt_Classification_Entry_]"] "[_ lorsm.Add_Taxonomy]"]
+ set title "[_ lorsm.lt_Add_Classification_MD_4]"
+}
+
+# Form
+
+ad_form -name classificationmd_taxon \
+ -cancel_url classification_tpath?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id&ims_md_cl_ta_id=$ims_md_cl_ta_id \
+ -mode edit \
+ -form {
+
+ ims_md_cl_ta_ta_id:key(ims_md_classification_taxpath_taxon_seq)
+
+ {identifier:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Classificatio_8]"}
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Taxons_identifier_in_]"}
+ {label "[_ lorsm.Identifier]"}
+ }
+
+ {entry_l:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {entry_s:text,nospell
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Number_in_the_Catalog]"}
+ {label "[_ lorsm.Entry]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+ {ims_md_cl_id:text(hidden) {value $ims_md_cl_id}
+ }
+
+ {ims_md_cl_ta_id:text(hidden) {value $ims_md_cl_ta_id}
+ }
+
+} -select_query {select * from ims_md_classification_taxpath_taxon where ims_md_cl_ta_ta_id = :ims_md_cl_ta_ta_id and ims_md_cl_ta_id = :ims_md_cl_ta_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_classification_taxpath_taxon
+ set identifier = :identifier,
+ entry_l = :entry_l,
+ entry_s = :entry_s
+ where ims_md_cl_ta_ta_id = :ims_md_cl_ta_ta_id"
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_classification_taxpath_taxon (ims_md_cl_ta_ta_id, ims_md_cl_ta_id, identifier, entry_l, entry_s)
+ values
+ (:ims_md_cl_ta_ta_id, :ims_md_cl_ta_id, :identifier, :entry_l, :entry_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "classification_tpath" {ims_md_cl_ta_id ims_md_cl_id ims_md_id}]
+ ad_script_abort
+}
+
+# Classification Taxonomic Path Taxonomy
+template::list::create \
+ -name d_cl_taxon \
+ -multirow d_cl_taxon \
+ -no_data "[_ lorsm.lt_No_Taxonomies_Availab]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ identifier {
+ label "[_ lorsm.ID]"
+ }
+ entry {
+ label "[_ lorsm.Entry_1]"
+ }
+ export {
+ display_eval {\[[_ lorsm.Edit_1]\]}
+ link_url_eval { [export_vars -base "classification_taxon" {ims_md_cl_ta_ta_id ims_md_cl_ta_id ims_md_cl_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_cl_taxon select_cl_taxon {
+ select ctt.identifier,
+ '[' || ctt.entry_l || '] ' || ctt.entry_s as entry,
+ ctt.ims_md_cl_ta_id,
+ ctt.ims_md_cl_ta_ta_id,
+ cl.ims_md_cl_id,
+ cl.ims_md_id
+ from
+ ims_md_classification_taxpath_taxon ctt,
+ ims_md_classification cl
+ where
+ ctt.ims_md_cl_ta_id = :ims_md_cl_ta_id
+ and
+ cl.ims_md_cl_id = :ims_md_cl_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tpath.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tpath.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tpath.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,20 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | Classification Metadata Taxonomic Path |
+
+
+ | Source: |
+ |
+
+
+ | Taxonomies: |
+ |
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tpath.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tpath.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tpath.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,65 @@
+ad_page_contract {
+ Displays IMS Metadata Classification Taxonomic Path Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification_tpath.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_cl_id:integer
+ ims_md_cl_ta_id:integer
+ ims_md_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] "[_ lorsm.Classification_Entry]"] "[_ lorsm.Taxonomic_Paths_1]"]
+set title "[_ lorsm.lt_Classification_MD_Tax]"
+
+# Classification Taxonomic Path Source
+template::list::create \
+ -name d_cl_source \
+ -multirow d_cl_source \
+ -no_data "[_ lorsm.No_Source_Available]" \
+ -actions [list "[_ lorsm.Add_Source]" [export_vars -base classification_tsource {ims_md_cl_ta_id ims_md_cl_id ims_md_id}] "[_ lorsm.Add_another_Source]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ source {
+ label ""
+ }
+ }
+
+db_multirow d_cl_source select_cl_source {
+ select
+ '[' || source_l || '] ' || source_v as source
+ from
+ ims_md_classification_taxpath
+ where
+ ims_md_cl_ta_id = :ims_md_cl_ta_id
+ and ims_md_cl_id = :ims_md_cl_id
+}
+
+# Classification Taxonomic Path Taxonomy
+template::list::create \
+ -name d_cl_taxon \
+ -multirow d_cl_taxon \
+ -no_data "[_ lorsm.lt_No_Taxonomies_Availab]" \
+ -actions [list "[_ lorsm.Add_Taxonomy]" [export_vars -base classification_taxon {ims_md_cl_ta_id ims_md_cl_id ims_md_id}] "[_ lorsm.Add_another_Taxonomy]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ identifier {
+ label "[_ lorsm.ID]"
+ }
+ entry {
+ label "[_ lorsm.Entry_1]"
+ }
+ }
+
+db_multirow d_cl_taxon select_cl_taxon {
+ select identifier,
+ '[' || entry_l || '] ' || entry_s as entry
+ from
+ ims_md_classification_taxpath_taxon
+ where
+ ims_md_cl_ta_id = :ims_md_cl_ta_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tsource.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tsource.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tsource.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Classification Metadata Taxonomic Path Source
+
+
+
+ | Classification Metadata Taxonomic Path |
+
+
+ | Source: |
+ |
+
+
+
+
+
+
+
Add/Edit Classification Metadata Taxonomic Path Source
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tsource.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tsource.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_tsource.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,100 @@
+# packages/lorsm/www/md/classificationmd/classification_tsource.tcl
+
+ad_page_contract {
+
+ Add/Edit Classification MD Taxonomic Path Source
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: classification_tsource.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_cl_id:integer
+ ims_md_cl_ta_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../classificationmd" ims_md_id] "[_ lorsm.Classification_MD]"] [list [export_vars -base "classification" {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] "[_ lorsm.Classification_Entry]"] [list [export_vars -base "classification_tpath" {ims_md_id ims_md_cl_id ims_md_cl_ta_id}] "[_ lorsm.Taxonomic_Paths_1]"] "[_ lorsm.AddEdit_Source]"]
+
+set title "[_ lorsm.lt_Edit_Classification_M_3]"
+
+
+# Form
+
+ad_form -name classificationmd_tsource \
+ -cancel_url classification_tpath?ims_md_id=$ims_md_id&ims_md_cl_id=$ims_md_cl_id&ims_md_cl_ta_id=$ims_md_cl_ta_id \
+ -mode edit \
+ -form {
+
+ ims_md_cl_ta_id:key(ims_md_classification_taxpath_seq)
+
+ {source_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Classificatio_9]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {source_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {ims_md_cl_id:text(hidden) {value $ims_md_cl_id}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_classification_taxpath where ims_md_cl_ta_id = :ims_md_cl_ta_id and ims_md_cl_id = :ims_md_cl_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_classification_taxpath
+ set source_l = :source_l,
+ source_v = :source_v
+ where ims_md_cl_ta_id = :ims_md_cl_ta_id"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "classification_tpath" {ims_md_cl_ta_id ims_md_cl_id ims_md_id}]
+ ad_script_abort
+}
+
+# Classification Taxonomic Path Source
+template::list::create \
+ -name d_cl_tsource \
+ -multirow d_cl_tsource \
+ -no_data "[_ lorsm.lt_No_Taxonomic_Path_Sou]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ source {
+ label ""
+ }
+ export {
+ display_eval {\[[_ lorsm.Edit_1]\]}
+ link_url_eval { [export_vars -base "classification_tsource" {ims_md_cl_ta_id ims_md_cl_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_cl_tsource select_cl_tsource {
+ select
+ '[' || ctp.source_l || '] ' || ctp.source_v as source,
+ ctp.ims_md_cl_ta_id,
+ ctp.ims_md_cl_id,
+ cl.ims_md_id
+ from
+ ims_md_classification_taxpath ctp,
+ ims_md_classification cl
+ where
+ ctp.ims_md_cl_ta_id = :ims_md_cl_ta_id
+ and cl.ims_md_cl_id = :ims_md_cl_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_cont.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_cont.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_cont.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Context
+
+
+
+ | Educational Metadata |
+
+
+ | Context: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Context
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_cont.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_cont.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_cont.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,98 @@
+# packages/lorsm/www/md/educationalmd/educational_cont.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Context
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_cont.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ed_co_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ed_co_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" im\s_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.Edit_Context]"]
+ set title "[_ lorsm.lt_Edit_Educational_MD_C]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" im\s_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.Add_Context]"]
+ set title "[_ lorsm.lt_Add_Educational_MD_Co]"
+}
+
+# Form
+
+ad_form -name educationalmd_cont \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ed_co_id:key(ims_md_educational_context_seq)
+
+ {context_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_11]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {context_v:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Learning_environment_]"}
+ {label "[_ lorsm.Context]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_educational_context where ims_md_ed_co_id = :ims_md_ed_co_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_educational_context
+ set context_s = :context_s,
+ context_v = :context_v
+ where ims_md_ed_co_id = :ims_md_ed_co_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_educational_context (ims_md_ed_co_id, ims_md_id, context_s, context_v)
+ values (:ims_md_ed_co_id, :ims_md_id, :context_s, :context_v)"
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Context
+template::list::create \
+ -name d_ed_cont \
+ -multirow d_ed_cont \
+ -no_data "[_ lorsm.No_Context_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ context {
+ label "[_ lorsm.Context_1]"
+ }
+ export {
+ display_eval {\[[_ lorsm.Edit_1]\]}
+ link_url_eval { [export_vars -base "educational_cont" {ims_md_ed_co_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_ed_cont select_ed_cont {
+ select
+ '[' || context_s || '] ' || context_v as context,
+ ims_md_ed_co_id,
+ ims_md_id
+ from
+ ims_md_educational_context
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_desc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_desc.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_desc.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Description
+
+
+
+ | Educational Metadata |
+
+
+ | Description: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Description
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_desc.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_desc.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,98 @@
+# packages/lorsm/www/md/educationalmd/educational_desc.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Description
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_desc.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ed_de_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ed_de_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.Edit_Description]"]
+ set title "[_ lorsm.lt_Edit_Educational_MD_D]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.Add_Description]"]
+ set title "[_ lorsm.lt_Add_Educational_MD_De]"
+}
+
+# Form
+
+ad_form -name educationalmd_desc \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ed_de_id:key(ims_md_educational_descrip_seq)
+
+ {descrip_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_12]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {descrip_s:text(textarea),nospell
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_How_the_learning_obje]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_educational_descrip where ims_md_ed_de_id = :ims_md_ed_de_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_educational_descrip
+ set descrip_l = :descrip_l,
+ descrip_s = :descrip_s
+ where ims_md_ed_de_id = :ims_md_ed_de_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_educational_descrip (ims_md_ed_de_id, ims_md_id, descrip_l, descrip_s)
+ values (:ims_md_ed_de_id, :ims_md_id, :descrip_l, :descrip_s)"
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Description
+template::list::create \
+ -name d_ed_desc \
+ -multirow d_ed_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label "[_ lorsm.Description_1]"
+ }
+ export {
+ display_eval {\[[_ lorsm.Edit_1]\]}
+ link_url_eval { [export_vars -base "educational_desc" {ims_md_ed_de_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_ed_desc select_ed_desc {
+ select
+ '[' || descrip_l || '] ' || descrip_s as desc,
+ ims_md_ed_de_id,
+ ims_md_id
+ from
+ ims_md_educational_descrip
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_dif.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_dif.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_dif.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Difficulty
+
+
+
+ | Educational Metadata |
+
+
+ | Difficulty: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Difficulty
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_dif.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_dif.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_dif.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,88 @@
+# packages/lorsm/www/md/educationalmd/educational_dif.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Difficulty
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_dif.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.AddEdit_Difficulty]"]
+set title "[_ lorsm.lt_AddEdit_Educational_M_13]"
+
+# Form
+
+ad_form -name educationalmd_dif \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {difficulty_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_13]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {difficulty_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Level_of_difficulty_i]"}
+ {label "[_ lorsm.Difficulty]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the educational difficulty details already exist...
+
+ if {[db_0or1row select_size {select ims_md_id from ims_md_educational where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_educational
+ set difficulty_s = :difficulty_s, difficulty_v = :difficulty_v
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_educational (ims_md_id, difficulty_s, difficulty_v)
+ values
+ (:ims_md_id, :difficulty_s, :difficulty_v) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Difficulty
+template::list::create \
+ -name d_ed_dif \
+ -multirow d_ed_dif \
+ -no_data "[_ lorsm.lt_No_Difficulty_Type_Av]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ diff {
+ label "[_ lorsm.Difficulty_1]"
+ }
+ }
+
+db_multirow d_ed_dif select_ed_dif {
+ select
+ '[' || difficulty_s || '] ' || difficulty_v as diff,
+ ims_md_id
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_ieur.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_ieur.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_ieur.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Intended End User Role
+
+
+
+ | Educational Metadata |
+
+
+ | Intended End User Role: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Intended End User Role
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_ieur.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_ieur.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_ieur.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,98 @@
+# packages/lorsm/www/md/educationalmd/educational_ieur.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Intended End User Role
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_ieur.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ed_ie_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ed_ie_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_Edit_Intended_End_Use]"]
+ set title "[_ lorsm.lt_Edit_Educational_MD_I]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_Add_Intended_End_User]"]
+ set title "[_ lorsm.lt_Add_Educational_MD_In]"
+}
+
+# Form
+
+ad_form -name educationalmd_ieur \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ed_ie_id:key(ims_md_educational_ieur_seq)
+
+ {ieur_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_14]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {ieur_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Normal_user_of_the_le]"}
+ {label "[_ lorsm.lt_Intended_End_User_Rol]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_educational_ieur where ims_md_ed_ie_id = :ims_md_ed_ie_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_educational_ieur
+ set ieur_s = :ieur_s,
+ ieur_v = :ieur_v
+ where ims_md_ed_ie_id = :ims_md_ed_ie_id"
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_educational_ieur (ims_md_ed_ie_id, ims_md_id, ieur_s, ieur_v)
+ values (:ims_md_ed_ie_id, :ims_md_id, :ieur_s, :ieur_v)"
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Intended End User Role
+template::list::create \
+ -name d_ed_ieur \
+ -multirow d_ed_ieur \
+ -no_data "[_ lorsm.lt_No_Intended_End_User_]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ ieur {
+ label "[_ lorsm.lt_Intended_End_User_Rol_1]"
+ }
+ export {
+ display_eval {\[[_ lorsm.Edit_1]\]}
+ link_url_eval { [export_vars -base "educational_ieur" {ims_md_ed_ie_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_ed_ieur select_ed_ieur {
+ select
+ '[' || ieur_s || '] ' || ieur_v as ieur,
+ ims_md_ed_ie_id,
+ ims_md_id
+ from
+ ims_md_educational_ieur
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intl.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intl.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intl.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Interactivity Level
+
+
+
+ | Educational Metadata |
+
+
+ | Interactivity Level: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Interactivity Level
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intl.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intl.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intl.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,88 @@
+# packages/lorsm/www/md/educationalmd/educational_intl.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Interactivity Level
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_intl.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" \im\\\s_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_AddEdit_Interactivity]"]
+
+set title "[_ lorsm.lt_Edit_Educational_MD_I_1]"
+
+# Form
+
+ad_form -name educationalmd_intl \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {int_level_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_15]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {int_level_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Level_of_interactivit]"}
+ {label "[_ lorsm.Interactivity_Level]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the ED Interactivity Level already exist...
+
+ if {[db_0or1row select_size {select ims_md_id from ims_md_educational where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_educational
+ set int_level_s = :int_level_s, int_level_v = :int_level_v
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_educational (ims_md_id, int_level_s, int_level_v)
+ values
+ (:ims_md_id, :int_level_s, :int_level_v) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Interactivity Level
+template::list::create \
+ -name d_ed_intl \
+ -multirow d_ed_intl \
+ -no_data "[_ lorsm.lt_No_Interactivity_Leve]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ intl {
+ label "[_ lorsm.Interactivity_Level_1]"
+ }
+ }
+
+db_multirow d_ed_intl select_ed_intl {
+ select
+ '[' || int_level_s || '] ' || int_level_v as intl,
+ ims_md_id
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intt.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intt.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intt.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Interactivity Type
+
+
+
+ | Educational Metadata |
+
+
+ | Interactivity Type: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Interactivity Type
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intt.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intt.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_intt.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,87 @@
+# packages/lorsm/www/md/educationalmd/educational_intt.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Interactivity Type
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_intt.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_AddEdit_Interactivity]"]
+set title "[_ lorsm.lt_AddEdit_Educational_M_16]"
+
+# Form
+
+ad_form -name educationalmd_intt \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {int_type_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_16]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {int_type_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Type_of_interactivity]"}
+ {label "[_ lorsm.Interactivity_Type]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the ED interactivity type details already exist...
+
+ if {[db_0or1row select_type {select ims_md_id from ims_md_educational where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_educational
+ set int_type_s = :int_type_s, int_type_v = :int_type_v
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_educational (ims_md_id, int_type_s, int_type_v)
+ values
+ (:ims_md_id, :int_type_s, :int_type_v) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Interactivity Type
+template::list::create \
+ -name d_ed_intt \
+ -multirow d_ed_intt \
+ -no_data "[_ lorsm.lt_No_Interactivity_Type]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ intt {
+ label "[_ lorsm.Interactivity_Type_1]"
+ }
+ }
+
+db_multirow d_ed_intt select_ed_intt {
+ select
+ '[' || int_type_s || '] ' || int_type_v as intt,
+ ims_md_id
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Language
+
+
+
+ | Educational Metadata |
+
+
+ | Language: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Language
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lang.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,91 @@
+# packages/lorsm/www/md/educationalmd/educational_lang.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Language
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_lang.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ed_la_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ed_la_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.Edit_Language]"]
+ set title "[_ lorsm.lt_Edit_Educational_MD_L]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.Add_Language]"]
+ set title "[_ lorsm.lt_Add_Educational_MD_La]"
+}
+
+# Form
+
+ad_form -name educationalmd_lang \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ed_la_id:key(ims_md_educational_lang_seq)
+
+ {language:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_17]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_educational_lang where ims_md_ed_la_id = :ims_md_ed_la_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_educational_lang
+ set language = :language
+ where ims_md_ed_la_id = :ims_md_ed_la_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_educational_lang (ims_md_ed_la_id, ims_md_id, language)
+ values (:ims_md_ed_la_id, :ims_md_id, :language)"
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Language
+template::list::create \
+ -name d_ed_lang \
+ -multirow d_ed_lang \
+ -no_data "[_ lorsm.lt_No_Language_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ language {
+ label "[_ lorsm.Language_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "educational_lang" {ims_md_ed_la_id ims_md_id}] }
+q link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_ed_lang select_ed_lang {
+ select
+ language,
+ ims_md_ed_la_id,
+ ims_md_id
+ from
+ ims_md_educational_lang
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lrt.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lrt.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lrt.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Learning Resource Type
+
+
+
+ | Educational Metadata |
+
+
+ | Learning Resource Type: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Learning Resource Type
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lrt.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lrt.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_lrt.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,96 @@
+# packages/lorsm/www/md/educationalmd/educational_lrt.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Learning Resource Type
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @creation-date 16 October 2004
+
+} {
+ ims_md_id:integer
+ ims_md_ed_lr_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ed_lr_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" \i\m\\\s_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_Edit_Learning_Resourc]"]
+ set title "[_ lorsm.lt_Edit_Educational_MD_L_1]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor] "] [list [export_vars -base "../educationalmd" \i\m\\\s_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_Add_Learning_Resource]"]
+ set title "[_ lorsm.lt_Add_Educational_MD_Le]"
+}
+
+# Form
+
+ad_form -name educationalmd_lrt \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ed_lr_id:key(ims_md_educational_lrt_seq)
+
+ {lrt_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_18]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {lrt_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Type_of_interactivity]"}
+ {label "[_ lorsm.lt_Learning_Resource_Typ]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_educational_lrt where ims_md_ed_lr_id = :ims_md_ed_lr_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_educational_lrt
+ set lrt_s = :lrt_s,
+ lrt_v = :lrt_v
+ where ims_md_ed_lr_id = :ims_md_ed_lr_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_educational_lrt (ims_md_ed_lr_id, ims_md_id, lrt_s, lrt_v)
+ values (:ims_md_ed_lr_id, :ims_md_id, :lrt_s, :lrt_v)"
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Learning Resource Type
+template::list::create \
+ -name d_ed_lrt \
+ -multirow d_ed_lrt \
+ -no_data "[_ lorsm.lt_No_Learning_Resource_]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ lrt {
+ label ""
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "educational_lrt" {ims_md_ed_lr_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_ed_lrt select_ed_lrt {
+ select
+ '[' || lrt_s || '] ' || lrt_v as lrt,
+ ims_md_ed_lr_id,
+ ims_md_id
+ from
+ ims_md_educational_lrt
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_semd.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_semd.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_semd.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Semantic Density
+
+
+
+ | Educational Metadata |
+
+
+ | Semantic Density: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Semantic Density
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_semd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_semd.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_semd.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,89 @@
+# packages/lorsm/www/md/educationalmd/educational_semd.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Semantic Density
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_semd.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_AddEdit_Semantic_Dens]"]
+set title "[_ lorsm.lt_Edit_Educational_MD_S]"
+
+# Form
+
+ad_form -name educationalmd_semd \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {sem_density_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_19]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {sem_density_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Learning_objects_usef]"}
+ {label "[_ lorsm.Semantic_Density]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the ED Semantic Density already exist...
+
+ if {[db_0or1row select_size {select ims_md_id from ims_md_educational where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_educational
+ set sem_density_s = :sem_density_s,
+ sem_density_v = :sem_density_v
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_educational (ims_md_id, sem_density_s, sem_density_v)
+ values
+ (:ims_md_id, :sem_density_s, :sem_density_v) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Semantic Density
+template::list::create \
+ -name d_ed_semd \
+ -multirow d_ed_semd \
+ -no_data "[_ lorsm.lt_No_Semantic_Density_A]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ semd {
+ label "[_ lorsm.Semantic_Density_1]"
+ }
+ }
+
+db_multirow d_ed_semd select_ed_semd {
+ select
+ '[' || sem_density_s || '] ' || sem_density_v as semd,
+ ims_md_id
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tar.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tar.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tar.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Typical Age Range
+
+
+
+ | Educational Metadata |
+
+
+ | Typical Age Range: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Typical Age Range
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tar.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tar.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,98 @@
+# packages/lorsm/www/md/educationalmd/educational_tar.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Typical Age Range
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_tar.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ed_ta_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ed_ta_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_Edit_Typical_Age_Rang]"]
+ set title "[_ lorsm.lt_Edit_Educational_MD_T]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.Add_Typical_Age_Rang]"]
+ set title "[_ lorsm.lt_Add_Educational_MD_Ty]"
+}
+
+# Form
+
+ad_form -name educationalmd_tar \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ed_ta_id:key(ims_md_educational_tar_seq)
+
+ {tar_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Educational_M_20]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {tar_s:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Age_of_the_typical_in]"}
+ {label "[_ lorsm.Typical_Age_Range]" }
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_educational_tar where ims_md_ed_ta_id = :ims_md_ed_ta_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_educational_tar
+ set tar_l = :tar_l,
+ tar_s = :tar_s
+ where ims_md_ed_ta_id = :ims_md_ed_ta_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_educational_tar (ims_md_ed_ta_id, ims_md_id, tar_l, tar_s)
+ values (:ims_md_ed_ta_id, :ims_md_id, :tar_l, :tar_s)"
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Typical Age Range
+template::list::create \
+ -name d_ed_tar \
+ -multirow d_ed_tar \
+ -no_data "[_ lorsm.lt_No_Typical_Age_Range_]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ tar {
+ label "[_ lorsm.Typical_Age_Range_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "educational_tar" {ims_md_ed_ta_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_ed_tar select_ed_tar {
+ select
+ '[' || tar_l || '] ' || tar_s as tar,
+ ims_md_ed_ta_id,
+ ims_md_id
+ from
+ ims_md_educational_tar
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tlt.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tlt.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tlt.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Educational Metadata Typical Learning Time
+
+
+
+ | Educational Metadata |
+
+
+ | Typical Learning Time: |
+ |
+
+
+
+
+
+
+
Add/Edit Educational Metadata Typical Learning Time
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tlt.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tlt.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/educationalmd/educational_tlt.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,99 @@
+# packages/lorsm/www/md/educationalmd/educational_tlt.tcl
+
+ad_page_contract {
+
+ Add/Edit Educational MD Typical Learning Time
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: educational_tlt.tcl,v 1.1 2006/12/31 00:36:06 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../educationalmd" ims_md_id] "[_ lorsm.Educational_MD]"] "[_ lorsm.lt_AddEdit_Typical_Learn]"]
+set title "[_ lorsm.lt_Edit_Educational_MD_T_1]"
+
+# Form
+
+ad_form -name educationalmd_tlt \
+ -cancel_url ../educationalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {type_lrn_time_l:text,nospell,optional
+ {section "[_ lorsm.lt_AddEdit_Educational_M_21]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {type_lrn_time_s:text(textarea),nospell,optional
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Brief_Description_Req]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {type_lrn_time:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Amount_of_time_it_tak]"}
+ {label "[_ lorsm.lt_Typical_Learning_Time]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the educational typical learning time details already exist...
+
+ if {[db_0or1row select_size {select ims_md_id from ims_md_educational where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_educational
+ set type_lrn_time_s = :type_lrn_time_s,
+ type_lrn_time_l = :type_lrn_time_l,
+ type_lrn_time = :type_lrn_time
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_educational (ims_md_id, type_lrn_time_s, type_lrn_time_l, type_lrn_time)
+ values
+ (:ims_md_id, :type_lrn_time_s, :type_lrn_time_l, :type_lrn_time) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../educationalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Educational Typical Learning Time
+template::list::create \
+ -name d_ed_tlt \
+ -multirow d_ed_tlt \
+ -no_data "[_ lorsm.lt_No_Typical_Learning_T]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ tlt {
+ label "[_ lorsm.lt_Typical_Learning_Time_1]"
+ }
+ tlt_ls {
+ label "[_ lorsm.Language_1]"
+ }
+ }
+
+db_multirow d_ed_tlt select_ed_tlt {
+ select
+ type_lrn_time as tlt,
+ '[' || type_lrn_time_l || '] ' || type_lrn_time_s as tlt_ls,
+ ims_md_id
+ from
+ ims_md_educational
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.adp 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1 @@
+
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.tcl 31 Dec 2006 00:36:06 -0000 1.1
@@ -0,0 +1,33 @@
+set actions [list]
+
+lappend actions "[_ lorsm.General_MD]" [export_vars -base ../generalmd {ims_md_id}] "[_ lorsm.lt_View_General_Metadata]"
+lappend actions "[_ lorsm.Lifecycle_MD]" [export_vars -base ../lifecyclemd {ims_md_id}] "[_ lorsm.lt_View_Lifecycle_Metada]"
+lappend actions "[_ lorsm.Meta_MD]" [export_vars -base ../metamd {ims_md_id}] "[_ lorsm.View_Meta_Metadata]"
+lappend actions "[_ lorsm.Technical_MD]" [export_vars -base ../technicalmd {ims_md_id}] "[_ lorsm.lt_View_Technical_Metada]"
+lappend actions "[_ lorsm.Educational_MD]" [export_vars -base ../educationalmd {ims_md_id}] "[_ lorsm.lt_View_Educational_Meta]"
+lappend actions "[_ lorsm.Rights_MD]" [export_vars -base ../rightsmd {ims_md_id}] "[_ lorsm.View_Rights_Metadata]"
+lappend actions "[_ lorsm.Relation_MD]" [export_vars -base ../relationmd {ims_md_id}] "[_ lorsm.lt_View_Relation_Metadat]"
+lappend actions "[_ lorsm.Annotation_MD]" [export_vars -base ../annotationmd {ims_md_id}] "[_ lorsm.lt_View_Annotation_Metad]"
+lappend actions "[_ lorsm.Classification_MD]" [export_vars -base ../classificationmd {ims_md_id}] "[_ lorsm.lt_View_Classification_M_1]"
+
+
+# Presentation
+template::list::create \
+ -name d_pres \
+ -multirow d_pres \
+ -no_data "-" \
+ -actions $actions \
+ -elements {
+ object_type {
+ label "[_ lorsm.Object_Type]"
+ }
+ }
+
+db_multirow d_pres select_ge_titles {
+ select
+ object_type
+ from
+ acs_objects
+ where
+ object_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_aggl.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_aggl.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_aggl.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+General Metadata Aggregation Level
+
+
+
+ | General Metadata |
+
+
+ | Aggregation Level: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Aggregation Level
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_aggl.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_aggl.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_aggl.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,101 @@
+# packages/lorsm/www/md/generalmd/general_aggl.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Aggregation Level
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: general_aggl.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\\\\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.lt_Edit_Aggregation_Leve]"]
+set title "[_ lorsm.lt_Edit_General_MD_Aggre]"
+
+# Form
+
+ad_form -name generalmd_aggl \
+ -cancel_url ../generalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+
+
+ {agg_level_v:text,nospell
+ {section "[_ lorsm.lt_AddEdit_General_MD_Ag]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Functional_size_of_th]"}
+ {label "[_ lorsm.Aggregation_Level]"}
+ }
+
+ {agg_level_s:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the aggregation level already exist..
+
+ if {[db_0or1row select_aggregation_level {select ims_md_id from ims_md_general where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_general
+ set agg_level_v = :agg_level_v, agg_level_s = :agg_level_s
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_general (ims_md_id, agg_level_v, agg_level_s)
+ values
+ (:ims_md_id, :agg_level_v, :agg_level_s)"
+
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Aggregation Level
+template::list::create \
+ -name d_gen_aggl \
+ -multirow d_gen_aggl \
+ -no_data "[_ lorsm.lt_No_Aggregation_Level__1]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ agg_level_s {
+ label "[_ lorsm.Source_1]"
+ }
+ agg_level_v {
+ label "[_ lorsm.Value]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "general_aggl" {ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record] "}
+ html { align center }
+ }
+ }
+
+db_multirow d_gen_aggl select_ge_aggl {
+ select agg_level_s,
+ agg_level_v,
+ ims_md_id
+ from
+ ims_md_general
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_cata.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_cata.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_cata.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of General Metadata Catalog-Entries
+
+
+
+ | General Metadata |
+
+
+ | Catalog-Entries: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Catalog-Entry
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_cata.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_cata.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_cata.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,113 @@
+# packages/lorsm/www/md/generalmd/general_cata.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Catalog-Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: general_cata.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ge_cata_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ge_cata_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Catalog-Entry]"]
+ set title "[_ lorsm.lt_Edit_General_MD_Catal]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Add_Catalog-Entry]"]
+ set title "[_ lorsm.lt_Add_General_MD_Catalo]"
+}
+
+# Form
+
+ad_form -name generalmd_cata \
+ -cancel_url ../generalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ge_cata_id:key(ims_md_general_cata_seq)
+
+ {catalog:text,nospell
+ {section "[_ lorsm.lt_AddEdit_General_MD_Ca]"}
+ {html {size 50}}
+ {help_text "[_ lorsm.Name_of_the_catalog]"}
+ {label "[_ lorsm.Catalog]"}
+ }
+
+ {entry_l:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {entry_s:text,nospell
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Number_in_the_Catalog]"}
+ {label "[_ lorsm.Entry]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_general_cata where ims_md_ge_cata_id = :ims_md_ge_cata_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_general_cata
+ set catalog = :catalog, entry_l = :entry_l, entry_s = :entry_s
+ where ims_md_ge_cata_id = :ims_md_ge_cata_id"
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_general_cata (ims_md_ge_cata_id, ims_md_id, catalog, entry_l, entry_s)
+ values
+ (:ims_md_ge_cata_id, :ims_md_id, :catalog, :entry_l, :entry_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Catalog-entry
+template::list::create \
+ -name d_gen_cata \
+ -multirow d_gen_cata \
+ -no_data "[_ lorsm.lt_No_Catalog_Entry_Avai]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ catalog {
+ label "[_ lorsm.Catalog_1]"
+ }
+ entry_l {
+ label "[_ lorsm.Language_1]"
+ }
+ entry_s {
+ label "[_ lorsm.Entry_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "general_cata" {ims_md_ge_cata_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_gen_cata select_ge_cata {
+ select catalog,
+ entry_l,
+ entry_s,
+ ims_md_ge_cata_id,
+ ims_md_id
+ from
+ ims_md_general_cata
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of General Metadata Coverages
+
+
+
+ | General Metadata |
+
+
+ | Coverage: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Coverage
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,102 @@
+# packages/lorsm/www/md/generalmd/general_cover.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Coverage
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: general_cover.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ge_cove_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ge_cove_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Coverage]"]
+ set title "[_ lorsm.lt_Edit_General_MD_Cover]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Add_Coverage]"]
+ set title "[_ lorsm.lt_Add_General_MD_Covera]"
+}
+
+# Form
+
+ad_form -name generalmd_cover \
+ -cancel_url ../generalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ge_cove_id:key(ims_md_general_cover_seq)
+
+ {cover_l:text,nospell,optional
+ {section "[_ lorsm.lt_AddEdit_General_MD_Co]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {cover_s:text,nospell
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Temporalspatial_chara]"}
+ {label "[_ lorsm.Coverage]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_general_cover where ims_md_ge_cove_id = :ims_md_ge_cove_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_general_cover
+ set cover_l = :cover_l, cover_s = :cover_s
+ where ims_md_ge_cove_id = :ims_md_ge_cove_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_general_cover (ims_md_ge_cove_id, ims_md_id, cover_l, cover_s)
+ values
+ (:ims_md_ge_cove_id, :ims_md_id, :cover_l, :cover_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Coverage
+template::list::create \
+ -name d_gen_cover \
+ -multirow d_gen_cover \
+ -no_data "[_ lorsm.lt_No_Coverage_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ cover_l {
+ label "[_ lorsm.Language_1]"
+ }
+ cover_s {
+ label "[_ lorsm.Coverage_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "general_cover" {ims_md_ge_cove_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_gen_cover select_ge_cover {
+ select cover_l,
+ cover_s,
+ ims_md_ge_cove_id,
+ ims_md_id
+ from
+ ims_md_general_cover
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of General Metadata Descriptions
+
+
+
+ | General Metadata |
+
+
+ | Descriptions: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Description
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_desc.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,102 @@
+# packages/lorsm/www/md/generalmd/general_desc.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Description
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: general_desc.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ge_desc_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ge_desc_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" ims_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Description]"]
+ set title "[_ lorsm.lt_Edit_General_MD_Descr]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" ims_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Add_Description]"]
+ set title "[_ lorsm.lt_Add_General_MD_Descri]"
+}
+
+# Form
+
+ad_form -name generalmd_desc \
+ -cancel_url ../generalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ge_desc_id:key(ims_md_general_desc_seq)
+
+ {descrip_l:text,nospell,optional
+ {section "[_ lorsm.lt_AddEdit_General_MD_De]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {descrip_s:text(textarea),nospell
+ {html {rows 5 cols 50}}
+ {help_text "[_ lorsm.lt_Describes_learning_ob]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_general_desc where ims_md_ge_desc_id = :ims_md_ge_desc_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_general_desc
+ set descrip_l = :descrip_l, descrip_s = :descrip_s
+ where ims_md_ge_desc_id = :ims_md_ge_desc_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_general_desc (ims_md_ge_desc_id, ims_md_id, descrip_l, descrip_s)
+ values
+ (:ims_md_ge_desc_id, :ims_md_id, :descrip_l, :descrip_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Language
+template::list::create \
+ -name d_gen_desc \
+ -multirow d_gen_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ descrip_l {
+ label "[_ lorsm.Language_1]"
+ }
+ descrip_s {
+ label "[_ lorsm.Description_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "general_desc" {ims_md_ge_desc_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record] "}
+ html { align center }
+ }
+ }
+
+db_multirow d_gen_desc select_ge_desc {
+ select descrip_l,
+ descrip_s,
+ ims_md_ge_desc_id,
+ ims_md_id
+ from
+ ims_md_general_desc
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_key.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_key.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_key.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of General Metadata Keywords
+
+
+
+ | General Metadata |
+
+
+ | Keywords: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Keyword
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_key.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_key.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_key.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,103 @@
+# packages/lorsm/www/md/generalmd/general_key.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Keyword
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: general_key.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ge_key_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ge_key_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Keyword_1]"]
+ set title "[_ lorsm.lt_Edit_General_MD_Keywo]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]" ] [list [export_vars -base "../generalmd" im\\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Add_Keyword]"]
+ set title "[_ lorsm.lt_Add_General_MD_Keywor]"
+}
+
+# Form
+
+ad_form -name generalmd_key \
+ -cancel_url ../generalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ge_key_id:key(ims_md_general_key_seq)
+
+ {keyword_l:text,nospell,optional
+ {section "[_ lorsm.lt_AddEdit_General_MD_Ke]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {keyword_s:text,nospell
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Keyword_description_o]"}
+ {label "[_ lorsm.Keyword]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_general_key where ims_md_ge_key_id = :ims_md_ge_key_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_general_key
+ set keyword_l = :keyword_l, keyword_s = :keyword_s
+ where ims_md_ge_key_id = :ims_md_ge_key_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_general_key (ims_md_ge_key_id, ims_md_id, keyword_l, keyword_s)
+ values
+ (:ims_md_ge_key_id, :ims_md_id, :keyword_l, :keyword_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Keyword
+template::list::create \
+ -name d_gen_key \
+ -multirow d_gen_key \
+ -no_data "[_ lorsm.lt_No_Keywords_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ keyword_l {
+ label ""
+ }
+ keyword_s {
+ label ""
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "general_key" {ims_md_ge_key_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_gen_key select_ge_key {
+ select keyword_l,
+ keyword_s,
+ ims_md_ge_key_id,
+ ims_md_id
+ from
+ ims_md_general_key
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_lang.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_lang.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_lang.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of General Metadata Languages
+
+
+
+ | General Metadata |
+
+
+ | Languages: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Language
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_lang.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_lang.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_lang.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,92 @@
+# packages/lorsm/www/md/generalmd/general_lang.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Language
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: general_lang.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_ge_lang_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ge_lang_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Language]"]
+ set title "[_ lorsm.lt_Edit_General_MD_Langu]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Add_Language]"]
+ set title "[_ lorsm.lt_Add_General_MD_Langua]"
+}
+
+# Form
+
+ad_form -name generalmd_lang \
+ -cancel_url ../generalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_ge_lang_id:key(ims_md_general_lang_seq)
+
+ {language:text,nospell
+ {section "[_ lorsm.lt_AddEdit_General_MD_La]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_general_lang where ims_md_ge_lang_id = :ims_md_ge_lang_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_general_lang
+ set language = :language
+ where ims_md_ge_lang_id = :ims_md_ge_lang_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_general_lang (ims_md_ge_lang_id, ims_md_id, language)
+ values
+ (:ims_md_ge_lang_id, :ims_md_id, :language)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Language
+template::list::create \
+ -name d_gen_lang \
+ -multirow d_gen_lang \
+ -no_data "[_ lorsm.lt_No_Language_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ language {
+ label "[_ lorsm.Language_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "general_lang" {ims_md_ge_lang_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_gen_lang select_ge_lang {
+ select language,
+ ims_md_ge_lang_id,
+ ims_md_id
+ from
+ ims_md_general_lang
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_struc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_struc.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_struc.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+General Metadata Structure
+
+
+
+ | General Metadata |
+
+
+ | Structure: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Structure
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_struc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_struc.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_struc.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,95 @@
+# packages/lorsm/www/md/generalmd/general_struc.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Structure
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: general_struc.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" im\\\\s_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Structure]"]
+set title "[_ lorsm.lt_Edit_General_MD_Struc]"
+
+# Form
+
+ad_form -name generalmd_struc \
+ -cancel_url [export_vars -base "../generalmd" ims_md_id] \
+ -mode edit \
+ -form {
+
+ {structure_v:text
+ {section "[_ lorsm.lt_AddEdit_General_MD_St]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Organizational_struct]"}
+ {label "[_ lorsm.Structure]"}
+ }
+
+ {structure_s:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the structure details already exist...
+
+ if {[db_0or1row select_structure {select ims_md_id from ims_md_general where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_general
+ set structure_v = :structure_v, structure_s = :structure_s
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_general (ims_md_id, structure_v, structure_s)
+ values
+ (:ims_md_id, :structure_v, :structure_s)"
+
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Structure
+template::list::create \
+ -name d_gen_struc \
+ -multirow d_gen_struc \
+ -no_data "[_ lorsm.lt_No_Structure_Availabl]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ structure_s {
+ label "[_ lorsm.Source_1]"
+ html {align center}
+ }
+ structure_v {
+ label "[_ lorsm.Value]"
+ html {align center}
+ }
+ }
+
+db_multirow d_gen_struc select_ge_struc {
+ select structure_s,
+ structure_v,
+ ims_md_id
+ from
+ ims_md_general
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_title.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_title.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_title.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of General Metadata Titles
+
+
+
+ | General Metadata |
+
+
+ | Titles: |
+ |
+
+
+
+
+
+
+
Add/Edit General Metadata Title
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_title.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_title.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_title.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,105 @@
+# packages/lorsm/www/md/generalmd/general_title.tcl
+
+ad_page_contract {
+
+ Add/Edit General MD Title
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-05-03
+ @arch-tag 1956d02e-511a-470c-81d0-c2857242651c
+ @cvs-id $Id: general_title.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+} {
+ ims_md_id:integer
+ ims_md_ge_ti_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ge_ti_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" ims_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Edit_Titles]"]
+ set title "[_ lorsm.lt_Edit_General_MD_Title]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../generalmd" ims_md_id] "[_ lorsm.General_MD]"] "[_ lorsm.Add_Titles]"]
+# set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] "[_ lorsm.General_MD]"]
+ set title "[_ lorsm.Add_General_MD_Title]"
+}
+
+# Form
+
+ad_form -name generalmd_title \
+ -cancel_url [export_vars -base "../generalmd" ims_md_id] \
+ -mode edit \
+ -form {
+
+ ims_md_ge_ti_id:key(ims_md_general_title_seq)
+
+ {title_l:text,nospell,optional
+ {section "[_ lorsm.lt_AddEdit_General_MD_Ti]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {title_s:text,nospell
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Learning_objects_name]"}
+ {label "[_ lorsm.Title]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_general_title where ims_md_ge_ti_id = :ims_md_ge_ti_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_general_title
+ set title_l = :title_l, title_s = :title_s
+ where ims_md_ge_ti_id = :ims_md_ge_ti_id "
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_general_title (ims_md_ge_ti_id, ims_md_id, title_l, title_s)
+ values
+ (:ims_md_ge_ti_id, :ims_md_id, :title_l, :title_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# General Title
+template::list::create \
+ -name d_gen_titles \
+ -multirow d_gen_titles \
+ -no_data "[_ lorsm.No_Titles_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ title_l {
+ label "[_ lorsm.Language_1]"
+ }
+ title_s {
+ label "[_ lorsm.Titles_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "general_title" {ims_md_ge_ti_id ims_md_id}] }
+ link_html {title "Edit Record "}
+ html { align center }
+ }
+ }
+
+db_multirow d_gen_titles select_ge_titles {
+ select title_l,
+ title_s,
+ ims_md_ge_ti_id,
+ ims_md_id
+ from
+ ims_md_general_title
+ where
+ ims_md_id = :ims_md_id
+} {
+ set item_url [export_vars -base "item" { ims_md_id }]
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_cont.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_cont.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_cont.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Lifecyle Metadata Contribution
+
+
+
+ | Lifecycle Metadata |
+
+
+ | Contribution: |
+ |
+
+
+
+
+
+
+
Add/Edit Lifecycle Metadata Contributor
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_cont.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_cont.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_cont.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,165 @@
+# packages/lorsm/www/md/lifecyclemd/lifecycle_cont.tcl
+
+ad_page_contract {
+
+ Add/Edit Lifecycle MD Contributor
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: lifecycle_cont.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_lf_cont_id:integer,optional
+ ims_md_lf_cont_enti_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_lf_cont_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../lifecyclemd" im\\\\\\\s_md_id] " [_ lorsm.Life_Cycle_MD]"] "[_ lorsm.Edit_Contributor]"]
+ set title "[_ lorsm.lt_Edit_Lifecycle_MD_Con]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../lifecyclemd" im\\\\\\\s_md_id] "[_ lorsm.Life_Cycle_MD]"] "[_ lorsm.Add_Contributor]"]
+ set title "[_ lorsm.lt_Add_Lifecycle_MD_Cont]"
+}
+
+# Form
+
+ad_form -name lifecyclemd_cont \
+ -cancel_url ../lifecyclemd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_lf_cont_id:key(ims_md_life_cycle_contrib_seq)
+
+ {role_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Lifecycle_MD_]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {role_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.Type_of_contribution]"}
+ {label "[_ lorsm.Role_1]"}
+ }
+ {entity:text(textarea),nospell
+ {html {rows 5 cols 50}}
+ {help_text "[_ lorsm.lt_Entity_or_entities_in]"}
+ {label "[_ lorsm.Entity]"}
+ }
+
+ {cont_date:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.Date_of_contribution]"}
+ {label "[_ lorsm.Date]"}
+ }
+
+ {cont_date_l:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi_3]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {cont_date_s:text(textarea),nospell,optional
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Describes_contributio]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {
+ select * from
+ ims_md_life_cycle_contrib lfc,
+ ims_md_life_cycle_contrib_entity lfce
+ where
+ lfc.ims_md_lf_cont_id = :ims_md_lf_cont_id
+ and
+ lfc.ims_md_id = :ims_md_id
+ and
+ lfce.ims_md_lf_cont_id = :ims_md_lf_cont_id
+
+} -edit_data {
+ db_transaction {
+ db_dml update_lfc "
+ update ims_md_life_cycle_contrib
+ set role_v = :role_v,
+ role_s = :role_s,
+ cont_date = :cont_date,
+ cont_date_l = :cont_date_l,
+ cont_date_s = :cont_date_s
+ where ims_md_lf_cont_id = :ims_md_lf_cont_id"
+
+ db_dml update_lfce "
+ update ims_md_life_cycle_contrib_entity
+ set entity = :entity
+ where ims_md_lf_cont_id = :ims_md_lf_cont_id"
+ }
+
+} -new_data {
+ db_transaction {
+ db_dml insert_lfc "
+ insert into ims_md_life_cycle_contrib (ims_md_lf_cont_id, ims_md_id, role_s, role_v, cont_date, cont_date_l, cont_date_s)
+ values (:ims_md_lf_cont_id, :ims_md_id, :role_s, :role_v, :cont_date, :cont_date_l, :cont_date_s)"
+
+ db_dml insert_lfce "
+ insert into ims_md_life_cycle_contrib_entity (ims_md_lf_cont_enti_id, ims_md_lf_cont_id, entity)
+ values (nextval('ims_md_life_cycle_contrib_entity_seq'), :ims_md_lf_cont_id, :entity)"
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../lifecyclemd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Lifecycle Contrib
+template::list::create \
+ -name d_lf_cont \
+ -multirow d_lf_cont \
+ -no_data "[_ lorsm.lt_No_Contributors_Avail]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ role {
+ label "[_ lorsm.Role]"
+ }
+ entity {
+ label "[_ lorsm.Entity_1]"
+ }
+ cont_date {
+ label "[_ lorsm.Contribution_Date]"
+ }
+ cont_date_ls {
+ label "[_ lorsm.Description_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "lifecycle_cont" {ims_md_lf_cont_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record] "}
+ html { align center }
+ }
+ }
+
+db_multirow d_lf_cont select_lf_cont {
+ select
+ lfc.role_v || ' ' || '[' || lfc.role_s || ']' as role,
+ lfce.entity,
+ lfc.cont_date,
+ '[' || lfc.cont_date_l || ']' || ' ' || lfc.cont_date_s as cont_date_ls,
+ lfc.ims_md_lf_cont_id,
+ lfc.ims_md_id
+ from
+ ims_md_life_cycle_contrib lfc,
+ ims_md_life_cycle_contrib_entity lfce
+ where
+ lfc.ims_md_lf_cont_id = lfce.ims_md_lf_cont_id
+ and
+ lfc.ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_stat.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_stat.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_stat.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Lifecyle Metadata Status
+
+
+
+ | Lifecycle Metadata |
+
+
+ | Status: |
+ |
+
+
+
+
+
+
+
Add/Edit Lifecycle Metadata Status
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_stat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_stat.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_stat.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,93 @@
+# packages/lorsm/www/md/lifecyclemd/lifecycle_stat.tcl
+
+ad_page_contract {
+
+ Add/Edit Lifecycle MD Status
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: lifecycle_stat.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../lifecyclemd" im\\\\\\\s_md_id] "[_ lorsm.Life_Cycle_MD]"] "[_ lorsm.Edit_Status]"]
+set title "[_ lorsm.lt_Edit_Lifecycle_MD_Sta]"
+
+# Form
+
+ad_form -name lifecyclemd_stat \
+ -cancel_url ../lifecyclemd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {status_v:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Lifecycle_MD__1]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Learning_objects_edit]"}
+ {label "[_ lorsm.Status]"}
+ }
+
+ {status_s:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # Checks whether LC status exist...
+
+ if {[db_0or1row select_lc_version {select ims_md_id from ims_md_life_cycle where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_life_cycle
+ set status_s = :status_s, status_v = :status_v
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_life_cycle (ims_md_id, status_s, status_v)
+ values
+ (:ims_md_id, :status_s, :status_v)"
+
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../lifecyclemd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Lifecycle Status
+template::list::create \
+ -name d_lf_stat \
+ -multirow d_lf_stat \
+ -no_data "[_ lorsm.No_Status_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ status_s {
+ label "[_ lorsm.Source_1]"
+ }
+ status_v {
+ label "[_ lorsm.Value]"
+ }
+ }
+
+db_multirow d_lf_stat select_lf_stat {
+ select status_s,
+ status_v,
+ ims_md_id
+ from
+ ims_md_life_cycle
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_version.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_version.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_version.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Lifecyle Metadata Version
+
+
+
+ | Lifecycle Metadata |
+
+
+ | Version: |
+ |
+
+
+
+
+
+
+
Add/Edit Lifecycle Metadata Version
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_version.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_version.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd/lifecycle_version.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,96 @@
+# packages/lorsm/www/md/lifecyclemd/lifecycle_version.tcl
+
+ad_page_contract {
+
+ Add/Edit Lifecycle MD Version
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: lifecycle_version.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../lifecyclemd" im\\\\\\s_md_id] "[_ lorsm.Life_Cycle_MD]"] "[_ lorsm.Edit_Version]"]
+set title "[_ lorsm.lt_Edit_Lifecycle_MD_Ver]"
+
+# Form
+
+ad_form -name lifecyclemd_ver \
+ -cancel_url ../lifecyclemd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+
+ {version_l:text,nospell,optional
+ {section "[_ lorsm.lt_AddEdit_Lifecycle_MD__1]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {version_s:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Edition_of_the_learni]"}
+ {label "[_ lorsm.Version]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+
+ # check if the LC version already exists...
+
+ if {[db_0or1row select_lc_version {select ims_md_id from ims_md_life_cycle where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_life_cycle
+ set version_l = :version_l, version_s = :version_s
+ where ims_md_id = :ims_md_id "
+
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_life_cycle (ims_md_id, version_l, version_s)
+ values
+ (:ims_md_id, :version_l, :version_s)"
+
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../lifecyclemd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Lifecycle Version
+template::list::create \
+ -name d_lf_ver \
+ -multirow d_lf_ver \
+ -no_data "[_ lorsm.lt_No_Structure_Availabl]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ version_l {
+ label "[_ lorsm.Language_1]"
+ }
+ version_s {
+ label "[_ lorsm.Version_1]"
+ }
+ }
+
+db_multirow d_lf_ver select_lf_ver {
+ select version_l,
+ version_s,
+ ims_md_id
+ from
+ ims_md_life_cycle
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of Meta Metadata Catalog-Entries
+
+
+
+ | Meta Metadata |
+
+
+ | Catalog-Entries: |
+ |
+
+
+
+
+
+
+
Add/Edit Meta Metadata Catalog-Entry
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,109 @@
+# packages/lorsm/www/md/metamd/meta_cata.tcl
+
+ad_page_contract {
+
+ Add/Edit Meta MD Catalog-Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: meta_cata.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_md_cata_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_md_cata_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "IMS Metadata Editor"] [list [export_vars -base "../metamd" im\s_md_id] "Meta Metadata"] "Edit Catalog-Entry"]
+ set title "Edit Meta MD Catalog-Entry"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "IMS Metadata Editor"] [list [export_vars -base "../metamd" im\s_md_id] "Meta Metadata"] "Add Catalog-Entry"]
+ set title "Add Meta MD Catalog-Entry"
+}
+
+# Form
+
+ad_form -name metamd_cata \
+ -cancel_url ../metamd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_md_cata_id:key(ims_md_metadata_cata_seq)
+
+ {catalog:text,nospell
+ {section "Add/Edit Meta MD Catalog-Entry"}
+ {html {size 50}}
+ {help_text "Name of the catalog"}
+ {label "Catalog:"}
+ }
+
+ {entry_l:text,nospell,optional
+ {html {size 10}}
+ {help_text "i.e.: 'en_AU' for Australian English"}
+ {label "Language:"}
+ }
+
+ {entry_s:text,nospell
+ {html {size 50}}
+ {help_text "Number in the Catalog i.e.: '1.3.1'"}
+ {label "Entry:"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_metadata_cata where ims_md_md_cata_id = :ims_md_md_cata_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_metadata_cata
+ set catalog = :catalog, entry_l = :entry_l, entry_s = :entry_s
+ where ims_md_md_cata_id = :ims_md_md_cata_id"
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_metadata_cata (ims_md_md_cata_id, ims_md_id, catalog, entry_l, entry_s)
+ values
+ (:ims_md_md_cata_id, :ims_md_id, :catalog, :entry_l, :entry_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../metamd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Metametadata Catalog-entry
+template::list::create \
+ -name d_md_cata \
+ -multirow d_md_cata \
+ -no_data "No Catalog Entry Available" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ catalog {
+ label "Catalog"
+ }
+ entry_ls {
+ label "Language Entry"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "meta_cata" {ims_md_md_cata_id ims_md_id}] }
+ link_html {title "Edit Record "}
+ html { align center }
+ }
+ }
+
+db_multirow d_md_cata select_md_cata {
+ select catalog,
+ '[' || entry_l || ']' || ' ' || entry_s as entry_ls,
+ ims_md_md_cata_id,
+ ims_md_id
+ from
+ ims_md_metadata_cata
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_cont.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_cont.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_cont.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Meta Metadata Contribution
+
+
+
+ | Meta Metadata |
+
+
+ | Contribution: |
+ |
+
+
+
+
+
+
+
Add/Edit Meta Metadata Contributor
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_cont.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_cont.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_cont.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,166 @@
+# packages/lorsm/www/md/metamd/meta_cont.tcl
+
+ad_page_contract {
+
+ Add/Edit Meta MD Contributor
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: meta_cont.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_md_cont_id:integer,optional
+ ims_md_md_cont_enti_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_md_cont_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../metamd" im\s_\md_id] "[_ lorsm.Meta_Metadata]"] "[_ lorsm.Add_Contributor]"]
+ set title "[_ lorsm.lt_Edit_Meta_MD_Contribu]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../metamd" im\s_\md_id] "[_ lorsm.Meta_Metadata]"] "[_ lorsm.Add_Contributor]"]
+ set title "[_ lorsm.lt_Add_Meta_MD_Contribut]"
+}
+
+# Form
+
+ad_form -name metamd_cont \
+ -cancel_url ../metamd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_md_cont_id:key(ims_md_metadata_contrib_seq)
+
+ {role_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Meta_MD_Contr]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {role_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.Type_of_contribution]"}
+ {label "[_ lorsm.Role_1]"}
+ }
+
+ {entity:text(textarea),nospell
+ {html {rows 5 cols 50}}
+ {help_text "[_ lorsm.lt_Entity_or_entities_in]"}
+ {label "[_ lorsm.Entity]"}
+ }
+
+ {cont_date:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.Date_of_contribution]"}
+ {label "[_ lorsm.Date]"}
+ }
+
+ {cont_date_l:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi_3]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {cont_date_s:text(textarea),nospell,optional
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Describes_contributio]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {
+ select * from
+ ims_md_metadata_contrib mdc,
+ ims_md_metadata_contrib_entity mdce
+ where
+ mdc.ims_md_md_cont_id = :ims_md_md_cont_id
+ and
+ mdc.ims_md_id = :ims_md_id
+ and
+ mdce.ims_md_md_cont_id = :ims_md_md_cont_id
+
+} -edit_data {
+ db_transaction {
+ db_dml update_mdc "
+ update ims_md_metadata_contrib
+ set role_v = :role_v,
+ role_s = :role_s,
+ cont_date = :cont_date,
+ cont_date_l = :cont_date_l,
+ cont_date_s = :cont_date_s
+ where ims_md_md_cont_id = :ims_md_md_cont_id"
+
+ db_dml update_mdce "
+ update ims_md_metadata_contrib_entity
+ set entity = :entity
+ where ims_md_md_cont_id = :ims_md_md_cont_id"
+ }
+
+} -new_data {
+ db_transaction {
+ db_dml insert_mdc "
+ insert into ims_md_metadata_contrib (ims_md_md_cont_id, ims_md_id, role_s, role_v, cont_date, cont_date_l, cont_date_s)
+ values (:ims_md_md_cont_id, :ims_md_id, :role_s, :role_v, :cont_date, :cont_date_l, :cont_date_s)"
+
+ db_dml insert_mdce "
+ insert into ims_md_metadata_contrib_entity (ims_md_md_cont_enti_id, ims_md_md_cont_id, entity)
+ values (nextval('ims_md_metadata_contrib_entity_seq'), :ims_md_md_cont_id, :entity)"
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../metamd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Metametadata Contrib
+template::list::create \
+ -name d_md_cont \
+ -multirow d_md_cont \
+ -no_data "[_ lorsm.lt_No_Contributors_Avail]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ role {
+ label "[_ lorsm.Role]"
+ }
+ entity {
+ label "[_ lorsm.Entity_1]"
+ }
+ cont_date {
+ label "[_ lorsm.Contribution_Date]"
+ }
+ cont_date_ls {
+ label "[_ lorsm.Description_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "meta_cont" {ims_md_md_cont_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record] "}
+ html { align center }
+ }
+ }
+
+db_multirow d_md_cont select_md_cont {
+ select
+ mdc.role_v || ' ' || '[' || mdc.role_s || ']' as role,
+ mdce.entity,
+ mdc.cont_date,
+ '[' || mdc.cont_date_l || ']' || ' ' || mdc.cont_date_s as cont_date_ls,
+ mdc.ims_md_md_cont_id,
+ mdc.ims_md_id
+ from
+ ims_md_metadata_contrib mdc,
+ ims_md_metadata_contrib_entity mdce
+ where
+ mdc.ims_md_md_cont_id = mdce.ims_md_md_cont_id
+ and
+ mdc.ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_lang.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_lang.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_lang.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Meta Metadata Language
+
+
+
+ | Meta Metadata |
+
+
+ | Language: |
+ |
+
+
+
+
+
+
+
Add/Edit Meta Metadata Language
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_lang.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_lang.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_lang.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,81 @@
+# packages/lorsm/www/md/metamd/meta_lang.tcl
+
+ad_page_contract {
+
+ Add/Edit Meta MD Language
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: meta_lang.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../metamd" im\s_\\\md_id] "[_ lorsm.Meta_Metadata]"] "[_ lorsm.Edit_Language]"]
+set title "[_ lorsm.lt_Edit_Meta_MD_Language]"
+
+# Form
+
+ad_form -name metamd_lang \
+ -cancel_url ../metamd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {language:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Meta_MD_Langu]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the mdmd language details already exist...
+
+ if {[db_0or1row select_lang {select ims_md_id from ims_md_metadata where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_metadata
+ set language = :language
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_metadata (ims_md_id, language)
+ values
+ (:ims_md_id, :language)"
+
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../metamd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Metametadata Language
+template::list::create \
+ -name d_md_lang \
+ -multirow d_md_lang \
+ -no_data "[_ lorsm.lt_No_Language_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ language {
+ label "[_ lorsm.Language_1]"
+ }
+ }
+
+db_multirow d_md_lang select_md_lang {
+ select language,
+ ims_md_id
+ from
+ ims_md_metadata
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_scheme.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_scheme.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_scheme.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Meta Metadata Scheme
+
+
+
+ | Meta Metadata |
+
+
+ | Scheme: |
+ |
+
+
+
+
+
+
+
Add/Edit Meta Metadata Scheme
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_scheme.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_scheme.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_scheme.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,93 @@
+# packages/lorsm/www/md/metamd/meta_scheme.tcl
+
+ad_page_contract {
+
+ Add/Edit Meta MD Language
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: meta_scheme.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_md_sch_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_md_sch_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../metamd" im\s_\\md_id] "[_ lorsm.Meta_Metadata]"] "[_ lorsm.Edit_Scheme]"]
+ set title "[_ lorsm.Edit_Meta_MD_Scheme]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../metamd" im\s_\\md_id] "[_ lorsm.Meta_Metadata]"] "[_ lorsm.Add_Scheme]"]
+ set title "[_ lorsm.Add_Meta_MD_Scheme]"
+}
+
+# Form
+
+ad_form -name metamd_scheme \
+ -cancel_url ../metamd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_md_sch_id:key(ims_md_metadata_scheme_seq)
+
+ {scheme:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Meta_MD_Schem]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Structure_of_meta-dat]"}
+ {label "[_ lorsm.Scheme]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+
+} -select_query {select * from ims_md_metadata_scheme where ims_md_md_sch_id = :ims_md_md_sch_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_metadata_scheme
+ set scheme = :scheme
+ where ims_md_md_sch_id = :ims_md_md_sch_id "
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_metadata_scheme (ims_md_md_sch_id, ims_md_id, scheme)
+ values
+ (:ims_md_md_sch_id, :ims_md_id, :scheme)"
+
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../metamd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Metametadata metadatascheme
+template::list::create \
+ -name d_md_scheme \
+ -multirow d_md_scheme \
+ -no_data "[_ lorsm.No_Scheme_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ scheme {
+ label "[_ lorsm.Scheme_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "meta_scheme" {ims_md_id ims_md_md_sch_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_md_scheme select_md_scheme {
+ select scheme,
+ ims_md_id, ims_md_md_sch_id, scheme
+ from
+ ims_md_metadata_scheme
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,31 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+ | Relation Metadata |
+
+
+ | Kind: |
+ |
+
+
+ | Relation Metadata Resource |
+
+
+ | Identifier: |
+ |
+
+
+ | Description: |
+ |
+
+
+ | Catalog-Entries: |
+ |
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,118 @@
+ad_page_contract {
+ Displays/Adds IMS Metadata Relation
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: relation.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_re_id:integer
+ ims_md_id:integer
+ ims_md_re_re_id:integer
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../relationmd" ims_md_id] "[_ lorsm.Relation_MD]"] "[_ lorsm.Relation_Entry]"]
+set title "[_ lorsm.Relation_MD]"
+
+# Relation Kind
+template::list::create \
+ -name d_re_kind \
+ -multirow d_re_kind \
+ -no_data "[_ lorsm.No_Kind_Available]" \
+ -actions [list "[_ lorsm.Add_Kind]" [export_vars -base relation_kind {ims_md_re_re_id ims_md_re_id ims_md_id}] "[_ lorsm.Add_another_Kind]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ kind_s {
+ label ""
+ }
+ kind_v {
+ label ""
+ }
+ }
+
+db_multirow d_re_kind select_re_kind {
+ select kind_s,
+ kind_v
+ from
+ ims_md_relation
+ where
+ ims_md_re_id = :ims_md_re_id
+ and ims_md_id = :ims_md_id
+}
+
+# Relation Resource Identifier
+template::list::create \
+ -name d_re_ident \
+ -multirow d_re_ident \
+ -actions [list "[_ lorsm.Add_Identifier]" [export_vars -base relation_ident {ims_md_re_re_id ims_md_re_id ims_md_id}] "[_ lorsm.lt_Add_another_Identifie]"] \
+ -no_data "[_ lorsm.lt_No_Resource_Identifie]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ identifier {
+ label ""
+ }
+ }
+
+db_multirow d_re_ident select_re_ident {
+ select identifier
+ from
+ ims_md_relation_resource
+ where
+ ims_md_re_id = :ims_md_re_id
+ and ims_md_re_re_id = :ims_md_re_re_id
+}
+
+# Relation Resource Catalog-Entry
+template::list::create \
+ -name d_re_cata \
+ -multirow d_re_cata \
+ -no_data "[_ lorsm.lt_No_Catalog-Entries_Av]" \
+ -actions [list "[_ lorsm.Add_Catalog-Entry]" [export_vars -base relation_cata {ims_md_re_re_id ims_md_re_id ims_md_id}] "[_ lorsm.lt_Add_another_Catalog-E]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ catalog {
+ label ""
+ }
+ entry_l {
+ label ""
+ }
+ entry_s {
+ label ""
+ }
+ }
+
+db_multirow d_re_cata select_re_cata {
+ select catalog,
+ entry_l,
+ entry_s
+ from
+ ims_md_relation_resource_catalog
+ where
+ ims_md_re_re_id = :ims_md_re_re_id
+}
+
+# Relation Resource Description
+template::list::create \
+ -name d_re_desc \
+ -multirow d_re_desc \
+ -no_data "[_ lorsm.lt_No_Resource_Descripti]" \
+ -actions [list "[_ lorsm.Add_Description]" [export_vars -base relation_desc {ims_md_re_re_id ims_md_re_id ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ descrip {
+ label ""
+ }
+ }
+
+db_multirow d_re_desc select_re_desc {
+ select '[' || descrip_l || ']' || ' ' || descrip_s as descrip
+ from
+ ims_md_relation_resource
+ where
+ ims_md_re_id = :ims_md_re_id
+ and ims_md_re_re_id = :ims_md_re_re_id
+}
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_add.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_add.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,22 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+Relation Metadata Entry
+
+
+
+ | Relation Metadata |
+
+
+ | Add another Relation Metadata Entry? |
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_add.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_add.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,48 @@
+# packages/lorsm/www/md/relationmd/relation_add.tcl
+
+ad_page_contract {
+
+ Add/Edit Relation MD Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: relation_add.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../relationmd" ims_md_id] "[_ lorsm.Relation_MD]"] "[_ lorsm.Add_Relation_Entry]"]
+set title "[_ lorsm.lt_Add_Relation_MD_Entry]"
+
+# Form
+ad_form -name relationmd_add \
+ -cancel_url ../relationmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_re_id:key(ims_md_relation_seq)
+
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -new_data {
+ db_transaction {
+ db_dml do_insert_relation "
+ insert into ims_md_relation (ims_md_re_id, ims_md_id)
+ values (:ims_md_re_id, :ims_md_id)"
+
+ db_dml do_insert_resource "
+ insert into ims_md_relation_resource (ims_md_re_re_id, ims_md_re_id)
+ values (nextval('ims_md_relation_resource_seq'), :ims_md_re_id)"
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../relationmd" {ims_md_id}]
+ ad_script_abort
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_cata.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_cata.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_cata.adp 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Relation Metadata Resource Catalog-Entry
+
+
+
+ | Relation Metadata Resource |
+
+
+ | Catalog-Entries: |
+ |
+
+
+
+
+
+
+
Add/Edit Relation Metadata Resource Catalog-Entry
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_cata.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_cata.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_cata.tcl 31 Dec 2006 00:36:07 -0000 1.1
@@ -0,0 +1,129 @@
+# packages/lorsm/www/md/relationmd/relation_cata.tcl
+
+ad_page_contract {
+
+ Add/Edit Relation MD Resource Catalog-Entry
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: relation_cata.tcl,v 1.1 2006/12/31 00:36:07 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_re_id:integer
+ ims_md_re_re_id:integer
+ ims_md_re_re_ca_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_re_re_ca_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../relationmd" ims_md_id] "[_ lorsm.Relation_MD]"] [list [export_vars -base "relation" {ims_md_id ims_md_re_id ims_md_re_re_id}] "[_ lorsm.Relation_Entry]"] "[_ lorsm.Edit_Catalog-Entry]"]
+ set title "[_ lorsm.lt_Edit_Relation_MD_Reso]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../relationmd" ims_md_id] "[_ lorsm.Relation_MD]"] [list [export_vars -base "relation" {ims_md_id ims_md_re_id ims_md_re_re_id}] "[_ lorsm.Relation_Entry]"] "[_ lorsm.Add_Catalog-Entry]"]
+ set title "[_ lorsm.lt_Add_Relation_MD_Resou]"
+}
+
+# Form
+
+ad_form -name relationmd_cata \
+ -cancel_url relation?ims_md_id=$ims_md_id&ims_md_re_id=$ims_md_re_id&ims_md_re_re_id=$ims_md_re_re_id \
+ -mode edit \
+ -form {
+
+ ims_md_re_re_ca_id:key(ims_md_relation_resource_catalog_seq)
+
+ {catalog:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Relation_MD_R]"}
+ {html {size 50}}
+ {help_text "[_ lorsm.Name_of_the_catalog]"}
+ {label "[_ lorsm.Catalog]"}
+ }
+
+ {entry_l:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {entry_s:text,nospell
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Number_in_the_Catalog]"}
+ {label "[_ lorsm.Entry]"}
+ }
+
+ {ims_md_re_re_id:text(hidden) {value $ims_md_re_re_id}
+ }
+
+ {ims_md_re_id:text(hidden) {value $ims_md_re_id}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {select * from ims_md_relation_resource_catalog where ims_md_re_re_ca_id = :ims_md_re_re_ca_id and ims_md_re_re_id = :ims_md_re_re_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_relation_resource_catalog
+ set catalog = :catalog,
+ entry_l = :entry_l,
+ entry_s = :entry_s
+ where ims_md_re_re_ca_id = :ims_md_re_re_ca_id"
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_relation_resource_catalog (ims_md_re_re_ca_id, ims_md_re_re_id, catalog, entry_l, entry_s)
+ values
+ (:ims_md_re_re_ca_id, :ims_md_re_re_id, :catalog, :entry_l, :entry_s)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "relation" {ims_md_re_id ims_md_re_re_id ims_md_id}]
+ ad_script_abort
+}
+
+# Relation Catalog-Entry
+template::list::create \
+ -name d_re_cata \
+ -multirow d_re_cata \
+ -no_data "[_ lorsm.lt_No_Catalog-Entries_Av]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ catalog {
+ label ""
+ }
+ entry_l {
+ label ""
+ }
+ entry_s {
+ label ""
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "relation_cata" {ims_md_re_re_ca_id ims_md_re_re_id ims_md_re_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_re_cata select_re_cata {
+ select
+ reca.catalog,
+ reca.entry_l,
+ reca.entry_s,
+ reca.ims_md_re_re_ca_id,
+ reca.ims_md_re_re_id,
+ re.ims_md_id,
+ re.ims_md_re_id
+ from
+ ims_md_relation_resource_catalog reca,
+ ims_md_relation re
+ where
+ reca.ims_md_re_re_id = :ims_md_re_re_id
+ and
+ re.ims_md_re_id = :ims_md_re_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_desc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_desc.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_desc.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Relation Metadata Resource Description
+
+
+
+ | Relation Metadata Resource |
+
+
+ | Description: |
+ |
+
+
+
+
+
+
+
Add/Edit Relation Metadata Resource Description
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_desc.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_desc.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,90 @@
+# packages/lorsm/www/md/annotationmd/relation_desc.tcl
+
+ad_page_contract {
+
+ Add/Edit Relation MD Resource Description
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: relation_desc.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_re_id:integer
+ ims_md_re_re_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../relationmd" ims_md_id] "[_ lorsm.Relation_MD]"] [list [export_vars -base "relation" {ims_md_id ims_md_re_id ims_md_re_re_id}] "[_ lorsm.Relation_Entry]"] "[_ lorsm.AddEdit_Description]"]
+set title "[_ lorsm.lt_Edit_Relation_MD_Reso_1]"
+
+# Form
+
+ad_form -name relationmd_desc \
+ -cancel_url relation?ims_md_id=$ims_md_id&ims_md_re_id=$ims_md_re_id&ims_md_re_re_id=$ims_md_re_re_id \
+ -mode edit \
+ -form {
+
+ ims_md_re_re_id:key(ims_md_relation_resource_seq)
+
+ {descrip_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Relation_MD_R_1]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {descrip_s:text(textarea),nospell
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Description_of_the_ot]"}
+ {label "[_ lorsm.Description]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+ {ims_md_re_id:text(hidden) {value $ims_md_re_id}
+ }
+
+} -select_query {select * from ims_md_relation_resource where ims_md_re_re_id = :ims_md_re_re_id and ims_md_re_id = :ims_md_re_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_relation_resource
+ set descrip_l = :descrip_l,
+ descrip_s = :descrip_s
+ where ims_md_re_re_id = :ims_md_re_re_id "
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "relation" {ims_md_re_re_id ims_md_re_id ims_md_id}]
+ ad_script_abort
+}
+
+# Relation Description
+template::list::create \
+ -name d_re_desc \
+ -multirow d_re_desc \
+ -no_data "[_ lorsm.lt_No_Resource_Descripti]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ descrip {
+ label "[_ lorsm.Description_1]"
+ }
+ }
+
+db_multirow d_re_desc select_re_desc {
+ select '[' || rere.descrip_l || ']' || ' ' || rere.descrip_s as descrip,
+ rere.ims_md_re_re_id,
+ re.ims_md_re_id,
+ re.ims_md_id
+ from
+ ims_md_relation_resource rere,
+ ims_md_relation re
+ where
+ rere.ims_md_re_id = :ims_md_re_id
+ and re.ims_md_re_id = :ims_md_re_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_ident.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_ident.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_ident.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Relation Metadata Resource Identifier
+
+
+
+ | Relation Metadata Resource |
+
+
+ | Identifier: |
+ |
+
+
+
+
+
+
+
Add/Edit Relation Metadata Resource Identifier
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_ident.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_ident.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_ident.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,84 @@
+# packages/lorsm/www/md/relationmd/relation_ident.tcl
+
+ad_page_contract {
+
+ Add/Edit Relation MD Resource Identifier
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: relation_ident.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_re_id:integer
+ ims_md_re_re_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../relationmd" ims_md_id] "[_ lorsm.Relation_MD]"] [list [export_vars -base "relation" {ims_md_id ims_md_re_id ims_md_re_re_id}] "[_ lorsm.Relation_Entry]"] "[_ lorsm.lt_AddEdit_Resource_Iden]"]
+set title "[_ lorsm.lt_Edit_Relation_MD_Reso_2]"
+
+
+# Form
+
+ad_form -name relationmd_ident \
+ -cancel_url relation?ims_md_id=$ims_md_id&ims_md_re_id=$ims_md_re_id&ims_md_re_re_id=$ims_md_re_re_id \
+ -mode edit \
+ -form {
+
+ ims_md_re_re_id:key(ims_md_relation_resource_seq)
+
+ {identifier:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Relation_MD_R_2]"}
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Unique_identifier_of_]"}
+ {label "[_ lorsm.Identifier]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+ {ims_md_re_id:text(hidden) {value $ims_md_re_id}
+ }
+
+} -select_query {select * from ims_md_relation_resource where ims_md_re_re_id = :ims_md_re_re_id and ims_md_re_id = :ims_md_re_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_relation_resource
+ set identifier = :identifier
+ where ims_md_re_re_id = :ims_md_re_re_id "
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "relation" {ims_md_re_re_id ims_md_re_id ims_md_id}]
+ ad_script_abort
+}
+
+# Relation Identifier
+template::list::create \
+ -name d_re_ident \
+ -multirow d_re_ident \
+ -no_data "[_ lorsm.lt_No_Resource_Identifie]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ identifier {
+ label "[_ lorsm.Identifier_1]"
+ }
+ }
+
+db_multirow d_re_ident select_re_ident {
+ select rere.identifier,
+ rere.ims_md_re_re_id,
+ re.ims_md_re_id,
+ re.ims_md_id
+ from
+ ims_md_relation_resource rere,
+ ims_md_relation re
+ where
+ rere.ims_md_re_id = :ims_md_re_id
+ and re.ims_md_re_id = :ims_md_re_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_kind.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_kind.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_kind.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Relation Metadata Kind
+
+
+
+ | Relation Metadata Kind |
+
+
+ | Kind: |
+ |
+
+
+
+
+
+
+
Add/Edit Relation Metadata Kind
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/relationmd/relation_kind.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/relationmd/relation_kind.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/relationmd/relation_kind.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,95 @@
+# packages/lorsm/www/md/relationmd/relation_kind.tcl
+
+ad_page_contract {
+
+ Add/Edit Relation MD Kind
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: relation_kind.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_re_id:integer
+ ims_md_re_re_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../relationmd" ims_md_id] "[_ lorsm.Relation_MD]"] [list [export_vars -base "relation" {ims_md_id ims_md_re_id ims_md_re_re_id}] "[_ lorsm.Relation_Entry]"] "[_ lorsm.AddEdit_Kind]"]
+set title "[_ lorsm.lt_AddEdit_Relation_MD_K]"
+
+# Form
+
+ad_form -name relationmd_kind \
+ -cancel_url relation?ims_md_id=$ims_md_id&ims_md_re_id=$ims_md_re_id&ims_md_re_re_id=$ims_md_re_re_id \
+ -mode edit \
+ -form {
+
+ ims_md_re_id:key(ims_md_relation_seq)
+
+ {kind_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Relation_MD_K]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {kind_v:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Nature_of_the_relatio]"}
+ {label "[_ lorsm.Kind]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+ {ims_md_re_re_id:text(hidden) {value $ims_md_re_re_id}
+ }
+
+} -select_query {select * from ims_md_relation where ims_md_re_id = :ims_md_re_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_relation
+ set kind_s = :kind_s,
+ kind_v = :kind_v
+ where ims_md_re_id = :ims_md_re_id"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "relation" {ims_md_re_re_id ims_md_re_id ims_md_id}]
+ ad_script_abort
+}
+
+# Relation Kind
+template::list::create \
+ -name d_re_kind \
+ -multirow d_re_kind \
+ -no_data "[_ lorsm.No_Kind_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ kind_s {
+ label "[_ lorsm.Source_1]"
+ }
+ kind_v {
+ label "[_ lorsm.Value]"
+ }
+ }
+
+db_multirow d_re_kind select_re_kind {
+ select re.kind_s,
+ re.kind_v,
+ re.ims_md_re_id,
+ re.ims_md_id,
+ rere.ims_md_re_re_id
+ from
+ ims_md_relation re,
+ ims_md_relation_resource rere
+ where
+ re.ims_md_re_id = :ims_md_re_id
+ and rere.ims_md_re_id = :ims_md_re_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Rights Metadata Copyright or other Restrictions
+
+
+
+ | Rights Metadata |
+
+
+ | Copyright or other Restrictions: |
+ |
+
+
+
+
+
+
+
Add/Edit Rights Metadata Copyright or other Restrictions
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_caor.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,88 @@
+# packages/lorsm/www/md/rightsmd/rights_caor.tcl
+
+ad_page_contract {
+
+ Add/Edit Rights MD Copyright or other Restrictions
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: rights_caor.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../rightsmd" ims_md_id] "[_ lorsm.Rights_MD]"] " <#_Add/Edit Copyrights or other Restrictions #>"]
+set title "[_ lorsm.lt_Edit_Rights_MD_Copyri]"
+
+
+# Form
+
+ad_form -name rightsmd_caor \
+ -cancel_url ../rightsmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {caor_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Rights_MD_Cop]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {caor_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Whether_copyright_or_]"}
+ {label "[_ lorsm.lt_Copyright_or_other_Re]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the Rights Copyright details already exist...
+
+ if {[db_0or1row select_type {select ims_md_id from ims_md_rights where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_rights
+ set caor_s = :caor_s, caor_v = :caor_v
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_rights (ims_md_id, caor_s, caor_v)
+ values
+ (:ims_md_id, :caor_s, :caor_v) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../rightsmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Rights Copyright or other Restrictions
+template::list::create \
+ -name d_ri_caor \
+ -multirow d_ri_caor \
+ -no_data "[_ lorsm.lt_No_Copyright_or_other]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ caor {
+ label "[_ lorsm.Copyright_Info]"
+ }
+ }
+
+db_multirow d_ri_caor select_ri_caor {
+ select
+ '[' || caor_s || '] ' || caor_v as caor,
+ ims_md_id
+ from
+ ims_md_rights
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_cost.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_cost.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_cost.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Rights Metadata Cost
+
+
+
+ | Rights Metadata |
+
+
+ | Cost: |
+ |
+
+
+
+
+
+
+
Add/Edit Rights Metadata Cost
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_cost.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_cost.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_cost.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,88 @@
+# packages/lorsm/www/md/rightsmd/rights_cost.tcl
+
+ad_page_contract {
+
+ Add/Edit Rights MD Cost
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: rights_cost.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../rightsmd" ims_md_id] "[_ lorsm.Rights_MD]"] "[_ lorsm.AddEdit_Cost]"]
+set title "[_ lorsm.lt_AddEdit_Rights_MD_Cos]"
+
+
+# Form
+
+ad_form -name rightsmd_cost \
+ -cancel_url ../rightsmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {cost_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Rights_MD_Cos]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {cost_v:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Whether_use_of_the_re]"}
+ {label "[_ lorsm.Cost]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the Rights Cost details already exist...
+
+ if {[db_0or1row select_type {select ims_md_id from ims_md_rights where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_rights
+ set cost_s = :cost_s, cost_v = :cost_v
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_rights (ims_md_id, cost_s, cost_v)
+ values
+ (:ims_md_id, :cost_s, :cost_v) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../rightsmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Rights Cost
+template::list::create \
+ -name d_ri_cost \
+ -multirow d_ri_cost \
+ -no_data "[_ lorsm.No_Cost_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ cost {
+ label "[_ lorsm.Cost_1]"
+ }
+ }
+
+db_multirow d_ri_cost select_ri_cost {
+ select
+ '[' || cost_s || '] ' || cost_v as cost,
+ ims_md_id
+ from
+ ims_md_rights
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_desc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_desc.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_desc.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Rights Metadata Description
+
+
+
+ | Rights Metadata |
+
+
+ | Description: |
+ |
+
+
+
+
+
+
+
Add/Edit Rights Metadata Description
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_desc.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/rightsmd/rights_desc.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,88 @@
+# packages/lorsm/www/md/rightsmd/rights_desc.tcl
+
+ad_page_contract {
+
+ Add/Edit Rights MD Description
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: rights_desc.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../rightsmd" ims_md_id] "[_ lorsm.Rights_MD]"] "[_ lorsm.AddEdit_Description]"]
+set title "[_ lorsm.lt_Edit_Rights_MD_Descri]"
+
+
+# Form
+
+ad_form -name rightsmd_desc \
+ -cancel_url ../rightsmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {descrip_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Rights_MD_Des]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {descrip_s:text(textarea),nospell
+ {html {rows 2 cols 50}}
+ {help_text "[_ lorsm.lt_Conditions_of_use_for]"}
+ {label "[_ lorsm.Description]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the Rights Description details already exist...
+
+ if {[db_0or1row select_type {select ims_md_id from ims_md_rights where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_rights
+ set descrip_l = :descrip_l, descrip_s = :descrip_s
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_rights (ims_md_id, descrip_l, descrip_s)
+ values
+ (:ims_md_id, :descrip_l, :descrip_s) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../rightsmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Rights Description
+template::list::create \
+ -name d_ri_desc \
+ -multirow d_ri_desc \
+ -no_data "[_ lorsm.lt_No_Description_Availa]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ desc {
+ label "[_ lorsm.Description_1]"
+ }
+ }
+
+db_multirow d_ri_desc select_ri_desc {
+ select
+ '[' || descrip_l || '] ' || descrip_s as desc,
+ ims_md_id
+ from
+ ims_md_rights
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_dur.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_dur.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_dur.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,28 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Technical Metadata Duration
+
+
+
+ | Technical Metadata |
+
+
+ | Duration: |
+ |
+
+
+
+
+
+
Add/Edit Technical Metadata Duration
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_dur.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_dur.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_dur.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,104 @@
+# packages/lorsm/www/md/technicalmd/technical_dur.tcl
+
+ad_page_contract {
+
+ Add/Edit Technical MD Duration
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: technical_dur.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \\\i\\m\\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.AddEdit_Duration]"]
+set title "[_ lorsm.lt_Edit_Technical_MD_Dur]"
+
+# Form
+
+ad_form -name technicalmd_dur \
+ -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {duration:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Technical_MD_]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Time_the_continuous_l]"}
+ {label "[_ lorsm.Duration] "}
+ }
+
+ {duration_l:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {duration_s:text,nospell,optional
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the tech duration details already exist...
+
+ if {[db_0or1row select_duration {select ims_md_id from ims_md_technical where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_technical
+ set duration_s = :duration_s,
+ duration_l = :duration_l,
+ duration = :duration
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_technical (ims_md_id, duration_l, duration_s)
+ values
+ (:ims_md_id, :duration_l, :duration_s)"
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Technical Duration
+template::list::create \
+ -name d_te_dur \
+ -multirow d_te_dur \
+ -no_data "[_ lorsm.lt_No_Duration_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ duration_sec {
+ label "[_ lorsm.Duration_Seconds]"
+ }
+ duration_l {
+ label "[_ lorsm.Language_1]"
+ }
+ duration_s {
+ label "[_ lorsm.Source_1]"
+ }
+
+ }
+
+db_multirow d_te_dur select_te_dur {
+ select
+ duration_l,
+ duration_s,
+ duration || 's' as duration_sec,
+ ims_md_id
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Technical Metadata Format
+
+
+
+ | Technical Metadata |
+
+
+ | Formats: |
+ |
+
+
+
+
+
+
+
Add/Edit Technical Metadata Format
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,92 @@
+# packages/lorsm/www/md/technicalmd/technical_form.tcl
+
+ad_page_contract {
+
+ Add/Edit Technical MD Format
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: technical_form.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_te_fo_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_te_fo_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "I[_ lorsm.MS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" im\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.Edit_Format]"]
+ set title "[_ lorsm.lt_Edit_Technical_MD_For]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" im\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.Add_Format]"]
+ set title "[_ lorsm.lt_Add_Technical_MD_Form]"
+}
+
+# Form
+
+ad_form -name technicalmd_form \
+ -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_te_fo_id:key(ims_md_technical_format_seq)
+
+ {format:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Technical_MD__1]"}
+ {html {size 30}}
+ {help_text "[_ lorsm.lt_Technical_data_type_o]"}
+ {label "[_ lorsm.Format]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -select_query {select * from ims_md_technical_format where ims_md_te_fo_id = :ims_md_te_fo_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_technical_format
+ set format = :format
+ where ims_md_te_fo_id = :ims_md_te_fo_id "
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_technical_format (ims_md_te_fo_id, ims_md_id, format)
+ values
+ (:ims_md_te_fo_id, :ims_md_id, :format)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Technical Format
+template::list::create \
+ -name d_te_form \
+ -multirow d_te_form \
+ -no_data "[_ lorsm.No_Format_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ format {
+ label "[_ lorsm.Format_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "technical_form" {ims_md_te_fo_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_te_form select_te_form {
+ select format,
+ ims_md_te_fo_id,
+ ims_md_id
+ from
+ ims_md_technical_format
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_inst.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_inst.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_inst.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Technical Metadata Installation Remarks
+
+
+
+ | Technical Metadata |
+
+
+ | Installation Remarks: |
+ |
+
+
+
+
+
+
+
Add/Edit Technical Metadata Installation Remarks
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_inst.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_inst.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_inst.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,88 @@
+# packages/lorsm/www/md/technicalmd/technical_inst.tcl
+
+ad_page_contract {
+
+ Add/Edit Technical MD Installation Remarks
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: technical_inst.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \\\im\\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.lt_Edit_Installation_Rem]"]
+set title "[_ lorsm.lt_AddEdit_Technical_MD__2]"
+
+# Form
+
+ad_form -name technicalmd_inst \
+ -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {instl_rmrks_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Technical_MD__2]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {instl_rmrks_s:text(textarea),nospell
+ {html {rows 5 cols 60}}
+ {help_text "[_ lorsm.lt_Information_on_how_to]"}
+ {label "[_ lorsm.Installation_Remarks]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the tech size details already exist...
+
+ if {[db_0or1row select_size {select ims_md_id from ims_md_technical where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_technical
+ set instl_rmrks_l = :instl_rmrks_l,
+ instl_rmrks_s = :instl_rmrks_s
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_technical (ims_md_id, instl_rmrks_l, instl_rmrks_s)
+ values
+ (:ims_md_id, :instl_rmrks_l, :instl_rmrks_s) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Technical Installation Remarks
+template::list::create \
+ -name d_te_inst \
+ -multirow d_te_inst \
+ -no_data "[_ lorsm.lt_No_Installation_Remar]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ instl_rmrks {
+ label "[_ lorsm.Installation_Remarks_1]"
+ }
+ }
+
+db_multirow d_te_inst select_te_inst {
+ select
+ '[' || instl_rmrks_l || ']' || ' ' || instl_rmrks_s as instl_rmrks,
+ ims_md_id
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_loca.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_loca.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_loca.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of Technical Metadata Locations
+
+
+
+ | Technical Metadata |
+
+
+ | Locations: |
+ |
+
+
+
+
+
+
+
Add/Edit Technical Metadata Format
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_loca.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_loca.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_loca.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,105 @@
+# packages/lorsm/www/md/technicalmd/technical_loca.tcl
+
+ad_page_contract {
+
+ Add/Edit Technical MD Location
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: technical_loca.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_te_lo_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_te_lo_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \im\\s_md_id] "[_ lorsm.Technical_MD]"] " [_ lorsm.Edit_Location]"]
+ set title "[_ lorsm.lt_Edit_Technical_MD_Loc]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \im\\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.Add_Location]"]
+ set title "[_ lorsm.lt_Add_Technical_MD_Loca]"
+}
+
+# Form
+
+ad_form -name technicalmd_loca \
+ -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_te_lo_id:key(ims_md_technical_location_seq)
+
+ {type:text,nospell,optional
+ {section "[_ lorsm.lt_AddEdit_Technical_MD__3]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Reference_to_location]"}
+ {label "[_ lorsm.Type_1]"}
+ }
+
+ {location:text,nospell
+ {html {size 50}}
+ {help_text "[_ lorsm.lt_Location_of_the_resou]"}
+ {label "[_ lorsm.Location_1]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+
+} -select_query {select * from ims_md_technical_location where ims_md_te_lo_id = :ims_md_te_lo_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_technical_location
+ set type = :type,
+ location = :location
+ where ims_md_te_lo_id = :ims_md_te_lo_id "
+
+} -new_data {
+ db_dml do_insert "
+ insert into ims_md_technical_location (ims_md_te_lo_id, ims_md_id, type, location)
+ values
+ (:ims_md_te_lo_id, :ims_md_id, :type, :location)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Technical Location
+template::list::create \
+ -name d_te_loca \
+ -multirow d_te_loca \
+ -no_data "[_ lorsm.lt_No_Location_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ type {
+ label "[_ lorsm.Type]"
+ }
+ location {
+ label "[_ lorsm.Location]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "technical_loca" {ims_md_te_lo_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_te_loca select_te_loca {
+ select type,
+ location,
+ ims_md_te_lo_id,
+ ims_md_id
+ from
+ ims_md_technical_location
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_otr.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_otr.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_otr.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Technical Metadata Other Platform Requirements
+
+
+
+ | Technical Metadata |
+
+
+ | Other Platform Requirements: |
+ |
+
+
+
+
+
+
+
Add/Edit Technical Metadata Other Platform Requirements
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_otr.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_otr.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_otr.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,88 @@
+# packages/lorsm/www/md/technicalmd/technical_otr.tcl
+
+ad_page_contract {
+
+ Add/Edit Technical MD Other Platform Requirements
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: technical_otr.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \\\i\m\\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.lt_AddEdit_Other_Platfor]"]
+set title "[_ lorsm.lt_AddEdit_Technical_MD__4]"
+
+# Form
+
+ad_form -name technicalmd_otr \
+ -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {otr_plt_l:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Technical_MD__4]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_ie_en_AU_for_Australi]"}
+ {label "[_ lorsm.Language]"}
+ }
+
+ {otr_plt_s:text(textarea),nospell
+ {html {rows 5 cols 60}}
+ {help_text "[_ lorsm.lt_Information_on_other_]"}
+ {label "[_ lorsm.lt_Other_Platform_Requir]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the tech other platform req details already exist...
+
+ if {[db_0or1row select_size {select ims_md_id from ims_md_technical where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_technical
+ set otr_plt_l = :otr_plt_l,
+ otr_plt_s = :otr_plt_s
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_technical (ims_md_id, otr_plt_l, otr_plt_s)
+ values
+ (:ims_md_id, :otr_plt_l, :otr_plt_s)"
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Technical Installation Remarks
+template::list::create \
+ -name d_te_otr \
+ -multirow d_te_otr \
+ -no_data "[_ lorsm.lt_No_Other_Platform_Req]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ otr_plt {
+ label "[_ lorsm.Other_Platform_Req]"
+ }
+ }
+
+db_multirow d_te_otr select_te_otr {
+ select
+ '[' || otr_plt_l || ']' || ' ' || otr_plt_s as otr_plt,
+ ims_md_id
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+List of Technical Metadata Requirements
+
+
+
+ | Technical Metadata |
+
+
+ | Requirements: |
+ |
+
+
+
+
+
+
+
Add/Edit Technical Metadata Requirement
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,139 @@
+# packages/lorsm/www/md/technicalmd/technical_req.tcl
+
+ad_page_contract {
+
+ Add/Edit Technical MD Requirement
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: technical_req.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+ ims_md_te_rq_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_te_rq_id]} {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \\im\\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.Edit_Requirement]"]
+ set title "[_ lorsm.lt_Edit_Technical_MD_Req]"
+} else {
+ set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \\im\\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.Add_Requirement]"]
+ set title "[_ lorsm.lt_Add_Technical_MD_Requ]"
+}
+
+# Form
+
+ad_form -name technicalmd_req \
+ -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ ims_md_te_rq_id:key(ims_md_technical_requirement_seq)
+
+ {type_s:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Technical_MD__5]"}
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Source_of_vocabulary_]"}
+ {label "[_ lorsm.Source]"}
+ }
+
+ {type_v:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.Type_of_requirement]"}
+ {label "[_ lorsm.Type_1]"}
+ }
+
+ {name_v:text,nospell
+ {html {size 20}}
+ {help_text "[_ lorsm.lt_Name_of_required_item]"}
+ {label "[_ lorsm.Name_1]"}
+ }
+
+ {min_version:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Lowest_version_of_the]"}
+ {label "[_ lorsm.Minimum_Version]"}
+ }
+
+ {max_version:text,nospell
+ {html {size 10}}
+ {help_text "[_ lorsm.lt_Highest_version_of_th]"}
+ {label "[_ lorsm.Maximum_Version]"}
+ }
+
+ {ims_md_id:text(hidden) {value $ims_md_id}
+ }
+
+} -select_query {
+ select * from
+ ims_md_technical_requirement
+ where
+ ims_md_te_rq_id = :ims_md_te_rq_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+ db_dml do_update "
+ update ims_md_technical_requirement
+ set type_v = :type_v,
+ type_s = :type_s,
+ name_v = :name_v,
+ name_s = :type_s,
+ min_version = :min_version,
+ max_version = :max_version
+ where ims_md_te_rq_id = :ims_md_te_rq_id"
+
+} -new_data {
+ db_dml do_insert "
+ 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 (:ims_md_te_rq_id, :ims_md_id, :type_s, :type_v, :type_s, :name_v, :min_version, :max_version)"
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Technical Requirements
+template::list::create \
+ -name d_te_req \
+ -multirow d_te_req \
+ -no_data "No Requirements Available" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ type {
+ label "[_ lorsm.Type]"
+ }
+ name {
+ label "[_ lorsm.Name]"
+ }
+ min_version {
+ label "[_ lorsm.Min_Version]"
+ }
+ max_version {
+ label "[_ lorsm.Max_Version]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "technical_req" {ims_md_te_rq_id ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record] "}
+ html { align center }
+ }
+ }
+
+db_multirow d_te_req select_te_req {
+ select
+ '[' || type_s || ']' || ' ' || type_v as type,
+ '[' || name_s || ']' || ' ' || name_v as name,
+ min_version,
+ max_version,
+ ims_md_te_rq_id,
+ ims_md_id
+ from
+ ims_md_technical_requirement
+ where
+ ims_md_id = :ims_md_id
+}
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_size.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_size.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_size.adp 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,29 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+
+
+Technical Metadata Size
+
+
+
+ | Technical Metadata |
+
+
+ | Size: |
+ |
+
+
+
+
+
+
+
Add/Edit Technical Metadata Size
+
+
+
Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_size.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_size.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_size.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,86 @@
+# packages/lorsm/www/md/technicalmd/technical_size.tcl
+
+ad_page_contract {
+
+ Add/Edit Technical MD Size
+
+ @author Gerard Low (glow5809@mail.usyd.edu.au)
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 16 October 2004
+ @cvs-id $Id: technical_size.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+
+} {
+ ims_md_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+set context [list [list [export_vars -base ".." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"] [list [export_vars -base "../technicalmd" \im\s_md_id] "[_ lorsm.Technical_MD]"] "[_ lorsm.Edit_Size]"]
+set title "[_ lorsm.lt_AddEdit_Technical_MD__6]"
+
+# Form
+
+ad_form -name technicalmd_size \
+ -cancel_url ../technicalmd?ims_md_id=$ims_md_id \
+ -mode edit \
+ -form {
+
+ {t_size:text,nospell
+ {section "[_ lorsm.lt_AddEdit_Technical_MD__6]"}
+ {html {size 30}}
+ {help_text "[_ lorsm.lt_Size_of_the_resource_]"}
+ {label "[_ lorsm.Size]"}
+ }
+ {ims_md_id:text(hidden) {value $ims_md_id}}
+
+} -on_submit {
+ # check if the tech size details already exist...
+
+ if {[db_0or1row select_size {select ims_md_id from ims_md_technical where ims_md_id = :ims_md_id}]} {
+
+ db_dml do_update "
+ update ims_md_technical
+ set t_size = :t_size
+ where ims_md_id = :ims_md_id "
+
+ } else {
+
+ db_dml do_insert "
+ insert into ims_md_technical (ims_md_id, t_size)
+ values
+ (:ims_md_id, :t_size) "
+ }
+
+} -after_submit {
+ ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
+ ad_script_abort
+}
+
+# Technical Size
+template::list::create \
+ -name d_te_size \
+ -multirow d_te_size \
+ -no_data "[_ lorsm.No_Size_Available]" \
+ -html { align right style "width: 100%;" } \
+ -elements {
+ t_size_bytes {
+ label "[_ lorsm.Size_1]"
+ }
+ export {
+ display_eval {\[Edit\]}
+ link_url_eval { [export_vars -base "technical_size" {ims_md_id}] }
+ link_html {title "[_ lorsm.Edit_Record]"}
+ html { align center }
+ }
+ }
+
+db_multirow d_te_size select_te_size {
+ select t_size || ' bytes' as t_size_bytes,
+ ims_md_id
+ from
+ ims_md_technical
+ where
+ ims_md_id = :ims_md_id
+}
Index: openacs-4/packages/lorsm/www/admin/shared/add-shared-course-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/add-shared-course-2.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/shared/add-shared-course-2.tcl 31 Dec 2006 00:36:08 -0000 1.1
@@ -0,0 +1,47 @@
+# packages/lorsm/www/shared/add-shared-course-2.tcl
+
+ad_page_contract {
+
+ Adds an existing course to a .LRN class
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-07-13
+ @arch-tag: efa8621f-daa6-4743-9711-28a4195232ec
+ @cvs-id $Id: add-shared-course-2.tcl,v 1.1 2006/12/31 00:36:08 donb Exp $
+} {
+ man_id:integer
+ return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+set class_key [dotlrn_community::get_community_type_from_community_id $community_id]
+
+# check if the course is actually shared
+if {[db_string isshared {select isshared from ims_cp_manifests where man_id = :man_id}] == "f"} {
+ # if it ain't complain and quit
+ ad_complain "[_ lorsm.lt_The_course_you_are_tr]"
+
+}
+
+# check if the course is already added as course for this class
+
+if {![db_0or1row exists {select man_id, lorsm_instance_id from ims_cp_manifest_class where man_id = :man_id \
+ and lorsm_instance_id = :package_id \
+ and community_id = :community_id}]} {
+ set var1 [lorsm::get_course_name -manifest_id $man_id]
+ ad_complain "[_ lorsm.lt_The_course_var1_is_al]"
+
+
+}
+
+db_dml add-course {insert into ims_cp_manifest_class \
+ (man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable) \
+ values \
+ (:man_id, :package_id, :community_id, :class_key, 't', 'f')}
+
+ad_returnredirect $return_url
Index: openacs-4/packages/lorsm/www/admin/shared/add-shared-course.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/add-shared-course.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/shared/add-shared-course.adp 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,14 @@
+
+ @title@
+ @context@
+
+#lorsm.lt_You_are_about_to_add_#
+
+#lorsm.Confirm_q#
+
+
+
Index: openacs-4/packages/lorsm/www/admin/shared/add-shared-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/add-shared-course.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/shared/add-shared-course.tcl 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,46 @@
+# packages/lorsm/www/shared/add-shared-course.tcl
+
+ad_page_contract {
+
+ Adds an existing shared course to a .LRN class
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-07-12
+ @arch-tag: 9f1edd88-ff55-4328-8f3b-6d014351e48a
+ @cvs-id $Id: add-shared-course.tcl,v 1.1 2006/12/31 00:36:09 donb Exp $
+} {
+ man_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+set class_key [dotlrn_community::get_community_type_from_community_id $community_id]
+
+# check if the course is actually shared
+if {[db_string isshared {select isshared from ims_cp_manifests where man_id = :man_id}] == "f"} {
+ # if it ain't complain and quit
+ ad_complain "[_ lorsm.lt_The_course_you_are_tr]"
+
+}
+
+# check if the course is already added as course for this class
+
+if {![db_0or1row exists {select man_id, lorsm_instance_id from ims_cp_manifest_class where man_id = :man_id \
+ and lorsm_instance_id = :package_id \
+ and community_id = :community_id}]} {
+ ad_complain "The course [lorsm::get_course_name -manifest_id $man_id], is already part of your class"
+
+
+}
+
+set title "[_ lorsm.lt_Add_Course_Confirmati]"
+set course_name [lorsm::get_course_name -manifest_id $man_id]
+
+set context [list [list [export_vars -base .] "[_ lorsm.Shared_Courses]"] [list [export_vars -base course-info {man_id}] "[_ lorsm.lt_Preview_Course_course]"] "[_ lorsm.Confirmation]"]
+
+set return_url [site_node::get_url_from_object_id -object_id $package_id]
+
Index: openacs-4/packages/lorsm/www/admin/shared/course-info.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/course-info.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/shared/course-info.adp 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,124 @@
+
+ @title;noquote@
+ @context;noquote@
+
+
+
+
+
+
+ |
+ #lorsm.Course_Name#
+ |
+
+ @course_name;noquote@
+ |
+
+
+ |
+ #lorsm.Version#
+ |
+
+ @version;noquote@
+ |
+
+
+ |
+ #lorsm.Metadata#
+ |
+
+
+ #lorsm.Yes#
+
+
+ #lorsm.No#
+
+ |
+
+
+ |
+ #lorsm.Identifier#
+ |
+
+ @identifier@
+ |
+
+
+ |
+ #lorsm.Is_SCORM#
+ |
+
+ #lorsm.lt_classlist_stylefont-w#
+
+
+ class="list"
+
+ valign="top" align="left">@isscorm;noquote@
+ |
+
+
+ |
+ #lorsm.Created_By#
+ |
+
+ @created_by@
+ |
+
+
+ |
+ #lorsm.Date#
+ |
+
+ @creation_date;noquote@
+ |
+
+
+ |
+ #lorsm.Submanifests#
+ |
+
+ @submanifests@
+ |
+
+
+
+ |
+ #lorsm.lt_Add_course_to_my_clas#
+ |
+
+
+ |
+
+
+
+ #lorsm.lt_Course_already_part_o#
+ |
+
+
+
+
+ |
+
+ |
+
+
+ |
+ @orgs_list;noquote@
+ |
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/shared/course-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/course-info.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/shared/course-info.tcl 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,234 @@
+# packages/lorsm/www/shared/course-info.tcl
+
+ad_page_contract {
+
+ Previews course
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-07-09
+ @arch-tag: 9687443a-686e-4784-9702-5c00ee0bdc88
+ @cvs-id $Id: course-info.tcl,v 1.1 2006/12/31 00:36:09 donb Exp $
+ } {
+ man_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set context [list [list [export_vars -base .] "Shared Courses"] "Preview Course"]
+set community_id [dotlrn_community::get_community_id]
+
+set title "[_ lorsm.Preview_Course_1]"
+
+# In order to share courses across classes, we need to share
+# file-storage objects across file-storage instances. This has been
+# proven to be really tricky. But here we pass the fs_package_id for
+# the current community, so we don't have to have permissions for
+# other instances of file-storages of other classes. See
+# documentation for further details.
+
+
+set fs_local_package_id [site_node_apm_integration::get_child_package_id \
+ -package_id [dotlrn_community::get_package_id $community_id] \
+ -package_key "file-storage"\
+ ]
+
+# Checks whether this course is already in use on this community
+
+
+set active [db_0or1row check "
+ select
+ man_id,
+ community_id,
+ lorsm_instance_id
+ from
+ ims_cp_manifest_class
+ where
+ man_id = :man_id
+ and
+ community_id = :community_id"]
+
+
+
+if {[db_0or1row manifest "
+ select
+ cp.man_id,
+ cp.course_name,
+ cp.identifier,
+ cp.version,
+ text 'Yes' as hello,
+ case
+ when hasmetadata = 't' then 'Yes'
+ else 'No'
+ end as man_metadata,
+ case
+ when isscorm = 't' then 'Yes'
+ else 'No'
+ end as isscorm,
+ cp.isshared,
+ acs.creation_user,
+ acs.creation_date,
+ acs.context_id
+ from
+ ims_cp_manifests cp, acs_objects acs
+ where
+ cp.man_id = acs.object_id
+ and cp.man_id = :man_id
+ and cp.parent_man_id = 0"]} {
+
+ # Sets the variable for display.
+ set display 1
+
+ # Course Name
+ if {[empty_string_p $course_name]} {
+ set course_name "[_ lorsm.No_course_Name]"
+ }
+
+ # Version
+ if {[empty_string_p $version]} {
+ set version "[_ lorsm._No]"
+ }
+
+ # Created By
+ set created_by [person::name -person_id $creation_user]
+
+ # Creation Date
+ set creation_date [lc_time_fmt $creation_date "%x %X"]
+
+ # Check for submanifests
+ if {[db_0or1row submans "
+ select
+ count(*) as submanifests
+ from
+ ims_cp_manifests
+ where
+ man_id = :man_id
+ and
+ parent_man_id = :man_id"]} {
+ } else {
+ set submanifests 0
+ }
+
+
+} else {
+
+ set display 0
+
+}
+
+
+append orgs_list ""
+append orgs_list "
+"
+db_foreach organizations {
+ select
+ org.org_id,
+ org.org_title as org_title,
+ org.hasmetadata,
+ tree_level(o.tree_sortkey) as indent
+ from
+ ims_cp_organizations org, acs_objects o
+ where
+ org.org_id = o.object_id
+ and
+ man_id = :man_id
+ order by
+ org_id
+} {
+
+
+ append orgs_list "| $org_title | $hasmetadata | "
+
+ set indent [expr $indent +1]
+ set missing_text "Nothing here"
+ set return_url [export_vars -base [ns_conn url] man_id]
+ set table_extra_html { width="100%" }
+
+ set track_id 0
+ set table_extra_vars {return_url fs_local_package_id track_id}
+ set table_def {
+ { title "" "no_sort" " | $indent[if {![empty_string_p $identifierref]} {set href \"$item_title\"} else {set href $item_title}] | " }
+ { metadata "Metadata?" "no_sort" "[if {$hasmetadata == \"f\"} {set hasmetadata \"No\"} else {set hasmetadata \"Metadata\"}] | " }
+ { type "Type" "no_sort" "$type | " }
+ }
+
+ set table_item [ad_table -Tmissing_text $missing_text -Textra_vars $table_extra_vars -Theader_row_extra "style=\"background-color: #e0e0e0; font-weight: bold;\" class=\"list-header\"" -Ttable_extra_html $table_extra_html blah {
+ SELECT
+ o.object_id,
+ repeat(' ', (tree_level(tree_sortkey) - :indent)* 3) as indent,
+ i.ims_item_id as item_id,
+ i.item_title as item_title,
+ i.hasmetadata,
+ i.org_id,
+ case
+ when i.isshared = 'f' then (
+ 'false'
+ )
+ else 'true'
+ end as isshared,
+ case
+ when i.identifierref <> '' then (
+ SELECT
+ res.href
+ FROM
+ ims_cp_items_to_resources i2r,
+ ims_cp_resources res
+ WHERE
+ i2r.res_id = res.res_id
+ AND
+ i2r.ims_item_id = i.ims_item_id
+)
+ else ''
+ end as identifierref,
+ case
+ when i.identifierref <> '' then (
+ SELECT
+ res.type
+ FROM
+ ims_cp_items_to_resources i2r,
+ ims_cp_resources res
+ WHERE
+ i2r.res_id = res.res_id
+ AND
+ i2r.ims_item_id = i.ims_item_id
+)
+ else ''
+ end as type,
+ m.fs_package_id,
+ m.folder_id,
+ m.course_name
+ FROM
+ acs_objects o, ims_cp_items i, ims_cp_manifests m
+ WHERE
+ o.object_type = 'ims_item_object'
+ AND
+ i.org_id = :org_id
+ AND
+ o.object_id = i.ims_item_id
+ AND
+ m.man_id = :man_id
+ ORDER BY
+ tree_sortkey, object_id
+
+
+ } $table_def]
+
+ append orgs_list "$table_item"
+
+
+ append orgs_list "
"
+
+} if_no_rows {
+ append orgs_list " |
"
+}
+
+append orgs_list "
"
+
+set shared_url [export_vars -base add-shared-course {man_id}]
+
+
Index: openacs-4/packages/lorsm/www/admin/shared/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/index.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/shared/index.adp 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,16 @@
+
+ @title@
+ @context@
+
+
+
+
+ #lorsm.lt_Shared_Courses_in_the#
+ |
+
+ |
+
+ |
+
+
+
Index: openacs-4/packages/lorsm/www/admin/shared/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/shared/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/shared/index.tcl 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,22 @@
+# packages/lorsm/www/shared/index.tcl
+
+ad_page_contract {
+
+ View shared courses
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-07-09
+ @arch-tag: 6222c3f4-af54-44a3-a84e-de89740c9aaa
+ @cvs-id $Id: index.tcl,v 1.1 2006/12/31 00:36:09 donb Exp $
+} {
+
+} -properties {
+} -validate {
+} -errors {
+}
+
+set title "[_ lorsm.Shared_Courses]"
+set context [list "[_ lorsm.Shared_Courses]"]
+
+set community_id [dotlrn_community::get_community_id]
+
Index: openacs-4/packages/lorsm/www/admin/tracking/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking/index.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/tracking/index.adp 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,9 @@
+
+ @title@
+ @context@
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/admin/tracking/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/tracking/index.tcl 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,209 @@
+# packages/lorsm/www/tracking/index.tcl
+
+ad_page_contract {
+
+ Student Tracking Index Page
+
+ @author Ernie Ghiglione (ErnieG@mm.st)
+ @creation-date 2004-05-25
+ @arch-tag a5b230ee-0fa7-4e48-be1b-eeae323291e7
+ @cvs-id $Id: index.tcl,v 1.1 2006/12/31 00:36:09 donb Exp $
+} {
+ man_id:integer,notnull
+ {item_id 0}
+ group:optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+set title [list "[_ lorsm.Student_Tracking]"]
+set context [list "[_ lorsm.Tracking_1]"]
+
+if {![exists_and_not_null group]} {
+ set group 1
+}
+
+if {$group == 1} {
+
+ template::list::create \
+ -name student_track \
+ -multirow student_track \
+ -actions [list "[_ lorsm.Summarize]" [export_vars -base ".?group=0" {man_id item_id}] "[_ lorsm.lt_Summarize_all_student]"] \
+ -key man_id \
+ -html {width 50%} \
+ -no_data "[_ lorsm.No_Students]" \
+ -elements {
+ student_name {
+ label "[_ lorsm.Student_Name]"
+ display_eval {[person::name -person_id $student_name]}
+ link_url_eval {[acs_community_member_url -user_id $student_name]}
+ link_html {title "[_ lorsm.Students_profile]"}
+ }
+ start_time {
+ label "[_ lorsm.Start_Course]"
+ display_eval {[lc_time_fmt $start_time "%x %T"]}
+ html { align center }
+ }
+ end_time {
+ label "[_ lorsm.Exit_Course]"
+ display_eval {[lc_time_fmt $end_time "%x %T"]}
+ html { align center }
+ }
+ time_spend {
+ label "[_ lorsm.Time_Spent]"
+ display_eval {[lorsm::dates_calc -start_date [string range $start_time 0 18] -end_date [string range $end_time 0 18]]}
+ html { align center }
+ }
+ }
+
+ db_multirow -extend { ims_md_id } student_track select_students {
+ select
+ user_id as student_name,
+ start_time,
+ end_time
+ from
+ lorsm_student_track
+ where
+ community_id = :community_id
+ and
+ course_id = :man_id
+ and
+ end_time NOTNULL
+ order by
+ start_time desc
+ } {
+ set ims_md_id $man_id
+ }
+
+ template::list::create \
+ -name object_views \
+ -multirow object_views \
+ -elements {
+ title {
+ label "[_ lorsm.Title_1]"
+ }
+ viewer_name {
+ label "[_ lorsm.Viewed_By]"
+ }
+ views {
+ label "[_ lorsm.Total_Views]"
+ }
+ last_viewed {
+ label "[_ lorsm.Last_Viewed_On]"
+ display_eval {[lc_time_fmt $last_viewed "%x %X"]}
+ }
+ }
+
+ if {$item_id} {
+ set extra_where " and v.object_id = :item_id"
+ } else {
+ set extra_where ""
+ }
+
+ db_multirow -extend {viewer_name} object_views objects_views "
+ select v.*,
+ i.item_title as title
+ from views v,
+ ims_cp_items i,
+ ims_cp_organizations o
+ where
+ i.ims_item_id = v.object_id
+ and
+ i.org_id = o.org_id
+ and
+ o.man_id = :man_id
+ $extra_where
+ " {
+ set viewer_name [acs_user::get_element -user_id $viewer_id -element name]
+ }
+
+} else {
+ # group display
+
+ template::list::create \
+ -name student_track \
+ -multirow student_track \
+ -key man_id \
+ -actions [list "[_ lorsm.Expand]" [export_vars -base ".?group=1" {man_id item_id}] "Expand all students"] \
+ -html {width 50%} \
+ -no_data "[_ lorsm.No_Students]" \
+ -elements {
+ student_name {
+ label "Student Name"
+ display_eval {[person::name -person_id $student_name]}
+ link_url_eval {[acs_community_member_url -user_id $student_name]}
+ link_html {title "Student's profile"}
+ }
+ counter {
+ label "[_ lorsm.Times_Viewed]"
+ html { align center }
+ }
+ time_spent {
+ label "[_ lorsm.Time_Spent]"
+ html { align center }
+ }
+ }
+
+ db_multirow -extend { ims_md_id } student_track select_students {
+ select
+ user_id as student_name,
+ count(*) as counter,
+ sum(end_time - start_time) as time_spent
+ from
+ lorsm_student_track
+ where
+ community_id = :community_id
+ and
+ course_id = :man_id
+ and
+ end_time NOTNULL
+ group by user_id
+
+ } {
+ set ims_md_id $man_id
+ }
+
+ template::list::create \
+ -name object_views \
+ -multirow object_views \
+ -elements {
+ title {
+ label "[_ lorsm.Title_1]"
+ }
+ views {
+ label "[_ lorsm.Total_Views]"
+ }
+ unique_views {
+ label "[_ lorsm.Unique_Views]"
+ }
+ last_viewed {
+ label "[_ lorsm.Last_Viewed_On]"
+ }
+ }
+
+ if {$item_id} {
+ set extra_where " and v.object_id = :item_id"
+ } else {
+ set extra_where ""
+ }
+
+ db_multirow object_views objects_views "
+ select v.*,
+ i.item_title as title
+ from view_aggregates v,
+ ims_cp_items i,
+ ims_cp_organizations o
+ where
+ i.ims_item_id = v.object_id
+ and
+ i.org_id = o.org_id
+ and
+ o.man_id = :man_id
+ $extra_where
+ "
+
+}
Index: openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-2.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/admin/tracking-rte/drill-student-2.adp 31 Dec 2006 00:36:09 -0000 1.1
@@ -0,0 +1,20 @@
+
+ @page_title;noquote@
+ @context;noquote@
+
+Sessions for the selected student:
+ Standard view
+
+
+
+
+
+
+@orgs_list;noquote@
+
+
+