Changeset 2078

Timestamp:

08/14/12 11:23:46 (12 years ago)

Author:

sanmai

Message:

• Fix lrt2cmdi.py output.
• (Some small changes to filter_tools_csv.R seem to not have been

committed.)

Location:

metadata/trunk/toolkit/scripts

Files:

• cmdi-lrt-template.xml (modified) (1 diff)
• filter_tools_csv.R (modified) (4 diffs)
• lrt2cmdi.py (modified) (1 diff)

metadata/trunk/toolkit/scripts/cmdi-lrt-template.xml

@@ -54 +54 @@
             </LrtIPR> 
                
+            <tags/>
+
         </LrtInventoryResource>
 
-        <tags/>
     </Components>
 </CMD>

metadata/trunk/toolkit/scripts/filter_tools_csv.R

@@ -7 +7 @@
 checks_output_table <- read.table("/tmp/output.tab", sep = '\t', check.names = FALSE, header = TRUE);
 colnames(checks_output_table) <- paste(colnames(checks_output_table), "check");
+
+tools_registry <- tools_registry[, -1 * which(colnames(tools_registry) == "URL check result (field_tool_urlcheck)")];
 
 records_to_be_kept      <- subset(checks_output_table, `Reference link (field_tool_reference_link) check` != "unspecified");
@@ -22 +24 @@
 
 write.table(complete_extended_table, 
-                                file = "/run/media/sanmai/SAMSUNG/3,MPI/export_tools__complete_extended__7-8-2012.csv", 
-                                sep = ',', 
-                                row.names = FALSE, 
-                                col.names = TRUE);
+                                file            = "/tmp/export_tools__complete_extended__7-8-2012.csv", 
+                                sep             = ',', 
+                                row.names       = FALSE, 
+                                col.names       = TRUE);
 
 
@@ -33 +35 @@
 links_specified_table                           <- cbind(tools_registry[row.names(records_relevant_links_specified),], records_relevant_links_specified);
 write.table(links_specified_table, 
-                        file = "/run/media/sanmai/SAMSUNG/3,MPI/export_tools__relevant_links_specified__7-8-2012.csv", 
-                        sep = ',', 
-                        row.names = FALSE, 
-                        col.names = TRUE);
+                        file                    = "/tmp/export_tools__relevant_links_specified__7-8-2012.csv", 
+                        sep                     = ',', 
+                        row.names               = FALSE, 
+                        col.names               = TRUE);
 
 
@@ -44 +46 @@
 links_work_table                                        <- cbind(tools_registry[row.names(records_relevant_links_work),], records_relevant_links_work);
 write.table(links_work_table, 
-                        file = "/run/media/sanmai/SAMSUNG/3,MPI/export_tools__relevant_links_work__7-8-2012.csv", 
-                        sep = ',', 
-                        row.names = FALSE, 
-                        col.names = TRUE);
-
-
+                        file                    = "/tmp/export_tools__relevant_links_work__7-8-2012.csv", 
+                        sep                     = ',', 
+                        row.names               = FALSE, 
+                        col.names               = TRUE);
 
 URLs                            <- tools_registry[row.names(records_problematic),17]

metadata/trunk/toolkit/scripts/lrt2cmdi.py

@@ -223 +223 @@
 
             for tag in tags :
-                tag_XML_element         = ElementTree.Element('Tag')
+                tag_XML_element         = ElementTree.Element('tag')
                 tag_XML_element.text    = tag
                 tags_XML_element.append(tag_XML_element)