set db_database_menu_items {
GuidoMenuItem new_gdb {
-label "Open/New"
-icon "icons/16/dhl_database_definition.png"
-command server "DHL DATABASE DEFINITION"
}
GuidoSeparator sep0 {
}
GuidoMenuItem map_db {
-label "Map the database"
-icon "icons/16/db_mapper.png"
-command script scripts/DBMapper.tcl "geology_db_mapper.tcl ddb"
}
GuidoMenuItem edit_ddb {
-label "Edit database definition"
-command script scripts/DDBEditor.tcl "geology_db_mapper.tcl ddb"
}
GuidoSeparator sep1a {
}
GuidoMenuItem acquire_import_drillholes {
-label "Import drillholes from acQuire"
-icon "icons/16/acquire_import_drillholes.png"
-command server "ACQUIRE IMPORT DRILLHOLES"
}
GuidoMenuItem acquire_import_samples {
-label "Import discrete samples from acQuire"
-icon "icons/16/acquire_import_samples.png"
-command server "ACQUIRE IMPORT SAMPLES"
}
GuidoSeparator sep1 {
}
GuidoMenuItem load_db {
-label "Import data"
-icon "icons/16/load_database.png"
-command server "LOAD DATABASE"
}
GuidoMenuItem unload_db {
-label "Export data"
-icon "icons/16/unload_database.png"
-command server "UNLOAD DATABASE"
}
GuidoMenuItem audit_db {
-label "Audit"
-icon "icons/16/audit_database.png"
-command server "AUDIT DATABASE"
}
GuidoMenuItem delete_field {
-label "Display database definition"
-icon "icons/16/display_database_definition.png"
-command server "DISPLAY DATABASE DEFINITION"
}
GuidoSeparator sep2 {
}
GuidoScript scripts/menus/q_administration.tcl
GuidoSeparator sep3 {
}
GuidoMenuItem close_db {
-label "Close database"
-icon "icons/16/geology_database_disconnect.png"
-command server "GEOLOGY DATABASE DISCONNECT"
}
}
GuidoMenu db_database_menu {
-label "Database"
-delayed_script $db_database_menu_items
}
