/3.1
(Extension.1
Name: "MetaData Collection Tool v2.0"
Dependencies: "$AVBIN/avdlog.dll\n"
FirstRootClassName: "List"
Roots: 2
Roots: 3
Roots: 4
Roots: 40
Roots: 41
Roots: 42
Roots: 43
Roots: 44
Roots: 45
Roots: 46
Roots: 47
Roots: 48
Roots: 49
Roots: 50
Roots: 51
Roots: 52
Roots: 53
Roots: 54
Roots: 55
Roots: 56
Roots: 57
Roots: 58
Roots: 59
Roots: 60
Roots: 61
Roots: 62
Roots: 63
Roots: 64
Roots: 65
Roots: 66
Roots: 67
Roots: 68
Roots: 69
Roots: 70
Roots: 71
Roots: 72
Roots: 73
Roots: 74
Roots: 75
Roots: 76
Roots: 77
Roots: 78
Roots: 79
Roots: 80
Roots: 81
Roots: 82
Roots: 83
Roots: 84
Roots: 85
Roots: 86
Roots: 87
Roots: 88
Roots: 89
Roots: 90
Roots: 91
Roots: 92
Roots: 93
Roots: 94
Roots: 95
Roots: 96
Roots: 97
Roots: 98
Roots: 99
Roots: 100
Roots: 101
Roots: 102
Roots: 103
Roots: 104
Roots: 105
Roots: 106
Roots: 107
Roots: 108
Roots: 109
Roots: 110
Roots: 111
Roots: 112
Roots: 113
Roots: 114
Roots: 115
Roots: 116
Roots: 117
Roots: 118
Roots: 119
Roots: 120
Roots: 121
Roots: 122
Roots: 123
Roots: 124
Roots: 125
Roots: 126
Roots: 127
Roots: 128
Roots: 129
Roots: 130
Roots: 131
Roots: 132
Roots: 133
Roots: 134
Roots: 135
Roots: 136
Roots: 137
Roots: 138
Roots: 139
Roots: 140
Roots: 141
Roots: 142
Roots: 143
Roots: 144
Roots: 145
Roots: 146
Roots: 147
Roots: 148
Roots: 149
Roots: 150
Roots: 151
Roots: 152
Roots: 153
Roots: 154
Roots: 155
Roots: 156
Roots: 157
Roots: 158
Roots: 159
Roots: 160
Roots: 161
Roots: 162
Roots: 163
Roots: 164
Roots: 165
Roots: 166
Roots: 167
Roots: 168
Roots: 169
Roots: 170
Roots: 171
Roots: 172
Roots: 173
Roots: 174
Roots: 175
Roots: 176
Roots: 177
Roots: 178
Roots: 179
Roots: 180
Roots: 181
Roots: 182
Roots: 183
Roots: 184
Roots: 185
Roots: 186
Roots: 187
Roots: 188
Roots: 189
Roots: 190
Roots: 191
Roots: 192
Roots: 193
Roots: 194
Roots: 195
Roots: 196
Roots: 197
Roots: 198
Roots: 199
Roots: 200
Roots: 201
Roots: 202
Roots: 203
Roots: 204
Roots: 205
Roots: 206
Roots: 207
Roots: 208
Roots: 209
Roots: 210
Roots: 211
Roots: 212
Roots: 213
Roots: 214
Roots: 215
Roots: 216
Roots: 217
Roots: 218
Roots: 219
Roots: 220
Roots: 221
Roots: 222
Roots: 223
Roots: 224
Roots: 225
Roots: 226
Roots: 227
Roots: 228
Roots: 229
Roots: 230
Roots: 231
Roots: 232
Roots: 233
Roots: 234
Roots: 235
Roots: 236
Roots: 237
Roots: 286
Roots: 372
Roots: 452
Roots: 549
Roots: 637
Roots: 728
Roots: 819
Roots: 896
Roots: 1013
Roots: 1045
Roots: 1074
Roots: 1130
Roots: 1195
Roots: 1250
Roots: 1285
Roots: 1316
Roots: 1373
Roots: 1399
Roots: 1511
Roots: 1554
Roots: 1589
Roots: 1636
Roots: 1680
Version: 31
About: "MetaData Collection Tool v2.0, produced by the NOAA Coastal Services Center 11/04/99"
InstallScript: 1779
UninstallScript: 1780
ExtVersion: 3
)
(List.2
)
(List.3
)
(List.4
Child: 5
Child: 12
Child: 19
Child: 26
Child: 33
)
(List.5
Child: 6
Child: 10
Child: 11
)
(List.6
Child: 7
Child: 8
Child: 9
)
(AVStr.7
S: "View"
)
(AVStr.8
S: "Metadata Tools"
)
(AVStr.9
S: "DD.Main_Setup"
)
(Choice.10
Help: "Collect Metadata//Starts dialog for collecting Metadata"
Label: "Collect Metadata"
Click: "DD.Main_Setup"
Shortcut: "Keys.None"
)
(Numb.11
)
(List.12
Child: 13
Child: 17
Child: 18
)
(List.13
Child: 14
Child: 15
Child: 16
)
(AVStr.14
S: "View"
)
(AVStr.15
S: "Metadata Tools"
)
(AVStr.16
S: "DD.Load_Text"
)
(Choice.17
Help: "Displays a Metadata record as a text file"
Label: "View Metadata"
Click: "DD.Load_Text"
Shortcut: "Keys.None"
)
(Numb.18
N: 1.00000000000000
)
(List.19
Child: 20
Child: 24
Child: 25
)
(List.20
Child: 21
Child: 22
Child: 23
)
(AVStr.21
S: "View"
)
(AVStr.22
S: "Metadata Tools"
)
(AVStr.23
S: "DD.Write_Html"
)
(Choice.24
Help: "Select a Metadata record to write in HTML format"
Label: "Create HTML from Existing Metadata"
Click: "DD.Write_Html"
Shortcut: "Keys.None"
)
(Numb.25
N: 2.00000000000000
)
(List.26
Child: 27
Child: 31
Child: 32
)
(List.27
Child: 28
Child: 29
Child: 30
)
(AVStr.28
S: "View"
)
(AVStr.29
S: "Metadata Tools"
)
(AVStr.30
S: "DD.Get_Help"
)
(Choice.31
Help: "Display a Help file for the Metadata collector"
Label: "Metadata Help"
Click: "DD.Get_Help"
Shortcut: "Keys.None"
)
(Numb.32
N: 3.00000000000000
)
(List.33
Child: 34
Child: 38
Child: 39
)
(List.34
Child: 35
Child: 36
Child: 37
)
(AVStr.35
S: "View"
)
(AVStr.36
S: "Metadata Tools"
)
(AVStr.37
S: "DD.FGDC_Link"
)
(Choice.38
Help: "Link to the FGDC website at www.fgdc.gov"
Label: "Link to the FGDC website"
Click: "DD.FGDC_Link"
Shortcut: "Keys.None"
)
(Numb.39
N: 4.00000000000000
)
(List.40
)
(Script.41
Name: "DD.All_Back"
SourceCode: "'Called from all forms from \"Back\" button\n'Gets the Dialog and determines what the Dialog before it is.\n\n\ntheSec = Self.GetDialog.GetName\nmyDocs = av.GetProject.GetDocs\ntheDocs={}\nfor each d in myDocs\n if (d.GetClass.GetClassName = \"DialogEditor\") then\n theDocs.Add(d.GetName)\n end\nend\ntheTokes = theSec.AsTokens(\".\")\nif (theTokes.Count > 1) then ' we are at a subsection\n if (theTokes.Get(1).IsNumber) then\n theNum = theTokes.Get(1).AsNumber\n if (theNum > 1) then\n newSec = theTokes.Get(0)+\".\"+
(theNum - 1).AsString\n else\n newSec = theTokes.Get(0)\n end\n else\n newSec = theTokes.Get(0)\n if (newSec = \"Sec4\") then\n newSec = \"Sec3\"\n end\n end\nelse 'we are at a Main Section starting place go back to previous\n theNum = theTokes.Get(0).Right(1).AsNumber - 1\n if (theNum = 1) then\n newSec = \"Sec1.3\"\n elseif (theNum = 2) then\n newSec = \"Sec2.3\"\n elseif (theNum = 4) then\n newSec = \"Sec4\"\n elseif (theNum = 5) then\n newSec = \"Sec5\"\n elseif (theNum = 6) then\n newSec
= \"Sec6\"\n else\n goon = False\n cnt = 0\n while (goon = False)\n newSec = theTokes.Get(0).Left(3)+(theNum).AsString\n secList = {}\n for each d in theDocs\n if (d.Contains(newSec)) then\n secList.Add(d)\n end\n end\n if (secList.Count > 1) then ' we got a \".\"\n hNum = 0\n for each s in secList\n if (s.AsString.right(1).IsNumber) then\n if (s.AsString.right(1).AsNumber > hNum) then\n hNum = s.AsString.right(1).AsNumber\n
end\n end\n end\n newSec = theTokes.Get(0).Left(3)+(theNum).AsString+\".\"+(hNum).AsString\n end\n if (theDocs.FindByValue(newSec) > 0) then\n goon = true\n else\n theNum = theNum - 1\n end \n if (cnt > 10) then\n goon = true\n exit\n else\n cnt = cnt + 1\n end\n end\n end\nend\nSelf.GetDialog.Close\nav.finddialog(newSec).open\n_MetaDone = NIL"
)
(Script.42
Name: "DD.All_Clear"
SourceCode: "'Called by the \"Clear\" Button on all forms.\n'Clears the elements on the Dialog\n\ntheD = Self.GetDialog\nfor each atxl in theD.findbyclass(textline)\n atxl.settext(\"\")\nend\nfor each atxl in theD.findbyclass(textbox)\n atxl.settext(\"\")\nend\nfor each atxl in theD.findbyclass(listbox)\n atxl.DefineFromList({})\nend\nfor each atxl in theD.findbyclass(combobox)\n if ((atxl.GetName = \"Sec1.2_CBProg\") or (atxl.GetName = \"Sec1.2_CBMain\") or (atxl.GetName = \"Sec4.PC_CBMeth\") or (atxl.GetName = \"Sec4.PC_CBDatum\") or (atxl.G
etName = \"Sec4.PC_BCEllipse\") or (atxl.GetName = \"Sec4.GC_CBDatum\") or (atxl.GetName = \"Sec4.GC_BCEllipse\") or (atxl.GetName = \"DD.Sec4VC_CBAldat\") or (atxl.GetName = \"DD.Sec4VC_CBAlencode\")) then\n else\n atxl.DefineFromList({})\n end\nend\nif (theD.GetName.Contains(\"Sec1\")) then\n _Sec1OrList = {}\nend\nif (theD.GetName.Contains(\"Sec2.2\")) then\n _Sec2OrList = {}\nend\nif (theD.GetName.Contains(\"Sec6\")) then\n _Sec6OrList = {}\nend\nif (theD.GetName.Contains(\"Sec7\")) then\n _Sec7OrList = {}\nend"
)
(Script.43
Name: "DD.All_ConAppend"
SourceCode: "'Allows append to existing file.\ntheD = Self.GetDialog\nSec = theD.GetName\n'Get the File name to write to.\npubFile = _workdir+_pathDel+\"contact.dbf\"\npubFile = FileDialog.Show(\"*.dbf\",\"dBase\",\"Save Citation Information\")\nif (pubFile = NIL) then\n exit\nelse\n av.Run(\"DD.All_ConSave\",{pubFile,theD,Sec})\nend"
)
(Script.44
Name: "DD.All_ConMake"
SourceCode: "'Creates the template for making the Contact dBase file\n'Called from DD.All_ConSave\n\nconFile = Self.Get(0)\nconVTab = VTab.MakeNew(confile,dBASE)\nconIdField = Field.Make(\"con_Id\",#FIELD_VCHAR,20,0)\nconOrgField = Field.Make(\"organ\",#FIELD_VCHAR,100,0)\nconPerField = Field.Make(\"person\",#FIELD_VCHAR,100,0)\nconPosField = Field.Make(\"position\",#FIELD_VCHAR,100,0)\nAddField = Field.Make(\"address\",#FIELD_VCHAR,100,0)\nCityField = Field.Make(\"city\",#FIELD_VCHAR,100,0)\nStateField = Field.Make(\"state\",#FIELD_VCHAR,100,0
)\nPcodeField = Field.Make(\"pcode\",#FIELD_VCHAR,20,0)\nCountryField = Field.Make(\"country\",#FIELD_VCHAR,75,0)\nVteleField = Field.Make(\"tele\",#FIELD_VCHAR,60,0)\nFteleField = Field.Make(\"fax\",#FIELD_VCHAR,60,0)\nEmailField = Field.Make(\"email\",#FIELD_VCHAR,100,0)\nHoursField = Field.Make(\"hours\",#FIELD_VCHAR,100,0)\nFieldList = {conIdField,conOrgField,conPerField,conPosField,AddField,cityField,StateField,PcodeField,CountryField,VteleField,FteleField,EmailField,HoursField}\nconVTab.AddFields(FieldList)"
)
(Script.45
Name: "DD.All_ConNew"
SourceCode: "theD = Self.GetDialog\nSec = theD.GetName\nconFile = _workdir+_pathDel+\"contact.dbf\"\nconFile = FileDialog.Put(conFile.AsFileName,\"*.dbf\",\"Save Contact Information\")\nif (conFile = NIL) then\n exit\nend\nif (File.Exists(conFile)) then\n File.Delete(conFile)\nend\nif (conFile = NIL) then\n exit\nelse\n av.Run(\"DD.All_ConSave\",{conFile,theD,Sec})\nend"
)
(Script.46
Name: "DD.All_ConRet"
SourceCode: "'Called from \"Retrieve Contact Information\" Button.\n'Allows user to select a file that has Contact Information\n'Reads file to populate Contact Information\n\ntheD = Self.GetDialog\nSec = theD.GetName\nconFileList = FileDialog.ReturnFiles({\"*.dbf\"},{\"dBase(*.dbf)\"},\"Retrieve Citation Information\",0)\nif (conFileList.Count = 0) then\n exit\nend\nconFile = conFileList.Get(0)\n\n\nconVTab = VTab.Make(conFile,false,false)\n\npubCnt = {}\nidSet = true\nif (conVTab.GetSelection = NIL) then\n Pubid = NIL\n PubEx = NIL\n MsgBox.I
nfo(\"Could not find: \"+conFile.AsString+\". Move the file or change your Working Directory.\",\"Contact Information\")\n exit\nelse\n PubList = {}\n PubEx = true\n PubidField = convtab.FindField(\"Con_Id\")\n if (PubidField = NIL) then\n MsgBox.Error(\"The file that you have selected (\"+conFile.AsString+\") is not formatted correctly.\",\"Error in file\")\n exit\n end\n for each o in convtab\n Pubid = convtab.ReturnValue(PubidField,o)\n PubList.Add(Pubid)\n if (Pubid.Contains(\"Contact_Id\")) then\n pubCnt.
Add(Pubid)\n end\n end\n Pubid = MsgBox.ListAsString(PubList,\"Select Contact_Information ID.\",\"Contact_Information (contact.dbf)\")\nend\n\nif (conVTab.FindField(\"Organ\").GetWidth < 100) then\n av.Run(\"DD.All_ConUpDate\",{conFile})\nend\n\nif (Pubid <> NIL) then\n Querystr = \"([Con_id] =\"++Pubid.Quote+\")\"\n convtab.GetSelection.SetAll\n PubBitMap = conVTab.GetSelection\n convtab.Query(Querystr,PubBitMap,#VTAB_SELTYPE_NEW)\n convtab.UpdateSelection\n QueryBitmap = convtab.GetSelection\n for each b in QueryBitmap\n
org = conVTab.ReturnValue(conVTab.FindField(\"organ\"),b)\n theD.FindByName(Sec+\"_TxtOrg\").SetText(org)\n person = conVTab.ReturnValue(conVTab.FindField(\"person\"),b)\n theD.FindByName(Sec+\"_TxtPer\").SetText(person)\n pos = conVTab.ReturnValue(conVTab.FindField(\"position\"),b) \n theD.FindByName(Sec+\"_TxtPos\").SetText(pos)\n add = conVTab.ReturnValue(conVTab.FindField(\"address\"),b)\n theD.FindByName(Sec+\"_TxtAdd\").SetText(add)\n city = conVTab.ReturnValue(conVTab.FindField(\"city\"),b)\n theD
.FindByName(Sec+\"_TxtCity\").SetText(city)\n state = conVTab.ReturnValue(conVTab.FindField(\"state\"),b)\n theD.FindByName(Sec+\"_TxtState\").SetText(state)\n pcode = conVTab.ReturnValue(conVTab.FindField(\"pcode\"),b)\n theD.FindByName(Sec+\"_TxtPCode\").SetText(pcode)\n country = conVTab.ReturnValue(conVTab.FindField(\"country\"),b)\n theD.FindByName(Sec+\"_TxtCountry\").SetText(country)\n tele = conVTab.ReturnValue(conVTab.FindField(\"tele\"),b)\n theD.FindByName(Sec+\"_TxtTele\").SetText(tele)\n fax =
conVTab.ReturnValue(conVTab.FindField(\"fax\"),b)\n theD.FindByName(Sec+\"_TxtFax\").SetText(fax)\n email = conVTab.ReturnValue(conVTab.FindField(\"email\"),b)\n theD.FindByName(Sec+\"_TxtEmail\").SetText(email)\n hours = conVTab.ReturnValue(conVTab.FindField(\"hours\"),b)\n theD.FindByName(Sec+\"_TxtHours\").SetText(hours)\n end\nend"
)
(Script.47
Name: "DD.All_ConSave"
SourceCode: "'Called from DD.All_ConAppend and DD.All_ConNew\n'Stores Contact Information into a dBase file.\n\nconFile = Self.Get(0) 'The file that gets written\ntheD = Self.Get(1) 'The Dialog that called this script\nSec = Self.Get(2) 'The Section of the Dialog.\n\n\nconVTab = VTab.Make(conFile,false,false)\n\npubEx = True\nif (conVTab.GetSelection = NIL) then 'File does not exists\n 'Pubid = NIL\n PubEx = NIL\nend\nif (pubEx = NIL) then\n conVTab = NIL\n av.Run(\"DD.All_ConMake\",{conFile})\nelse\n conVTab = VTab.Make(conFile,false,
false)\n if (conVTab.FindField(\"con_id\") = NIL) then\n msgBox.Error(\"The file that you have selected (\"+conFile.AsString+\") is not formatted correctly.\",\"Select a New File\")\n exit\n end\n if (conVTab.FindField(\"Organ\").GetWidth < 100) then\n conVTab = NIL\n av.Run(\"DD.All_ConUpDate\",{conFile})\n end\nend\nconId = MsgBox.Input(\"Enter Contact_Id (reference for future use)\",\"Contact ID\",\"\")\nif (conId = NIL) then\n System.Beep\n MsgBox.Warning(\"You must enter a Contact_Id for future access!\",\"Warning\")\n
exit\nend\n\nconVTab = NIL\nconVTab = VTab.Make(conFile,false,false)\nconVTab.Seteditable(true)\nnewRec = conVTab.AddRecord\nconVTab.SetValue(conVTab.FindField(\"con_Id\"), newRec, conid)\nconOrg = theD.FindByName(Sec+\"_TxtOrg\").GetText\n\nconVTab.SetValue(conVTab.FindField(\"organ\"), newRec, conOrg)\nconPer = theD.FindByName(Sec+\"_TxtPer\").GetText\nconVTab.SetValue(conVTab.FindField(\"person\"),newRec, conPer)\nconPos = theD.FindByName(Sec+\"_TxtPos\").GetText\nconVTab.SetValue(conVTab.FindField(\"position\"),newRec, conPos)\nad
d = theD.FindByName(Sec+\"_TxtAdd\").GetText \nconVTab.SetValue(conVTab.FindField(\"address\"), newRec, add)\ncity = theD.FindByName(Sec+\"_TxtCity\").GetText\nconVTab.SetValue(conVTab.FindField(\"city\"), newRec, city)\nstate = theD.FindByName(Sec+\"_TxtState\").GetText\nconVTab.SetValue(conVTab.FindField(\"state\"), newRec, state)\npcode = theD.FindByName(Sec+\"_TxtPCode\").GetText\nconVTab.SetValue(conVTab.FindField(\"pcode\"), newRec, pcode)\ncountry = theD.FindByName(Sec+\"_TxtCountry\").GetText\nconVTab.SetValue(conVTab.FindFi
eld(\"country\"), newRec, country)\nvtele = theD.FindByName(Sec+\"_TxtTele\").GetText\nconVTab.SetValue(conVTab.FindField(\"tele\"), newRec, vtele)\nftele = theD.FindByName(Sec+\"_TxtFax\").GetText\nconVTab.SetValue(conVTab.FindField(\"fax\"), newRec, ftele)\nemail = theD.FindByName(Sec+\"_TxtEmail\").GetText\nconVTab.SetValue(conVTab.FindField(\"email\"), newRec, email)\nhours = theD.FindByName(Sec+\"_TxtHours\").GetText\nconVTab.SetValue(conVTab.FindField(\"hours\"), newRec, hours)\nconVTab.SetEditable(false)"
)
(Script.48
Name: "DD.All_Cont"
SourceCode: "'Open the next Dialog based on the current Dialog's name.\n'Last edited 4/08/99\n\ntheSec = Self.GetDialog.GetName\ntheTokes = theSec.AsTokens(\".\")\nif (theTokes.Count = 1) then\n newSec = theTokes.Get(0)+\".1\"\nelse\n num = theTokes.Get(1).AsNumber + 1\n newSec = theTokes.Get(0)+\".\"+num.AsString\nend\nSelf.GetDialog.Close\nav.FindDialog(newSec).Open\n"
)
(Script.49
Name: "DD.All_ConUpdate"
SourceCode: "'Updates a Contact_Information dBase that was created with the old tool\n'Called from DD.All_ConRet\n\npubFile = Self.Get(0)\nnewFile = pubFile.GetFullName.Substitute(\".dbf\",\"_bu.dbf\")\n\nMsgBox.Info(\"The file: Contact.dbf, was created using an older version of this tool and will be updated.\",\"Update Contact File\")\n\nFile.Copy(pubFile,newFile.AsFileName)\nmsgBox.Info(pubFile.AsString++\"has been renamed to \"+newFile,\"File Renamed\")\npubFile = Self.Get(0)\nav.Run(\"DD.All_ConMake\",{pubFile})\nPubVTab = VTab.Make(PubFile.
AsFileName,false,false)\npubVTab.SetEditable(True)\nOldVTab = VTab.Make((_workdir+_pathDel+\"contact_old.dbf\").AsFileName,False,False)\nfor each o in OldVTab\n newRec = pubVTab.AddRecord\n val = OldVTab.ReturnValue(OldVTab.FindField(\"Con_id\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Con_id\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Organ\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Organ\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Person\"),o)\n pubVTab.SetValue(PubVTab.Fin
dField(\"Person\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Position\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Position\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Address\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Address\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"City\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"City\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"State\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"State\"),newRec,val)
\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Pcode\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Pcode\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Country\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Country\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Tele\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Tele\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Fax\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Fax\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTa
b.FindField(\"Email\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Email\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Hours\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Hours\"),newRec,val)\n \nend\nPubVTab.SetEditable(False)"
)
(Script.50
Name: "DD.All_Exit"
SourceCode: "'Called from \"Exit\" button on all forms.\n'Ask the user if they want to save before exiting.\n\ndName = Self.GetDialog.GetName.AsString\nn = dName.astokens(\".\")\nthisSec = n.Get(0)\nif (n.Count = 1) then\n ns = n.Get(0) + \".1\"\nelse\n if (n.Get(1).IsNumber) then\n ns = n.Get(0) + \".\" + (n.get(1).AsNumber + 1).AsString\n else\n ns = n.Get(0) + \".1\"\n end\nend\n\nif (av.FindDialog(ns) = NIL) then\n saveEm = msgbox.YesNoCancel(\"Section is complete. Do you want to save completed sections\",\"Save MetaData\",true)\n if (
saveEm = NIL) then\n exit\n end\n if (saveEm = True) then\n av.Run(\"DD.FindFile\",{})\n if (Self.GetClass.GetClassName = \"LabelButton\") then\n theSec = Self.GetDialog.GetName.AsTokens(\".\").Get(0)\n av.Run(\"DD.\"+theSec+\"_write\",{})\n Self.GetDialog.Close\n else\n theSec = Self.Get(0).AsString\n end\n av.Run(\"DD.All_Write\",{theSec})\n end\n if (saveEm = False) then\n if (Self.AsString.Count > 1) then\n Self.GetDialog.Close\n else\n av.Run(\"DD.Delete_Files\",{})\n exit
\n end\n end\nelse\n thisSec = thisSec.Right(1)\n saveEm = MsgBox.YesNoCancel(\"Section \"+thisSec++\"may not be complete! Do you want to continue saving?\",\"Save\",true)\n if (saveEm = NIL) then\n exit\n end\n if (saveEm = True) then\n av.Run(\"DD.FindFile\",{})\n if (Self.GetClass.GetClassName = \"LabelButton\") then\n theSec = Self.GetDialog.GetName.AsTokens(\".\").Get(0)\n Self.GetDialog.Close\n else\n theSec = Self.Get(0).AsString\n end\n av.Run(\"DD.Sec\"+thisSec+\"_write\",{})\n av.Run(\"D
D.All_Write\",{theSec})\n end\n if (saveEm = False) then\n if (Self.AsString.Count > 1) then\n Self.GetDialog.Close\n else\n av.Run(\"DD.Delete_Files\",{})\n exit\n end\n end \nend\n'Clean up temp files (xx)\nav.Run(\"DD.Delete_Files\",{})\nav.ClearGlobals"
)
(Script.51
Name: "DD.All_GetTextFile"
SourceCode: "theD = Self.Get(0)\ntheDTxt = Self.Get(1)\n\ntheFList = FileDialog.ReturnFiles({\"*.txt\",\"*.*\"},{\"Text Files\",\"All Files\"},\"Select File\",0)\nif (theFList.Count > 0) then\n tf = TextFile.Make(theFList.Get(0),#FILE_PERM_READ)\n source = tf.Read( tf.GetSize )\n tf.Close\n theD.FindByName(theDTxt).SetText(source)\nend"
)
(Script.52
Name: "DD.All_Goto"
SourceCode: "'Called when going to a major section\n'Write files on Goto next Section\ntheSec = Self.GetDialog.GetName.AsTokens(\".\").Get(0)\nav.Run(\"DD.\"+theSec+\"_write\",{})\nnum = theSec.Right(1).AsNumber\nnewSec = \"Sec\"+(num + 1).AsString\nSelf.GetDialog.Close\nav.FindDialog(newSec).Open\n_MetaDone = NIL"
)
(Script.53
Name: "DD.All_Load"
SourceCode: "'This script is called by Main if the user has an existing Metadata file.\n'It writes out the appropriate temp files (xxSecn).\n'Last edited 4/8/99\n\ntheFile = Self.Get(0)\nlf = LineFile.Make(theFile,#FILE_PERM_READ)\ne = lf.ReadElt\nsectList = {}\nwhile (lf.IsAtEnd.NOT)\n if (e.Contains(\"IDENTIFICATION_INFORMATION\")) then\n sectList.Add(e)\n fName = (_workdir+_pathDel+\"xxSec1.txt\").AsFileName\n if (File.Exists(fName)) then\n File.Delete(fName)\n end\n newFile = LineFile.Make(fName,#FILE_PERM_WRITE)\n
newFile.WriteElt(e)\n newFile.WriteElt(\"\")\n e = lf.ReadElt\n keepon = true\n while (keepon) \n if (e.Contains(\"DATA_QUALITY_INFORMATION\")) then \n keepon = False\n e = \"\"\n end\n if (lf.IsAtEnd) then\n keepon = False\n end\n if (e.Count > 1) then\n newFile.WriteElt(e)\n end\n pos = lf.GetPos\n e = lf.ReadElt\n end\n newFile.Close\n lf.SetPos(pos - 2)\n e = lf.ReadElt\n end 'For Identification_Information\n \n \n if (e.Contains(\"D
ATA_QUALITY_INFORMATION\")) then\n sectList.Add(e)\n fName = (_workdir+_pathDel+\"xxSec2.txt\").AsFileName\n if (File.Exists(fName)) then\n File.Delete(fName)\n end\n newFile = LineFile.Make(fName,#FILE_PERM_WRITE)\n newFile.WriteElt(\"\")\n newFile.WriteElt(e)\n newFile.WriteElt(\"\")\n e = lf.ReadElt\n keepon = true\n while (keepon) \n if (e.Contains(\"SPATIAL_DATA_ORGANIZATION_INFORMATION\")) then \n keepon = False\n e = \"\"\n end\n if (lf.IsAtend) then\n k
eepon = False\n end\n if (e.Count > 1) then\n newFile.WriteElt(e)\n end\n pos = lf.GetPos\n e = lf.ReadElt\n end\n newFile.Close\n lf.SetPos(pos - 2)\n e = lf.ReadElt\n end 'For Identification_Information\n \n \n if (e.Contains(\"SPATIAL_DATA_ORGANIZATION_INFORMATION\")) then\n sectList.Add(e)\n fName = (_workdir+_pathDel+\"xxSec3.txt\").AsFileName\n if (File.Exists(fName)) then\n File.Delete(fName)\n end\n newFile = LineFile.Make(fName,#FILE_PERM_WRITE)\n newFi
le.WriteElt(\"\")\n newFile.WriteElt(e)\n newFile.WriteElt(\"\")\n e = lf.ReadElt\n keepon = true\n while (keepon) \n if (e.Contains(\"SPATIAL_REFERENCE_INFORMATION\")) then \n keepon = False\n e = \"\"\n end\n if (lf.IsAtend) then\n keepon = False\n end\n if (e.Count > 1) then\n newFile.WriteElt(e)\n end\n pos = lf.GetPos\n e = lf.ReadElt\n end\n newFile.Close\n lf.SetPos(pos - 2)\n e = lf.ReadElt\n end 'For Identification_Information\n \n
if (e.Contains(\"SPATIAL_REFERENCE_INFORMATION\")) then\n sectList.Add(e)\n fName = (_workdir+_pathDel+\"xxSec4.txt\").AsFileName\n if (File.Exists(fName)) then\n File.Delete(fName)\n end\n newFile = LineFile.Make(fName,#FILE_PERM_WRITE)\n newFile.WriteElt(\"\")\n newFile.WriteElt(e)\n newFile.WriteElt(\"\")\n e = lf.ReadElt\n keepon = true\n gotPlanar = False\n while (keepon) \n if (e.Contains(\"Planar:\")) then\n gotPlanar = True\n end\n if (e.Contains(\"Entity_and_At
tribute_Information\")) then \n keepon = False\n e = \"\"\n end\n if (lf.IsAtEnd) then\n keepon = False\n end\n if (e.Count > 1) then\n newFile.WriteElt(e)\n end\n pos = lf.GetPos\n e = lf.ReadElt\n end\n newFile.Close\n if (gotPlanar = True) then\n pFile = LineFile.Make(fName,#FILE_PERM_READ)\n prjFile = LineFile.Make((_workdir+_pathDel+\"xxSec4_Prj.txt\").AsFileName,#FILE_PERM_WRITE)\n doPlanar = True\n l = pFile.ReadElt\n s = l\n
While (doPlanar = True) \n if (l.Contains(\"Planar_Coordinate_Information:\")) then\n doPlanar = False\n l = \"\"\n end\n if (pFile.IsAtEnd) then\n doPlanar = False\n end\n if (l <> NIL) then\n if ((l.Count = 0) and (s = \"SPATIAL_REFERENCE_INFORMATION\")) then\n l = \" \"\n end\n prjFile.WriteElt(l)\n end\n 'pos = pFile.GetPos\n s = l\n l = pFile.ReadElt\n end\n prjFile.Close\n pFile.C
lose\n end\n lf.SetPos(pos - 2)\n e = lf.ReadElt\n end 'For Identification_Information\n \n if (e.Contains(\"ENTITY_AND_ATTRIBUTE_INFORMATION\")) then\n sectList.Add(e)\n fName = (_workdir+_pathDel+\"xxSec5.txt\").AsFileName\n if (File.Exists(fName)) then\n File.Delete(fName)\n end\n newFile = LineFile.Make(fName,#FILE_PERM_WRITE)\n newFile.WriteElt(\"\")\n newFile.WriteElt(e)\n newFile.WriteElt(\"\")\n e = lf.ReadElt\n keepon = true\n while (keepon) \n if (e.Contains(\"DISTRIBUT
ION_INFORMATION\")) then ' or (lf.IsAtEnd)) then \n keepon = False\n e = \"\"\n end\n if (lf.IsAtEnd) then\n keepon = False\n end\n if (e.Count > 1) then\n newFile.WriteElt(e)\n end\n pos = lf.GetPos\n e = lf.ReadElt\n end\n newFile.Close\n av.DelayedRun(\"DD.Sec5_WriteODDD\",{},0.5)\n lf.SetPos(lf.getPos - 2)\n e = lf.ReadElt\n end 'For Identification_Information\n \n if (e.Contains(\"DISTRIBUTION_INFORMATION\")) then\n sectList.Add(e)\n fName = (_
workdir+_pathDel+\"xxSec6.txt\").AsFileName\n if (File.Exists(fName)) then\n File.Delete(fName)\n end\n newFile = LineFile.Make(fName,#FILE_PERM_WRITE)\n newFile.WriteElt(\"\")\n newFile.WriteElt(e)\n newFile.WriteElt(\"\")\n e = lf.ReadElt\n keepon = true\n while (keepon) \n if (e.Contains(\"METADATA_REFERENCE_INFORMATION\")) then\n keepon = False\n e = \"\"\n end\n if (lf.IsAtEnd) then\n keepon = False\n end\n if (e.Count > 1) then\n newFile.WriteE
lt(e)\n end\n pos = lf.GetPos\n e = lf.ReadElt\n end\n newFile.Close\n av.DelayedRun(\"DD.Sec6_WriteOrder\",{},0.5)\n lf.SetPos(pos - 2)\n e = lf.ReadElt\n end 'For Identification_Information\n \n if (e.Contains(\"METADATA_REFERENCE_INFORMATION\")) then\n sectList.Add(e)\n fName = (_workdir+_pathDel+\"xxSec7.txt\").AsFileName\n if (File.Exists(fName)) then\n File.Delete(fName)\n end\n newFile = LineFile.Make(fName,#FILE_PERM_WRITE)\n newFile.WriteElt(\"\")\n newFile.WriteElt(
e)\n newFile.WriteElt(\"\")\n e = lf.ReadElt\n keepon = true\n while (keepon)\n if (e.Count > 1) then\n newFile.WriteElt(e)\n end\n if (lf.IsAtEnd) then \n keepon = False\n end\n pos = lf.GetPos\n e = lf.ReadElt\n end\n newFile.Close\n lf.SetPos(pos - 2)\n end 'For Identification_Information \n e = lf.ReadElt\nend\nreturn sectList\n"
)
(Script.54
Name: "DD.All_Open"
SourceCode: "'Called from \"Open\" event for all Dialogs.\n'Sets the title and controls where it will appear.\n\nt = Self.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n Self.SetTitle(nt)\nend\nSelf.MoveTo(50,20)\n"
)
(Script.55
Name: "DD.All_PubMake"
SourceCode: "PubFile = Self.Get(0)\nPubVTab = VTab.MakeNew(Pubfile,dBASE)\nFieldList = {}\nPubIdField = Field.Make(\"Pub_Id\",#FIELD_VCHAR,50,0)\nFieldList.Add(PubIdField)\nTitleField = Field.Make(\"Title\",#FIELD_VCHAR,200,0)\nFieldList.Add(TitleField)\nEditionField = Field.Make(\"Edition\",#FIELD_VCHAR,100,0)\nFieldList.Add(EditionField)\nDateField = Field.Make(\"Date\",#FIELD_VCHAR,50,0)\nFieldList.Add(DateField)\nfor each x in 1 .. 10\n OrgField = Field.Make(\"Origin\"+x.AsString,#FIELD_VCHAR,100,0)\n FieldList.Add(OrgField)\nend\nPubPlac
eField = Field.Make(\"Pubplace\",#FIELD_VCHAR,100,0)\nFieldList.Add(PubPlaceField)\nPublisherField = Field.Make(\"Publisher\",#FIELD_VCHAR,100,0)\nFieldList.Add(PublisherField)\nOnlineField = Field.Make(\"Online\",#FIELD_VCHAR,100,0)\nFieldList.Add(OnlineField)\nPubOrgField = Field.Make(\"LWOrg\",#FIELD_VCHAR,100,0)\nFieldList.Add(PubOrgField)\nPubDateField = Field.Make(\"LWDate\",#FIELD_VCHAR,50,0)\nFieldList.Add(PubDateField)\nPubTitleField = Field.Make(\"LWTitle\",#FIELD_VCHAR,200,0)\nFieldList.Add(PubTitleField)\nLWPlaceField
= Field.Make(\"LWPlace\",#FIELD_VCHAR,100,0)\nFieldList.Add(LWPlaceField)\nLWPubField = Field.Make(\"LWPub\",#FIELD_VCHAR,100,0)\nFieldList.Add(LWPubField)\nLWOnlineField = Field.Make(\"LWOnline\",#FIELD_VCHAR,100,0)\nFieldList.Add(LWOnlineField)\nPubVTab.AddFields(FieldList)"
)
(Script.56
Name: "DD.All_PubRet"
SourceCode: "'Publication_Information and Larger_Work_Citation\nOrList = {}\ntheD = Self.GetDialog\nSec = theD.GetName\n\npubFileList = FileDialog.ReturnFiles({\"*.dbf\"},{\"dBase(*.dbf)\"},\"Retrieve Citation Information\",0)\nif (pubFileList.Count = 0) then\n exit\nend\nPubFile = pubFileList.Get(0)\n\nPubVTab = VTab.Make(PubFile,false,false)\npubCnt = {}\nidSet = true\nif (PubVTab.GetSelection = NIL) then\n Pubid = NIL\n PubEx = NIL\n MsgBox.Info(\"Could not find: \"+pubfile.AsString+\". Move the file or change your Working Directory.\",\"Pu
blication Information\")\n exit\nelse\n PubList = {}\n PubEx = true\n PubidField = PubVTab.FindField(\"Pub_Id\")\n if (PubidField = NIL) then\n MsgBox.Error(\"The file that you have selected (\"+pubFile.AsString+\") is not formatted correctly.\",\"Error in file\")\n exit\n end\n for each o in PubVTab\n Pubid = PubVTab.ReturnValue(PubidField,o)\n PubList.Add(Pubid)\n if (Pubid.Contains(\"Publisher_Id\")) then\n pubCnt.Add(Pubid)\n end\n end\n Pubid = MsgBox.ListAsString(PubList,\"Select Publication_Inform
ation and Larger_Work_Citation Id.\",\"Publication_Information (publicat.dbf)\")\nend\nif (pubVTab.FindField(\"Title\").GetWidth < 200) then\n av.Run(\"DD.All_ConUpDate\",{pubFile})\nend\nif (Pubid <> NIL) then\n if (PubVTab.GetFields.Count < 20) then\n pubVTab = NIL\n av.Run(\"DD.All_PubUpdate\",{})\n end\n PubVTab = VTab.Make(PubFile,false,false)\n Querystr = \"([Pub_id] =\"++Pubid.Quote+\")\"\n PubVTab.GetSelection.SetAll\n PubBitMap = PubVTab.GetSelection\n PubVTab.Query(Querystr,PubBitMap,#VTAB_SELTYPE_NEW)\n PubVT
ab.UpdateSelection\n QueryBitmap = PubVTab.GetSelection\n for each b in QueryBitmap\n PubTitle = PubVTab.ReturnValue(PubVTab.FindField(\"Title\"),b)\n theD.FindByName(Sec+\"_TxtPubTitle\").SetText(PubTitle)\n Edition = PubVTab.ReturnValue(PubVTab.FindField(\"Edition\"),b)\n theD.FindByName(Sec+\"_TxtEd\").SetText(Edition)\n PubDate = PubVTab.ReturnValue(PubVTab.FindField(\"Date\"),b)\n theD.FindByName(Sec+\"_TxtPubDate\").SetText(PubDate)\n for each x in 1 .. 10\n PubOrg = PubVTab.ReturnValueString(Pu
bVTab.FindField(\"Origin\"+x.AsString),b)\n if (PubOrg.Count > 0) then\n OrList.Add(PubOrg)\n end\n end\n if (orList.Count > 0) then\n orList = MsgBox.MultiListAsString(orList,\"Please select Originators:\",\"Originators\")\n end\n if (orList = NIL) then\n orList = {}\n end\n if (OrList.Count > 0) then\n orStr = \"\"\n for each o in OrList\n if (orStr.Count = 0) then\n orStr = o\n else\n orStr = orStr + \"; \" + o\n end\n end\n theD.F
indByName(Sec+\"_TxtPubOrg\").SetText(orStr) 'OrList.Get(0))\n else\n theD.FindByName(Sec+\"_TxtPubOrg\").SetText(\"\")\n end\n Pubplace = PubVTab.ReturnValue(PubVTab.FindField(\"Pubplace\"),b)\n theD.FindByName(Sec+\"_TxtPubPlace\").SetText(PubPlace)\n Publisher = PubVTab.ReturnValue(PubVTab.FindField(\"Publisher\"),b)\n theD.FindByName(Sec+\"_TxtPublisher\").SetText(Publisher)\n Online = PubVTab.ReturnValue(PubVTab.FindField(\"Online\"),b)\n theD.FindByName(Sec+\"_TxtOnLine\").SetText(Online)\n Origi
nator = PubVTab.ReturnValue(PubVTab.FindField(\"LWOrg\"),b)\n theD.FindByName(Sec+\"_TxtPubLWOrg\").SetText(Originator)\n Pubdate = PubVTab.ReturnValue(PubVTab.FindField(\"LWDate\"),b)\n theD.FindByName(Sec+\"_TxtPubLWDate\").SetText(Pubdate)\n Pubtitle = PubVTab.ReturnValue(PubVTab.FindField(\"LWTitle\"),b)\n theD.FindByName(Sec+\"_TxtPubLWTitle\").SetText(PubTitle)\n LWPlace = PubVTab.ReturnValue(PubVTab.FindField(\"LWPlace\"),b)\n theD.FindByName(Sec+\"_TxtPubLWPlace\").SetText(LWPlace)\n LWPub = PubVTab
.ReturnValue(PubVTab.FindField(\"LWPub\"),b)\n theD.FindByName(Sec+\"_TxtPubLWPub\").SetText(LWPub)\n LWOnline = PubVTab.ReturnValue(PubVTab.FindField(\"LWOnline\"),b)\n theD.FindByName(Sec+\"_TxtLWOnline\").SetText(LWOnline)\n end\nend"
)
(Script.57
Name: "DD.All_PubSave"
SourceCode: "pubFile = Self.Get(0)\ntheD = Self.Get(1)\nSec = Self.Get(2)\nPubVTab = VTab.Make(PubFile,false,false)\n\npubCnt = {}\nOriginList = {}\nidSet = true\npubEx = True\nif (PubVTab.GetSelection = NIL) then\n PubEx = NIL\nend\nif (PubEx = NIL) then\n pubVTab = NIL\n av.Run(\"DD.All_PubMake\",{pubFile})\nelse\n PubVTab = VTab.Make(PubFile,false,false)\n if (PubVTab.FindField(\"Pub_id\") = NIL) then\n msgBox.Error(\"The file that you have selected (\"+pubFile.AsString+\") is not formatted correctly.\",\"Select a New File\")\n exit\n
end\n if (PubVTab.GetFields.Count < 20) then 'Table created with old Version\n pubVTab = NIL\n av.Run(\"DD.All_PubUpdate\",{})\n end\nend\n\nPubId = MsgBox.Input(\"Enter Citation_Id (reference for future use)\",\"Citation ID\",\"\")\nif (PubId = NIL) then\n System.Beep\n MsgBox.Warning(\"You must enter a Citation_Id for future access!\",\"Warning\")\n exit\nend\n\n\nPubVTab = VTab.Make(PubFile,false,false)\nPubVTab.Seteditable(true)\nnewRec = PubVTab.AddRecord\nPubVTab.SetValue(PubVTab.FindField(\"Pub_Id\"), newRec, Pubid)\nPub
Title = theD.FindByName(Sec+\"_TxtPubTitle\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"Title\"), newRec, PubTitle)\nEdition = theD.FindByName(Sec+\"_TxtEd\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"Edition\"), newRec, Edition)\nPubDate = theD.FindByName(Sec+\"_TxtPubDate\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"Date\"), newRec, PubDate)\nPubOrg = theD.FindByName(Sec+\"_TxtPubOrg\").GetText\nOrgList = {}\ntheTokes = PubOrg.AsTokens(\";\")\nfor each t in theTokes\n OrgList.Add(t.Trim)\nend\n\n\ncnt = 1\nfor each o in Or
gList\n PubVTab.SetValue(PubVTab.FindField(\"Origin\"+cnt.AsString), newRec, o)\n cnt = cnt + 1\nend\nPubPlace = theD.FindByName(Sec+\"_TxtPubPlace\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"Pubplace\"), newRec, PubPlace)\nPublisher = theD.FindByName(Sec+\"_TxtPublisher\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"Publisher\"),newRec, Publisher)\nonline = theD.FindByName(Sec+\"_TxtOnline\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"Online\"),newRec, online)\nLWOrg = theD.FindByName(Sec+\"_TxtPubLWOrg\").GetText\nPubVT
ab.SetValue(PubVTab.FindField(\"LWOrg\"), newRec, LWOrg)\nLWDate = theD.FindByName(Sec+\"_TxtPubLWDate\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"LWDate\"), newRec, LWDate)\nLWTitle = theD.FindByName(Sec+\"_TxtPubLWTitle\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"LWTitle\"), newRec, LWTitle)\nLWPubPlace = theD.FindByName(Sec+\"_TxtPubLWPlace\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"LWPlace\"), newRec, LWPubPlace)\nLWPub = theD.FindByName(Sec+\"_TxtPubLWPub\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"LWPub\")
, newRec, LWPub)\nLWOnline = theD.FindByName(Sec+\"_TxtLWOnline\").GetText\nPubVTab.SetValue(PubVTab.FindField(\"LWOnline\"),newRec, LWOnline)\nPubVTab.SetEditable(false)"
)
(Script.58
Name: "DD.All_PubUpdate"
SourceCode: "MsgBox.Info(\"The file: Publicat.dbf, was created using an older version of this tool and will be updated.\",\"Update Publicat.dbf\")\nFile.Copy((_workdir+_pathDel+\"publicat.dbf\").AsFileName,(_workdir+_pathDel+\"publicat_old.dbf\").AsFileName)\nmsgBox.Info(\"Publicat.dbf has been renamed to Publicat_old.dbf\",\"File Renamed\")\npubFile = _workdir+_pathDel+\"publicat.dbf\"\nav.Run(\"DD.All_PubMake\",{pubFile})\nPubVTab = VTab.Make(PubFile.AsFileName,false,false)\npubVTab.SetEditable(True)\nOldVTab = VTab.Make((_workdir+_pathDel+
\"publicat_old.dbf\").AsFileName,False,False)\nfor each o in OldVTab\n newRec = pubVTab.AddRecord\n val = OldVTab.ReturnValue(OldVTab.FindField(\"Pub_id\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Pub_id\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Pubplace\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Pubplace\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Publisher\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Publisher\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindFiel
d(\"Lworg\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Lworg\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Lwdate\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Lwdate\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Lwtitle\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Lwtitle\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Lwplace\"),o)\n pubVTab.SetValue(PubVTab.FindField(\"Lwplace\"),newRec,val)\n \n val = OldVTab.ReturnValue(OldVTab.FindField(\"Lwpub\"),o)\n pubVTab.Se
tValue(PubVTab.FindField(\"Lwpub\"),newRec,val)\nend\nPubVTab.SetEditable(false)\n"
)
(Script.59
Name: "DD.All_Write"
SourceCode: "theSec = Self.Get(0) 'Sec1 so that Sec1.1 gets sent as Sec1\nnum = theSec.Right(1).AsNumber\nnumber.SetDefFormat(\"d\")\nnum.SetFormat(\"d\")\n\nfor each x in 1..7 by 1 'changed num to 7 on 3/29\n theFile = _workdir+_pathdel+\"xxSec\"+x.AsString+\".txt\"\n if (File.Exists(theFile.AsFileName)) then\n opFile = LineFile.Make(theFile.AsFileName,#FILE_PERM_READ)\n While (NOT(opFile.IsAtEnd))\n theElt = opFile.ReadElt\n _metaFile.WriteElt(theElt)\n end\n opFile.Close\n if (num = 7) then\n File.Delete(the
File.AsFileName)\n end\n end\nend \n_metaFile.Close\nmsgBox.Info(_metaFile.AsString+NL+\"was written successfully\",\"File Created\")\n_MetaDone = \"Complete\"\nav.DelayedRun(\"DD.Delete_Files\",{},0.5)\n"
)
(Script.60
Name: "DD.AllPub_Append"
SourceCode: "'Allows append to existing file.\ntheD = Self.GetDialog\nSec = theD.GetName\n'Get the File name to write to.\npubFile = _workdir+_pathDel+\"citation.dbf\"\npubFile = FileDialog.Show(\"*.dbf\",\"dBase\",\"Save Citation Information\")\nif (pubFile = NIL) then\n exit\nelse\n av.Run(\"DD.All_PubSave\",{pubFile,theD,Sec})\nend"
)
(Script.61
Name: "DD.AllPub_New"
SourceCode: "'Allows saving to new file\ntheD = Self.GetDialog\nSec = theD.GetName\n'Get the File name to write to.\npubFile = _workdir+_pathDel+\"citation.dbf\"\npubFile = FileDialog.Put(pubFile.AsFileName,\"*.dbf\",\"Save Citation Information\")\nif (pubFile = NIL) then\n Exit\nend\n\nif (File.Exists(PubFile)) then\n File.Delete(pubFile)\nend\nif (pubFile = NIL) then\n exit\nelse\n av.Run(\"DD.All_PubSave\",{pubFile,theD,Sec})\nend"
)
(Script.62
Name: "DD.Clear_Forms"
SourceCode: "'Clear Main Form\nav.FindDialog(\"DD.MainSetup\").FindByName(\"DD.Main_LBTheme\").DefineFromList({})\n\ndiaList = {\"DD.MainSetup\",\"Sec1\",\"Sec1.1\",\"Sec1.2\",\"Sec1.3\",\"Sec2\",\"Sec2.1\",\"Sec2.2\",\"Sec2.3\",\"Sec3\",\"Sec4\",\"Sec4.GC\",\"Sec4.PC\",\"Sec4.VC\",\"Sec5\",\"Sec5.DD\",\"Sec5.OD\",\"Sec5_DDE\",\"Sec6\",\"Sec6.1\",\"Sec6.1.CO\",\"Sec6.1.DF\",\"Sec6.1.NF\",\"Sec7\"}\nfor each d in diaList\n av.Run(\"DD.ClearEm\",{d})\nend\n"
)
(Script.63
Name: "DD.ClearEm"
SourceCode: "'Called by DD.Clear_Forms\n'Clears all text from forms, except ListBoxes\n\ntheDName = Self.Get(0)\ntheD = av.FindDialog(theDName)\nfor each atxl in theD.findbyclass(textline)\n atxl.settext(\"\")\nend\nfor each atxl in theD.findbyclass(textbox)\n atxl.settext(\"\")\nend\nfor each atxl in theD.findbyclass(combobox)\n atxl.DefineFromList({})\nend"
)
(Script.64
Name: "DD.Delete_Files"
SourceCode: "'Put in a pause to give AV time close files before deleting them\nfor each x in 1 .. 1000\n d = Date.Now\nend\n\n\nnukeList = {\"xxSec1.txt\",\"xxSec2.txt\",\"xxSec3.txt\",\"xxSec4.txt\",\"xxSec5.txt\",\"xxSec6.txt\",\"xxSec7.txt\",\"xxproc.txt\",\"xxSec4_Prj.txt\",\"xxSec5_OD.txt\",\"xxSec5_DD.txt\",\"xxSec6_CO.txt\",\"xxSec6_NF.txt\",\"xxSec6_DF.txt\",\"xxSec6_SO.txt\"}\nfor each n in nukeList\n metaName = (_workdir+_pathdel+n).AsFilename\n if (File.Exists(metaName)) then\n File.Delete(metaName)\n end\nend\n\nif (_procCnt > 0) then\n for eac
h x in 1 .. _procCnt\n metaName = (_workdir+_pathdel+\"xxProc\"+x.AsString+\".txt\").AsFileName\n if (File.Exists(metaName)) then\n File.Delete(metaName)\n end\n end\nend\n\nif (_linCnt > 0) then\n for each x in 1 .. _linCnt\n metaName = (_workdir+_pathdel+\"xxLin\"+x.AsString+\".txt\").AsFileName\n if (File.Exists(metaName)) then\n File.Delete(metaName)\n end\n end\nelse\n metaName = (_workdir+_pathdel+\"xxLin1.txt\").AsFileName\n if (File.Exists(metaName)) then\n File.Delete(metaName)\n end\nend\n\n'
av.ClearGlobals"
)
(Script.65
Name: "DD.DoProjection"
SourceCode: "Script.The.SetNumberFormat(\"d.dddddd\")\nsu = _theView.getdisplay.getunits\ngetPrj = True\n\n\nthePrj = ProjectionDialog.Show(_theView,su)\n_thePrj = thePrj\nif (thePrj = NIL) then \n getPrj = False\nelse\n getPrj = True\nend\n\nif (getPrj = True) then\n fName = _workdir+_pathDel+\"xxSec4_Prj.txt\"\n theFile = LineFile.Make(fName.AsFileName,#FILE_PERM_WRITE)\n theFile.WriteElt(\"SPATIAL_REFERENCE_INFORMATION\")\n theFile.WriteElt(\" \") \n des = thePrj.returndescription.asstring\n prjName = thePrj.AsString\n if (des.Contains
(\"State Plane\")) then 'or prjName.Contains(\"UTM\"))) then\n theFile.WriteElt(\" Horizontal_Coordinate_System_Definition:\")\n theFile.WriteElt(\" Planar:\")\n theFile.WriteElt(\" Grid_Coordinate_System:\")\n d = \"\"\n if (des.Contains(\"1927\")) then\n d = \"1927\"\n _Sec4PCDat = \"North American Datum of 1927\" \n elseif (des.Contains(\"1983\")) then\n d = \"1983\"\n _Sec4PCDat = \"North American Datum of 1983\"\n end\n theFile.WriteElt(\" Grid_Coordinate_System_Name: State Plane
Coordinate System\"++d)\n theFile.WriteElt(\" State_Plane_Coordinate_System:\")\n zone = des.AsTokens(\";\").get(1)\n theFile.WriteElt(\" SPCS_Zone_Identifier: \"+zone)\n if (prjName = \"Lambert Conformal Conic\") then\n theFile.WriteElt(\" Lambert_Conformal_Conic:\")\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnLowerStandardParallel.AsString)\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnUpperStandardParallel.AsString)\n theFil
e.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnReferenceLatitude.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end\n if (prjName = \"Transverse Mercator\") then\n theFile.WriteElt(\" Transverse_Mercator:\")\n theFile.W
riteElt(\" Scale_Factor_at_Central_Meridian: \"+thePrj.ReturnScale.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnReferenceLatitude.AsString) \n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end\n if (prjName
.Contains(\"Oblique Mercator\")) then\n theFile.WriteElt(\" Oblique_Mercator:\")\n theFile.WriteElt(\" Scale_Factor_Along_Central_Line: \"+thePrj.ReturnScale.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Point: \"+thePrj.ReturnCentralLongitude.AsString)\n theFile.WriteElt(\" Latitude_of_Central_Point: \"+thePrj.ReturnCentralLatitude.AsString) \n theFile.WriteElt(\" Azimuth_Of_Central_Line: \"+thePrj.ReturnAzimuthOfCentralLine.AsString)\n
theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end\n elseif (des.Contains(\"UTM\")) then\n theFile.WriteElt(\" Horizontal_Coordinate_System_Definition:\")\n theFile.WriteElt(\" Planar:\")\n theFile.WriteElt(\" Grid_Coordinate_System:\")\n d = \"\"\n if (des.Contains(\"1927\")) then\n d = \"1927\"\n _Sec4PCDat = \"North American Datum of 1927\"\n elseif (des.Con
tains(\"1983\")) then\n d = \"1983\"\n _Sec4PCDat = \"North American Datum of 1983\"\n end\n zone = des.AsTokens(\";\").Get(1).Substitute(\"Zone \",\"\")\n theFile.WriteElt(\" Grid_Coordinate_System_Name: Universal Transverse Mercator\")\n theFile.WriteElt(\" Universal_Transverse_Mercator:\")\n theFile.WriteElt(\" UTM_Zone_Number: \"+zone)\n theFile.WriteElt(\" Transverse_Mercator:\")\n theFile.WriteElt(\" Scale_Factor_at_Central_Meridian: \"+thePrj.ReturnScale.AsS
tring)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnReferenceLatitude.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n \n else\n cust = thePrj.AsString\n theFile.WriteElt(\" Horizontal_Coordinate_System_Definition:\")\n the
File.WriteElt(\" Planar:\")\n theFile.WriteElt(\" Map_Projection:\")\n if (cust = \"Lambert Equal-Area Azimuthal\") then\n theFile.WriteElt(\" Map_Projection_Name: Lambert_Azimuthal_Equal_Area\")\n else\n theFile.WriteElt(\" Map_Projection_Name:\"++cust)\n end\n theFile.WriteElt(\" \"+cust.Substitute(\" \",\"_\")+\":\")\n if ((cust = \"Gnomonic\") or (cust = \"Vertical Near-Side Perspective\") or (cust = \"Orthographic\") or (cust = \"Stereographic\")) then\n theFile.WriteElt(\"
Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Center: \"+thePrj.ReturnReferenceLatitude.AsString)\n end\n if (cust.Contains(\"Albers\")) then\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnLowerStandardParallel.AsString)\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnUpperStandardParallel.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.Retur
nCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnReferenceLatitude.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end \n if (cust.Contains(\"Cassini\")) then\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_
Projection_Center: \"+thePrj.ReturnReferenceLatitude.AsString)\n end\n if (cust.Contains(\"Lambert Conformal Conic\")) then\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnLowerStandardParallel.AsString)\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnUpperStandardParallel.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnR
eferenceLatitude.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end\n if (cust.Contains(\"Lambert Equal-Area Azimuthal\")) then\n theFile.WriteElt(\" Longitude_of_Projection_Center: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Center: \"+thePrj.ReturnReferenceLatitude.AsString)\n end\n if (cust.Conta
ins(\"Equal-Area Cylindrical\")) then\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnStandardParallel.AsString)\n end\n if (cust.Contains(\"Equidistant Azimuthal\")) then\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Reference_Latitude: \"+thePrj.ReturnReferenceLatitude.AsString)\n end\n
if (cust.Contains(\"Equidistant Conic\")) then\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnLowerStandardParallel.AsString)\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnUpperStandardParallel.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnReferenceLatitude.AsString)\n \n end\n if (cust.Contains(\"Equidistant Cy
lindrical\")) then\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnReferenceLatitude.AsString)\n end\n if (cust.Contains(\"Hammer-Aitoff\")) then\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n end\n if (cust.Contains(\"Lambert Conformal Conic\")) then\n theFile.WriteElt(\" Standard_Parallel: \"+the
Prj.ReturnLowerStandardParallel.AsString)\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnUpperStandardParallel.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnReferenceLatitude.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFals
eNorthing.AsString)\n end\n if (cust = \"Mercator\") then\n theFile.WriteElt(\" Standard_Parallel: \"+thePrj.ReturnLatitudeOfTrueScale.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end\n if (cust.Contains(\"Miller Cylindrical\")) then\n theFile.
WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n end\n if (cust.Contains(\"Mollweide\")) then\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n end\n if (cust.Contains(\"Hotine Oblique Mercator\")) then\n theFile.WriteElt(\" Longitude_of_Central_Point: \"+thePrj.ReturnCentralLongitude.AsString)\n theFile.WriteElt(\" Latitude_of_Central_Point: \"+thePrj.ReturnCentralLatitude.AsStri
ng) \n theFile.WriteElt(\" Azimuth_Of_Central_Line: \"+thePrj.ReturnAzimuthOfCentralLine.AsString)\n theFile.WriteElt(\" Scale_Factor_Along_Central_Line: \"+thePrj.ReturnScale.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end\n if (cust.Contains(\"Robinson\")) then\n theFile.WriteElt(\" Central_Meridian: \"+thePrj.ReturnCentralMer
idian.AsString)\n end\n if (cust.Contains(\"Sinusoidal\")) then\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n end\n if (cust = \"Transverse Mercator\") then\n theFile.WriteElt(\" Scale_Factor_at_Central_Meridian: \"+thePrj.ReturnScale.AsString)\n theFile.WriteElt(\" Longitude_of_Central_Meridian: \"+thePrj.ReturnCentralMeridian.AsString)\n theFile.WriteElt(\" Latitude_of_Projection_Origin: \"+thePrj.ReturnRefe
renceLatitude.AsString)\n theFile.WriteElt(\" False_Easting: \"+thePrj.ReturnFalseEasting.AsString)\n theFile.WriteElt(\" False_Northing: \"+thePrj.ReturnFalseNorthing.AsString)\n end\n end\n \n theFile.Close\nend\nreturn thePrj"
)
(Script.66
Name: "DD.Exam_Sec1"
SourceCode: "'Identification_Information:\n' Citation:\n' Citation_Information:\n' Originator: NOAA Coastal Services Center\n' Publication_Date: 19990225\n' Title: Apalachicola Bay, Florida- National Estuarine Research\n' Reserve Digital Line Boundary\n' Edition: One\n' Geospatial_Data_Presentation_Form: Map\n' Publication_Information:\n' Publication_Place: Charleston, South Carolina\n' Publisher: NOAA Coastal Services Center\n' Online_Linkage: http://www.csc.noaa.gov
\n' Larger_Work_Citation:\n' Citation_Information:\n' Originator: NOAA Coastal Services Center\n' Publication_Date: 19990225\n' Title: Protected Areas Geographic Information System\n' Publication_Information:\n' Publication_Place: Charleston, South Carolina\n' Publisher: NOAA Coastal Services Center\n' Online_Linkage: http://www.csc.noaa.gov/pagis\n' Description:\n' Abstract:\n' The Apalachicola Bay National Estuarine Research Reser
ve\n' (NERR) digital boundary was created as part of the\n' Protected Areas Geographic Information System (PAGIS)\n' project. An updated digital version of Apalachicola Bay's\n' boundary was critical to the PAGIS project. The digital\n' boundary was delineated from management and research areas\n' within the Reserve. It was not based on legal definitions.\n' Purpose:\n' The PAGIS project provided each NERR with a fully\n' integrated geographic information system (GIS),\n'
encompassing spatial data and Internet capabilities. One of\n' the essential GIS data layers being compiled for each\n' Reserve was a digital boundary. The Reserve boundary was\n' delineated based on management and research areas and is\n' not meant to be a legal description of the Reserve.\n' Supplemental_Information:\n' This boundary is not to be taken as a legal definition of\n' the NERR boundary. It was created based on management and research areas of\n' the Reserve.\n'
Time_Period_of_Content:\n' Time_Period_Information:\n' Range_of_Dates/Times:\n' Beginning_Date: 19980819\n' Ending_Date: 19980831\n' Currentness_Reference: publication date\n' Status:\n' Progress: Complete\n' Maintenance_and_Update_Frequency: Unknown\n' Spatial_Domain:\n' Bounding_Coordinates:\n' West_Bounding_Coordinate: -85.2233\n' East_Bounding_Coordinate: -84.6941\n' North_Bounding_Coordinate: 30.2181\n' South_Bounding_Coordinate: 29.5863\n' Keywords:\n' Them
e:\n' Theme_Keyword_Thesaurus: None\n' Theme_Keyword: Boundary\n' Theme_Keyword: Estuary\n' Theme_Keyword: GIS\n' Theme_Keyword: National Estuarine Research Reserves\n' Theme_Keyword: NERR\n' Place:\n' Place_Keyword_Thesaurus: None\n' Place_Keyword: United States\n' Place_Keyword: Southeast\n' Place_Keyword: Florida\n' Place_Keyword: Apalachicola Bay\n' Access_Constraints: None\n' Use_Constraints: NOT FOR LEGAL USE\n' Point_of_Contact:\n' Contact_Information:\n
' Contact_Organization_Primary:\n' Contact_Organization: NOAA Coastal Services Center\n' Contact_Person: PAGIS Specialist\n' Contact_Position: GIS Specialist\n' Contact_Address:\n' Address_Type: mailing and physical address\n' Address: 2234 South Hobson Ave\n' City: Charleston\n' State_or_Province: South Carolina\n' Postal_Code: 29405\n' Country: USA\n' Contact_Voice_Telephone: 800-789-2234\n' Contact_Facsimile_Telephone: 843-740-1224\n'
Contact_Electronic_Mail_Address: gis@csc.noaa.gov\n' Hours_of_Service: Monday-Friday, 8am-5pm, Eastern Standard Time\n' Native_Data_Set_Environment:\n' Arc/Info\n' m:\\nep2\\pagis\\apa\\apanerrg"
)
(Script.67
Name: "DD.Exam_Sec2"
SourceCode: "'Data_Quality_Information:\n' Attribute_Accuracy:\n' Attribute_Accuracy_Report:\n' All attributes created during the creation process were\n' verified by displaying the lines in both the database and\n' the spatial coverage, but no formal tests were performed.\n' Logical_Consistency_Report:\n' These data are believed to be logically consistent, though\n' no tests were performed. Line geometry is topologically clean.\n' Completeness_Report:\n' The boundary of the Reserve is dependent on t
he shoreline\n' and/or edges of rivers and bays as delineated on a USGS 7.5\n' minute Topographic Map. The edges or borders of the\n' boundary might change as the natural land changes or better\n' maps and aerial photography become available. The boundary\n' was not based on legal parcels or definitions; therefore,\n' the core boundary is a management/research boundary not a\n' legal boundary.\n' Positional_Accuracy:\n' Horizontal_Positional_Accuracy:\n' Horizontal_Positional_Accuracy_Re
port:\n' The data were created by delineating the boundary off a\n' USGS 7.5 minute Topographic Map at 1:24000 scale.\n' Therefore, the horizontal accuracy is assumed to be within\n' National Map Accuracy Standards, with a horizontal accuracy\n' of 45.6 feet at the 95% confidence level.\n' Vertical_Positional_Accuracy:\n' Vertical_Positional_Accuracy_Report:\n' The data were delineated off a USGS 7.5 minute Topographic\n' Map at 1:24000 scale. Therefore, the ve
rtical accuracy is\n' assumed to be within National Map Accuracy Standards, with\n' a vertical accuracy of 11.9 feet at the 95% confidence level.\n' Lineage:\n' Source_Information:\n' Source_Citation:\n' Citation_Information:\n' Originator: Apalachicola National Estuarine Research Reserve\n' Publication_Date: 19980801\n' Title: National Estuarine Research Reserve (NERR) Boundary\n' Edition:\n' Geospatial_Data_Presentation_Form: map\n' P
ublication_Information:\n' Publication_Place: East Point, Florida\n' Publisher: Apalachicola National Estuarine Research Reserve\n' Other_Citation_Details:\n' Source_Scale_Denominator: unknown\n' Type_of_Source_Media: unknown\n' Source_Time_Period_of_Content:\n' Time_Period_Information:\n' Range_of_Dates/Times:\n' Beginning_Date: 19980801\n' Ending_Date: 19980801\n' Source_Currentness_Reference: unknown\n' Source_Citation_Ab
breviation:\n' Source_Contribution: Vector data representing NERR boundaries\n' Process_Step:\n' Process_Description:\n' The original data from the Apalachicola Reserve was converted from an\n' ESRI ARCVIEW shapefile to an ESRI ARCINFO coverage. The\n' coverage was then projected into Universal Transverse\n' Mercator and displayed on a USGS 7.5 minute topographic\n' map. The printed map with the original boundary was sent\n' back to Apalachicola Bay National Est
uarine Research\n' Reserve (NERR) for editing. The NERR edited the boundary by\n' drawing on the printed map using their management plan and\n' research areas for reference. The printed map was sent back\n' to the Coastal Services Center and the digital file was\n' edited to reflect the updates. The corrections were made by\n' on-screen digitizing with the USGS topographic map as the\n' backdrop. Each arc of the boundary file was coded to\n' reflect the change
made and the source and confidence of\n' that change. The coverage was then projected to the final\n' projection used by the individual Reserve.\n' Process_Date: 19990215\n' Process_Contact:\n' Contact_Information:\n' Contact_Person_Primary:\n' Contact_Organization: NOAA Coastal Services Center\n' Contact_Person: PAGIS Specialist\n' Contact_Position: GIS Specialist\n' Contact_Address:\n' Address_Type: mailing and physical addre
ss\n' Address: 2234 South Hobson Ave\n' City: Charleston\n' State_or_Province: South Carolina\n' Postal_Code: 29405\n' Country: USA\n' Contact_Voice_Telephone: 800-789-2234\n' Contact_Facsimile_Telephone: 843-740-1224\n' Contact_Electronic_Mail_Address: gis@csc.noaa.gov\n' Hours_of_Service: Monday-Friday, 8am-5pm, Eastern Standard Time"
)
(Script.68
Name: "DD.Exam_Sec3"
SourceCode: "'Spatial_Data_Organization_Information:\n' Direct_Spatial_Reference_Method: Vector\n' Point_and_Vector_Object_Information:\n' SDTS_Terms_Description:\n' SDTS_Point_and_Vector_Object_Type: Complete Chain\n' Point_and_Vector_Object_Count: 106"
)
(Script.69
Name: "DD.Exam_Sec4"
SourceCode: "'Spatial_Reference_Information:\n' Horizontal_Coordinate_System_Definition:\n' Geographic:\n' Latitude_Resolution: 0.00000083\n' Longitude_Resolution: 0.00000083\n' Geographic_Coordinate_Units: Decimal Degrees\n' Geodetic_Model:\n' Horizontal_Datum_Name: North American Datum of 1927\n' Ellipsoid_Name: Clarke 1866\n' Semi-major_Axis: 20925604.4720406\n' Denominator_of_Flattening_Ratio: 298.26"
)
(Script.70
Name: "DD.Exam_Sec5"
SourceCode: "'Entity_and_Attribute_Information:\n' Detailed_Description:\n' Entity_Type:\n' Entity_Type_Label: apanerrg.aat\n' Entity_Type_Definition: Arc Attribute Table\n' Entity_Type_Definition_Source: None\n' Attribute:\n' Attribute_Label: Fnode#\n' Attribute_Definition: From-node identifier of linear feature\n' Attribute_Definition_Source: Software generated\n' Attribute_Domain_Values:\n' Unrepresentable_Domain: Software computed\n' Attribute:\n' Attribute_Label: Tnode#\n'
Attribute_Definition: To-node identifier of linear feature\n' Attribute_Definition_Source: Software generated\n' Attribute_Domain_Values:\n' Unrepresentable_Domain: Software computed\n' Attribute:\n' Attribute_Label: Lpoly#\n' Attribute_Definition: Internal number of polygon to left of arc\n' Attribute_Definition_Source: Software generated\n' Attribute_Domain_Values:\n' Unrepresentable_Domain: Software computed\n' Attribute:\n' Attribute_Label: Rpoly#\n'
Attribute_Definition: Internal number of polygon to right of arc\n' Attribute_Definition_Source: Software generated\n' Attribute_Domain_Values:\n' Unrepresentable_Domain: Software computed\n' Attribute:\n' Attribute_Label: Length\n' Attribute_Definition: Length of line\n' Attribute_Definition_Source: Software generated\n' Attribute_Domain_Values:\n' Unrepresentable_Domain: Software computed\n' Attribute:\n' Attribute_Label: Apanerrg#\n' Attribute_Definition:
Internal feature number\n' Attribute_Definition_Source: Software generated\n' Attribute_Domain_Values:\n' Unrepresentable_Domain: Software computed\n' Attribute:\n' Attribute_Label: Apanerrg-id\n' Attribute_Definition: Feature identification number\n' Attribute_Definition_Source: Software generated\n' Attribute_Domain_Values:\n' Unrepresentable_Domain: User Defined\n' Attribute:\n' Attribute_Label: Arc-id\n' Attribute_Definition: Unique ID for each arc\n'
Attribute_Definition_Source: none\n' Attribute_Domain_Values:\n' Range_Domain:\n' Range_Domain_Minimum: 11\n' Range_Domain_Maximum: 115\n' Attribute:\n' Attribute_Label: Name\n' Attribute_Definition: Name of Estuarine Reserve\n' Attribute_Definition_Source: none\n' Attribute_Domain_Values:\n' Enumerated_Domain:\n' Enumerated_Domain_Value: APA\n' Enumerated_Domain_Value_Definition: Apalachicola Bay National Estuarine Research Reserve\n'
Enumerated_Domain_Value_Definition_Source: none\n' Attribute:\n' Attribute_Label: Origin\n' Attribute_Definition: Creator of original or edited digital boundary coverage\n' Attribute_Definition_Source: none\n' Attribute_Domain_Values:\n' Enumerated_Domain:\n' Enumerated_Domain_Value: 1\n' Enumerated_Domain_Value_Definition: National Estuarine Research Reserve\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 2\n'
Enumerated_Domain_Value_Definition: Center for Marine Conservation\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 3\n' Enumerated_Domain_Value_Definition: NOAA Coastal Services Center\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 4\n' Enumerated_Domain_Value_Definition: Virginia Institute of Marine Science (VIMS)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Dom
ain_Value: 6\n' Enumerated_Domain_Value_Definition: Rhode Island Department of Environmental Management\n' Enumerated_Domain_Value_Definition_Source: none\n' Attribute:\n' Attribute_Label: Editor\n' Attribute_Definition: Editor of digital file\n' Attribute_Definition_Source: none\n' Attribute_Domain_Values:\n' Enumerated_Domain:\n' Enumerated_Domain_Value: 0\n' Enumerated_Domain_Value_Definition: No edits made\n' Enumerated_Domain_Value_Definit
ion_Source: none\n' Enumerated_Domain_Value: 1\n' Enumerated_Domain_Value_Definition: National Estuarine Research Reserve\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 2\n' Enumerated_Domain_Value_Definition: Coastal Services Center PAGIS GIS Specialist\n' Enumerated_Domain_Value_Definition_Source: none\n' Attribute:\n' Attribute_Label: Status\n' Attribute_Definition: Editing status of arc\n' Attribute_Definition_
Source: none\n' Attribute_Domain_Values:\n' Enumerated_Domain:\n' Enumerated_Domain_Value: 1\n' Enumerated_Domain_Value_Definition: Unchanged\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 2\n' Enumerated_Domain_Value_Definition: Added\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 3\n' Enumerated_Domain_Value_Definition: Changed/Moved\n' Enumerated_Domain_Value_D
efinition_Source: none\n' Enumerated_Domain_Value: 4\n' Enumerated_Domain_Value_Definition: Digitized\n' Enumerated_Domain_Value_Definition_Source: none\n' Attribute:\n' Attribute_Label: Source\n' Attribute_Definition: Physical ground source of new arc location\n' Attribute_Definition_Source: none\n' Attribute_Domain_Values:\n' Enumerated_Domain:\n' Enumerated_Domain_Value: 0\n' Enumerated_Domain_Value_Definition: Not Applicable\n' Enum
erated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 1\n' Enumerated_Domain_Value_Definition: None\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 10\n' Enumerated_Domain_Value_Definition: Road\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 100\n' Enumerated_Domain_Value_Definition: Buffer Areas\n' Enumerated_Domain_Value_Definition_Source: none\n'
Enumerated_Domain_Value: 101\n' Enumerated_Domain_Value_Definition: None (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 11\n' Enumerated_Domain_Value_Definition: River/Bay Edge\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 110\n' Enumerated_Domain_Value_Definition: Road (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value
: 12\n' Enumerated_Domain_Value_Definition: Marsh\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 133\n' Enumerated_Domain_Value_Definition: Railroad (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 136\n' Enumerated_Domain_Value_Definition: Contour Line (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 145\n' En
umerated_Domain_Value_Definition: Tidal Flat (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 147\n' Enumerated_Domain_Value_Definition: Property Line (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 177\n' Enumerated_Domain_Value_Definition: Property Line and Section Line (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_
Value: 200\n' Enumerated_Domain_Value_Definition: Exclusion Areas\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 201\n' Enumerated_Domain_Value_Definition: None (Exclusion area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 212\n' Enumerated_Domain_Value_Definition: Marsh (Exclusion area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 240\n'
Enumerated_Domain_Value_Definition: Stream (Exclusion area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 30\n' Enumerated_Domain_Value_Definition: Section Line\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 301\n' Enumerated_Domain_Value_Definition: Foundation Land (Buffer areas)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 310\n'
Enumerated_Domain_Value_Definition: Foundation Land Road (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 311\n' Enumerated_Domain_Value_Definition: Foundation Land River/Bay Edge (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 33\n' Enumerated_Domain_Value_Definition: Railroad\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value:
330\n' Enumerated_Domain_Value_Definition: Foundation Land Section Line (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 34\n' Enumerated_Domain_Value_Definition: Other linear features\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 341\n' Enumerated_Domain_Value_Definition: Foundation Land Coordinate Graticule (Buffer area)\n' Enumerated_Domain_Value_Definition_Source:
none\n' Enumerated_Domain_Value: 347\n' Enumerated_Domain_Value_Definition: Foundation Land Property Line (Buffer area)\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 36\n' Enumerated_Domain_Value_Definition: Contour Line\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 38\n' Enumerated_Domain_Value_Definition: Beach\n' Enumerated_Domain_Value_Definition_Source: none\n'
Enumerated_Domain_Value: 40\n' Enumerated_Domain_Value_Definition: Stream\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 41\n' Enumerated_Domain_Value_Definition: Coordinate Graticule\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 42\n' Enumerated_Domain_Value_Definition: Trail\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 43\n'
Enumerated_Domain_Value_Definition: County Line\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 44\n' Enumerated_Domain_Value_Definition: Park Boundary\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 45\n' Enumerated_Domain_Value_Definition: Tidal Flat\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 48\n' Enumerated_Domain_Value_Definition: Cann
el/Bayou\n' Enumerated_Domain_Value_Definition_Source: none\n' Attribute:\n' Attribute_Label: Confidence\n' Attribute_Definition: Confidence level of move or edit\n' Attribute_Definition_Source: none\n' Attribute_Domain_Values:\n' Enumerated_Domain:\n' Enumerated_Domain_Value: 0\n' Enumerated_Domain_Value_Definition: Not Applicable\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 1\n' Enumerated_Domain_Valu
e_Definition:\n' Low: Not a good delineation by NERR or NERR was not\n' confident about boundary line\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 2\n' Enumerated_Domain_Value_Definition: Medium: Actual ground feature not clear on basemap\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 3\n' Enumerated_Domain_Value_Definition: High: Delineation good and ground source clearly vi
sible\n' Enumerated_Domain_Value_Definition_Source: none\n' Attribute:\n' Attribute_Label: Scale\n' Attribute_Definition: Scale of basemap used for editing\n' Attribute_Definition_Source: none\n' Attribute_Domain_Values:\n' Enumerated_Domain:\n' Enumerated_Domain_Value: 0\n' Enumerated_Domain_Value_Definition: Unknown\n' Enumerated_Domain_Value_Definition_Source: none\n' Enumerated_Domain_Value: 1\n' Enumerated_Domain_Value_Definition:
1:24000\n' Enumerated_Domain_Value_Definition_Source: none"
)
(Script.71
Name: "DD.Exam_Sec6"
SourceCode: "'Distribution_Information:\n' Distributor:\n' Contact_Information:\n' Contact_Organization_Primary:\n' Contact_Organization: NOAA Coastal Services Center\n' Contact_Person: PAGIS Specialist\n' Contact_Position: GIS Specialist\n' Contact_Address:\n' Address_Type: mailing and physical address\n' Address: 2234 South Hobson Ave\n' City: Charleston\n' State_or_Province: South Carolina\n' Postal_Code: 29405\n' Country: USA\n' Contact_Voice_Telephon
e: 800-789-2234\n' Contact_Facsimile_Telephone: 843-740-1224\n' Contact_Electronic_Mail_Address: gis@csc.noaa.gov\n' Hours_of_Service: Monday-Friday, 8am-5pm, Eastern Standard Time\n' Resource_Description:\n' The Estuarine Research Reserve boundary was compiled as\n' part of the PAGIS project.\n' Distribution_Liability:\n' Users must assume responsibility to determine the\n' appropriate use of these data.\n' The boundary is not to be used for a LEGAL definition.\n' Please contact the
individual Estuarine Research Reserve\n' for more detailed information if required.\n' Custom_Order_Process:\n' Contact NOAA Coastal Services Center PAGIS Specialist for a\n' printed copy of the boundary map or for an ESRI coverage or\n' shapefile of the boundary."
)
(Script.72
Name: "DD.Exam_Sec7"
SourceCode: "'Metadata_Reference_Information:\n' Metadata_Date: 19990225\n' Metadata_Review_Date: 1990225\n' Metadata_Contact:\n' Contact_Information:\n' Contact_Organization_Primary:\n' Contact_Organization: NOAA Coastal Services Center\n' Contact_Person: Metadata Specialist\n' Contact_Position: Metadata Specialist\n' Contact_Address:\n' Address_Type: Mailing and physical address\n' Address: 2234 South Hobson Ave\n' City: Charleston\n' State_or_Province: South Carolina\n
' Postal_Code: 29405\n' Country: USA\n' Contact_Voice_Telephone: 800-789-2234\n' Contact_Facsimile_Telephone: 843-740-1224\n' Contact_Electronic_Mail_Address: metadata@csc.noaa.gov\n' Hours_of_Service: Monday-Friday, 8am-5pm, Eastern Standard Time\n' Metadata_Standard_Name: FGDC CSDGM\n' Metadata_Standard_Version: FGDC-STD-001-1998"
)
(Script.73
Name: "DD.FGDC_Link"
SourceCode: "'hotlink field should be coded: www.csc.noaa.gov/whatever\n\n'Setup DLL file objects\nif (System.GetOSVariant = #SYSTEM_OSVARIANT_MSWNT) then\n dllShell32 = DLL.Make(\"c:\\winnt\\system32\\shell32.dll\".AsFileName)\n dllUser32 = DLL.Make(\"c:\\winnt\\system32\\user32.dll\".AsFileName)\nElseif (System.GetOSVariant = #SYSTEM_OSVARIANT_MSW95) then\n dllShell32 = DLL.Make(\"c:\\windows\\system\\shell32.dll\".AsFileName)\n dllUser32 = DLL.Make(\"c:\\windows\\system\\user32.dll\".AsFileName)\nElse\n MsgBox.Warning(\"Required DLL files can
not be found.\",\"Exiting\")\n return Nil\nEnd\n\n'Setup Win32API functions as Avenue DLLProc objects\ndpGetActiveWindow = DLLProc.Make(dllUser32, \"GetActiveWindow\",#DLLPROC_TYPE_INT32, {})\ndpShellExecute = DLLProc.Make(dllShell32, \"ShellExecuteA\",#DLLPROC_TYPE_INT32,\n {#DLLPROC_TYPE_INT32,#DLLPROC_TYPE_STR,#DLLPROC_TYPE_STR,#DLLPROC_TYPE_STR,#DLLPROC_TYPE_STR,#DLLPROC_TYPE_INT32})\n\n'Get the Window Handle (hWnd) of the ArcView window.\nhWnd_active = dpGetActiveWindow.Call({})\n\n'Get the WWW URL for Hotlinking from
the active theme's hotlink field.\nhotlinkVal = \"http://www.fgdc.gov\"\n\n'Send the URL to the default browser\nretValue = dpShellExecute.Call({hWnd_active,\"Open\",hotlinkVal,\"\",FileName.GetCWD.AsString,1})\n\n'Let the user know if the link failed. The \"ShwllExecuteA function returns an integer\n'greater than 32 if the process succeeded.\nif (retValue <= 32) then\n MsgBox.Warning(\"Hotlink to Web failed.\",\"Sorry\")\nEnd"
)
(Script.74
Name: "DD.FindFile"
SourceCode: "'Create the new MetaData File\n'Edited on 5/12/99 to make default name the srcName not the theme name\nft = \"\"\nif (_theType = \"Coverage\") then\n if (_shpClass = \"Point\") then\n ft = \"pt\"\n elseif (_shpClass = \"Polygon\") then\n ft = \"p\"\n elseif (_shpClass = \"Polyline\") then\n ft = \"l\"\n end\nelse\n ft = \"\"\nend\n\n'Create default file name for output Metadata\nd = _theTheme.GetSrcName.GetDataSource.AsFileName\ntheE = d.GetExtension\ndSub = d.AsString.Substitute(\".\"+theE,\"\")\nFilestr = dSub+ft+\".met\"\nthemeExten
= _theTheme.GetSrcName.GetDataSource.AsFileName.GetExtension\nthemeName = _theTheme.GetSrcName.AsString.Substitute(\".\"+themeExten,\"\")\nmetaName = themeName.AsString+ft+\".met\"\n\nthemePath = _theTheme.GetSrcName.GetFileName.GetFullName.AsFileName\ntheBase = themePath.GetBaseName.AsString\nthePath = themePath.AsString.substitute(theBase,\"\")\nthePath.AsFileName.SetCWD\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"Select Metadata file\")\nif(outFile = NIL) then\n system.beep\n exit\nend\n\n\n'create Metadata and HTML fi
le, outFile\n_MetaFile = LineFile.Make(outFile, #FILE_PERM_WRITE)"
)
(Script.75
Name: "DD.Get_Help"
SourceCode: "s = av.FindScript(\"DD.Meta_Help\")\nsSource = s.AsString\nsTokes = sSource.AsTokens(NL)\n'Determine path delemiter for creating new files\nif (System.GetOS = #SYSTEM_OS_UNIX) then\n pathDel = \"/\"\nend\nif (System.GetOS = #SYSTEM_OS_MAC) then\n pathDel = \":\"\nend\nif (System.GetOS = #SYSTEM_OS_MSW) then\n pathDel = \"\\\"\nend\n\nhelpStr = \"\"\ntFile = av.GetProject.GetWorkDir.AsString+pathDel+\"xxtmp.text\"\ntmpFile = LineFile.Make(tFile.AsFileName,#FILE_PERM_WRITE)\nfor each s in sTokes\n tmpFile.WriteElt(s.Substitute(\"'\",\"\"))
\nend\ntmpFile.Close\ntextWin.Make(tFile.AsFileName,\"Metadata Collector Help\").Open\nif (File.Exists(tFile.AsFileName)) then\n File.Delete(tFile.AsFileName)\nend"
)
(Script.76
Name: "DD.GetCoords"
SourceCode: "Script.The.SetNumberFormat(\"d.dddd\")\n'Retrieve the Spatial Domain in Decimal Degrees if the User wants them in Decimal Degrees\n\n'Get the current source units and make sure they are not unknown\n\nif (_sourceunits <> #UNITS_LINEAR_DEGREES) then 'the coordinates will have to be projected\n inputPrj = NIL\n 'Get the projection of the view\n myprj=av.getactivedoc.getprojection\n getprj = true\n While (getprj = true)\n if (inputPrj = NIL) then 'if projection info not determined from prj.adf, get the Projection
\n Msgbox.Info(\"Please select the input projection\"++\n \"for Decimal Degree Conversion.\"+NL+\"This information will be used to complete Section 4.\",\"Projector!\")\n inputPrj = av.Run(\"DD.DoProjection\",{})\n if (inputPrj = NIL) then\n getprj = MsgBox.YesNo(\"You must select the input projection to output coordinates in Decimal Degrees. Do you want to enter input Projection?\",\"Input Projection\",true)\n if (getprj = false) then\n getprj = false\n end\n el
se\n getprj = false\n end\n end 'Gathering input projection information\n end 'while loop checking for projection\nelse\n inputPrj = NIL\nend' end for checking if the input projection is NOT Geographic\n\nif ((_sourceunits <> #UNITS_LINEAR_DEGREES) and (inputPrj <> NIL)) then\n 'set the output projection to GEOGRAPIC\n outputunits = #UNITS_LINEAR_DEGREES\n outputPrj = prj.MakeNull\n outputPrj.SetDescription(\"Geographic\")\n outputgeographic = true\n if (outputPrj = nil) then\n return nil\n end\n ou
tputgeographic = outputPrj.ReturnDescription.Contains(\"Geographic\")\n \n thm = _theTheme\n wd = av.GetProject.GetWorkDir\n wd.SetCWD\n tempshape = Filename.GetCWD.MakeTmp(\"zxyprj\",\"shp\")\n theExt = thm.ReturnExtent\n \n upy = theExt.GetTop\n lowY = theExt.GetBottom\n east = theExt.GetRight\n west = theExt.GetLeft \n myFTab = FTab.MakeNew(\"zxyfile.dbf\".AsFileName, POINT )\n shapeF = myFTab.FindField(\"shape\")\n idField = Field.Make(\"ID\",#FIELD_DECIMAL,5,0)\n myFTab.AddFields({idField})\n id = myFTab.FindFiel
d(\"ID\")\n newRec = myFTab.Addrecord\n myFTab.SetValue(shapeF, newRec, east@upy)\n myFTab.SetValue(idField, newRec, 1)\n newRec = myFTab.Addrecord\n myFTab.SetValue(shapeF, newRec,west@upY)\n myFTab.SetValue(idField, newRec, 2)\n newRec = myFTab.Addrecord\n myFTab.SetValue(shapeF,newRec,east@lowY)\n myFTab.SetValue(idField, newRec, 3)\n newRec = myFTab.Addrecord\n myFTab.SetValue(shapeF,newRec,west@lowY)\n myFTab.SetValue(idField, newRec, 4) \n \n 'now export the ftab (selected records only), \n \n thmftab =
myFTab\n shapetype = thmftab.FindField(\"Shape\").GetType\n \n if (outputgeographic) then\n tempFtab = thmFtab.ExportUnprojected(tempshape,inputPrj,\n thmFtab.GetSelection.Count >0)\n temptheme = FTheme.Make(tempFtab)\n newExt = tempTheme.ReturnExtent\n _north = newExt.Gettop.AsString\n _south = newExt.Getbottom.AsString\n _east = newExt.GetRight.AsString\n _west = newExt.GetLeft.AsString\n \n _bndCoords = _north.AsString+\",\"+_south.AsString+\",\"+_east.AsString+\",\"+_west.A
sString\n 'av.FindDialog(\"Sec1.CoordRep\").FindByName(\"Sec1_TBoxCoordRep\").SetText(\"\")\n tokes = _bndCoords.AsTokens(\",\") \n theStr = \"North: \"+tokes.Get(0)+NL+\"South: \"+tokes.Get(1)+NL+\"East: \"+tokes.Get(2)+NL+\"West: \"+tokes.Get(3)\n 'av.FindDialog(\"Sec1.CoordRep\").FindByName(\"Sec1_TBoxCoordRep\").SetText(theStr)\n\n tempftab.DeActivate\n tempftab = nil\n myFTab.DeActivate\n av.PurgeObjects\n tempshpname = tempshape.GetBaseName.AsTokens(\".\").Get(0)\n tempshpdir = tempshape.GetFullName.Clon
e.AsFilename\n tempshpdir.Stripfile\n filesToDelete = tempshpdir.Readfiles(tempshpname+\".*\")\n \n tempdir = av.getproject.getworkdir\n mofilesToDelete = tempdir.Readfiles(\"zxy\"+\"*\"+\".*\")\n \n for each f in filesToDelete\n File.Delete(f)\n end\n for each f in mofilesToDelete\n File.Delete(f)\n end\n end\n \nelse 'meaning the data is already in Decimal Degrees or you don't want to convert to DD\n\n thm = _theTheme\n theExt = thm.ReturnExtent\n\n _north = theExt.GetTop.AsString\n _south = theExt
.GetBottom.AsString\n _east = theExt.GetRight.AsString\n _west = theExt.GetLeft.AsString\n _bndCoords = _north.AsString+\",\"+_south.AsString+\",\"+_east.AsString+\",\"+_west.AsString \n tokes = _bndCoords.AsTokens(\",\") \n theStr = \"North: \"+tokes.Get(0)+NL+\"South: \"+tokes.Get(1)+NL+\"East: \"+tokes.Get(2)+NL+\"West: \"+tokes.Get(3)\nend 'for checking for Decimal Degrees"
)
(Script.77
Name: "DD.Help_Sec1"
SourceCode: "'Publication Information \n'\n' Citation Information [You may save this information to be used in other sections or \n' other metadata files.]\n' \n' Title: A quality title includes the topic, time and place. [E.g., Vectorized Shoreline of \n' Alabama Derived from NOAA-NOS Topographic Sheets Developed from 1983 to 1988] \n' \n' Edition: Version of the title. \n' \n' Originators: Organization or individual that developed the data set. \n' [This field may be repeated unlimited times where applicable
.]\n' \n' Publication_Date: Date when the data set was (or is to be) made available. [All dates must \n' be in the YYYYMMDD format.]\n' \n' Publication_Place: City where the data set was published or released. \n' [State or province and country should be used when necessary to distinguish the city.] \n' \n' Publisher: Individual or organization that published the data set. \n' \n' Online_Linkage: On-line computer resource that contains the data set. \n' Entries should f
ollow the Uniform Resource Locator (URL) convention of the Internet. \n' [E.g., http://www.csc.noaa.gov/products/shorelines/alshrl.htm]\n' \n' Larger Work Citation \n'\n' Larger_Work_Title: The title of a larger work in which the data \n' set is included (if applicable). \n' \n' Larger_Work_Originator: Organization or individual that developed the larger work.\n' \n' Larger_Work_Publication_Date: Date when the larger work was (or is to be) made available.\n' [YYYYMMDD] \n'
\n' Larger_Work_Publication_Place: City where the data set was published. [State or province\n' and country should be used when necessary to distinguish the city.]\n' \n' Larger_Work_Publisher: Individual or organization that published the \n' larger work. \n' \n' Larger_Work_Online_Linkage: On-line computer resource that contains the larger work.\n' \n' Other Citation Details \n'\n' Other_Citation_Details: Any other information that is required to complete the citation. \n'\n'
Description \n'\n' Abstract: Brief narrative summary of the data set and, if applicable, larger project.\n' \n' Purpose: Summary of the reasons for which the data set was developed. \n' \n' Supplemental_Information: Other descriptive information about the data set. \n' \n' Time Period of Content \n' \n' Beginning_Date: First date of the event. [YYYYMMDD]\n' \n' Ending_Date: Last date of the event. [YYYYMMDD] \n' \n' Currentness_Reference: Basis on which the time period of con
tent information is determined. \n' [Values may be \"ground condition,\" \"publication date,\" or, if necessary, free text.]\n' \n' Status of the Data Set \n'\n' Progress: State of the data set. [Values may be \"Complete,\" \"In work,\" or \"Planned.\"]\n' \n' Maintenance_and_Update_Frequency: Frequency with which changes and additions are made \n' to the data set after the initial data set is completed. \n' [Values may be \"Continually,\" \"Daily,\" \"Weekly,\" \"Monthly,\" \"Annually,\" \"Unknown,\" \n' \"As Ne
eded,\" \"Irregular,\" or \"None Planned.\"] \n' \n' Keywords \n' \n' Theme_Keyword: Common-use word or phrase used to describe the subject of the data set. \n' [This field can be repeated. Please provide a variety of descriptive keywords, \n' acronyms, and their definitions.] \n'\n' Place_Keyword: Geographic name of a location covered by a data set. [This field \n' may be repeated as many times as necessary.]\n' \n' Constraints\n'\n' Access_Constraints: Restrictions and legal prerequisite
s for accessing the data set. \n' \n' Use_Constraints: Restrictions and legal prerequisites for using the data set after \n' access is granted. \n' \n' Contact Information \n' \n' Contact_Organization: Organization to contact to gain information about the data set. \n'\n' Contact_Person: Individual associated with the data set. \n'\n' Contact_Position: Title of individual associated with the data set. \n'\n' Address: Street address or postal box for the contact organization or person.\n'\n' City
: City of the address. \n' \n' State_or_Province: State or province of the address. \n' \n' Postal_Code: ZIP or other postal code of the address. \n' \n' Country: the Country of the address. \n' \n' Contact_Voice_Telephone: Telephone number for the contact organization or individual. \n' \n' Contact_Facsimile_Telephone: Number of facsimile machine of the organization or \n' individual. \n' \n' Contact_Electronic_Mail_Address: Electronic mail address for the
organization or \n' individual. \n' \n' Hours_of_Service: Time period when individuals can speak to the organization or \n' individual. "
)
(Script.78
Name: "DD.Help_Sec2"
SourceCode: "'Data Quality Information [Quality and other information can be provided in the form of \n' browse graphics, or through on-line services. To provide non-textual information, \n' furnish the URL of the graphic or service at the appropriate place in the \n' quality report.]\n'\n' Attribute Accuracy\n' \n' Attribute_Accuracy_Report: Explanation of the accuracy of the \n' identification of the entities and assignments of values in the data set\n' and a description of the tests used. [E.g., Attribute accuracy
is tested by \n' manually comparing hard copy plots of the digital data with the source\n' materials. When attributes cannot be visually verified on plots they are\n' interactively queried and verified on the screen. The attributes are also\n' compared against a master set of valid attributes.]\n' \n' Logical_Consistency_Report: Explanation of the fidelity of relationships in\n' the data set and tests used. Logical Consistency Report is a statement regarding\n' errors such as: duplicat
e features, polygonal features beginning and ending at\n' the same point, no overshoots or undershoots, no dangling arcs (unless required)\n' and single labels. \n' \n' Completeness_Report: Information about omissions, selection criteria, generalization,\n' definitions used, and other rules used to derive the data set. A quality report\n' shall include information about selection criteria, definitions used and other\n' relevant mapping rules. [E.g., geometric thresholds such as minimum are
a or\n' minimum width shall be reported.]\n' \n' Positional Accuracy\n' \n' Horizontal_Positional_Accuracy_Report: Estimate of accuracy of the horizontal\n' positions of the spatial objects; explanation of the accuracy of the horizontal\n' coordinate measurements and a description of the tests used. **Horizontal \n' Positional Accuracy is tested by visual comparison of hard copy check \n' plots against source materials and verifying the location of the data \n' on screen relative to other
data layers in the geographic area.\n' \n' Vertical_Positional_Accuracy_Report: Explanation of the accuracy of the vertical \n' coordinate measurements and a description of the tests used. \n'\n'Lineage [Information about the events, parameters, and source data that constructed \n' the data set, and information about the responsible parties. This section may \n' be repeated as many times as applicable.]\n'\n' Source Citation\n'\n' Title: Name by which the source data set is known. \n' \n' Edition: Vers
ion of the title. \n' \n' Originator: Organization or individual that developed the source data set.\n' \n' Publication_Date: Date when the source was (or is to be) made available. [YYYYMMDD]\n' \n' Publication_Place: City where the source data set was published. [State or province\n' and country should be used when necessary to distinguish the city.]\n' \n' Publisher: Individual or organization that published the source data set. \n' \n' Onlin
e_Linkage: On-line computer resource that contains the data set. \n' \n'Lineage Larger Work Information\n' \n' Larger_Work_Originator: Organization or individual that developed the larger work.\n' \n' Larger_Work_Publication_Date: Date when the lineage's larger work was (or is to be) \n' made available. [YYYYMMDD]\n' \n' Larger_Work_Title: Information identifying the lineage's larger work. \n'\n' Larger_Work_Publication_Place: City where the data set was publish
ed. [State or province\n' and country should be used when necessary to distinguish the city.]\n' \n' Larger_Work_Publisher: Individual or organization that published the larger work. \n' \n' Larger_Work_Online_Linkage: On-line computer resource that contains the lineage's \n' larger work. [URL]\n'\n' Lineage Citation\n'\n' Other_Citation_Details: Other information required to complete the source citation. \n' \n' Source_Scale_Denominator: Denominator of the representative
fraction on a map. \n' [E.g., 1:24000]\n' \n' Type_of_Source_Media: Medium of the source data set. [Values may be \"paper,\" \n' \"stable-base material,\" \"microfiche,\" \"microfilm,\" audiocassette,\" \"chart,\" \n' \"filmstrip,\" \"transparency,\" \"videocassette,\" \"videodisc,\" \"videotape,\" \n' \"physical model,\" \"computer program,\" \"disc,\" \"cartridge tape,\" \"magnetic tape,\" \n' \"on-line,\" \"CD-ROM,\" \"electronic bulletin board,\" \"electronic mail system,\" \n' or, if necessary, free text.] \n'
\n' Source's Time Period of Content\n' \n' Beginning_Date: Beginning date for which the source data corresponds to the \n' ground. [YYYYMMDD]\n' \n' Ending_Date: Ending date for which the source data corresponds to the ground. \n' [YYYYMMDD]\n' \n' Source_Currentness_Reference: Basis on which the source time period of content \n' information of the source data set is determined. [Values may be \"ground \n' condition,\" \"publication date,\" or, if necessary, free text.]\n'
\n' Source_Citation_Abbreviation: Short-form alias for the source citation. \n' \n' Source_Contribution: Brief statement identifying the information contributed by the \n' source to the data set. \n' \n'Process Step [This section may be repeated as many times as necessary.] \n' \n' Process_Step_Description: Explanation of the event and related parameters or \n' tolerances. Each processing step taken in the creation of the database should be \n' documented (E.g., data manipula
tion, statistical tests, etc.).\n' \n' Source_Used_Citation_Abbreviation: The Source_Citation_Abbreviation (2.5.1.5) of a\n' data set used in the processing step.\n' \n' Process_Date: Date the process step was performed. [YYYYMMDD]\n' \n' Source_Produced_Citation_Abbreviation: The Source_Citation_Abbreviation (2.5.1.5) of\n' a data set that\n \n' Contact_Organization: Organization associated with the process step. \n' \n' Contact_Person: Individual associated with the proc
ess step.\n' \n' Contact_Position: Title of individual associated with the process step.\n' \n' Address: Street or postal box for the process contact. \n' \n' City: City of the address. \n' \n' State_or_Province: State or province of the address. \n' \n' Postal_Code: ZIP or other postal code of the address. \n' \n' Country: Country of the address. \n' \n' Contact_Voice_Telephone: Telephone number for the contact organi
zation or individual.\n' \n' Contact_Facsimile_Telephone: Number of facsimile machine of the organization or \n' individual. \n' \n' Contact_Electronic_Mail_Address: Electronic mail address for the organization or \n' individual. \n' \n' Hours_of_Service: Time period when individuals can speak to the organization or \n' individual.\n"
)
(Script.79
Name: "DD.Help_Sec3"
SourceCode: "'Spatial Data Organization Information\n' \n' ****THE INFORMATION IN THIS SECTION WILL BE AUTOMATICALLY GENERATED.***\n'\n'Section Output:\n'\n' Direct_Spatial_Reference_Method: System of objects used to represent\n' space in the data set. [Values may be \"Point,\" \"Vector,\" or \"Raster.\"]\n' \n' SDTS_Point_and_Vector_Object_Type: Name of point and vector spatial objects \n' used to locate zero-, one-, and two-dimensional spatial locations \n' in the data set.\n' \n' Point_and_Vector_O
bject_Count: Total number of the point or\n' vector object type occurring in the data set.\n' \n' Raster_Object_Information: Types and numbers of raster spatial objects\n' in the data set.\n' \n' Raster_Object_Type: Raster spatial objects used to loacate zero-, two-, or\n' three-dimensional locations in the data set.\n' \n' Row_Count: Maximum number of raster objects along the ordinate (y) axis.\n' \n' Column_Count: Maximum number of raster objects along the abscissa (x) axis.\n"
)
(Script.80
Name: "DD.Help_Sec4"
SourceCode: "'Spatial Reference Information\n' \n' **** Note: If map units are in decimal degrees, input questions will be different \n' than if map units are not in decimal degrees. ****\n'\n'Decimal Degree Projections\n'\n' Latitude_Resolution: Minimum difference between two adjacent latitude \n' values expressed in Geographic Coordinate Units of measure.\n'\n' Longitude_Resolution: Minimum difference between two adjacent longitude \n' values expressed in Geographic Coordinate Units of measure.\n'\n' Geogr
aphic_Coordinate_Units: Units of measure used for the latitude and \n' longitude values. [This section will be automatically generated.]\n'\n'Non-Decimal Degree Projections\n'\n' Horizontal_Coordinate_Definition: Reference frame or system from\n' linear or angular quantities are measured and assigned to the position\n' that a point occupies. [This section is automatically populated based\n' on projection set at the end of Section 1.]\n' \n' Planar_Coordinate_Encoding_Method: Means use
d to represent horizontal\n' positions. [Values may be \"coordinate pair\" or \"row and column.\"]\n' \n' Abscissa_Resolution: Minimum difference between two adjacent latitude values \n' expressed in Geographic Coordinate Units of measure. \n' \n' Ordinate_Resolution: Minimum difference between two adjacent longitude values \n' expressed in Geographic Coordinate Units of measure. \n' \n' Planar_Distance_Units: Units of measure used for distances.\n'\n' Geodetic M
odel [Parameters for the shape of the earth.]\n' \n' Horizontal_Datum_Name: Identification given to the reference system\n' used for defining the coordinates of points. [If applicable datum is not \n' available, choose \"other\" and enter datum name when prompted.]\n' \n' Ellipsoid_Name: Identification given to established representations of\n' the earth's shape. [If a predefined datum is chosen, this information will be\n' automatically entered.]\n' \n' Semi-major_Axis: Radiu
s of the equatorial axis of the ellipsoid. \n' [If a predefined datum is chosen, this information will be automatically entered.]\n' \n' Denominator_of_Flattening_Ratio: Denominator of the ratio of the \n' difference between the equatorial and polar radii of the ellipsoid\n' when the numerator is set to 1. [If a predefined datum is chosen, this \n' information will be automatically entered.]\n"
)
(Script.81
Name: "DD.Help_Sec5"
SourceCode: "'Entity and Attribute Information [In this section, a detailed description, \n' an overview description or both types of descriptions may be created. \n' It is highly recommended that you create a detailed description, if applicable.] \n'\n' Detailed Description\n'\n' Attribute_Label: Name of the attribute [The tool automatically pulls the attribute \n' label out of your data set.]\n'\n' Attribute_Definition: Description of the attribute. \n'\n' Attribute_Definition_Source: Authority of the definition.\n'\n'
Attribute_Domain_Values: Valid values that can be assigned for an attribute.\n' [This value needs to be selected from the drop-down list. Once the domain type \n' has been selected, it will prompt you to fill in the value information (if needed).\n' Values from which to choose: \n' Enumerated_Domain: Members of an established set of valid values. \n' Range_Domain: the Minimum and maximum values of a continuum of valid values.\n' Codeset_Domain: Reference to a standard or list th
at contains the members of\n' an established set of valid values.\n' Unrepresentable_Domain: Description of the values and reasons why they cannot\n' be represented. \n'\n' ***Special Note:\n' Enumerated_Domain values and definitions can be extracted from an existing \n' look-up table. The file needs to contain three fields, as follows:\n' Field1: Name = Source; this contains the source of the look-up table.\n' Field2: Name = Attr_val; this is the value in the attribute table.\n' Field3: Name =
Val_def; this is the definition of the value.\n'\n' You can use this tool to create this look-up table.]\n'\n' Overview Description\n'\n' Entity_and_Attribute_Overview: Details about the information content of the \n' data set, including the entity types, their attributes, and the domains \n' from which attribute values may be assigned. [Detailed summary of the \n' information contained in a data set.] \n'\n' Entity_and_Attribute_Detail_Citation: Reference to the complete description \n' of the e
ntity types, attributes, and attribute values for the data set.\n'\n'\n'\n' \n' \n' \n'\n"
)
(Script.82
Name: "DD.Help_Sec6"
SourceCode: "'Distribution Information: information about the distributor of and options\n' for obtaining the data set.\n'\n'Distributor: Party from whom the data set may be obtained.\n' \n' Contact Information \n' \n' Contact_Organization: Organization to contact to obtain the data set. \n'\n' Contact_Person: Individual associated with distributing the data set. \n'\n' Contact_Position: Title of individual associated with distributing the data set. \n'\n' Address: Street address or postal box for the contact orga
nization or person.\n'\n' City: the City of the address. \n' \n' State_or_Province: State or province of the address. \n' \n' Postal_Code: ZIP or other postal code of the address. \n' \n' Country: Country of the address. \n' \n' Contact_Voice_Telephone: Telephone number for the contact organization or \n' individual. \n' \n' Contact_Facsimile_Telephone: Number of facsimile machine of the organization or \n' individual. \n' \n' Contact_Electronic_Mail_Add
ress: Electronic mail address for the organization or \n' individual. \n' \n' Hours_of_Service: Time period when individuals can speak to the organization or \n' individual. \n'\n' \n' Resource_Description: Identifier by which the distributor knows the data set. \n' \n' Distribution_Liability: Statement of the liability assumed by the distributor. \n' \n' \n' Standard Order Process: Common ways in which the data set may be obtained\n' or received, and related instructions and fee info
rmation.\n' \n' Non-digital_Form: Description of options for obtaining the data set on\n' non-computer-compatible media.\n' \n' Digital_Transfer_Information: Description of the form of the data to be\n' distributed.\n' Format_Name: Name of the data transfer format.\n' Offline_Media: Name of the media on which the data set can be received.\n' Recording_Format: Options available or method used to write the data\n' set to the medium.\n' Compatibility_Information: Description of
other limitations or requirements\n' for using the medium.\n' \n' Fees: Fees and terms for retrieving the data set.\n' \n' Ordering_Instructions: General instructions and advice about, and special\n' terms and services provided for, the data set by the distributor. \n'\n' Custom_Order_Process: Description of custom distribution services available, \n' and the terms and conditions for obtaining these services. \n"
)
(Script.83
Name: "DD.Help_Sec7"
SourceCode: "'Metadata Reference Information\n' \n' Metadata_Date: Date that the metadata were created or last updated. [YYYYMMDD]\n' \n' Metadata_Review_Date: Date of the latest review of the metadata entry. \n' [YYYYMMDD]\n' \n' Metadata Contact Information \n' \n' Contact_Organization: Name of the organization to contact to gain information \n' about the metadata. \n'\n' Contact_Person: Name of the individual associated with the metadata. \n'\n' Contact_Position: Title of individual associated wit
h the metadata. \n'\n' Address: Street address or postal box for the contact organization or person.\n'\n' City: City of the address. \n' \n' State_or_Province: State or province of the address. \n' \n' Postal_Code: ZIP or other postal code of the address. \n' \n' Country: Country of the address. \n' \n' Contact_Voice_Telephone: Telephone number for the contact organization or \n' individual. \n' \n' Contact_Facsimile_Telephone: Number of facsimile machine of the
organization or \n' individual. \n' \n' Contact_Electronic_Mail_Address: Electronic mail address for the organization or \n' individual. \n' \n' Hours_of_Service: Time period when individuals can speak to the organization or \n' individual. \n'\n' Standard Information\n'\n' Metadata_Standard_Name: Name of the metadata standard used to \n' document the data set. [Automatically populated by collector.]\n' \n' Metadata_Standard_Version: Identification of the version of the metadata\n'
standard used to document the data set. [Automatically populated by collector.]\n"
)
(Script.84
Name: "DD.Load_String"
SourceCode: "s1 = Self.Get(0).Trim\ns2 = Self.Get(1)\ns3 = NIL\ns4 = NIL\nif (Self.Count > 2) then\n if (Self.Get(2) <> NIL) then\n s3 = Self.Get(2)\n end\nend\nif (Self.Count > 3) then\n if (Self.Get(3) <> NIL) then\n s4 = Self.Get(3)\n end\nend\n\n's4 = Self.Get(3)\nif (s1.Contains(\":\")) then\n if (s1.AsTokens(\":\").Count > 1) then ' We got something\n s1 = s1.AsTokens(\":\").Get(1).Trim\n else\n s1 = \"\"\n end\nend\n\nif (s2.Contains(\":\").NOT) then 'we got something\n s = s1++s2.Trim\nelse\n s = s1\nend\n\nif (s3 <> NIL) then\n i
f (s3.Contains(\":\").NOT) then 'we got something\n s = s + \" \" + s3.Trim\n end\nend\nif (s4 <> NIL) then\n if (s4.Contains(\":\").NOT) then 'we got something\n s = s + \" \" + s4.Trim\n end\nend\nreturn s"
)
(Script.85
Name: "DD.Load_Text"
SourceCode: "theTheme = av.GetActiveDoc.GetActiveThemes.Get(0)\n'sName = theTheme.GetSrcName.GetDataSource.AsString\n'if (sName.Contains(\".shp\")) then\n' metName = sName.Substitute(\".shp\",\".met\")\n'else\n' metName = sName + \".met\"\n'end\n\nif (theTheme.Is(FTHEME)) then\n theClass = theTheme.GetSrcName.GetSubName\n theFTab = theTheme.GetFTab\n numRec = theFTab.GetNumRecords\n if (theClass = \"Point\") then\n refMeth = \"Point\"\n else\n refMeth = \"Vector\"\n end\n theATab = theFTab.AsString\n if (theATab.Contains(\".dbf\")) then\n
theType = \"Shapefile\"\n elseif ((theATab.Contains(\".dxf\")) or (theATab.Contains(\".dwg\"))) then\n theType = \"DXFfile\"\n else\n theType = \"Coverage\"\n end\nelseif (theTheme.Is(ITHEME)) then\n theClass = \"Image\"\n theType = \"Image\"\n refMeth = \"Raster\"\nelse\n if (theTheme.GetGrid.GetSrcName.AsString <> NIL) then ' theTheme is a GRID\n theClass = \"Grid\"\n theType = \"Grid\"\n refMeth = \"Raster\"\n end\nend\n\nif ((refMeth = \"Vector\") or (refMeth = \"Point\")) then\n theFTab = theTheme.GetFTab\n shpClass =
theFTab.GetShapeClass.GetClassName\n tName = theTheme.GetSrcName.AsString\nelseif (theClass = \"Grid\") then\n tName = theTheme.GetSrcName.AsString\n if (theTheme.HasTable) then\n theFTab = theTheme.GetVTab\n else\n theFTab = NIL\n end\nelseif (theClass = \"Image\") then\n theFTab = NIL\nend\n\nft = \"\"\nif (theType = \"Coverage\") then\n if (shpClass = \"Point\") then\n ft = \"pt\"\n elseif (shpClass = \"Polygon\") then\n ft = \"p\"\n elseif (shpClass = \"Polyline\") then\n ft = \"l\"\n end\nelse\n ft = \"\"\nend\n\n'Create de
fault file name for output Metadata\nd = theTheme.GetSrcName.GetDataSource.AsFileName\ntheE = d.GetExtension\ndSub = d.AsString.Substitute(\".\"+theE,\"\")\nFilestr = dSub+ft+\".met\"\nthemeExten = theTheme.GetSrcName.GetDataSource.AsFileName.GetExtension\nthemeName = theTheme.GetSrcName.AsString.Substitute(\".\"+themeExten,\"\")\nmetaName = themeName.AsString+ft+\".met\"\n\nthemePath = theTheme.GetSrcName.GetFileName.GetFullName.AsFileName\ntheBase = themePath.GetBaseName.AsString\nthePath = themePath.AsString.substitute(theBase
,\"\")\nmetaName = thePath+metaName\nif (File.Exists(metaName.AsFileName).Not) then\n thePats = {\"*.met\",\"*.*\"}\n theLabs = {\"Metadata Files(*.met)\",\"All Files(*.*)\"}\n metList = FileDialog.ReturnFiles(thePats,theLabs,\"Select Metadata File\",0)\n if (metList.Count = 0) then\n System.Beep\n exit\n else\n metaName = metList.Get(0).AsString\n end\nend\nif (not (metaName.IsNull)) then\n if (TextWin.Make(metaName.AsFileName, metaName) = Nil) then\n MsgBox.Warning(\"File \"+metaName+\" not found.\",\"Metadata File\")\n
end\nend\n"
)
(Script.86
Name: "DD.Main"
SourceCode: "'This script is attached the \"Metadata\" button.\n'This sets up the user environment, allows user to set workdir,\n'select theme for metadata collection, allows user to read in \n'existing files, etc.\n'Last edited 4/8/99\n\n'MsgBox.report(\"Welcome to NOAA Coastal Services Center's ArcView Metadata Collector. This tool collects metadata, and compiles it into FGDC compliant format.\"+NL+\"\"+NL+\"Helpful Hints \"+NL+\"1. If an element is unclear, refer to the FGDC Content Standard for Digital Geospatial Workbook for it
s definition. \"+NL+\"2. The numbering scheme used throughout this tool is the same numbering scheme used in the FGDC Content Standard for Geospatial Metadata Workbook. \"+NL+\"3. Remember to use the 'Save' buttons so that information can be retreived the next time you collect Metadata.\",\"Helpful Hints\")\n_theTheme = Self.Get(0)\n_workDir = Self.Get(1)\nmetFile = Self.Get(2)\nclearForms = Self.Get(3)\n\n\n'Get the current source units and make sure they are not unknown\n_theView = av.GetActiveDoc\n\n_bndCoords = NIL\n_w
est = \"\"\n_east = \"\"\n_north = \"\"\n_south = \"\"\n_thePrj = NIL\n_theTitle = \"\"\n_theVer = NIL\n_plUnits = NIL\n'Position markers for reading in an existing file\nselSect = \"\"\nnextSect = 0\n\n\n'Globals for setting dropdown lists when reading in an existing file\n'_Sec12Progress = NIL\n'_Sec12MainUpdate = NIL\n\n'Set Global to check for Metadata being written\n_MetaDone = NIL\n\n'Set Global for Process step saved\n_ProDone = NIL\n_procLoad = False 'Was the Process step loaded\n_procCnt = 0\n_procEdit = NIL\n\n'Set Global for Lineage\n
_linCnt = 0\n_doLin = True\n\n'Set up Global Lists for Originator\n_OrList = {}\n_Sec1OrList = {}\n_Sec2OrList = {}\n\n'Globals for Datum and Ellipse\n_Sec4PCDat = NIL\n_Sec4PCEll = NIL\n_Sec4VCDat = NIL\n_Sec4VCEnc = NIL\n_Sec4VCDoVert = NIL\n\n'Global Vars to store Process Step and Date\n_ProcStepList = {}\n_ProcDateList = {}\n\nif (clearForms = True) then\n av.Run(\"DD.Clear_Forms\",{})\nend\n\n'Set the Default state for Dialogs\nav.Run(\"DD.Set_Focus\",\"\")\nav.Run(\"DD.Set_Title\",\"\")\n'Initialize ListBoxes\nav.Run(\"DD.Set_ListBoxes\",
{})\n\nsectList = {}\nselSect = \"IDENTIFICATION_INFORMATION\"\n\nif (metFile.Count > 0) then\n if(File.Exists(metFile.AsFileName) = True) then 'check if file user specified has any metadata elements\n _exFile = metFile.AsFileName\n sectList = av.Run(\"DD.ALL_Load\",{_exFile}) \n if (sectList.Count > 0) then 'show the user what sections they have created\n cnt = sectList.Count\n c = 0\n for each s in sectList\n x = c + 1\n av.Run(\"DD.Sec\"+(x).AsString+\"_Load\",{})\n c = c + 1\n
end\n if (sectList.Count < 7) then\n sectList.Add(\"Next Section\")\n end\n selSect = msgBox.ListAsString(sectList,\"Select a Section to edit or 'Next Section' to create new section:\",\"Completed Sections\").AsString\n if (selSect = \"Nil\") then\n system.Beep\n av.DelayedRun(\"DD.Clear_Forms\",{},0.5)\n av.DelayedRun(\"DD.Delete_Files\",{},5)\n exit\n end\n if (selSect = \"Next Section\") then\n nextSect = sectList.Count\n end\n end\n end\nend\n\n'Set
Current working directory back to _workDir (where the resource files are)\ncwd = _workdir.AsFileName.SetCWD\n\n'Set the Focus for each Dialog\n\n\nif (selSect.Contains(\"IDENTIFICATION_INFORMATION\")) Then\n av.finddialog(\"Sec1\").open\nend\n\nif ((selSect.Contains(\"DATA_QUALITY_INFORMATION\")) or (nextSect = 2))Then\n av.finddialog(\"Sec2\").open\nend\n\nif ((selSect.Contains(\"SPATIAL_DATA_ORGANIZATION_INFORMATION\")) or (nextSect = 3))Then\n av.finddialog(\"Sec3\").open\nend\n\nif ((selSect.Contains(\"SPATIAL_REFERENCE_INFORMATIO
N\")) or (nextSect = 4))Then\n av.finddialog(\"Sec4\").open\nend\n\nif ((selSect.Contains(\"ENTITY_AND_ATTRIBUTE_INFORMATION\")) or (nextSect = 5))Then\n av.finddialog(\"Sec5\").open\nend\n\nif ((selSect.Contains(\"DISTRIBUTION_INFORMATION\")) or (nextSect = 6))Then\n av.finddialog(\"Sec6\").open\nend\n\nif ((selSect.Contains(\"METADATA_REFERENCE_INFORMATION\")) or (nextSect = 7))Then\n av.FindDialog(\"Sec7\").Open\nend\n"
)
(Script.87
Name: "DD.Main_Setup"
SourceCode: "'This script is called by the \"Meta/Data\" button.\n'Purpose is to setup information for collection tool.\n'Last edited 05/02/99\n\n'Initialize Global for the View\n_theView = av.GetActiveDoc\n\n_sourceunits = _theView.GetDisplay.GetUnits\nif (_sourceunits = #UNITS_LINEAR_UNKNOWN) then\n getInfo = MsgBox.YesNo(\"The View Properties have not been set. Do you want to set them?\",\"Set View Properties\",True)\n if (getInfo = True) then\n _theView.Edit\n end\nend\n\n\n'Determine path delemiter for creating new files\nif (Syste
m.GetOS = #SYSTEM_OS_UNIX) then\n _pathDel = \"/\"\nend\nif (System.GetOS = #SYSTEM_OS_MAC) then\n _pathDel = \":\"\nend\nif (System.GetOS = #SYSTEM_OS_MSW) then\n _pathDel = \"\\\"\nend\n\n\n'Initialize globals for theme properties\n_theTheme = NIL\n_theClass = \"\"\n_theType = \"\"\n_refMeth = \"\"\n_shpClass = \"\"\n_numRec = Nil\n\ntheDia = av.FindDialog(\"DD.MainSetup\")\n'Part 1, select the theme\n\n'Create list to populate dropdown\n\ntheThemeList = _theView.GetThemes\ntheDia.FindByName(\"DD.Main_LBTheme\").DefineFromList(theThemeList)\n\n'Pa
rt 2, set working directory.\ntheWD = av.GetProject.GetWorkDir.AsString\ntheDia.FindByName(\"DD.Main_TxtWorkDir\").SetText(theWD)\n\n'Part 3, existing Metadata file.\n'This has to be set when the theme is selected.\ntheDia.FindByName(\"DD.Main_RBFileNo\").Select\ntheDia.FindByName(\"DD.Main_TxtFile\").SetText(\"\")\n\n'Part 4, Clear forms?\ntheDia.FindByName(\"DD.Main_RBClearNo\").Select\n\ntheDia.Open\n"
)
(Script.88
Name: "DD.Main_Setup_Cancel"
SourceCode: "Self.GetDialog.Close\nav.ClearGlobals"
)
(Script.89
Name: "DD.Main_Setup_FileBrowse"
SourceCode: "if (_theTheme = NIL) then\n MsgBox.Info(\"Please select a theme first.\",\"Select Theme\")\n exit\nend\nthemePath = _theTheme.GetSrcName.GetFileName.GetFullName.AsFileName\ntheBase = themePath.GetBaseName.AsString\nthePath = themePath.AsString.substitute(theBase,\"\")\nthePath.AsFileName.SetCWD\n\nmetaList = FileDialog.ReturnFiles({\"*.met\"},{\"metadata files (*.met)\"},\"Select Metadata File\",0)\nif (metaList.Count = 0) then\n system.beep\n exit\nelse\n metFile = metaList.Get(0).AsString\n Self.GetDialog.FindByName(\"DD.Main_
TxtFile\").SetText(metFile) \n Self.GetDialog.FindByName(\"DD.Main_RBFileYes\").Select\nend\n"
)
(Script.90
Name: "DD.Main_Setup_FileNo"
SourceCode: "Self.GetDialog.FindByName(\"DD.Main_TxtFile\").SetText(\"\")"
)
(Script.91
Name: "DD.Main_Setup_FileYes"
SourceCode: "'Create the new MetaData File\n\nif (_theTheme = NIL) then\n MsgBox.Warning(\"Please select a theme first!\",\"Select Theme\")\n Self.GetDialog.FindByName(\"DD.Main_RBFileNo\").Select\n exit\nend\n\nft = \"\"\nif (_theType = \"\") then\n exit\nend\n 'MsgBox.Error(\"You must select a theme first.\",\"Select Theme\")\nif (_theType = \"Coverage\") then\n if (_shpClass = \"Point\") then\n ft = \"pt\"\n elseif (_shpClass = \"Polygon\") then\n ft = \"p\"\n elseif (_shpClass = \"Polyline\") then\n ft = \"l\"\n end\nelse\n ft = \"\"\nend\n\n'Create d
efault file name for output Metadata\nd = _theTheme.GetSrcName.GetDataSource.AsFileName\ntheE = d.GetExtension\ndSub = d.AsString.Substitute(\".\"+theE,\"\")\nFilestr = dSub+ft+\".met\"\nthemeExten = _theTheme.GetSrcName.GetDataSource.AsFileName.GetExtension\nthemeName = _theTheme.GetSrcName.AsString.Substitute(\".\"+themeExten,\"\")\nmetaName = _theTheme.GetSrcName.GetDataSource.AsFileName.ReturnDir.AsString + _pathDel + themeName+ft+\".met\"\nif (File.Exists(metaName.AsFileName)) then\n av.FindDialog(\"DD.MainSetup\").FindByNa
me(\"DD.Main_TxtFile\").SetText(metaName)\nelse\n av.FindDialog(\"DD.MainSetup\").FindByName(\"DD.Main_TxtFile\").SetText(\"\")\nend"
)
(Script.92
Name: "DD.Main_Setup_Go"
SourceCode: "theDia = Self.GetDialog\n\n'Check to see if all info is collected\n\nif (_theTheme = NIL) then\n MsgBox.Warning(\"You need to select a theme!\",\"Select a Theme\")\n exit\nend\n\n_workDir = theDia.FindByName(\"DD.Main_TxtWorkDir\").GetText\nif (File.Exists(_workDir.AsFileName).Not) then\n MsgBox.Warning(\"The working directory is not set to a valid directory!\",\"Set Working Directory\")\n exit\nend\n\nmetFile = theDia.FindByName(\"DD.Main_TxtFile\").GetText\nif (File.Exists(metFile.AsFileName).Not) then\n MsgBox.Error(\"The metada
ta file (\" +metFile + \") is not valid!\",\"Set Metadata File\")\n theDia.FindByName(\"DD.Main_RBFileNo\").Select\n exit\nend\n\nif (theDia.FindByName(\"DD.Main_RBClearYes\").IsSelected) then\n clearForm = True\nelse\n clearForm = False\nend\n\ntheDia.Close\nav.Run(\"DD.Main\",{_theTheme,_workDir,metFile,clearForm})"
)
(Script.93
Name: "DD.Main_SetUp_Help"
SourceCode: "MsgBox.report(\"Welcome to NOAA Coastal Services Center's ArcView Metadata Collector. This tool collects metadata, and compiles it into FGDC compliant format.\"+NL+\"\"+NL+\"Helpful Hints \"+NL+\"1. If an element is unclear, refer to the FGDC Content Standard for Digital Geospatial Workbook for its definition. \"+NL+\"2. The numbering scheme used throughout this tool is the same numbering scheme used in the FGDC Content Standard for Geospatial Metadata Workbook. \"+NL+\"3. Remember to use the 'Save' buttons so tha
t information can be retreived the next time you collect Metadata.\",\"Helpful Hints\")\n"
)
(Script.94
Name: "DD.Main_Setup_Open"
SourceCode: "Self.MoveTo(50,20)"
)
(Script.95
Name: "DD.Main_Setup_ThemeChanged"
SourceCode: "'Set Globals for theme properties\n_theTheme = Self.GetSelection.Get(0)\nsName = _theTheme.GetSrcName.GetFileName.ReturnDir.AsString\n_sName = _theTheme.GetSrcName.AsString\ntoke = sName.AsTokens(\".\")\nbName = toke.Get(0)\n\n'_theClass = \"\"\n'_theType = \"\"\n'_refMeth = \"\"\n'_shpClass = \"\"\n'_numRec = Nil\nif (_theTheme.Is(FTHEME)) then\n _theClass = _theTheme.GetSrcName.GetSubName\n _theFTab = _theTheme.GetFTab\n _numRec = _theFTab.GetNumRecords\n if (_theClass = \"Point\") then\n _refMeth = \"Point\"\n else\n _refMeth
= \"Vector\"\n end\n theATab = _theFTab.AsString\n if (theATab.Contains(\".dbf\")) then\n _theType = \"Shapefile\"\n elseif ((theATab.Contains(\".dxf\")) or (theATab.Contains(\".dwg\"))) then\n _theType = \"DXFfile\"\n else\n _theType = \"Coverage\"\n end\nelseif (_theTheme.Is(ITHEME)) then\n _theClass = \"Image\"\n _theType = \"Image\"\n _refMeth = \"Raster\"\nelse\n if (_theTheme.GetGrid.GetSrcName.AsString <> NIL) then ' theTheme is a GRID\n _theClass = \"Grid\"\n _theType = \"Grid\"\n _refMeth = \"Raster\"\n end\nend\n\n
\nif ((_refMeth = \"Vector\") or (_refMeth = \"Point\")) then\n _theFTab = _theTheme.GetFTab\n _shpClass = _theFTab.GetShapeClass.GetClassName\n _tName = _theTheme.GetSrcName.AsString\nelseif (_theClass = \"Grid\") then\n _tName = _theTheme.GetSrcName.AsString\n if (_theTheme.HasTable) then\n _theFTab = _theTheme.GetVTab\n else\n _theFTab = NIL\n end\nelseif (_theClass = \"Image\") then\n _theFTab = NIL\nend"
)
(Script.96
Name: "DD.Main_Setup_WDFocus"
SourceCode: "wdTxt = Self.GetText\nif (File.Exists(wdTxt.AsFileName).Not) then\n MsgBox.Error(\"The directory that you have specified (\"+wdTxt+\") is not valid!\",\"Set Working Directory\")\n Self.SetText(av.GetProject.GetWorkDir.AsString)\nend \n"
)
(Script.97
Name: "DD.Meta_Help"
SourceCode: "'HOW TO USE THE METADATA COLLECTION TOOL\n'\n'Before Running the Program\n'1) Add the data set that metadata will be collected for to a View.\n'2) This tool will work on any data set that can be added to an ArcView\n' View document, including: shapefiles, Arc/Info coverages, Grids, \n' supported image formats, etc.\n'3) Set the working directory for the Project to a directory where dBase\n' and text files can be created. The working directory for the Project\n' is set from the Project menu/properties
option, on the Project \n' graphical user interface (GUI).\n' These files will be used to store information, that can be referenced\n' in the future. \n'\n'File Naming Convention\n'1) Two types of files can be created, an ASCII text file, and an Hyper \n' Text Markup Language (HTML) file. If any problems are found, these\n' files can be edited.\n'2) You will have the opportunity to name these files prior to creation.\n'3) All metadata records created with this tool should have a \".met\" file\n'
extension. When editing existing files, the tool looks for a \".met\"\n' extension. By default, if the data source is a shapefile, the output\n' metadata file name will be the base name of the data set, with a \".met\"\n' extension. So if the data set is roads.shp, the metadata record will\n' be roads.met.\n'4) If the data source is an Arc/Info coverage, the output metadata record\n' will be the coverage name with \"p\" appended if the input is a polygon,\n' an \"l\" if the coverage is a line type, a
nd a \"pt\" if the coverage is a\n' point type. This naming convention was chosen to handle metadata that\n' is written for a coverage that might include both lines and polygons.\n'\n'Basic Flow of the Tool\n'1) This tool was created using the ArcView Dialog Designer extension and\n' was created to provide a means for stepping through the Federal \n' Geographic Data Committee (FGDC) metadata standard. Please refer to\n' the FGDC \"Content Standards for Digital Geospatial Metadata Workbook\"\n' for h
elp on any of the metadata fields.\n'2) When using this tool, several input forms are presented. Most of the\n' information that is entered can be saved as a text file or in a dBase\n' file (see \"Posible dBase Files\" below). Once the information has been\n' stored it can easily be retreived the next time it is needed. \n'3) Three options are available for saving and retreiving information from\n' dBase files (Retrieve, Save, and Append).\n'\n' Retrieve allows the user to select an existing dBase
file. The user \n' will then be prompted to select a record from the file, based on the\n' \"ID\" that was used when the information was stored.\n'\n' Save allows the user to create a new dBase file for storing the current\n' information. The user will then be prompted for an \"ID\" which can be\n' used to retrieve the data in the future.\n'\n' Append allows the user to select an existing dBase file. The user can\n' then create a new record in the selected file for storing the current\n' infor
mation. The user will then be prompted for an \"Id\" which can be\n' used to retrieve the data in the future.\n' \n'3) When saving information to a dBase file, the user will be asked to\n' provide an \"Id\". This \"Id\" can be used to retrieve information during \n' future iterations of the program. Once the information has been stored\n' in a dBase file, the file can be edited using the ArcView Table editing\n' tools.\n'4) When saving information to a text file, the user will be prompted to \n'
name the text file. Text files can be created and read from anywhere\n' on the network. \n'5) After a form has been completed, move to the next form by selecting the\n' \"Continue\" button or select \"Back\" to go back to a previous form.\n'6) Use the \"Exit\" button to exit the program and save your work.\n' Please Note that any fields that are not filled in will be written out\n' as empty tags.\n'7) After all of the metadata information has been collected the user will\n' be asked if they want to sa
ve an HTML version of the file.\n'8) If the theme is an Arc/Info coverage or GRID, the user will be asked if\n' they want to save the information to an Info file.\n'9) After the metadata record has been collected, the user can select the \n' \"View Metadata\" option from the \"Metadata Tools\" pulldown menu to display\n' the text version of the metadata record for all active themes that have\n' metadata records.\n'\n'A List of Potential dBASE Files:\n'citation.dbf - publisher and larger_work information (I
DENTIFICATION_INFORMATION)\n'contact.dbf - point_of_contact (IDENTIFICATION_INFORMATION)\n"
)
(Script.98
Name: "DD.Sec1.1_AbsSave"
SourceCode: "theD = Self.GetDialog\nmetaName = _workdir+_pathDel+\"abstract.txt\"\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"New File Name\")\nif(outFile = NIL) then\n system.beep\n exit\nend\nnewFile = LineFile.Make(outFile, #FILE_PERM_WRITE)\nnewFile.WriteElt(theD.FindByName(\"Sec1.1_TBoxAbs\").GetText)\nnewFile.Close"
)
(Script.99
Name: "DD.Sec1.1_AbsText"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec1.1_TBoxAbs\", \"Abstract\"})"
)
(Script.100
Name: "DD.Sec1.1_CitDetText"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec1.1_TBoxCitDet\", \"Citation Details\"})"
)
(Script.101
Name: "DD.Sec1.1_CitSave"
SourceCode: "theD = Self.GetDialog\nmetaName = _workdir+_pathDel+\"citdet.txt\"\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"New File Name\")\nif(outFile = NIL) then\n system.beep\n exit\nend\nnewFile = LineFile.Make(outFile, #FILE_PERM_WRITE)\nnewFile.WriteElt(theD.FindByName(\"Sec1.1_TBoxCitDet\").GetText)\nnewFile.Close"
)
(Script.102
Name: "DD.Sec1.1_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec1.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt.Substitute(NL,\"\")\nlw = false\ntheDia = av.FindDialog(\"Sec1.1\")\nwhile (lf.IsAtEnd.NOT)\n if (e.Contains(\"Other_Citation_Details:\")) then \n theDia = av.FindDialog(\"Sec1.1\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt.Substitute(NL,\"\")\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Online_Linkage:\")) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.
ReadElt.Substitute(NL,\"\")\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec1.1_TBoxCitDet\").SetText(abs)\n lf.SetPos(pos)\n end\n \n if (e.Contains(\"Abstract:\")) then\n theDia = av.FindDialog(\"Sec1.1\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt.Substitute(NL,\"\")\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Purpose:\")) then\n goon = false\n else\n abs = abs + e.Trim + NL\n end\n e = lf.ReadElt.Substitute(NL,\"\")\n end\n abs = abs.Trim\n theDia.Fi
ndByName(\"Sec1.1_TBoxAbs\").SetText(abs)\n lf.SetPos(pos)\n end\n \n if (e.Contains(\"Purpose:\")) then\n theDia = av.FindDialog(\"Sec1.1\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt.Substitute(NL,\"\")\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Supplemental_Information:\")) then\n goon = false\n else\n abs = abs + e.Trim + NL\n end\n e = lf.ReadElt.Substitute(NL,\"\")\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec1.1_TBoxPur\").SetText(abs)\n lf.SetPos
(pos)\n end\n if (e.Contains(\"Supplemental_Information:\")) then\n theDia = av.FindDialog(\"Sec1.1\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt.Substitute(NL,\"\")\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Time_Period_of_Content:\")) then\n goon = false\n else\n abs = abs + e.Trim + NL\n end\n e = lf.ReadElt.Substitute(NL,\"\")\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec1.1_TBoxSup\").SetText(abs)\n lf.SetPos(pos)\n end\n e = lf.ReadElt.Substitute(N
L,\"\")\nend\nlf.Close\nav.Run(\"DD.Sec1.2_Load\",{})"
)
(Script.103
Name: "DD.Sec1.1_Open"
SourceCode: "Self.MoveTo(50,20)\nplaceFile = _workdir+_pathDel+\"placekey.dbf\"\nplaceVTab = VTab.Make(placeFile.AsFileName,false,false)\nthemeList = {}\nplaceList = {}\nif (self.findbyname(\"Sec1.1_TBoxPK\").GetText = \"\") then\n if (placeVTab.GetSelection <> NIL) then\n for each k in placeVTab\n placeList.Add(placeVTab.ReturnValueString(placeVTab.FindField(\"place\"),k))\n self.findbyname(\"Sec1.1_CBPK\").definefromlist(placeList)\n end\n end\nend\n\nplaceFile = _workdir+_pathDel+\"themekey.dbf\"\nplaceVTab = VTab.Make(placeF
ile.AsFileName,false,false)\nthemeList = {}\nplaceList = {}\nif (self.findbyname(\"Sec1.1_TBoxTK\").GetText = \"\") then\n if (placeVTab.GetSelection <> NIL) then\n for each k in placeVTab\n themeList.Add(placeVTab.ReturnValueString(placeVTab.FindField(\"theme\"),k))\n end\n self.findbyname(\"Sec1.1_CBTK\").definefromlist(themeList)\n end\nend"
)
(Script.104
Name: "DD.Sec1.1_PurSave"
SourceCode: "theD = Self.GetDialog\nmetaName = _workdir+_pathDel+\"purpose.txt\"\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"New File Name\")\nif(outFile = NIL) then\n system.beep\n exit\nend\nnewFile = LineFile.Make(outFile, #FILE_PERM_WRITE)\nnewFile.WriteElt(theD.FindByName(\"Sec1.1_TBoxPur\").GetText)\nnewFile.Close"
)
(Script.105
Name: "DD.Sec1.1_PurText"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec1.1_TBoxPur\", \"Purpose\"})"
)
(Script.106
Name: "DD.Sec1.1_SupSave"
SourceCode: "theD = Self.GetDialog\nmetaName = _workdir+_pathDel+\"supple.txt\"\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"New File Name\")\nif(outFile = NIL) then\n system.beep\n exit\nend\nnewFile = LineFile.Make(outFile, #FILE_PERM_WRITE)\nnewFile.WriteElt(theD.FindByName(\"Sec1.1_TBoxSup\").GetText)\nnewFile.Close"
)
(Script.107
Name: "DD.Sec1.1_SupText"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec1.1_TBoxSup\", \"Supplemental Information\"})"
)
(Script.108
Name: "DD.Sec1.1CBPK_Select"
SourceCode: "theD = Self.GetDialog\ntheStr = theD.FindByName(\"Sec1.2_CBPK\").GetSelection.AsString\ntheText = theD.FindByName(\"Sec1.2_TBoxPK\").GetText +NL+ theStr\ntheD.FindByName(\"Sec1.2_TBoxPK\").SetText(theText)"
)
(Script.109
Name: "DD.Sec1.1CBTK_Select"
SourceCode: "theD = Self.GetDialog\ntheStr = theD.FindByName(\"Sec1.2_CBTK\").GetSelection.AsString\ntheText = theD.FindByName(\"Sec1.2_TBoxTK\").GetText +NL+ theStr\ntheD.FindByName(\"Sec1.2_TBoxTK\").SetText(theText) "
)
(Script.110
Name: "DD.Sec1.2_CBMain"
SourceCode: "theStr = Self.GetSelection.AsString\nif (theStr = \"Other\") then\n n = msgbox.Input(\"Enter value for other:\",\"Maintenance and Update Frequency\",\"\")\n if (n <> NIL) then\n theList = Self.GetList\n theList.insert(n)\n Self.DefineFromList(theList)\n Self.SetCurrentValue(n)\n end\nend\n"
)
(Script.111
Name: "DD.Sec1.2_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec1.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt\nlw = false\ntKey = \"\"\npKey = \"\"\n\nSec12Progress = NIL\nSec12MainUpdate = NIL\n\ntheDia = av.FindDialog(\"Sec1.2\")\nwhile (lf.IsAtEnd.NOT)\n e2 = lf.ReadElt.Substitute(NL,\"\")\n if (lf.IsAtEnd.NOT) then\n lf.SetPos(lf.GetPos - 1)\n end\n if ((e.Contains(\"Beginning_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.2_TxtBegDate\").SetText(s)\n end\n if ((e.Con
tains(\"Ending_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.2_TxtEndDate\").SetText(s)\n end\n if ((e.Contains(\"Currentness_Reference:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.2_TxtCurRef\").SetText(s)\n end\n if ((e.Contains(\"Progress:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec12Progress = e.AsTokens(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Maintenance_and_Update_Fre
quency:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec12MainUpdate = e.AsTokens(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Theme_Keyword:\")) and (e.AsTokens(\":\").Count > 1)) then\n tKey = tKey + e.AsTokens(\":\").Get(1).Trim + NL\n end\n if ((e.Contains(\"Place_Keyword:\")) and (e.AsTokens(\":\").Count > 1)) then\n pKey = pKey + e.AsTokens(\":\").Get(1).Trim + NL\n end\n if (e.Contains(\"Access_Constraints:\")) then\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n
if (e.Contains(\"Use_Constraints:\")) then\n goon = false\n else\n abs = abs + e.Trim + NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec1.2_TBoxAcc\").SetText(abs)\n lf.SetPos(pos)\n end\n if (e.Contains(\"Use_Constraints:\")) then\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Point_of_Contact:\")) then\n goon = false\n else\n abs = abs + e.Trim + NL\n end\n e = lf.
ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec1.2_TBoxUse\").SetText(abs)\n lf.SetPos(pos)\n end\n e = lf.ReadElt\nend\ntheDia.FindByName(\"Sec1.2_TBoxTK\").SetText(tKey)\ntheDia.FindByName(\"Sec1.2_TBoxPK\").SetText(pKey)\nlf.Close\n\nprogList = {\"Complete\",\"In work\", \"Planned\"}\n\nif (Sec12Progress <> NIL) then\n progList.Insert(Sec12Progress)\n theDia.FindByName(\"Sec1.2_CBProg\").SetCurrentValue(Sec12Progress)\nend\nprogList.RemoveDuplicates\ntheDia.FindByName(\"Sec1.2_CBProg\").DefineFromList(progList)\n\nm
ainList = {\"Continually\",\"Daily\",\"Weekly\",\"Monthly\",\"Annually\",\"Unknown\",\"As needed\",\"Irregular\",\"None planned\",\"Other\"}\nif (Sec12MainUpdate <> NIL) then\n mainList.Insert(Sec12MainUpdate)\n theDia.FindByName(\"Sec1.2_CBMain\").SetCurrentValue(Sec12MainUpdate)\nend\nmainList.RemoveDuplicates\ntheDia.FindByName(\"Sec1.2_CBMain\").DefineFromList(mainList)\n\n\nav.Run(\"DD.Sec1.3_Load\",{})"
)
(Script.112
Name: "DD.Sec1.2_Open"
SourceCode: "progList = {\"Complete\",\"In work\", \"Planned\"}\n\nif (_Sec12Progress <> NIL) then\n progList.Insert(_Sec12Progress)\n Self.FindByName(\"Sec1.2_CBProg\").SetCurrentValue(_Sec12Progress)\nend\nprogList.RemoveDuplicates\nSelf.FindByName(\"Sec1.2_CBProg\").DefineFromList(progList)\n\nmainList = {\"Continually\",\"Daily\",\"Weekly\",\"Monthly\",\"Annually\",\"Unknown\",\"As needed\",\"Irregular\",\"None planned\",\"Other\"}\nif (_Sec12MainUpdate <> NIL) then\n mainList.Insert(_Sec12MainUpdate)\n Self.FindByName(\"Sec1.2_CBMain\").SetCurrentValue(_
Sec12MainUpdate)\nend\nmainList.RemoveDuplicates\nSelf.FindByName(\"Sec1.2_CBMain\").DefineFromList(mainList)\nt = Self.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n Self.SetTitle(nt)\nend\nSelf.MoveTo(50,20)"
)
(Script.113
Name: "DD.Sec1.2_PKSelect"
SourceCode: "theD = Self.GetDialog\ntheList = {}\nselList = theD.FindByName(\"Sec1.2_LBoxPKSel\").GetSelection\npreStr = theD.FindByName(\"Sec1.2_TBoxPK\").GetText\npreList = preStr.AsTokens(NL)\ntheList = selList + preList\ntheList.RemoveDuplicates\ntheList.Sort(True)\ntheStr = \"\"\nfor each l in theList\n theStr = theStr + l.AsString + NL\nend\ntheD.FindByName(\"Sec1.2_TBoxPK\").SetText(theStr)\n"
)
(Script.114
Name: "DD.Sec1.2_PlaceSave"
SourceCode: "'Save Place Keywords\ntheD = Self.GetDialog\nnewFile = MsgBox.YesNoCancel(\"Do you want to APPEND keywords to existing file?\",\"Save Keywords\",True)\nif (newFile = NIL) then\n exit\nend\nif (newFile = True) then\n placeFile = FileDialog.Show(\"*.dbf\",\"dBase\",\"Select Place Keyword File\")\n if (placeFile = NIL) then\n exit\n end\n placeVTab = VTab.Make(placeFile,true,false)\n if (placeVTab.FindField(\"place\") = NIL) then\n MsgBox.Error(\"The file that you have selected (\"+placeFile.GetName.AsString+\") is not format
ted to store Place Keywords.\",\"Reselect File\")\n exit\n end\n \n thePKstr = theD.FindByName(\"Sec1.2_TBoxPK\").GetText\n newKeys = thePKstr.AsTokens(NL)\n newKeys.RemoveDuplicates 'these are the new ones to add, make sure they are not in already\n 'Make list of existing values\n pList = {}\n for each r in placeVTab\n val = placeVTab.ReturnValue(placeVTab.FindField(\"place\"),r)\n pList.Add(val)\n end\n \n 'now check to see if the new keywords exist\n addKeys = {}\n for each k in newKeys\n i = pList.Find
ByValue(k)\n if (i = -1) then\n addKeys.Add(k)\n 'newKeys.Remove(i)\n end\n end\n 'now add the new keys to existing file\n for each k in addKeys\n r = placeVTab.AddRecord\n placeVTab.SetValue(placeVTab.FindField(\"place\"),r,k)\n end\n placeVTab.SetEditable(false)\nend\n\n\nif (newFile = False) then\n\n placeName = _workdir+_pathDel+\"place.dbf\"\n placeFile = FileDialog.Put(PlaceName.AsFileName,\" \",\"New File Name\")\n if (placeFile = Nil) then\n exit\n end\n if (File.Exists(placeFile)) then\n Fil
e.Delete(placeFile)\n end\n \n placeList = {}\n newKeys = {}\n \n 'Save edits to placeKey\n placeVTab = VTab.Make(placeFile,false,false)\n if (placeVTab.GetSelection = NIL) then 'Make the NEW VTab\n 'msgbox.info(\"in the if\",\"\")\n placeVTab = VTab.MakeNew(placefile,dBASE)\n placeVTab.SetEditable(true)\n placeField = Field.Make(\"place\",#FIELD_CHAR,100,0)\n placeVTab.AddFields({placeField})\n thePKstr = theD.FindByName(\"Sec1.2_TBoxPK\").GetText\n 'msgbox.info(\"Got a: \"+thePkstr,\"\")\n theTokes =
thePKstr.AsTokens(NL)\n theTokes.RemoveDuplicates\n for each t in theTokes\n newRec = placeVTab.AddRecord\n placeVTab.SetValue(placeVtab.FindField(\"place\"),newRec,t)\n end\n placeVTab.Seteditable(false) \n else\n for each p in placeVTab\n placeList.Add(placeVTab.ReturnValueString(placeVTab.FindField(\"place\"),p))\n end\n thePKstr = theD.FindByName(\"Sec1.2_TBoxPK\").GetText\n theTokes = thePKstr.AsTokens(NL)\n theTokes.RemoveDuplicates\n for each t in theTokes\n if (plac
eList.FindByValue(t) = -1) then\n newKeys.Add(t)\n end\n end\n placeVTab.SetEditable(true) \n for each k in newKeys\n newRec = placeVTab.AddRecord\n placeVTab.SetValue(placeVtab.FindField(\"place\"),newRec,k)\n end\n placeVTab.SetEditable(false)\n end\nend"
)
(Script.115
Name: "DD.Sec1.2_RetPlace"
SourceCode: "theD = Self.GetDialog\ntheFN = FileDialog.Show(\"*.dbf\",\"\",\"Select File\")\nif (theFN <> NIL) then\n theVTab = VTab.Make(theFN,False,False)\n theField = theVTab.GetFields.Get(0)\n valList = {}\n for each b in theVTab\n valList.Add(theVTab.ReturnValueString(theField,b))\n end\n valList.RemoveDuplicates\n theD.FindByName(\"Sec1.2_LBoxPKSel\").DefineFromList(valList)\nend"
)
(Script.116
Name: "DD.Sec1.2_RetTheme"
SourceCode: "theD = Self.GetDialog\ntheFN = FileDialog.Show(\"*.dbf\",\"\",\"Select File\")\nif (theFN <> NIL) then\n theVTab = VTab.Make(theFN,False,False)\n theField = theVTab.GetFields.Get(0)\n valList = {}\n for each b in theVTab\n valList.Add(theVTab.ReturnValueString(theField,b))\n end\n valList.RemoveDuplicates\n theD.FindByName(\"Sec1.2_LBoxTKSel\").DefineFromList(valList)\nend"
)
(Script.117
Name: "DD.Sec1.2_SaveTheme"
SourceCode: "'Save edits to themeKey\ntheD = Self.GetDialog\nnewFile = MsgBox.YesNoCancel(\"Do you want to APPEND keywords to existing file?\",\"Save Keywords\",True)\nif (newFile = NIL) then\n exit\nend\nif (newFile = True) then\n placeFile = FileDialog.Show(\"*.dbf\",\"dBase\",\"Select Theme Keyword File\")\n if (placeFile = NIL) then\n exit\n end\n placeVTab = VTab.Make(placeFile,true,false)\n if (placeVTab.FindField(\"Theme\") = NIL) then\n MsgBox.Error(\"The file that you have selected (\"+placeFile.GetName.AsString+\") is not for
matted to store Theme Keywords.\",\"Reselect File\")\n exit\n end\n thePKstr = theD.FindByName(\"Sec1.2_TBoxTK\").GetText\n newKeys = thePKstr.AsTokens(NL)\n newKeys.RemoveDuplicates 'these are the new ones to add, make sure they are not in already\n 'Make list of existing values\n pList = {}\n for each r in placeVTab\n val = placeVTab.ReturnValue(placeVTab.FindField(\"theme\"),r)\n pList.Add(val)\n end\n \n 'now check to see if the new keywords exist\n addKeys = {}\n for each k in newKeys\n i = pList.Find
ByValue(k)\n if (i = -1) then\n addKeys.Add(k)\n end\n end\n 'now add the new keys to existing file\n for each k in addKeys\n r = placeVTab.AddRecord\n placeVTab.SetValue(placeVTab.FindField(\"theme\"),r,k)\n end\n placeVTab.SetEditable(false)\nend\n\n'Create new DBF file for theme Keys\nif (newFile = False) then\n placeName = _workdir+_pathDel+\"theme.dbf\"\n placeFile = FileDialog.Put(PlaceName.AsFileName,\" \",\"New File Name\")\n if (placeFile = Nil) then\n exit\n end\n if (File.Exists(placeFile)) the
n\n File.Delete(placeFile)\n end\n placeList = {}\n newKeys = {}\n placeVTab = VTab.Make(placeFile,false,false)\n if (placeVTab.GetSelection = NIL) then\n placeVTab = VTab.MakeNew(placefile,dBASE)\n placeVTab.SetEditable(true)\n placeField = Field.Make(\"theme\",#FIELD_CHAR,100,0)\n placeVTab.AddFields({placeField})\n thePKstr = theD.FindByName(\"Sec1.2_TBoxTK\").GetText\n theTokes = thePKstr.AsTokens(NL)\n theTokes.RemoveDuplicates\n for each t in theTokes\n newRec = placeVTab.AddRecord\n
placeVTab.SetValue(placeVtab.FindField(\"theme\"),newRec,t)\n end\n placeVTab.Seteditable(false) \n else\n for each p in placeVTab\n placeList.Add(placeVTab.ReturnValueString(placeVTab.FindField(\"theme\"),p))\n end\n thePKstr = theD.FindByName(\"Sec1.2_TBoxTK\").GetText\n theTokes = thePKstr.AsTokens(NL)\n theTokes.RemoveDuplicates\n for each t in theTokes\n if (placeList.FindByValue(t) = -1) then\n newKeys.Add(t)\n end\n end\n placeVTab.SetEditable(true) \n for e
ach k in newKeys\n newRec = placeVTab.AddRecord\n placeVTab.SetValue(placeVtab.FindField(\"theme\"),newRec,k)\n end\n placeVTab.SetEditable(false)\n end\nend"
)
(Script.118
Name: "DD.Sec1.2_TKSelect"
SourceCode: "theD = Self.GetDialog\ntheList = {}\nselList = theD.FindByName(\"Sec1.2_LBoxTKSel\").GetSelection\npreStr = theD.FindByName(\"Sec1.2_TBoxTK\").GetText\npreList = preStr.AsTokens(NL)\ntheList = selList + preList\ntheList.RemoveDuplicates\ntheList.Sort(True)\ntheStr = \"\"\nfor each l in theList\n theStr = theStr + l.AsString + NL\nend\ntheD.FindByName(\"Sec1.2_TBoxTK\").SetText(theStr)\n"
)
(Script.119
Name: "DD.Sec1.3_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec1.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt\nlw = false\ntKey = \"\"\npKey = \"\"\ntheDia = av.FindDialog(\"Sec1.3\")\nwhile (lf.IsAtEnd.NOT)\n e2 = lf.ReadElt.Substitute(NL,\"\")\n if ((e.Contains(\"Contact_Organization:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtOrg\").SetText(s)\n end\n if ((e.Contains(\"Contact_Person:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n
theDia.FindByName(\"Sec1.3_TxtPer\").SetText(s)\n end\n if ((e.Contains(\"Contact_Position:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtPos\").SetText(s)\n end\n if ((e.Contains(\"Address:\")) and ((e.Contains(\"Contact_Electronic_Mail_Address:\")).Not) and ((e.Contains(\"Contact_Electronic_Mail_Address:\")).Not) and (e.AsTokens(\":\").Count > 1)) then\n if (e.AsTokens(\":\").Count > 1) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.
FindByName(\"Sec1.3_TxtAdd\").SetText(s)\n end\n end\n if ((e.Contains(\"City:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtCity\").SetText(s)\n end\n if ((e.Contains(\"State_or_Province:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtState\").SetText(s)\n end\n if ((e.Contains(\"Postal_Code:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n th
eDia.FindByName(\"Sec1.3_TxtPCode\").SetText(s)\n end\n if ((e.Contains(\"Country:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtCountry\").SetText(s)\n end\n if ((e.Contains(\"Contact_Voice_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtTele\").SetText(s)\n end\n if ((e.Contains(\"Contact_Facsimile_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.L
oad_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtFax\").SetText(s)\n end\n if ((e.Contains(\"Contact_Electronic_Mail_Address:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1.3_TxtEmail\").SetText(s)\n end\n if ((e.Contains(\"Hours_of_Service:\")) and (e.AsTokens(\":\").Count > 1)) then\n h = \"\"\n cnt = 0\n for each t in e.AsTokens(\":\")\n if (cnt > 0) then\n if (cnt = 1) then\n h = h + t.Trim\n else\n h = h + \":\"+
t\n end\n end\n cnt = cnt + 1\n end \n theDia.FindByName(\"Sec1.3_TxtHours\").SetText(h)\n end\n if (e.Contains(\"Native_Data_Set_Environment:\")) then\n lf.SetPos(lf.GetPos - 1)\n keepon = True\n v = \"\"\n while (lf.IsAtEnd.Not)\n e = lf.ReadElt\n if (lf.IsAtEnd.Not) then\n v = v +\" \"+ e.Trim\n end\n end\n if (v.Count > 0) then\n _theVer = v\n end\n end\n lf.SetPos(lf.GetPos - 1)\n e = lf.ReadElt\nend\nlf.Close"
)
(Script.120
Name: "DD.Sec1_Load"
SourceCode: "if (File.Exists((_workdir+_pathdel+\"xxSec1.txt\").AsFileName).Not) then\n exit\nend\nlf = LineFile.Make((_workdir+_pathdel+\"xxSec1.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt.substitute(NL,\"\")\nlw = false\ntheDia = av.FindDialog(\"Sec1\")\n_Sec1OrList = {}\nwhile (lf.IsAtEnd.NOT)\n e2 = lf.ReadElt.Substitute(NL,\"\")\n if (e.Contains(\"_Bounding_Coordinate:\")) then\n _bndCoords = True\n end\n if (e.Contains(\"West_Bounding_Coordinate:\")) then\n if (e.AsTokens(\":\").Count > 1) then\n _west = e.AsTokens(\":\").G
et(1)\n end\n end\n if (e.Contains(\"East_Bounding_Coordinate:\")) then\n if (e.AsTokens(\":\").Count > 1) then\n _east = e.AsTokens(\":\").Get(1)\n end\n end\n if (e.Contains(\"North_Bounding_Coordinate:\")) then\n if (e.AsTokens(\":\").Count > 1) then\n _north = e.AsTokens(\":\").Get(1)\n end\n end\n if (e.Contains(\"South_Bounding_Coordinate:\")) then\n if (e.AsTokens(\":\").Count > 1) then\n _south = e.AsTokens(\":\").Get(1)\n end\n end\n if (e.Contains(\"Larger_Work_Citation:\")) then\n lw = tr
ue\n end\n if ((e.Contains(\"Originator:\")) and (e.AsTokens(\":\").Count > 1) and (lw = False)) then\n _Sec1OrList.Add(e.AsTokens(\":\").Get(1).Trim)\n end\n if (lw = false) then\n theDia = av.FindDialog(\"Sec1\")\n if ((e.Contains(\"Publication_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPubDate\").SetText(s)\n elseif ((e.Contains(\"Title:\")) and (e.AsTokens(\":\").Count > 1)) then\n e3 = lf.ReadElt.Substitute(NL,\"\")\n e4 = l
f.ReadElt.Substitute(NL,\"\")\n s = av.Run(\"DD.Load_String\",{e,e2,e3,e4})\n theDia.FindByName(\"Sec1_TxtPubTitle\").SetText(s)\n lf.SetPos(lf.GetPos - 2)\n elseif ((e.Contains(\"Edition:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtEd\").SetText(s)\n elseif ((e.Contains(\"Publication_Place:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPubPlace\").SetText(s)\n
elseif ((e.Contains(\"Publisher:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPublisher\").SetText(s)\n elseif ((e.Contains(\"Online_Linkage:\")) and (e.AsTokens(\":\").Count > 1)) then\n tokes = e.AsTokens(\":\")\n s = \"\"\n cnt = 0\n for each t in tokes\n if (cnt > 0) then\n if (cnt > 1) then\n s = s + \":\"+t\n else\n s = t\n end\n end\n cnt = cnt + 1\n end\n
theDia.FindByName(\"Sec1_TxtOnLine\").SetText(s.Trim) '(e.AsTokens(\":\").Get(1).Trim)\n end\n end\n if (lw = true) then\n if ((e.Contains(\"Originator:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPubLWOrg\").SetText(s)\n elseif ((e.Contains(\"Publication_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPubLWDate\").SetText(s)\n elseif ((e.Contains(\"Title:\")) an
d (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPubLWTitle\").SetText(s)\n elseif ((e.Contains(\"Publication_Place:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPubLWPlace\").SetText(s)\n elseif ((e.Contains(\"Publisher:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec1_TxtPubLWPub\").SetText(s)\n elseif ((e.Cont
ains(\"Online_Linkage:\")) and (e.AsTokens(\":\").Count > 1)) then\n tokes = e.AsTokens(\":\")\n s = \"\"\n cnt = 0\n for each t in tokes\n if (cnt > 0) then\n if (cnt > 1) then\n s = s + \":\"+t\n else\n s = t\n end\n end\n cnt = cnt + 1\n end\n theDia.FindByName(\"Sec1_TxtLWOnLine\").SetText(s.Trim) '(e.AsTokens(\":\").Get(1).Trim)\n end\n end\n lf.SetPos(lf.GetPos - 1)\n e = lf.ReadElt.Substitute(NL,\"\")\nend\nif (_Sec1OrList.Count >
0) then\n s = \"\"\n cnt = 0\n for each o in _sec1OrList\n if (cnt > 0) then\n s = s + \"; \" + o\n else\n s = o\n end\n cnt = cnt + 1\n end\n av.FindDialog(\"Sec1\").FindByName(\"Sec1_TxtPubOrg\").SetText(s) '_sec1OrList.Get(0))\nend\nlf.Close\nav.Run(\"DD.Sec1.1_Load\",{})"
)
(Script.121
Name: "DD.Sec1_RecCoords"
SourceCode: "_bndCoords = NIL\nav.Run(\"DD.GetCoords\",{})"
)
(Script.122
Name: "DD.Sec1_Submit"
SourceCode: "_MetaFile.WriteElt(Self.GetDialog.FindByName(\"Sec1.Txt_Title\").GetText.AsString)\n_MetaFile.WriteElt(Self.GetDialog.FindByName(\"Sec1.Txt_Date\").GetText.AsString)\n_MetaFile.Close\n_HTMLFile.Close\nSelf.GetDialog.Close"
)
(Script.123
Name: "DD.Sec1_Write"
SourceCode: "Script.The.SetNumberFormat(\"d.dddd\")\nprjFile = (_workdir+_pathDel+\"xxSec4_Prj.txt\").AsFileName\nif (_bndCoords = NIL) then\n av.Run(\"DD.GetCoords\",{})\nend\ngetCoords = False\ncoordMsg = \"\"\n'Check to see if coordinates are in Decimal Degree format.\nif (_west.IsNumber.Not) then\n getCoords = True\n coordMsg = \"There appears to be an error with the bounding coordinates!\"\nelse\n westTokes = _west.Trim.AsTokens(\".\")\n if (westTokes.Count < 2) then\n getCoords = True\n coordMsg = \"The bounding coordinates are no
t in Decimal Degree format!\"\n else\n if (westTokes.Get(0).Count > 4) then\n getCoords = True\n coordMsg = \"The bounding coordinates are not in Decimal Degree format!\"\n end\n end\nend \n\nif (getCoords) then\n doIt = MsgBox.YesNo(coordMsg++\"Do you want to convert Bounding Coordinates to Decimal Degrees?\",\"Decimal Degrees\", True)\n if (doIt) then\n av.Run(\"DD.GetCoords\",{})\n end\nend\n\n\n\nfName = _workdir+_pathDel+\"xxSec1.txt\"\nif (File.Exists(fName.AsFileName)) then\n File.Delete(fName.AsFileName)\n
end\ntmpMeta = LineFile.Make(fName.AsFileName,#FILE_PERM_WRITE)\ntheD = av.FindDialog(\"Sec1\")\norg = theD.FindByName(\"Sec1_TxtPubOrg\").GetText.AsString\ntheDate = theD.FindByName(\"Sec1_TxtPubDate\").GetText.AsString\ntheTitle1 = theD.FindByName(\"Sec1_TxtPubTitle\").GetText.AsString\ntheEd = theD.FindByName(\"Sec1_TxtEd\").GetText.AsString\npubPlace = theD.FindByName(\"Sec1_TxtPubPlace\").GetText.AsString\npublisher = theD.FindByName(\"Sec1_TxtPublisher\").GetText.AsString\nonline = theD.FindByName(\"Sec1_TxtOnline\").GetText.
AsString\nOriginator = theD.FindByName(\"Sec1_TxtPubLWOrg\").GetText.AsString\nPubdate = theD.FindByName(\"Sec1_TxtPubLWDate\").GetText.AsString \nPubtitle = theD.FindByName(\"Sec1_TxtPubLWTitle\").GetText.AsString\nLWPlace = theD.FindByName(\"Sec1_TxtPubLWPlace\").GetText.AsString\nLWPub = theD.FindByName(\"Sec1_TxtPubLWPub\").GetText.AsString\nLWOnline = theD.FindByName(\"Sec1_TxtLWOnline\").GetText.AsString\ntheD = av.FindDialog(\"Sec1.2\")\ntpStart = theD.FindByName(\"Sec1.2_TxtBegDate\").GetText.AsString\ntpEnd = theD.FindByNa
me(\"Sec1.2_TxtEndDate\").GetText.AsString\ncurRef = theD.FindByName(\"Sec1.2_TxtCurRef\").GetText.AsString\nprog = theD.FindByName(\"Sec1.2_CBProg\").GetSelection\nif (prog = NIL) then\n prog = \"Complete\"\nelse\n prog = prog.AsString\nend\n\nmain = theD.FindByName(\"Sec1.2_CBMain\").GetSelection\nif (main = NIL) then\n main = \"Unknown\"\nelse\n main = main.AsString\nend\n\ntheD = av.FindDialog(\"Sec1.3\")\n\nconorg = theD.FindByName(\"Sec1.3_TxtOrg\").GetText.AsString\nperson = theD.FindByName(\"Sec1.3_TxtPer\").GetText.AsString\npos =
theD.FindByName(\"Sec1.3_TxtPos\").GetText.AsString\nadd = theD.FindByName(\"Sec1.3_TxtAdd\").GetText.AsString\ncity = theD.FindByName(\"Sec1.3_TxtCity\").GetText.AsString\nstate = theD.FindByName(\"Sec1.3_TxtState\").GetText.AsString\npcode = theD.FindByName(\"Sec1.3_TxtPCode\").GetText.AsString\ncountry = theD.FindByName(\"Sec1.3_TxtCountry\").GetText.AsString\ntele = theD.FindByName(\"Sec1.3_TxtTele\").GetText.AsString\nfax = theD.FindByName(\"Sec1.3_TxtFax\").GetText.AsString\nemail = theD.FindByName(\"Sec1.3_TxtEmail\").GetText
.AsString\nhours = theD.FindByName(\"Sec1.3_TxtHours\").GetText.AsString\n\ntmpMeta.WriteElt(\"IDENTIFICATION_INFORMATION\")\ntmpMeta.WriteElt(\"\")\ntmpMeta.WriteElt(\" Citation:\")\ntmpMeta.WriteElt(\" Citation_Information:\")\n\norgList = org.AsTokens(\";\")\n\norgList.RemoveDuplicates\nif (orgList.Count > 0) then\n for each o in orgList\n if (o.AsString <> \"\") then\n tmpMeta.WriteElt(\" Originator:\"++Av.Run(\"DD.WordWrap\",{o.Trim,\" \",false}))\n end\n end\nelse\n tmpMeta.WriteElt(\" Originator:\")\nend\ntmp
Meta.WriteElt(\" Publication_Date:\"++theDate)\ntmpMeta.WriteElt(\" Title:\"++Av.Run(\"DD.WordWrap\",{thetitle1.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Edition:\"++Av.Run(\"DD.WordWrap\",{theEd.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Geospatial_Data_Presentation_Form: Map\")\ntmpMeta.WriteElt(\" Publication_Information:\")\ntmpMeta.WriteElt(\" Publication_Place:\"++Av.Run(\"DD.WordWrap\",{Pubplace.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Publisher:\"++Av.Run(\"DD.WordWra
p\",{Publisher.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Other_Citation_Details:\")\n\ntheD = av.FindDialog(\"Sec1.1\")\nt = theD.FindByName(\"Sec1.1_TBoxCitDet\").GetText.AsString\nt = Av.Run(\"DD.WordWrap\",{t.AsString,\" \",true})\nif (t > \"\") then\n tmpMeta.WriteElt(t)\nend\ntmpMeta.WriteElt(\" Online_Linkage:\"++Av.Run(\"DD.WordWrap\",{online.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Larger_Work_Citation:\")\ntmpMeta.WriteElt(\" Citation_Information:\")\ntmpMeta.WriteElt(\" Origina
tor:\"++Av.Run(\"DD.WordWrap\",{Originator.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Publication_Date:\"++Av.Run(\"DD.WordWrap\",{Pubdate.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Title:\"++Av.Run(\"DD.WordWrap\",{Pubtitle.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Publication_Information:\")\ntmpMeta.WriteElt(\" Publication_Place:\"++Av.Run(\"DD.WordWrap\",{LWPlace.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Publisher:\"++Av.Run(\"DD.WordWrap\",
{LWPub.AsString,\" \",false}))\ntmpMeta.WriteElt(\" Online_Linkage:\"++Av.Run(\"DD.WordWrap\",{LWOnline.AsString,\" \",false}))\n\n\ntmpMeta.WriteElt(\" Description:\")\ntmpMeta.WriteElt(\" Abstract:\")\nt = theD.FindByName(\"Sec1.1_TBoxAbs\").GetText.AsString\nt = Av.Run(\"DD.WordWrap\",{t.AsString,\" \",true})\nif (t > \"\") then\n tmpMeta.WriteElt(t)\nend\n\n\ntmpMeta.WriteElt(\" Purpose:\")\nt = theD.FindByName(\"Sec1.1_TBoxPur\").GetText.AsString\nt = Av.Run(\"DD.WordWrap\",{t.AsString,\" \",true})\nif
(t > \"\") then\n tmpMeta.WriteElt(t)\nend\ntmpMeta.WriteElt(\" Supplemental_Information:\")\nt = theD.FindByName(\"Sec1.1_TBoxSup\").GetText.AsString\nt = Av.Run(\"DD.WordWrap\",{t.AsString,\" \",true})\nif (t > \"\") then\n tmpMeta.WriteElt(t)\nend\ntmpMeta.WriteElt(\" Time_Period_of_Content:\")\ntmpMeta.WriteElt(\" Time_Period_Information:\")\ntmpMeta.WriteElt(\" Range_of_Dates/Times:\")\ntmpMeta.WriteElt(\" Beginning_Date:\"++Av.Run(\"DD.WordWrap\",{tpStart.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Endin
g_Date:\"++Av.Run(\"DD.WordWrap\",{tpend.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Currentness_Reference:\"++Av.Run(\"DD.WordWrap\",{curRef.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Status:\")\ntmpMeta.WriteElt(\" Progress:\"++Av.Run(\"DD.WordWrap\",{prog.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Maintenance_and_Update_Frequency:\"++Av.Run(\"DD.WordWrap\",{main.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Spatial_Domain:\")\ntmpMeta.WriteElt(\" Bounding_Coordinates:\")\ntmpMeta.WriteElt(\" West_Bounding_
Coordinate:\"++Av.Run(\"DD.WordWrap\",{_west.AsString,\" \",False}))\ntmpMeta.WriteElt(\" East_Bounding_Coordinate:\"++Av.Run(\"DD.WordWrap\",{_east.AsString,\" \",False}))\ntmpMeta.WriteElt(\" North_Bounding_Coordinate:\"++Av.Run(\"DD.WordWrap\",{_north.AsString,\" \",False}))\ntmpMeta.WriteElt(\" South_Bounding_Coordinate:\"++Av.Run(\"DD.WordWrap\",{_south.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Keywords:\")\ntmpMeta.WriteElt(\" Theme:\")\ntmpMeta.WriteElt(\" Theme_Keyword_Thesaurus: None\")\ntheD =
av.FindDialog(\"Sec1.2\")\ntk = theD.FindByName(\"Sec1.2_TBoxTK\").GetText.AsString\ntheTokes = tk.AsTokens(NL)\nfor each t in theTokes\n tmpMeta.WriteElt(\" Theme_Keyword: \"+Av.Run(\"DD.WordWrap\",{t,\" \",False}))\nend\ntmpMeta.WriteElt(\" Place:\")\ntmpMeta.WriteElt(\" Place_Keyword_Thesaurus: None\")\ntk = theD.FindByName(\"Sec1.2_TBoxPK\").GetText.AsString\ntheTokes = tk.AsTokens(NL)\nfor each t in theTokes\n tmpMeta.WriteElt(\" Place_Keyword: \"+Av.Run(\"DD.WordWrap\",{t,\" \",False}))\nend\ntmpMeta.Write
Elt(\" Access_Constraints:\")\ntheD = av.FindDialog(\"Sec1.2\")\ncitDet = theD.FindByName(\"Sec1.2_TBoxAcc\").GetText.AsString\ntheTokes = citDet.AsTokens(NL)\nfor each t in theTokes\n tmpMeta.WriteElt(Av.Run(\"DD.WordWrap\",{t,\" \",True}))\nend\ntmpMeta.WriteElt(\" Use_Constraints:\")\ncitDet = theD.FindByName(\"Sec1.2_TBoxUse\").GetText.AsString\ntheTokes = citDet.AsTokens(NL)\nfor each t in theTokes\n tmpMeta.WriteElt(Av.Run(\"DD.WordWrap\",{t,\" \",True}))\nend\n\ntmpMeta.WriteElt(\" Point_of_Contact:\")\ntmpMeta.WriteElt(\" Co
ntact_Information:\")\ntmpMeta.WriteElt(\" Contact_Organization_Primary:\")\ntmpMeta.WriteElt(\" Contact_Organization:\"++Av.Run(\"DD.WordWrap\",{conorg,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Person:\"++Av.Run(\"DD.WordWrap\",{person,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Position:\"++Av.Run(\"DD.WordWrap\",{pos,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Address:\")\ntmpMeta.WriteElt(\" Address_Type: mailing and physical address\")\ntmpMeta.WriteElt(\" Address:\"++Av.R
un(\"DD.WordWrap\",{add,\" \",False}))\ntmpMeta.WriteElt(\" City:\"++Av.Run(\"DD.WordWrap\",{city,\" \",False}))\ntmpMeta.WriteElt(\" State_or_Province:\"++Av.Run(\"DD.WordWrap\",{state,\" \",False}))\ntmpMeta.WriteElt(\" Postal_Code:\"++Av.Run(\"DD.WordWrap\",{pcode,\" \",False}))\ntmpMeta.WriteElt(\" Country:\"++Av.Run(\"DD.WordWrap\",{country,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Voice_Telephone:\"++Av.Run(\"DD.WordWrap\",{tele,\" \",False}))\ntmpMeta.WriteElt(\"
Contact_Facsimile_Telephone:\"++Av.Run(\"DD.WordWrap\",{fax,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Electronic_Mail_Address:\"++Av.Run(\"DD.WordWrap\",{email,\" \",False}))\ntmpMeta.WriteElt(\" Hours_of_Service:\"++Av.Run(\"DD.WordWrap\",{hours,\" \",False}))\nthepath = _theTheme.GetSrcName.GetDataSource\n'Native_DataSet_Environment\nver = NIL\nif (_theType = \"Shapefile\") then\n ver = \"ArcView version\"++av.GetVersion++\"shapefile format\"\nend\nif (_theType = \"Coverage\") then\n ver = \"Arc/Info coverage
format\"\nend\nif (_theType = \"Grid\") then\n ver = \"ESRI Grid format\"\nend\nif (_theType = \"DXFFile\") then\n ver = \"CAD drawing format\"\nend\nif (_theVer <> NIL) then\n ver = _theVer\nend\nif (ver = NIL) then\n ver = MsgBox.Input(\"Enter the Native_DataSet_Environment 1.13\",\"1.13 Native_Dataset_Environment\",\" \")\nend\ntmpMeta.WriteElt(\" Native_Data_Set_Environment:\")\nif (ver <> NIL) then\n theTokes = ver.AsTokens(NL)\n for each t in theTokes\n tmpMeta.WriteElt(Av.Run(\"DD.WordWrap\",{t,\" \",True}))\n end\nend\ntmpMeta.W
riteElt(\" \"+thepath.Trim)\ntmpMeta.Close"
)
(Script.124
Name: "DD.Sec2.1_LinRet"
SourceCode: "'linlication_Information and Larger_Work_Citation\n\ntheD = av.FindDialog(\"Sec2.1\")\nlinFile = _workdir+_pathDel+\"lineage.dbf\"\nlinVTab = VTab.Make(linFile.AsFileName,false,false)\nlinCnt = {}\nidSet = true\nif (linVTab.GetSelection = NIL) then\n linid = NIL\n linEx = NIL\n MsgBox.Info(\"Could not find: \"+linFile.AsString+\". Move the file or change your Working Directory.\",\"Lineage Information\")\nelse\n linList = {}\n linEx = true\n linidField = linVTab.FindField(\"lin_Id\")\n for each o in linVTab\n linid = linVTab
.ReturnValue(linidField,o)\n linList.Add(linid)\n if (linid.Contains(\"Lineage_Id\")) then\n linCnt.Add(linid)\n end\n end\n linid = MsgBox.ListAsString(linList,\"Select linlication_Information and Larger_Work_Citation Id.\",\"linlication_Information (linlicat.dbf)\")\nend\nif (linid <> NIL) then\n Querystr = \"([Lin_id] =\"++linid.Quote+\")\"\n linVTab.GetSelection.SetAll\n linBitMap = linVTab.GetSelection\n linVTab.Query(Querystr,linBitMap,#VTAB_SELTYPE_NEW)\n linVTab.UpdateSelection\n QueryBitmap = linVTab
.GetSelection\n for each b in QueryBitmap\n linOrg = linVTab.ReturnValue(linVTab.FindField(\"originator\"),b)\n theD.FindByName(\"Sec2.1_TxtLinOrg\").SetText(linOrg)\n linDate = linVTab.ReturnValue(linVTab.FindField(\"date\"),b)\n theD.FindByName(\"Sec2.1_TxtLinDate\").SetText(linDate)\n linTitle = linVTab.ReturnValue(linVTab.FindField(\"title\"),b)\n theD.FindByName(\"Sec2.1_TxtLinTit\").SetText(linTitle)\n linEdition = linVTab.ReturnValue(linVTab.FindField(\"edition\"),b)\n theD.FindByName(\"Sec2.1_TxtLi
nEd\").SetText(linEdition)\n linPlace = linVTab.ReturnValue(linVTab.FindField(\"place\"),b)\n theD.FindByName(\"Sec2.1_TxtLinPP\").SetText(linPlace)\n linPub = linVTab.ReturnValue(linVTab.FindField(\"publisher\"),b)\n theD.FindByName(\"Sec2.1_TxtLinPub\").SetText(linPub)\n linScale = linVTab.ReturnValue(linVTab.FindField(\"scale\"),b)\n theD.FindByName(\"Sec2.1_TxtLinSSD\").SetText(linScale)\n linMedia= linVTab.ReturnValue(linVTab.FindField(\"media\"),b)\n theD.FindByName(\"Sec2.1_TxtMed\").SetText(linMedia)
\n end\nend"
)
(Script.125
Name: "DD.Sec2.1_LinSave"
SourceCode: "theD = av.FindDialog(\"Sec2.1\")\nlinFile = _workdir+_pathDel+\"lineage.dbf\"\nlinVTab = VTab.Make(linFile.AsFileName,false,false)\npubCnt = {}\nidSet = true\npubEx = True\nif (linVTab.GetSelection = NIL) then\n PubEx = NIL\nend\nif (PubEx = NIL) then\n linVTab = VTab.MakeNew(linfile.AsFileName,dBASE)\n linIdField = Field.Make(\"lin_Id\",#FIELD_VCHAR,20,0)\n linOrgField = Field.Make(\"originator\",#FIELD_VCHAR,50,0)\n linDateField = Field.Make(\"date\",#FIELD_VCHAR,50,0)\n linTitleField = Field.Make(\"title\",#FIELD_VCHAR,50,0
)\n linEditionField = Field.Make(\"edition\",#FIELD_VCHAR,50,0)\n linPlaceField = Field.Make(\"place\",#FIELD_VCHAR,50,0)\n linPubField = Field.Make(\"publisher\",#FIELD_VCHAR,50,0)\n linScaleField = Field.Make(\"scale\",#FIELD_VCHAR,10,0)\n linMediaField = Field.Make(\"media\",#FIELD_VCHAR,50,0) \n FieldList = {linIdField,linOrgField,linDateField,linTitleField,linEditionField,linPlaceField,linPubField,linScaleField,linMediaField}\n linVTab.AddFields(FieldList)\nelse\n linVTab = VTab.Make(linFile.AsFileName,false,f
alse)\nend\n\nlinId = MsgBox.Input(\"Enter Lineage_Id (reference for future use)\",\"Lineage ID\",\"\")\nif (linId = NIL) then\n System.Beep\n MsgBox.Warning(\"You must enter a Lineage_Id for future access!\",\"Warning\")\n exit\nend\nlinVTab.Seteditable(true)\nnewRec = linVTab.AddRecord\nlinVTab.SetValue(linVTab.FindField(\"lin_Id\"), newRec, linid)\nlinOrg = theD.FindByName(\"Sec2.1_TxtLinOrg\").GetText\nlinVTab.SetValue(linVTab.FindField(\"originator\"), newRec, linOrg)\nlinDate = theD.FindByName(\"Sec2.1_TxtLinDate\").GetText\nlinVT
ab.SetValue(linVTab.FindField(\"date\"),newRec, linDate)\nlinTitle = theD.FindByName(\"Sec2.1_TxtLinTit\").GetText\nlinVTab.SetValue(linVTab.FindField(\"title\"), newRec, linTitle)\nlinEdition = theD.FindByName(\"Sec2.1_TxtLinEd\").GetText\nlinVTab.SetValue(linVTab.FindField(\"edition\"), newRec, linEdition)\nlinPlace = theD.FindByName(\"Sec2.1_TxtLinPP\").GetText\nlinVTab.SetValue(linVTab.FindField(\"place\"), newRec, linPlace)\nlinPub = theD.FindByName(\"Sec2.1_TxtLinPub\").GetText\nlinVTab.SetValue(linVTab.FindField(\"publisher\"
), newRec, linPub)\nlinScale = theD.FindByName(\"Sec2.1_TxtLinSSD\").GetText\nlinVTab.SetValue(linVTab.FindField(\"scale\"), newRec, linScale)\nlinMedia = theD.FindByName(\"Sec2.1_TxtMed\").GetText\nlinVTab.SetValue(linVTab.FindField(\"media\"), newRec, linMedia)\nlinVTab.SetEditable(false)"
)
(Script.126
Name: "DD.Sec2.1_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec2.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt\nlw = false\n_Sec2OrList = {}\ntheDia = av.FindDialog(\"Sec2.1\")\nprocCnt = 0\n\n'Set values in Dialogs\nwhile (lf.IsAtEnd.NOT)\n e2 = lf.ReadElt.Substitute(NL,\"\")\n if (e.Contains(\"Source_Information:\")) then\n lw = False\n _Sec2OrList = {}\n end\n if (e.Contains(\"Larger_Work_Citation:\")) then\n lw = true\n end\n if (lw = False) then\n if (e.Contains(\"Originator:\")) then\n if (e.AsTokens(\":\").Count > 1) then\n
_Sec2OrList.Add(e.AsTokens(\":\").Get(1))\n end\n end\n end\n if (lw = False) then\n theDia = av.FindDialog(\"Sec2.1\")\n if ((e.Contains(\"Publication_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPubDate\").SetText(s)\n elseif ((e.Contains(\"Title:\")) and (e.AsTokens(\":\").Count > 1)) then\n e3 = lf.ReadElt.Substitute(NL,\"\")\n e4 = lf.ReadElt.Substitute(NL,\"\")\n s = av.Run(\"DD.Load_String\",{e,e2,e3,e4})\n
theDia.FindByName(\"Sec2.1_TxtPubTitle\").SetText(s)\n lf.SetPos(lf.GetPos - 2)\n elseif ((e.Contains(\"Edition:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtEd\").SetText(s)\n elseif ((e.Contains(\"Publication_Place:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPubPlace\").SetText(s) \n elseif ((e.Contains(\"Publisher:\")) and (e.AsTokens(\":\").Count > 1))
then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPublisher\").SetText(s)\n elseif ((e.Contains(\"Online_Linkage:\")) and (e.AsTokens(\":\").Count > 1)) then\n tokes = e.AsTokens(\":\")\n s = \"\"\n cnt = 0\n for each t in tokes\n if (cnt > 0) then\n if (cnt > 1) then\n s = s + \":\"+t\n else\n s = t\n end\n end\n cnt = cnt + 1\n end\n theDia.FindByName(\"Sec2.1_TxtOnline\").SetText(s) 'e.AsTokens(\":\"
).Get(1).Trim) \n end\n end\n \n if (lw = True) then\n if ((e.Contains(\"Originator:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPubLWOrg\").SetText(s)\n elseif ((e.Contains(\"Publication_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPubLWDate\").SetText(s)\n elseif ((e.Contains(\"Title:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_
String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPubLWTitle\").SetText(s)\n elseif ((e.Contains(\"Publication_Place:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPubLWPlace\").SetText(s) \n elseif ((e.Contains(\"Publisher:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.1_TxtPubLWPub\").SetText(s)\n elseif ((e.Contains(\"Online_Linkage:\")) and (e.AsTokens(\":\").Count >
1)) then\n tokes = e.AsTokens(\":\")\n s = \"\"\n cnt = 0\n for each t in tokes\n if (cnt > 0) then\n if (cnt > 1) then\n s = s + \":\"+t\n else\n s = t\n end\n end\n cnt = cnt + 1\n end\n theDia.FindByName(\"Sec2.1_TxtLWOnline\").SetText(s) \n end\n end\n lf.SetPos(lf.GetPos - 1)\n e = lf.ReadElt\nend\nif (_Sec2OrList.Count > 0) then\n s = \"\"\n cnt = 0\n for each o in _sec2OrList\n if (cnt > 0) then\n s = s + \"; \" + o\n
else\n s = o\n end\n cnt = cnt + 1\n end\n av.FindDialog(\"Sec2.1\").FindByName(\"Sec2.1_TxtPubOrg\").SetText(s)\nend\nlf.Close\n\n'Create temp xxlin files\nlf = LineFile.Make((_workdir+_pathdel+\"xxSec2.txt\").AsFileName,#FILE_PERM_READ)\nlinFile = Nil\nkeepOn = True\ngotLin = False\nWhile (keepOn)\n e = lf.ReadElt\n if (e.Contains(\"Source_Information:\")) then\n gotLin = True\n _linCnt = _linCnt + 1\n if (linFile <> Nil) then\n linFile.Close\n end\n linFile = LineFile.Make((_workdir+_pathdel+\"xxLin\"
+_linCnt.AsString+\".txt\").AsFileName,#FILE_PERM_WRITE)\n end\n if (gotLin) then\n if ((e.Contains(\"Process_Step:\")) or (lf.IsAtEnd)) then\n keepon = False\n gotLin = False\n linFile.Close\n else\n if (e.Count > 1) then\n linFile.WriteElt(e)\n end\n end\n end\n if ((e.Contains(\"Process_Step:\")) or (lf.IsAtEnd)) then\n keepon = False\n end\nend\n'if (_linCnt > 0) then\n' _linCnt = _linCnt - 1\n'end\nav.Run(\"DD.Sec2.2_Load\",{})"
)
(Script.127
Name: "DD.Sec2.1_TmpLin"
SourceCode: "'Write stuff from Sec2.1\n\n'Set up temp file\nif (_linCnt = 0) then\n _linCnt = 1\nelse\n _linCnt = _linCnt + 1\nend\nmetaName = (_workdir+_pathDel+\"xxLin\"+_linCnt.AsString+\".txt\").AsFilename\ntmpMeta = LineFile.Make(metaName,#FILE_PERM_WRITE)\n\n\ntheD = av.FindDialog(\"Sec2.1\")\norg = theD.FindByName(\"Sec2.1_TxtPubOrg\").GetText.AsString\n\nlinDate = theD.FindByName(\"Sec2.1_TxtPubDate\").GetText.AsString\nlinTitle = theD.FindByName(\"Sec2.1_TxtPubTitle\").GetText.AsString\nlinEdition = theD.FindByName(\"Sec2.1_TxtEd\").GetTex
t.AsString\nlinPlace = theD.FindByName(\"Sec2.1_TxtPubPlace\").GetText.AsString\nlinPub = theD.FindByName(\"Sec2.1_TxtPublisher\").GetText.AsString\nonLine = theD.FindByName(\"Sec2.1_TxtOnline\").GetText.AsString\nOriginator = theD.FindByName(\"Sec2.1_TxtPubLWOrg\").GetText.AsString\nPubdate = theD.FindByName(\"Sec2.1_TxtPubLWDate\").GetText.AsString \nPubtitle = theD.FindByName(\"Sec2.1_TxtPubLWTitle\").GetText.AsString\nLWPlace = theD.FindByName(\"Sec2.1_TxtPubLWPlace\").GetText.AsString\nLWPub = theD.FindByName(\"Sec2.1_TxtPub
LWPub\").GetText.AsString\nLWOnline = theD.FindByName(\"Sec2.1_TxtLWOnline\").GetText.AsString\n\ntmpMeta.WriteElt(\" Source_Information:\")\ntmpMeta.WriteElt(\" Source_Citation:\")\ntmpMeta.WriteElt(\" Citation_Information:\")\norgList = org.AsTokens(\";\")\norgList.RemoveDuplicates\nif (orgList.Count > 0) then\n for each o in orgList\n if (o.AsString <> \"\") then\n tmpMeta.WriteElt(\" Originator:\"++Av.Run(\"DD.WordWrap\",{o.Trim,\" \",false}))\n end\n end\nelse\n tmpMeta.WriteElt(\"
Originator:\")\nend\n\ntmpMeta.WriteElt(\" Publication_Date:\"++Av.Run(\"DD.WordWrap\",{linDate,\" \",False}))\ntmpMeta.WriteElt(\" Title:\"++Av.Run(\"DD.WordWrap\",{linTitle,\" \",False}))\ntmpMeta.WriteElt(\" Edition:\"++Av.Run(\"DD.WordWrap\",{linEdition,\" \",False}))\ntmpMeta.WriteElt(\" Geospatial_Data_Presentation_Form: map\")\ntmpMeta.WriteElt(\" Publication_Information:\")\ntmpMeta.WriteElt(\" Publication_Place:\"++Av.Run(\"DD.WordWrap\",{linPlace,\"
\",False}))\ntmpMeta.WriteElt(\" Publisher:\"++Av.Run(\"DD.WordWrap\",{linPub,\" \",False}))\ntmpMeta.WriteElt(\" Other_Citation_Details:\")\ntheD = av.FindDialog(\"Sec2.2\")\nr = theD.FindByName(\"Sec2.2_TBoxCitDet\").GetText.Trim\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\ntmpMeta.WriteElt(\" Online_Linkage:\"++Av.Run(\"DD.WordWrap\",{online,\" \",False}))\ntmpMeta.WriteElt(\" Larger_Work_Citation:\")\ntmpMet
a.WriteElt(\" Citation_Information:\")\ntmpMeta.WriteElt(\" Originator:\"++Av.Run(\"DD.WordWrap\",{Originator.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Publication_Date:\"++Av.Run(\"DD.WordWrap\",{Pubdate.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Title:\"++Av.Run(\"DD.WordWrap\",{Pubtitle.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Publication_Information:\")\ntmpMeta.WriteElt(\" Publication_Place:\"++Av.Run(\"DD.W
ordWrap\",{LWPlace.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Publisher:\"++Av.Run(\"DD.WordWrap\",{LWPub.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Online_Linkage:\"++Av.Run(\"DD.WordWrap\",{LWOnline.AsString,\" \",False}))\n\n\n\n'Write stuff from Sec2.2\ntheD = av.FindDialog(\"Sec2.2\")\nlinScale = theD.FindByName(\"Sec2.2_TxtLinSSD\").GetText.AsString\nlinMedia = theD.FindByName(\"Sec2.2_TxtMed\").GetText.AsString \n\n\ntmpMeta.WriteElt(\" Source_Scale_Denom
inator:\"++Av.Run(\"DD.WordWrap\",{linScale.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Type_of_Source_Media:\"++Av.Run(\"DD.WordWrap\",{linMedia.AsString,\" \",False}))\n\nbDate = theD.FindByName(\"Sec2.2_TxtTBeg\").GetText.AsString\neDate = theD.FindByName(\"Sec2.2_TxtTEnd\").GetText.AsString\ncRef = theD.FindByName(\"Sec2.2_TxtCur\").GetText.AsString\nsAbb = theD.FindByName(\"Sec2.2_TxtCit\").GetText.AsString\ntmpMeta.WriteElt(\" Source_Time_Period_of_Content:\")\ntmpMeta.WriteElt(\" Time_Period_Informatio
n:\")\ntmpMeta.WriteElt(\" Range_of_Dates/Times:\")\ntmpMeta.WriteElt(\" Beginning_Date:\"++Av.Run(\"DD.WordWrap\",{bDate.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Ending_Date:\"++Av.Run(\"DD.WordWrap\",{eDate.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Source_Currentness_Reference:\"++Av.Run(\"DD.WordWrap\",{cRef.AsString,\" \",False}))\ntmpMeta.WriteElt(\" Source_Citation_Abbreviation:\"++Av.Run(\"DD.WordWrap\",{sAbb.AsString,\" \",False}))\n\ntmpMeta.WriteEl
t(\" Source_Contribution:\")\nr = theD.FindByName(\"Sec2.2_TBoxSoCon\").GetText.Trim\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\ntmpMeta.Close"
)
(Script.128
Name: "DD.Sec2.2_CitDetSave"
SourceCode: "theD = Self.GetDialog\nmetaName = _workdir+_pathDel+\"otcitdet.txt\"\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"New File Name\")\nif(outFile = NIL) then\n system.beep\n exit\nend\nnewFile = LineFile.Make(outFile, #FILE_PERM_WRITE)\nnewFile.WriteElt(theD.FindByName(\"Sec2.2_TBoxCitDet\").GetText)\nnewFile.Close"
)
(Script.129
Name: "DD.Sec2.2_CitDetText"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2.2_TBoxCitDet\", \"Other Citation Details\"})\n"
)
(Script.130
Name: "DD.Sec2.2_CreateSource"
SourceCode: "av.Run(\"DD.ClearEm\",{\"Sec2.1\"})\nav.Run(\"DD.ClearEm\",{\"Sec2.2\"})\nnextDia = av.FindDialog(\"Sec2.1\")\nif (_doLin = True) then\n av.Run(\"DD.Sec2.1_TmpLin\",{})\nend\n_doLin = True\nSelf.GetDialog.Close\nnextDia.Open"
)
(Script.131
Name: "DD.Sec2.2_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec2.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt\nlw = false\n_Sec2OrList = {}\ntheDia = av.FindDialog(\"Sec2.2\")\nprocCnt = 0\nwhile (lf.IsAtEnd.NOT)\n e2 = lf.ReadElt.Substitute(NL,\"\")\n if (e.Contains(\"Other_Citation_Details:\")) then \n theDia = av.FindDialog(\"Sec2.2\")\n goon = true\n pos = lf.GetPos\n if (e2 <> NIL) then\n e = e2\n end\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Online_Linkage:\")) then\n goon = false\n else\n
abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2.2_TBoxCitDet\").SetText(abs)\n lf.SetPos(pos)\n theDia = av.FindDialog(\"Sec2.1\")\n end\n \n if ((e.Contains(\"Source_Scale_Denominator:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia = av.FindDialog(\"Sec2.2\")\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.2_TxtLinSSD\").SetText(s)\n end \n if ((e.Contains(\"Type_of_Source_Media:\")) and (e.AsTokens(\":\").Count > 1)) th
en\n theDia = av.FindDialog(\"Sec2.2\")\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.2_TxtMed\").SetText(s)\n end\n if ((e.Contains(\"Beginning_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia = av.FindDialog(\"Sec2.2\")\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.2_TxtTBeg\").SetText(s)\n end\n if ((e.Contains(\"Ending_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia = av.FindDialog(\"Sec2.2\")\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindB
yName(\"Sec2.2_TxtTEnd\").SetText(s)\n end\n if ((e.Contains(\"Source_Currentness_Reference:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia = av.FindDialog(\"Sec2.2\")\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.2_TxtCur\").SetText(s)\n end\n if ((e.Contains(\"Source_Citation_Abbreviation:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia = av.FindDialog(\"Sec2.2\")\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.2_TxtCit\").SetText(s)\n end\n \n if (e.Contains(\"Sour
ce_Contribution:\")) then \n theDia = av.FindDialog(\"Sec2.2\")\n goon = true\n pos = lf.GetPos\n e = e2\n abs = \"\"\n while (goon = true)\n if ((e.Contains(\"Process_Step:\")) or (e2.Contains(\"Process_Step:\")) or (lf.IsAtEnd)) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2.2_TBoxSoCon\").SetText(abs)\n lf.SetPos(pos - 1)\n e = lf.ReadElt\n end\n lf.SetPos(lf.GetPos - 1)\n e = lf.ReadElt\ne
nd\nlf.Close\nav.Run(\"DD.Sec2.3_Load\",{})"
)
(Script.132
Name: "DD.Sec2.2_SoConSave"
SourceCode: "theD = Self.GetDialog\nmetaName = _workdir+_pathDel+\"source.txt\"\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"New File Name\")\nif(outFile = NIL) then\n system.beep\n exit\nend\nnewFile = LineFile.Make(outFile, #FILE_PERM_WRITE)\nnewFile.WriteElt(theD.FindByName(\"Sec2.2_TBoxSoCon\").GetText)\nnewFile.Close"
)
(Script.133
Name: "DD.Sec2.2_SoConText"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2.2_TBoxSoCon\", \"Source Contribution\"})"
)
(Script.134
Name: "DD.Sec2.3_Cont"
SourceCode: "'section 3\n'SPATIAL_DATA_ORGANIZATION_INFORMATION\n\nif (_ProDone = NIL) then\n if (av.FindDialog(\"Sec2.3\").FindByName(\"Sec2.3_TBoxPro\").GetText > \"\") then ' we have a Process Step\n savem = MsgBox.YesNoCancel(\"Do you want to save changes to existing Process Step?\",\"Save Changes\",true)\n if (savem = NIL) then\n system.Beep\n exit\n end\n if (savem = true) then\n av.Run(\"DD.TB_Save\", {av.FindDialog(\"Sec2.3\").AsString,\"Sec2.3_TBoxPro\",\"process.txt\",\"Process Step\"})\n end\n end\nend\n\nav.Run(
\"DD.Sec2_Write\",{})\nif (File.Exists((av.GetProject.GetWorkDir.AsString+\"\\xxSec3.txt\").AsFilename)) then\n File.Delete((av.GetProject.GetWorkDir.AsString+\"\\xxSec3.txt\").AsFilename)\nend\nSelf.GetDialog.Close\nav.FindDialog(\"Sec3\").Open"
)
(Script.135
Name: "DD.Sec2.3_Edit"
SourceCode: "'Write current information to the correct xxProcN file\nif (_procCnt = 0) then\n _procCnt = 1\nend\n\n'Check to see if the user Edited a previous Process Step\nif (_procEdit <> NIL) then\n pCnt = _procEdit\nelse\n pCnt = _procCnt\nend\n\n\nmetaName = (_workdir+_pathDel+\"xxproc\"+pCnt.AsString+\".txt\").AsFilename\nlf = LineFile.Make(metaName,#FILE_PERM_WRITE)\nlf.WriteElt(\" Process_Step:\")\nlf.WriteElt(\" Process_Description:\")\ntheD = av.FindDialog(\"Sec2.3\")\nr = theD.FindByName(\"Sec2.3_TBoxPro\").GetText.AsString\nr =
Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n lf.WriteElt(r)\nend\nlf.WriteElt(\" Source_Used_Citation_Abbreviation:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtSrcUsed\").GetText,\" \",False}))\nlf.WriteElt(\" Process_Date:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtProDate\").GetText,\" \",False}))\nlf.WriteElt(\" Source_Produced_Citation_Abbreviation:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtSrcPro\").GetText,\" \",False}))\nlf.WriteElt(\"
Process_Contact:\")\nlf.WriteElt(\" Contact_Information:\")\nlf.WriteElt(\" Contact_Person_Primary:\")\nlf.WriteElt(\" Contact_Organization:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtOrg\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Person:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPer\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Position:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPos\").GetText.AsString,\"
\",False}))\nlf.WriteElt(\" Contact_Address:\")\nlf.WriteElt(\" Address_Type: mailing and physical address\")\nlf.WriteElt(\" Address:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtAdd\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" City:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtCity\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" State_or_Province:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtState\").GetText.AsStri
ng,\" \",False}))\nlf.WriteElt(\" Postal_Code:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPCode\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Country:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtCountry\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Voice_Telephone:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtTele\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Facsimile_Telephone:\"++Av.Run(\"DD.W
ordWrap\",{theD.FindByName(\"Sec2.3_TxtFax\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Electronic_Mail_Address:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtEmail\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Hours_of_Service:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtHours\").GetText.AsString,\" \",False}))\nlf.Close\n\n'Give user a list of Process Steps to choose from\ngetProc = True\ncnt = 1\nprocList = {}\nWhile (getProc)\n pName = (_workdir+_pat
hDel+\"xxproc\"+cnt.AsString+\".txt\").AsFilename\n if (File.Exists(pName)) then\n procList.Add(\"Process Step \"+cnt.AsString)\n else\n getProc = False\n end\n cnt = cnt + 1\nend\n\ntheProcEdit = MsgBox.ListAsString(procList,\"Select Process Step to Edit\",\"Edit Process Step\")\nif (theProcEdit = NIL) then\n System.Beep\n _procEdit = NIL\n exit\nelse\n _procEdit = theProcEdit.AsTokens(\" \").Get(2)\n 'Now populate Dialog with values from the selected xxProcN file \n if (File.Exists((_workdir+_pathdel+\"xxProc\"+_procEd
it.AsString+\".txt\").AsFileName)) then\n lf = LineFile.Make((_workdir+_pathdel+\"xxProc\"+_procEdit.AsString+\".txt\").AsFileName,#FILE_PERM_READ)\n e = lf.ReadElt\n theDia = av.FindDialog(\"Sec2.3\")\n while (lf.IsAtEnd.NOT)\n if (lf.IsAtEnd.Not) then\n e2 = lf.ReadElt.Substitute(NL,\"\")\n end\n if (e.Contains(\"Process_Description:\")) then \n goon = true\n pos = lf.GetPos\n e = e2\n abs = \"\"\n while (goon = true)\n if ((e.Contains(\"Source_Used_Citatio
n_Abbreviation:\")) or (lf.IsAtEnd)) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2.3_TBoxPro\").SetText(abs)\n lf.SetPos(pos)\n e = lf.ReadElt\n end\n if ((e.Contains(\"Source_Used_Citation_Abbreviation:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtSrcUsed\").SetText(s)\n el
seif ((e.Contains(\"Process_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtProDate\").SetText(s)\n elseif ((e.Contains(\"Source_Produced_Citation_Abbreviation:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtSrcPro\").SetText(s)\n elseif ((e.Contains(\"Contact_Person:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n
theDia.FindByName(\"Sec2.3_TxtPer\").SetText(s)\n elseif ((e.Contains(\"Contact_Organization:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtOrg\").SetText(s)\n elseif ((e.Contains(\"Contact_Person:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtPer\").SetText(s)\n elseif ((e.Contains(\"Contact_Position:\")) and (e.AsTokens(\":\").Count > 1)) then\n
s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtPos\").SetText(s)\n elseif (e.Contains(\"Address:\")) then' and (e.Contains(\"Contact_Address:\").NOT) and (e.Contains(\"Electronic\").NOT) and (e.AsTokens(\":\").Count > 1)) then\n if (e.Contains(\"Contact_Address:\")) then\n elseif (e.Contains(\"Contact_Electronic_Mail_Address:\")) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtEmail\").SetText(s)\n else\n s = av.Run(\"D
D.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtAdd\").SetText(s)\n end\n elseif ((e.Contains(\"City:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtCity\").SetText(s)\n elseif ((e.Contains(\"State_or_Province:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtState\").SetText(s)\n elseif ((e.Contains(\"Postal_Code:\")) and (e.AsTokens(\":
\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtPCode\").SetText(s)\n elseif ((e.Contains(\"Country:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtCountry\").SetText(s)\n elseif ((e.Contains(\"Contact_Voice_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtTele\").SetText(s)\n elseif ((e.Cont
ains(\"Contact_Facsimile_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtFax\").SetText(s)\n end \n if (e2.Contains(\"Hours_of_Service:\")) then\n e = e2\n end \n if ((e.Contains(\"Hours_of_Service:\")) and (e.AsTokens(\":\").Count > 1)) then\n h = \"\"\n cnt = 0\n for each t in e.AsTokens(\":\")\n if (cnt > 0) then\n if (cnt = 1) then\n h = h + t.Trim\n
else\n h = h + \":\"+ t\n end\n end\n cnt = cnt + 1\n end \n theDia.FindByName(\"Sec2.3_TxtHours\").SetText(h)\n end\n lf.SetPos(lf.GetPos - 1)\n e = lf.ReadElt\n end 'While\n lf.Close\n end\nend "
)
(Script.136
Name: "DD.Sec2.3_EditEnabled"
SourceCode: "theButt = av.FindDialog(\"Sec2.3\").FindByName(\"aLabelButton3\")\nif ((File.Exists((_workdir+_pathDel+\"xxProc2.txt\").AsFileName)) or (_ProcCnt > 0)) then\n theButt.SetEnabled(True)\nelse\n theButt.SetEnabled(False)\nend"
)
(Script.137
Name: "DD.Sec2.3_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec2.txt\").AsFileName,#FILE_PERM_READ)\ngotProc = False\nprocCnt = 0\nnewFile = LineFile.Make((_workdir+_pathdel+\"xxProc.txt\").AsFileName,#FILE_PERM_WRITE)\nwhile (lf.IsAtEnd.NOT)\n e = lf.ReadElt\n if (e.Contains(\"Process_Step:\")) then\n \n gotProc = True\n end\n if (gotProc) then\n 'msgbox.info(e,\"\")\n newFile.WriteElt(e)\n end\nend 'While \nlf.Close\nnewFile.Close\n'if (gotProc) then\n' \n' newFile.Close\n' msgbox.info(\"new file is closed\",\"\")\n'end\n\n'Make temp
Process Step files, one for each Step\n\n\nif (File.Exists((_workdir+_pathdel+\"xxProc.txt\").AsFileName)) then\n lf = LineFile.Make((_workdir+_pathdel+\"xxProc.txt\").AsFileName,#FILE_PERM_READ)\n if (lf.GetSize < 3) then\n lf.Close\n File.Delete((_workdir+_pathdel+\"xxProc.txt\").AsFileName)\n else\n While (lf.IsAtEnd.Not) \n e = lf.ReadElt\n if (e.Contains(\"Process_Step:\")) then\n _procCnt = _procCnt + 1\n 'Make the new file\n pf = LineFile.Make((_workdir+_pathdel+\"xxProc\"+_pr
ocCnt.AsString+\".txt\").AsFileName,#FILE_PERM_WRITE)\n pf.WriteElt(e)\n if ((lf.IsAtEnd).Not) then\n keepOn = True\n end\n While (keepOn)\n e = lf.ReadElt\n if (e.Contains(\"Process_Step:\")) then\n keepOn = False\n pf.Close\n pos = lf.GetPos\n elseif (lf.IsAtEnd) then\n keepOn = False\n pf.WriteElt(e)\n pf.Close\n pos = lf.GetPos\n else\n pf.WriteElt(e)\n end\n
end 'KeepOn\n lf.SetPos(pos - 2)\n end\n end\n lf.Close\n end\nend\n\n\n'Now load values into Dialog\nif (File.Exists((_workdir+_pathdel+\"xxProc\"+_procCnt.AsString+\".txt\").AsFileName)) then\n lf = LineFile.Make((_workdir+_pathdel+\"xxProc.txt\").AsFileName,#FILE_PERM_READ)\n _procLoad = True\n e = lf.ReadElt\n theDia = av.FindDialog(\"Sec2.3\")\n while (lf.IsAtEnd.NOT)\n if (lf.IsAtEnd.Not) then\n e2 = lf.ReadElt.Substitute(NL,\"\")\n end\n if (e.Contains(\"Process_Description:\")) then \n
goon = true\n pos = lf.GetPos\n e = e2\n abs = \"\"\n while (goon = true)\n if ((e.Contains(\"Source_Used_Citation_Abbreviation:\")) or (e.Contains(\"Process_Date:\")) or (lf.IsAtEnd)) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2.3_TBoxPro\").SetText(abs)\n lf.SetPos(pos)\n e = lf.ReadElt\n end\n if ((e.Contains(\"Source_Used_Citation_Abbreviation:\")) a
nd (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtSrcUsed\").SetText(s)\n elseif ((e.Contains(\"Process_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtProDate\").SetText(s)\n elseif ((e.Contains(\"Source_Produced_Citation_Abbreviation:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtSrcPro\").SetText(
s)\n elseif ((e.Contains(\"Contact_Person:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtPer\").SetText(s)\n elseif ((e.Contains(\"Contact_Organization:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtOrg\").SetText(s)\n elseif ((e.Contains(\"Contact_Person:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Se
c2.3_TxtPer\").SetText(s)\n elseif ((e.Contains(\"Contact_Position:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtPos\").SetText(s)\n elseif (e.Contains(\"Address:\")) then' and (e.Contains(\"Contact_Address:\").NOT) and (e.Contains(\"Electronic\").NOT) and (e.AsTokens(\":\").Count > 1)) then\n if (e.Contains(\"Contact_Address:\")) then\n elseif (e.Contains(\"Contact_Electronic_Mail_Address:\")) then\n s = av.Run(\"DD.Load_String\",{e,
e2})\n theDia.FindByName(\"Sec2.3_TxtEmail\").SetText(s)\n else\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtAdd\").SetText(s)\n end\n elseif ((e.Contains(\"City:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtCity\").SetText(s)\n elseif ((e.Contains(\"State_or_Province:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtSta
te\").SetText(s)\n elseif ((e.Contains(\"Postal_Code:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtPCode\").SetText(s)\n elseif ((e.Contains(\"Country:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtCountry\").SetText(s)\n elseif ((e.Contains(\"Contact_Voice_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.Fi
ndByName(\"Sec2.3_TxtTele\").SetText(s)\n elseif ((e.Contains(\"Contact_Facsimile_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec2.3_TxtFax\").SetText(s)\n end \n if (e2.Contains(\"Hours_of_Service:\")) then\n e = e2\n end \n if ((e.Contains(\"Hours_of_Service:\")) and (e.AsTokens(\":\").Count > 1)) then\n h = \"\"\n cnt = 0\n for each t in e.AsTokens(\":\")\n if (cnt > 0) then\n if (cnt = 1) then\n
h = h + t.Trim\n else\n h = h + \":\"+ t\n end\n end\n cnt = cnt + 1\n end \n theDia.FindByName(\"Sec2.3_TxtHours\").SetText(h)\n end\n lf.SetPos(lf.GetPos - 1)\n e = lf.ReadElt\n end 'While\n lf.Close\nend\n\n\n"
)
(Script.138
Name: "DD.Sec2.3_Open"
SourceCode: "t = Self.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n Self.SetTitle(nt)\nend\nSelf.MoveTo(50,20)\nav.Run(\"DD.Sec2.3_EditEnabled\",{})"
)
(Script.139
Name: "DD.Sec2.3_ProChange"
SourceCode: "_ProDone = NIL\n_procLoad = False"
)
(Script.140
Name: "DD.Sec2.3_ProCreate"
SourceCode: "theD = av.FindDialog(\"Sec2.3\")\nif (theD.FindByName(\"Sec2.3_TBoxPro\").GetText.Count > 2) then\n if (_ProDone = NIL) then\n savem = MsgBox.YesNoCancel(\"Do you want to save changes to existing Process Step?\",\"Save Changes\",true)\n if (savem = NIL) then\n system.Beep\n exit\n end\n if (savem = true) then\n av.Run(\"DD.TB_Save\", {av.FindDialog(\"Sec2.3\").AsString,\"Sec2.3_TBoxPro\",\"process.txt\",\"Process Step\"})\n end\n end \n 'Write info to a temp file.\n if (_procCnt = 0) then\n _procCnt =
1\n end\n metaName = (_workdir+_pathDel+\"xxproc\"+_procCnt.AsString+\".txt\").AsFilename\n _procCnt = _procCnt + 1\n \n newFile = LineFile.Make(metaName, #FILE_PERM_WRITE)\n newFile.WriteElt(\" Process_Step:\")\n newFile.WriteElt(\" Process_Description:\")\n \n r = theD.FindByName(\"Sec2.3_TBoxPro\").GetText\n r = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\n if (r > \"\") then\n newFile.WriteElt(r)\n end\n newFile.WriteElt(\" Source_Used_Citation_Abbreviation:\"++Av.Run(\"DD.WordWrap\",{theD.FindByNam
e(\"Sec2.3_TxtSrcUsed\").GetText,\" \",False}))\n newFile.WriteElt(\" Process_Date:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtProDate\").GetText,\" \",False}))\n newFile.WriteElt(\" Source_Produced_Citation_Abbreviation:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtSrcPro\").GetText,\" \",False}))\n newFile.WriteElt(\" Process_Contact:\")\n newFile.WriteElt(\" Contact_Information:\")\n newFile.WriteElt(\" Contact_Person_Primary:\")\n newFile.WriteElt(\" C
ontact_Organization:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtOrg\").GetText,\" \",False}))\n newFile.WriteElt(\" Contact_Person:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPer\").GetText,\" \",False}))\n newFile.WriteElt(\" Contact_Position:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPos\").GetText,\" \",False}))\n newFile.WriteElt(\" Contact_Address:\")\n newFile.WriteElt(\" Address_Type: mailing and physical address\")\n ne
wFile.WriteElt(\" Address:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtAdd\").GetText,\" \",False}))\n newFile.WriteElt(\" City:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtCity\").GetText,\" \",False}))\n newFile.WriteElt(\" State_or_Province:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtState\").GetText,\" \",False}))\n newFile.WriteElt(\" Postal_Code:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPCode\").GetText,\"
\",False}))\n newFile.WriteElt(\" Country:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtCountry\").GetText,\" \",False}))\n newFile.WriteElt(\" Contact_Voice_Telephone:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtTele\").GetText,\" \",False}))\n newFile.WriteElt(\" Contact_Facsimile_Telephone:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtFax\").GetText,\" \",False}))\n newFile.WriteElt(\" Contact_Electronic_Mail_Address:\"++Av.R
un(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtEmail\").GetText,\" \",False}))\n newFile.WriteElt(\" Hours_of_Service:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtHours\").GetText,\" \",False})) \n newFile.Close\n if (Self.GetName = \"Sec2.3_ButtProCreate\") then\n clearIt = MsgBox.YesNo(\"Do you want to clear Contact_Information?\",\"Contact_Information\",false)\n if (clearIt = True) then\n for each atxl in theD.findbyclass(textline)\n atxl.settext(\"\")\n end\n end\n
theD.FindByName(\"Sec2.3_TBoxPro\").SetText(\"\")\n _procLoad = False\n theD.FindByName(\"Sec2.3_TxtProDate\").SetText(\"\")\n end\nend\nav.Run(\"DD.Sec2.3_EditEnabled\",{})"
)
(Script.141
Name: "DD.Sec2.3_ProRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2.3_TBoxPro\", \"Process Step\"})"
)
(Script.142
Name: "DD.Sec2.3_ProSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec2.3_TBoxPro\",\"process.txt\",\"Process Step\"})\n_ProDone = \"Complete\""
)
(Script.143
Name: "DD.Sec2_AccRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2_TBoxAttAcc\", \"Attribute Accuracy\"})"
)
(Script.144
Name: "DD.Sec2_AccSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec2_TBoxAttAcc\",\"attacc.txt\",\"Attribute Accuracy\"})"
)
(Script.145
Name: "DD.Sec2_ComRepRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2_TBoxComRep\", \"Completeness Report\"})"
)
(Script.146
Name: "DD.Sec2_ComRepSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec2_TBoxComRep\",\"comprep.txt\",\"Completeness Report\"})"
)
(Script.147
Name: "DD.Sec2_Continue"
SourceCode: "goon = true\nif (goon = true) then \n Self.GetDialog.Close\n av.finddialog(\"Sec2.1\").open\nend"
)
(Script.148
Name: "DD.Sec2_HorRepRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2_TBoxHorPos\", \"Horizontal Position Report\"})"
)
(Script.149
Name: "DD.Sec2_HorRepSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec2_TBoxHorPos\",\"horpos.txt\",\"Horizontal Position Report\"})"
)
(Script.150
Name: "DD.Sec2_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec2.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt\nlw = false\ntheDia = av.FindDialog(\"Sec2\")\n_Sec2OrList = {}\nprocCnt = 0\nwhile (lf.IsAtEnd.NOT)\n if (e.Contains(\"Larger_Work_Citation:\")) then\n lw = true\n end\n 'msgbox.info(e,\"\")\n if (e.Contains(\"Attribute_Accuracy_Report:\")) then \n theDia = av.FindDialog(\"Sec2\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Logical_Consistency_Report:\")
) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2_TBoxAttAcc\").SetText(abs)\n lf.SetPos(pos)\n end\n \n if (e.Contains(\"Logical_Consistency_Report:\")) then \n theDia = av.FindDialog(\"Sec2\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Completeness_Report:\")) then\n goon = false\n else\n abs = abs + e.Trim +NL\n
end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2_TBoxLogCon\").SetText(abs)\n lf.SetPos(pos)\n end\n \n if (e.Contains(\"Completeness_Report:\")) then \n theDia = av.FindDialog(\"Sec2\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Positional_Accuracy:\")) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2
_TBoxComRep\").SetText(abs)\n lf.SetPos(pos)\n end\n \n if (e.Contains(\"Horizontal_Positional_Accuracy_Report:\")) then \n theDia = av.FindDialog(\"Sec2\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Vertical_Positional_Accuracy:\")) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2_TBoxHorPos\").SetText(abs)\n lf.SetPos(pos)\n end\n
\n if (e.Contains(\"Vertical_Positional_Accuracy_Report:\")) then \n theDia = av.FindDialog(\"Sec2\")\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n if (e.Contains(\"Lineage:\")) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec2_TBoxVerPos\").SetText(abs)\n lf.SetPos(pos)\n end\n e = lf.ReadElt\nend\nlf.Close\nav.Run(\"DD.Sec2.1_Load\",{})"
)
(Script.151
Name: "DD.Sec2_LogConRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2_TBoxLogCon\", \"Logical Consistency\"})"
)
(Script.152
Name: "DD.Sec2_LogConSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec2_TBoxLogCon\",\"logcon.txt\",\"Logical Consistency\"})"
)
(Script.153
Name: "DD.Sec2_VerPosRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec2_TBoxVerPos\", \"Vertical Positional Report\"})"
)
(Script.154
Name: "DD.Sec2_VerPosSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec2_TBoxVerPos\",\"verpos.txt\",\"Vertical Positional Report\"})"
)
(Script.155
Name: "DD.Sec2_Write"
SourceCode: "fName = _workdir+_pathDel+\"xxSec2.txt\"\nif (File.Exists(fName.AsFileName)) then\n File.Delete(fName.AsFileName)\nend\n\n'Write out temp lineage\nif (_doLin = True) then\n av.Run(\"DD.Sec2.1_TmpLin\",{})\nend\ntmpMeta = LineFile.Make(fName.AsFileName,#FILE_PERM_WRITE)\ntheD = av.FindDialog(\"Sec2\")\ntmpMeta.WriteElt(\" \")\ntmpMeta.WriteElt(\"DATA_QUALITY_INFORMATION\")\ntmpMeta.WriteElt(\"\")\ntmpMeta.WriteElt(\" Attribute_Accuracy:\")\ntmpMeta.WriteElt(\" Attribute_Accuracy_Report:\")\nr = theD.FindByName(\"Sec2_TBoxAttAcc\").GetT
ext.Trim\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\n\ntmpMeta.WriteElt(\" Logical_Consistency_Report:\")\nr = theD.FindByName(\"Sec2_TBoxLogCon\").GetText.Trim\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\n\ntmpMeta.WriteElt(\" Completeness_Report:\")\nr = theD.FindByName(\"Sec2_TBoxComRep\").GetText.Trim\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\n\ntmpMeta.WriteElt(\" Posit
ional_Accuracy:\")\ntmpMeta.WriteElt(\" Horizontal_Positional_Accuracy:\")\ntmpMeta.WriteElt(\" Horizontal_Positional_Accuracy_Report:\")\nr = theD.FindByName(\"Sec2_TBoxHorPos\").GetText.Trim\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\n\n\ntmpMeta.WriteElt(\" Vertical_Positional_Accuracy:\")\ntmpMeta.WriteElt(\" Vertical_Positional_Accuracy_Report:\")\nr = theD.FindByName(\"Sec2_TBoxVerPos\").GetText.Trim\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\ni
f (r > \"\") then\n tmpMeta.WriteElt(r)\nend\n\n'Write out Lineage\ntmpMeta.WriteElt(\" Lineage:\")\n\n\n\nif (_linCnt > 0) then\n for each x in 1 .. _linCnt\n pName = (_workdir+_pathDel+\"xxlin\"+x.AsString+\".txt\").AsFilename\n if (File.Exists(pName)) then\n pf = LineFile.Make(pName,#FILE_PERM_READ)\n While ((pf.IsAtEnd).Not)\n p = pf.ReadElt\n tmpMeta.WriteElt(p) \n end\n pf.Close\n end\n end \nend\n'Write stuff from Sec2.3\ntheD = av.FindDialog(\"Sec2.3\")\nr = theD.FindByName(\"Sec2.3_TBox
Pro\").GetText.AsString\n\n'Write Info to current Process Temp File (_procCnt)\nif (_procCnt = 0) then\n _procCnt = 1\nend\n\n'Check to see if the user Edited a previous Process Step\nif (_procEdit <> NIL) then\n pCnt = _procEdit\nelse\n pCnt = _procCnt\nend\n\nmetaName = (_workdir+_pathDel+\"xxproc\"+pCnt.AsString+\".txt\").AsFilename\nlf = LineFile.Make(metaName,#FILE_PERM_WRITE)\nlf.WriteElt(\" Process_Step:\")\nlf.WriteElt(\" Process_Description:\")\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then
\n lf.WriteElt(r)\nend\nlf.WriteElt(\" Source_Used_Citation_Abbreviation:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtSrcUsed\").GetText,\" \",False}))\nlf.WriteElt(\" Process_Date:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtProDate\").GetText,\" \",False}))\nlf.WriteElt(\" Source_Produced_Citation_Abbreviation:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtSrcPro\").GetText,\" \",False}))\nlf.WriteElt(\" Process_Contact:\")\nlf.WriteElt(\" Contact_Information:\")\nlf.
WriteElt(\" Contact_Person_Primary:\")\nlf.WriteElt(\" Contact_Organization:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtOrg\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Person:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPer\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Position:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPos\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Address:\")\nlf.
WriteElt(\" Address_Type: mailing and physical address\")\nlf.WriteElt(\" Address:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtAdd\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" City:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtCity\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" State_or_Province:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtState\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Postal_Code:\"+
+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtPCode\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Country:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtCountry\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Voice_Telephone:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtTele\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Contact_Facsimile_Telephone:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtFax\").GetText.AsString,\"
\",False}))\nlf.WriteElt(\" Contact_Electronic_Mail_Address:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtEmail\").GetText.AsString,\" \",False}))\nlf.WriteElt(\" Hours_of_Service:\"++Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec2.3_TxtHours\").GetText.AsString,\" \",False}))\nlf.Close\n\n'Now read in all existing Proc files and write info to xxSec2.txt\nfor each x in 1 .. _procCnt\n pName = (_workdir+_pathDel+\"xxproc\"+x.AsString+\".txt\").AsFilename\n if (File.Exists(pName)) then\n
pf = LineFile.Make(pName,#FILE_PERM_READ)\n While ((pf.IsAtEnd).Not)\n p = pf.ReadElt\n tmpMeta.WriteElt(p) \n end\n pf.Close\n end\nend\ntmpMeta.Close\n_doLin = False"
)
(Script.156
Name: "DD.Sec3_Load"
SourceCode: "'This is a place holder"
)
(Script.157
Name: "DD.Sec3_Write"
SourceCode: "'section 3\n'SPATIAL_DATA_ORGANIZATION_INFORMATION\nif (File.Exists((_workdir+_pathDel+\"xxSec3.txt\").AsFileName)) then\n File.Delete((_workdir+_pathDel+\"xxSec3.txt\").AsFileName)\nend\n\nmetaName = (_workdir+_pathDel+\"xxSec3.txt\").AsFilename\ntmpMeta = LineFile.Make(metaName, #FILE_PERM_WRITE)\n\n\nif (_theClass = \"Arc\") then\n oType = \"Complete Chain\"\nelseif (_theClass = \"Polygon\") then\n oType = \"GT-polygon composed of chains\"\nelseif (_theClass = \"Point\") then\n oType = \"Point\"\nelse\n oType = \"\"\nend\n\ntmpMeta.WriteE
lt(\"\")\ntmpMeta.WriteElt(\"SPATIAL_DATA_ORGANIZATION_INFORMATION\")\ntmpMeta.WriteElt(\"\")\ntmpMeta.WriteElt(\" Direct_Spatial_Reference_Method:\"++_refMeth)\n\nif ((_refMeth = \"Vector\") or (_refMeth = \"Point\")) then\n tmpMeta.WriteElt(\" Point_and_Vector_Object_Information:\")\n tmpMeta.WriteElt(\" SDTS_Terms_Description:\")\n tmpMeta.WriteElt(\" SDTS_Point_and_Vector_Object_Type:\"++otype)\n tmpMeta.WriteElt(\" Point_and_Vector_Object_Count:\"++_numRec.AsString)\nend\n\nif ((_theClass = \"Image\") or (_theClass =
\"Grid\")) then\n tmpMeta.WriteElt(\" Raster_Object_Information:\")\n if (_theClass = \"Image\") then\n tmpMeta.WriteElt(\" Raster_Object_Type: Pixel\")\n rows = _theTheme.GetImgSrc.GetNumRows.AsString\n cols = _theTheme.GetImgSrc.GetNumColumns.AsString\n tmpMeta.WriteElt(\" Row_Count: \"+rows)\n tmpMeta.WriteElt(\" Column_Count: \"+cols)\n elseif (_theClass = \"Grid\") then\n tmpMeta.WriteElt(\" Raster_Object_Type: Grid Cell\")\n gl = _theTheme.GetGrid.GetNumRowsAndCols\n rows = gl.Get(0).AsS
tring\n cols = gl.Get(1).AsString\n tmpMeta.WriteElt(\" Row_Count: \"+rows)\n tmpMeta.WriteElt(\" Column_Count: \"+cols)\n end\n \nend\ntmpMeta.Close"
)
(Script.158
Name: "DD.Sec4"
SourceCode: "tmpName = _workDir.AsString+_pathDel+\"xxSec4.txt\"\nhtmpName = _workdir.AsString+_pathDel+\"xxtmph.tmp\"\n\nif (File.Exists(tmpName.AsFileName)) then\n File.Delete(tmpName.AsFileName)\nend\nif (File.Exists(htmpName.AsFileName)) then\n File.Delete(htmpName.AsFileName)\nend\n\ntmpMeta = LineFile.Make(tmpName.AsFileName,#FILE_PERM_WRITE)\nmetaFile = tmpMeta\n\n\n'SPATIAL_REFERENCE_INFORMATION\nkeepon = true\nGCS = NIL\nplsys = NIL\ngetPrj = true\ncooName = \"\"\ncooZone = \" \"\ncooEncode = \" \"\ncooAbs = \" \"\ncooOrd = \" \"\ncooUnits = \" \"\n
cooDatum = NIL\ncooEllip = \" \"\ncooAxis = \" \"\ncooFlat = \" \"\ncooSP1 = \" \"\ncooSP2 = \" \"\nLCM = \" \"\nLOPO = \" \"\ncooFE = \" \"\ncooFN = \" \"\nSFCM = \" \"\nSFCL = \" \"\nLCM = \" \"\nLOPO = \" \"\nSVLP = \" \"\nOL = \" \"\nOLLat = \" \"\nOLLong = \" \"\nAA = \" \"\nAMPL = \" \"\nlatRes = \" \"\nlongRes = \" \"\nhppas = \" \"\nlongpc = \" \"\nlatpc = \" \"\nsfe = \" \"\nsfpo = \" \"\nln = \" \"\npn = \" \"\nprojection = \" \"\nHCDef = \"Planar\"\nif (_sourceunits = #UNITS_LINEAR_YARDS) then\n plunits = \"Yards\"\nend\nif (_sourceunits = #UNITS_LINEAR_INCHES) then\n plunits = \"Inches\"\nen
d\nif (_sourceunits = #UNITS_LINEAR_FEET) then\n plunits = \"Feet\"\nend\nif (_sourceunits = #UNITS_LINEAR_MILES) then\n plunits = \"Miles\"\nend\nif (_sourceunits = #UNITS_LINEAR_MILLIMETERS) then\n plunits = \"Milimeters\"\nend\nif (_sourceunits = #UNITS_LINEAR_CENTIMETERS) then\n plunits = \"Centimeters\"\nend\nif (_sourceunits = #UNITS_LINEAR_METERS) then\n plunits = \"Meters\"\nend\nif (_sourceunits = #UNITS_LINEAR_KILOMETERS) then\n plunits = \"Kilometers\"\nend\nif (_sourceunits = #UNITS_LINEAR_NAUTICALMILES) then\n plunits
= \"Nautical miles\"\nend\nif (_sourceunits = #UNITS_LINEAR_DEGREES) then\n HCDef = \"Geographic\"\n cooName = \"Geographic\"\n keepon = false\n GCS = NIL\n plunits = \"Decimal degrees\"\n theLabs = {\"4.1.1.1 Latitude_Resolution\",\"4.1.1.2 Longitude_Resolution\"}\n theDefs = {\" \",\" \"}\n lResList = MsgBox.MultiInput(\"Enter Coordinate Resolution for Geographic Coordinate System:\",\"Coordinate_Resolution\",theLabs,theDefs)\n if (lResList.Count > 0) then\n latRes = lResList.Get(0)\n longRes = lResList.Get(1)\n else\n g
oon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting Metadata?\",\"Continue\",true)\n if (goon = false) then\n tmpmeta.Close\n \n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n system.Beep\n HCDef = NIL\n exit\n else\n hcDef = NIL\n end \n end\nend 'determining Planar Units\n\n\nif ((_theType = \"Coverage\") or (_theClass = \"Grid\")) then 'look for coverage or PRJ.ADF f
ile\n d = _theTheme.getsrcname.getdatasource\n pfile = d.AsString+\"/prj.adf\"\n lf = LineFile.Make(pfile.AsFileName,#FILE_PERM_READ)\n if(lf <> NIL) then\n getPrj = false\n while (lf.IsAtEnd.NOT)\n theElt = lf.ReadELT\n if (theElt.Extract(0) = \"Projection\") then\n cooName = theElt.Extract(1)\n elseif (theElt.Contains(\"Zone\")) then\n cooZone = theElt.Extract(1)\n elseif (theElt.Contains(\"Units\")) then\n plUnits = theElt.Extract(1)\n if (plUnits = \"DD\") then\n
HCDef = \"Geographic\"\n plUnits = \"Decimal Degrees\" \n elseif (cooUnits = \"DMS\") then\n HCDef = \"Geographic\"\n plUnits = \"Degrees Minutes Seconds\"\n end\n elseif (theElt.Contains(\"Spheroid\")) then\n cooEllip = theElt.Extract(1)\n if (cooEllip.Contains(\"Clarke\")) then\n cooDatum = \"North American Datum 1927\"\n cooAxis = \"6378206.4\"\n cooFlat = \"294.98\"\n elseif (cooEllip.Contains(\"GRS\")) then\n cooDatum = \"North A
merican Datum of 1983\"\n cooAxis = \"6378137\"\n cooFlat = \"294.98\"\n end\n elseif (theElt.Contains(\"1st standard parallel\")) then\n theTokes = theElt.AsTokens(\"/*\")\n cooSP1 = theTokes.Get(0)\n elseif (theElt.Contains(\"2nd standard parallel\")) then\n theTokes = theElt.AsTokens(\"/*\") \n cooSP2 = theTokes.Get(0)\n elseif (theElt.Contains(\"latitude of standard parallel\")) then\n theTokes = theElt.AsTokens(\"/*\") \n cooSP1 = theTokes.
Get(0)\n elseif (theElt.Contains(\"central meridian\")) then\n theTokes = theElt.AsTokens(\"/*\")\n LCM = theTokes.Get(0)\n elseif (theElt.Contains(\"latitude of projection's origin\")) then\n theTokes = theElt.AsTokens(\"/*\") \n LOPO = theTokes.Get(0)\n elseif (theElt.Contains(\"longitude of center of projection\")) then\n theTokes = theElt.AsTokens(\"/*\") \n longpc = theTokes.Get(0)\n elseif (theElt.Contains(\"latitude of center of projection\")) then\n
theTokes = theElt.AsTokens(\"/*\") \n latpc = theTokes.Get(0)\n elseif (theElt.Contains(\"latitude of the origin\")) then\n theTokes = theElt.AsTokens(\"/*\") \n LOPO = theTokes.Get(0)\n elseif (theElt.Contains(\"latitude of the origin\")) then\n theTokes = theElt.AsTokens(\"/*\") \n LOPO = theTokes.Get(0) \n elseif (theElt.Contains(\"latitude of origin\")) then\n theTokes = theElt.AsTokens(\"/*\") \n LOPO = theTokes.Get(0)\n elseif (theE
lt.Contains(\"false easting\")) then\n theTokes = theElt.AsTokens(\"/*\")\n cooFE = theTokes.Get(0)\n elseif (theElt.Contains(\"false northing\")) then\n theTokes = theElt.AsTokens(\"/*\")\n cooFN = theTokes.Get(0)\n elseif (theElt.Contains(\"Orbital path number\")) then\n theTokes = theElt.AsTokens(\"/*\")\n pn = theTokes.Get(0)\n end 'the elseif checking for Projection information from prj.adf\n end 'While loop for reading elements from prj.adf\n \n end 'if loop for
checking if prj.adf exists\nend\n\n\n\nprjFile = _workdir+_pathDel+\"project.dbf\"\nprjVTab = VTab.Make(prjFile.AsFileName,false,false)\nprjCnt = {}\nidSet = true \nif (cooName = \"UTM\") then\n cooName = \"Universal Transverse Mercator\"\nend\n\n'*** Get the Projection from a List ****\n \nif (cooName = \"\") then\n GCSList = {\"Universal Transverse Mercator\",\"State Plane Coordinate System 1927\",\"State Plane Coordinate System 1983\",\"Universal Polar Stereographic\", \n \"Albers Conical Equal Area\",\"Azimuthal Equidistant\",\"Equidist
ant Conic\",\"Equirectangular\",\"General Vertical Near-sided Perspective\",\"Gnomonic\",\"Lambert Azimuthal Equal Area\",\n \"Lambert Conformal Conic\",\"Mercator\",\"Modified Stereographic for Alaska\",\"Miller Cylindrical\",\"Oblique Mercator\",\"Orthographic\",\n \"Polar Stereographic\",\"Polyconic\",\"Robinson\",\"Sinusoidal\",\"Space Oblique Mercator\",\"Stereographic\",\"Transverse Mercator\",\"van der Grinten\"}\n cooName = MsgBox.ListAsString(GCSList,\"Select Projection:\",\"Projection\")\nend\nif (cooName = NIL) then\n goon = MsgBox.YesNo(
\"If you exit now, this section will have to be recreated. Do you want to continue collecting Metadata?\",\"Continue\",true)\n if (goon = false) then\n system.Beep\n HCDef = NIL\n metafile.Close\n tmpMeta.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n else\n HCDef = NIL\n end\nend\nidList = {} \nif (prjVTab.GetSelection = NIL) then\n prjid = NIL\n prjEx = NIL\nelse \n prjEx = true\n prjidField = prjVTab.FindField(\"prj_id\")\n for each o in prjVTab\n prjid = p
rjVTab.ReturnValue(prjidField,o)\n idList.Add(prjid)\n if (prjid.Contains(\"Projection_Id\")) then\n prjCnt.Add(prjId)\n end\n end\n 'prjid = MsgBox.ListAsString(prjList,\"The Projection is\"++cooName.AsString+\". Select Projection Id for previously collected information or Cancel to create new record.\",\"Projection Information\")\nend\nprjDef = \"Projection_Id\"+(prjCnt.Count + 1).AsString\n\nif (prjEx = NIL) then ' Make DBF file to store info, with all of the possible fields.\n prjVTab = VTab.MakeNew(prjfile
.AsFileName,dBASE)\n prjIdField = Field.Make(\"prj_id\",#FIELD_VCHAR,20,0)\n zoneField = Field.Make(\"zone\",#FIELD_VCHAR,20,0)\n SFCMField = Field.Make(\"sfcm\",#FIELD_VCHAR,20,0)\n SFCLField = Field.Make(\"sfcl\",#FIELD_VCHAR,20,0)\n LCMField = Field.Make(\"lcm\",#FIELD_VCHAR,20,0)\n LOPOField = Field.Make(\"lopo\",#FIELD_VCHAR,20,0)\n SP1Field = Field.Make(\"sp1\",#FIELD_VCHAR,20,0)\n SP2Field = Field.Make(\"sp2\",#FIELD_VCHAR,20,0)\n SVLPField = Field.Make(\"svlp\",#FIELD_VCHAR,20,0)\n hppasField = Field.Make(\"hppas\",#FI
ELD_VCHAR,20,0)\n longpcField = Field.Make(\"longpc\",#FIELD_VCHAR,20,0)\n latpcField = Field.Make(\"latpc\",#FIELD_VCHAR,20,0)\n sfeField = Field.Make(\"sfe\",#FIELD_VCHAR,20,0)\n sfpoField = Field.Make(\"sfpo\",#FIELD_VCHAR,20,0)\n lnField = Field.Make(\"ln\",#FIELD_VCHAR,20,0)\n pnField = Field.Make(\"pn\",#FIELD_VCHAR,20,0)\n FEField = Field.Make(\"fe\",#FIELD_VCHAR,20,0)\n FNField = Field.Make(\"fn\",#FIELD_VCHAR,20,0)\n OLField = Field.Make(\"ol\",#FIELD_VCHAR,20,0)\n AAField = Field.Make(\"aa\",#FIELD_VCHAR,20,0)\n AMPL
= Field.Make(\"ampl\",#FIELD_VCHAR,20,0)\n OLLatField = Field.Make(\"ollat\",#FIELD_VCHAR,20,0)\n OLLongField = Field.Make(\"ollong\",#FIELD_VCHAR,20,0)\n theFields = {prjIdField,zoneField,SFCMField,SFCLField,LCMField,LOPOField,SP1Field,SP2Field,SVLPField,hppasField,longpcField,latpcField,sfeField,sfclField,sfpoField,lnField,pnField,FEField,FNField,OLField,AAField,AMPL,OLLatField,OLLongField}\n prjVTab.AddFields(theFields)\nend ' if prjEx = NIL, making new DBF \nparalist = {} \nfromFile = False\nprjList = {}\n\nGetI
nfo = true\nmsgbox.info(cooname.asstring++cooZone.AssTring,\"\")\nWhile (Keepon = true) \n prjVTab.SetEditable(true) \n if (cooName = \"Universal Transverse Mercator\") then\n plsys = \"Grid_Coordinate_System\"\n GCS = \"Universal_Transverse_Mercator\"\n theProjection = \"Transverse_Mercator\"\n \n itemList = {\"4.1.2.2.2.1 UTM Zone Number (if applies):\",\"4.1.2.1.2.17 Scale_Factor_at_Central_Meridian:\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False
_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {cooZone,sfcm,lcm,lopo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now,
this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve inf
ormation from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooZone = prjList.Get(0)\n SFCM = prjList.Get(1)\n LCM = prjList.Get(2)\n LOPO = prjList.Get(3)\n cooFE = prjList.Get(4)\n cooFN = prjList.Get(5)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Ent
er ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.FindField(\"sfcm\"), newRec, SFCM)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, LOPO)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, co
oFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for UTM\n \n \n if ((cooName = \"Transverse Mercator\") or (cooName = \"Transverse\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n theProjection = \"Transverse_Mercator\"\n itemList = {\"4.1.2.1.2.17 Scale_Factor_at_Central_Meridian:\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1
.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {sfcm,lcm,lopo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit
now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrie
ve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n SFCM = prjList.Get(0)\n LCM = prjList.Get(1)\n LOPO = prjList.Get(2)\n cooFE = prjList.Get(3)\n cooFN = prjList.Get(4)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsStr
ing++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"sfcm\"), newRec, SFCM)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for Trans
verse Mercator\n \n \n \n if (cooName = \"Universal Polar Stereographic\") then\n plsys = \"Grid_Coordinate_System\"\n GCS = \"Universal_Polar_Stereographic\"\n theProjection = \"Polar_Stereographic\"\n itemList = {\"4.1.2.2.3.1 UPS Zone Identifier:\",\"4.1.2.1.2.13 Straight-Vertical Longitude from Pole\",\"4.1.2.1.2.1 Standard_Parallel\",\"4.1.2.1.2.14 Scale_Factor_at_Projection_Origin\",\"4.1.2.1.2.4 False_Easting\",\"4.1.2.1.2.5 False_Northing\"}\n defList = {cooZone,svlp,coosp1,sfpo,coofe,coofn}\n newDefs = {}\n
for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n i
f (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n
keepon = false\n cooZone = prjList.Get(0)\n SVLP = prjList.Get(1)\n cooSP1 = prjList.Get(2)\n cooFE = prjList.Get(3)\n cooFN = PrjList.Get(4)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjV
Tab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.FindField(\"svlp\"), newRec, SVLP)\n prjVTab.SetValue(prjVTab.FindField(\"sp\"), newRec, cooSP1)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end\n end 'UPS\n \n if ((cooName.Contains(\"State Plane\")) or (cooName.Contains(\"STATEPLANE\"))) then\n i
f (cooName.Contains(\"27\")) then\n cooDatum = \"NAD27\"\n end\n if (cooName.Contains(\"83\")) then\n cooDatum = \"NAD83\"\n end\n theTokes = cooName.AsTokens(\" \")\n GCS = cooName.Substitute(\" \",\"_\")\n plsys = \"Grid_Coordinate_System\"\n pList = {\"Lambert_Conformal_Conic\",\"Transverse_Mercator\",\"Polyconic\",\"Oblique_Mercator\"}\n theProjection = MsgBox.ListAsString(pList,\"Select the projection for State Plane Coordinate System\",\"Projection\")\n if (theProjection <> NIL) then\n if (theProjec
tion = \"Lambert_Conformal_Conic\") then\n itemList = {\"SPCS_Zone_Identifier:\",\"4.1.2.1.2.1 1st Standard_Parallel\",\"4.1.2.1.2.1 2nd Standard_Parallel\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {cooZone,coosp1,coosp2,lcm,lopo,coofe,coofn} \n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n e
lse\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n
getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n
keepon = false\n cooZone = prjList.Get(0)\n cooSP1 = prjList.Get(1)\n cooSP2 = prjList.Get(2)\n LCM = prjList.Get(3)\n LOPO = prjList.Get(4)\n cooFE = prjList.Get(5)\n cooFN = prjList.Get(6)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"
(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.FindField(\"sp1\"), newRec, cooSP1)\n prjVTab.SetValue(prjVTab.FindField(\"sp2\"), newRec, cooSP2)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, L
OPO)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set\n end ' for Lambert Conformal\n if (theProjection = \"Transverse_Mercator\") then\n itemList = {\"4.1.2.2.4.1 SPCS_Zone_Identifier:\",\"4.1.2.1.2.17 Scale_Factor_at_Central_Meridian:\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.3 Latitude_of_Projection_Orig
in:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {cooZone,sfcm,lopo,lcm,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n
if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n
end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooZone = prjList.Get(0)\n SFCM = prjList.Get(1)\n LCM = prjList.Get(2)\n LOPO = prjList.Get(3)\n cooFE = prjList.Get(4)\n cooFN = prjList.Get(5)\n if (fromFile = false) then\n
addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.FindField(\"sfcm\"), newRec,
SFCM)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, lopo)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set\n end\n if (theProjection = \"Polyconic\") then\n itemList = {\"4.1.2.2.4.1 SPCS_Zone_Identifier:\",\"4.1.2.1.2.2 Longitude_o
f_Central_Meridian:\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {cooZone,lcm,lopo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsSt
ring,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.
AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooZone = prjList.Get(0)\n LCM = prjList.Get(1)\n LOPO = prjList.Get(2)\n cooFE = prjList.Get(3)\n cooFN = prjList.Get(4)\n if
(fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.Fi
ndField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, LOPO)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for Polyconic\n if (theProjection = \"Oblique_Mercator\") then\n azList = {\"Oblique Line Azimuth\",\"Oblique Line Point\"}\n ol = MsgBox.ChoiceAsString(azList,
\"Choose the Oblique Line type for Oblique Mercator 4.1.2.1.2.11\",\"Oblique Line Type\")\n if (ol <> NIL) then\n if (ol = \"Oblique Line Azimuth\") then\n itemList = {\"4.1.2.2.4.1 SPCS_Zone_Identifier:\",\"4.1.2.1.2.10 Scale_Factor_at_Center_Line\",\"4.1.2.1.2.11.1 Azimuthal_Angle\",\"4.1.2.1.2.11.2 Azimuth_Measure_Point_Longitude\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {coozone,sfcl,aa,ampl,lopo,coofe,coofn
}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If
you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n
else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooZone = prjList.Get(0)\n SFCL = prjList.Get(1)\n AA = prjList.Get(2)\n AMPL = prjList.Get(3)\n LOPO = prjList.Get(4)\n cooFE = prjList.Get(5)\n
cooFN = prjList.Get(6)\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.FindField(\"sfcl\"), newRec, SFCL)\n prjVTab.SetValue(prjVTab.FindField(\"aa\"), newRec, AA)\n prjVTab.SetValue(prjVTab.FindField(\"ampl\"), newRec, AMPL)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, LOPO)\n
prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n prjVTab.SetValue(prjVTab.FindField(\"ol\"), newRec, ol)\n end' checking if projection parameters where set\n end 'if Oblique Line Azimuth\n if (ol = \"Oblique Line Point\") then\n itemList = {\"4.1.2.2.4.1 SPCS_Zone_Identifier:\",\"4.1.2.1.2.10 Scale_Factor_at_Center_Line\",\"4.1.2.1.2.12.1 Oblique Line Latitude\",\"4.1.2.1.2.12.2 Oblique Line
Longitude\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {coozone,sfcl,ollat,ollong,lopo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiI
nput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafil
e.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooZone = prjList.Get(0)\n
SFCL = prjList.Get(1)\n OLLat = prjList.Get(2)\n OLLong = prjList.Get(3)\n LOPO = prjList.Get(4)\n cooFE = prjList.Get(5)\n cooFN = prjList.Get(6)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future
use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.FindField(\"sfcl\"), newRec, SFCL)\n prjVTab.SetValue(prjVTab.FindField(\"ollat\"), newRec, OLLat)\n prjVTab.SetValue(prjVTab.FindField(\"ollong\"), newRec, OLLong)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newR
ec, LOPO)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n prjVTab.SetValue(prjVTab.FindField(\"ol\"), newRec, ol)\n end\n end\n end' checking if projection parameters where set\n end 'if Oblique Line Point \n end 'checking if Oblique line type is set\n end' for Oblique Mercator\n end' checking if Projection for State_Plane got set \n e
nd 'State Plane\n\n 'Lambert\n if (cooName = \"Lambert\") then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\") \n itemList = {\"4.1.2.1.2.1 1st Standard_Parallel:\",\"4.1.2.1.2.1 2nd Standard_Parallel:\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin\",\"4.1.2.1.2.4 False_Easting\",\"4.1.2.1.2.5 False_Northing\"}\n defList = {coosp1,coosp2,lcm,lopo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n new
Defs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n
else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooSP1 = prjList.Get(0)\n cooSP2 = prjList.G
et(1)\n LCM = prjList.Get(2)\n LOPO = prjList.Get(3)\n cooFE = PrjList.Get(4)\n cooFN = PrjList.Get(5)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n
prjVTab.SetValue(prjVTab.FindField(\"SP1\"), newRec, cooSP1)\n prjVTab.SetValue(prjVTab.FindField(\"SP2\"), newRec, cooSP2)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, lcm)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, lopo)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end\n end 'Albers, Equidistant, Lambert Conformal\n \n if ((cooName.Contains(\"Albers\"))
or (cooName = \"Equidistant Conic\") or (cooName = \"Equidistant_Conic\") or (cooName = \"Lambert Conformal Conic\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\") \n itemList = {\"4.1.2.1.2.1 1st Standard_Parallel:\",\"4.1.2.1.2.1 2nd Standard_Parallel:\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin\",\"4.1.2.1.2.4 False_Easting\",\"4.1.2.1.2.5 False_Northing\"}\n defList = {coosp1,coosp2,lcm,lopo,coofe,coofn}\n newDefs = {}\n for each d in de
fList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) t
hen\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = fal
se\n cooSP1 = prjList.Get(0)\n cooSP2 = prjList.Get(1)\n LCM = prjList.Get(2)\n LOPO = prjList.Get(3)\n cooFE = PrjList.Get(4)\n cooFN = PrjList.Get(5)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetV
alue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"SP1\"), newRec, cooSP1)\n prjVTab.SetValue(prjVTab.FindField(\"SP2\"), newRec, cooSP2)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, lcm)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, lopo)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end\n end 'Lambert\n \n if ((co
oName.Contains(\"Azimuthal\")) or (cooName.Contains(\"Polyconic\"))) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\") \n itemList = {\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {lcm,lopo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for
each loop \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafil
e.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n LCM = prjList.Get(0)\n LOPO = prjList.Get(1)\n cooFE = prjList.Get(2)\n cooFN = prjList.Get(3)\n if (fromF
ile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, lopo)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n
prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for Azimuthal Equidistant or Polyconic\n \n if (cooName.Contains(\"Equirectangular\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.1 Standard_Parallel:\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_N
orthing:\"}\n defList = {cooSP1,lcm,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do yo
u want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Para
meters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooSP1 = prjList.Get(0)\n lcm = prjList.Get(1)\n cooFE = prjList.Get(2)\n cooFN = prjList.Get(3)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRec
ord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"sp1\"), newRec, cooSP1)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for Equirectangular\n \n if (cooName.Contains(\"General Vertical Near-sided Perspectiv
e\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.7 Height_of_Perspective_Point_Above_Surface:\",\"4.1.2.1.2.8 Longitude_of_Projection_Center:\",\"4.1.2.1.2.8 Latitude_of_Projection_Center\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {hppas,longpc,latpc,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end '
for each loop \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n meta
file.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n hppas = prjList.Get(0)\n longpc = prjList.Get(1)\n latpc = prjList.Get(2)\n cooFE = prjList.Get(3)\n co
oFN = prjList.Get(4)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"hppas\"), newRec, hppas)\n prjVTab.SetValue(prjVTab.F
indField(\"longpc\"), newRec, longpc)\n prjVTab.SetValue(prjVTab.FindField(\"latpc\"), newRec, latpc)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for General Veritical Near-sided Perspective\n if ((cooName.Contains(\"Gnomonic\")) or (cooName.Contains(\"Lambert Azimuthal Equal Area\")) or (cooName.Contains(\"Orthographic\")) or (cooName =\"S
tereographic\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.8 Longitude_of_Projection_Center:\",\"4.1.2.1.2.8 Latitude_of_Projection_Center\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {longpc,latpc,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop \n if (fromFile = true) then\n
prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)
\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n longpc = prjList.Get(0)\n latpc = prjList.Get(1)\n cooFE = prjList.Get(2)\n cooFN = prjList.Get(3)\n if (fromFile = false) then\n addRec = MsgBox.Yes
No(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"longpc\"), newRec, longpc)\n prjVTab.SetValue(prjVTab.FindField(\"latpc\"), newRec, latpc)\n prjVTab.SetValue(prjVTab.FindField(
\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for Gnomoic, Lambert Azimuthal Equal Area, Orthographic, Stereographic \n \n if (cooName = \"Mercator\") then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.1 Standard_Parallel:\",\"4.1.2.1.2.6 Scale_Factor_at_Equator\",\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.4 False_Easting:\",
\"4.1.2.1.2.5 False_Northing:\"}\n defList = {cooSP1,sfe,lcm,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will hav
e to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existin
g file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooSP1 = prjList.Get(0)\n sfe = prjList.Get(1)\n lcm = prjList.Get(2)\n cooFE = prjList.Get(3)\n cooFN = prjList.Get(4)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID fo
r future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"sp1\"), newRec, cooSP1)\n prjVTab.SetValue(prjVTab.FindField(\"sfe\"), newRec, sfe)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projecti
on parameters where set \n end 'for Mercator\n \n if (cooName.Contains(\"Modified Stereographic for Alaska\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop \n if (fromFile = true) then\n prjList =
MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n
File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooFE = prjList.Get(0)\n cooFN = prjList.Get(1)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store D
ata\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for Modified Stereographic for Alaska\n
\n if ((cooName.Contains(\"Miller\") or cooName.Contains(\"Sinusoidal\")))then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {lcm,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop \n if (fromFile = true) then\n
prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName
)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n lcm = prjList.Get(0)\n cooFE = prjList.Get(1)\n cooFN = prjList.Get(2)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the pr
evious data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, LCM)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n
end\n end' checking if projection parameters where set \n end 'for Miller Cylindrical and Sinusoidal\n \n if (cooName = \"Robinson\")then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.8 Longitude_of_Projection_Center:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {longpc,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n
end\n end ' for each loop \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close
\n \n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n longpc = prjList.Get(0)\n cooFE = prjList.Get(1)\n cooFN = prjList.Get(2)
\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"longpc\"), newRec, longpc)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), ne
wRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n end 'for Robinson\n\n \n \n if ((cooName = \"Oblique_Mercator\") or (cooName = \"Oblique Mercator\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n azList = {\"Oblique Line Azimuth\",\"Oblique Line Point\"}\n ob = MsgBox.ChoiceAsString(azList,\"Choose the Oblique Line type for Oblique Mercator 4.1.2.1.2.11\",\"Oblique Line Type\")
\n if (ob <> NIL) then\n if (ob = \"Oblique Line Azimuth\") then\n itemList = {\"4.1.2.2.4.1 SPCS_Zone_Identifier:\",\"4.1.2.1.2.10 Scale_Factor_at_Center_Line\",\"4.1.2.1.2.11.1 Azimuthal_Angle\",\"4.1.2.1.2.11.2 Azimuth_Measure_Point_Longitude\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {coozone,sfcl,aa,ampl,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n
newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n
keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n \n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",item
List,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooZone = prjList.Get(0)\n SFCL = prjList.Get(1)\n AA = prjList.Get(2)\n AMPL = prjList.Get(3)\n LOPO = prjList.Get(4)\n cooFE = prjList.Get(5)\n cooFN = prjList.Get(6)\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.S
etValue(prjVTab.FindField(\"sfcl\"), newRec, SFCL)\n prjVTab.SetValue(prjVTab.FindField(\"aa\"), newRec, AA)\n prjVTab.SetValue(prjVTab.FindField(\"ampl\"), newRec, AMPL)\n prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, LOPO)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n prjVTab.SetValue(prjVTab.FindField(\"ol\"), newRec, ob)\n end' checking if projection parameters where set\n en
d 'if Oblique Line Azimuth\n if (ob = \"Oblique Line Point\") then\n itemList = {\"4.1.2.2.4.1 SPCS_Zone_Identifier:\",\"4.1.2.1.2.10 Scale_Factor_at_Center_Line\",\"4.1.2.1.2.12.1 Oblique Line Latitude\",\"4.1.2.1.2.12.2 Oblique Line Longitude\",\"4.1.2.1.2.3 Latitude_of_Projection_Origin:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {coozone,sfcl,ollat,ollong,lopo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n
newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n
keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n \n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDe
fs)\n end\n if (prjList.Count > 0) then\n keepon = false\n cooZone = prjList.Get(0)\n SFCL = prjList.Get(1)\n OLLat = prjList.Get(2)\n OLLong = prjList.Get(3)\n LOPO = prjList.Get(4)\n cooFE = prjList.Get(5)\n cooFN = prjList.Get(6)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prji
d = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"zone\"), newRec, cooZone)\n prjVTab.SetValue(prjVTab.FindField(\"sfcl\"), newRec, SFCL)\n prjVTab.SetValue(prjVTab.FindField(\"ollat\"), newRec, OLLat)\n prjVTab.SetValue(prjVTab.FindField(\"ollong\"), newRec, OLLong)\n
prjVTab.SetValue(prjVTab.FindField(\"lopo\"), newRec, LOPO)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n prjVTab.SetValue(prjVTab.FindField(\"ol\"), newRec, ob)\n end\n end\n end' checking if projection parameters where set\n end 'if Oblique Line Point \n end 'checking if Oblique line type is set\n end' for Oblique Mercator\n \n\n if ((cooName = \"Polar Stereographic\")
or (cooName = \"Polar\") or (cooName = \"UNIVERSAL_POLAR\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.13 Straight-Vertical Longitude from Pole\",\"4.1.2.1.2.1 Standard_Parallel\",\"4.1.2.1.2.14 Scale_Factor_at_Projection_Origin\",\"4.1.2.1.2.4 False_Easting\",\"4.1.2.1.2.5 False_Northing\"}\n defList = {svlp,coosp1,sfpo,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n
newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep
\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n SVLP = prjList.Get(0)\n cooSP1 = prjList.Get(1)\n sfpo = prjList.Get(2)\n
cooFE = prjList.Get(3)\n cooFN = PrjList.Get(4)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"sp1\"), newRec, coosp1)\n
prjVTab.SetValue(prjVTab.FindField(\"svlp\"), newRec, SVLP)\n prjVTab.SetValue(prjVTab.FindField(\"sfpo\"), newRec, sfpo)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end\n end 'Polar Stereographic\n\n if ((cooName.Contains(\"Space Oblique Mercator\")) or (cooName.Contains(\"Space_Oblique\"))) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4
.1.2.1.2.15 Landsat_Number:\",\"4.1.2.1.2.16 Path_Number:\",\"4.1.2.1.2.4 False_Easting:\",\"4.1.2.1.2.5 False_Northing:\"}\n defList = {ln,pn,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop \n if (fromFile = true) then\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count
= 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Par
ameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n ln = prjList.Get(0)\n pn = prjList.Get(1)\n cooFE = prjList.Get(2)\n cooFN = prjList.Get(3)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the previous data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID
for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"ln\"), newRec, ln)\n prjVTab.SetValue(prjVTab.FindField(\"pn\"), newRec, pn)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n end\n end' checking if projection parameters where set \n e
nd 'for Space Oblique Mercator\n \n\n if (cooName.Contains(\"Grinten\")) then\n plsys = \"Map_Projection\"\n mapPrj = cooName.Substitute(\" \",\"_\")\n itemList = {\"4.1.2.1.2.2 Longitude_of_Central_Meridian:\",\"4.1.2.1.2.4 False_Easting\",\"4.1.2.1.2.5 False_Northing\"}\n defList = {lcm,coofe,coofn}\n newDefs = {}\n for each d in defList\n if (d.AsString.Left(1) = \"\") then\n newDefs.Add(\" \")\n else\n newDefs.Add(d)\n end\n end ' for each loop\n \n if (fromFile = true) then\n
prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString,\"Projection Parameters\",itemList,newDefs)\n if (prjList.Count = 0) then\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n getInfo = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName
)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end \n else\n prjList = MsgBox.MultiInput(\"Enter Projection Parameters for:\"++cooName.AsString++\"Cancel to retrieve information from existing file\",\"Projection Parameters\",itemList,newDefs)\n end\n if (prjList.Count > 0) then\n keepon = false\n lcm = prjList.Get(0)\n cooFE = prjList.Get(1)\n cooFN = PrjList.Get(2)\n if (fromFile = false) then\n addRec = MsgBox.YesNo(\"Do you want to store the pr
evious data, for future use?\",\"Store Data\",false)\n if (addRec = True) then\n prjid = MsgBox.Input(\"Enter ID for\"++cooName.AsString++\"(future use)\",\"ID for future use\",\"\")\n newRec = prjVTab.AddRecord\n prjVTab.SetValue(prjVTab.FindField(\"prj_id\"), newRec, prjId)\n prjVTab.SetValue(prjVTab.FindField(\"lcm\"), newRec, lcm)\n prjVTab.SetValue(prjVTab.FindField(\"fe\"), newRec, cooFE)\n prjVTab.SetValue(prjVTab.FindField(\"fn\"), newRec, cooFN)\n end\n
end\n end\n end 'van der Grinten\n\n\n if ((prjList.Count = 0) and (getInfo = true)) then\n if (idList.Count = 0) then\n goBack = MsgBox.YesNo(\"There are no files to choose from. Do you want to enter Projection Information for\"++cooName.AsString,\"Projection Information\",true)\n if (goBack = false) then\n keepon = false\n end\n else\n fromFile = true\n prjid = MsgBox.ListAsString(idList,\"The Projection is\"++cooName.AsString+\". Select Projection Id for previously collected infor
mation.\",\"Projection Information\")\n idSet = false\n if(prjId <> NIL) then 'retrieve values\n Querystr = \"([Prj_id] =\"++prjid.Quote+\")\"\n prjVTab.GetSelection.SetAll\n prjBitMap = prjVTab.GetSelection\n prjVTab.Query(Querystr,prjBitMap,#VTAB_SELTYPE_NEW)\n prjVTab.UpdateSelection\n QueryBitmap = prjVTab.GetSelection\n \n for each b in QueryBitmap\n if (cooZone = \" \") then\n cooZone = prjVTab.ReturnValue(prjVTab.FindField(\"zone\"),b)\n
end\n if (cooSP1 = \" \") then\n cooSP1 = prjVTab.ReturnValue(prjVTab.FindField(\"sp1\"),b)\n end\n if (cooSP2 = \" \") then\n cooSP2 = prjVTab.ReturnValue(prjVTab.FindField(\"sp2\"),b)\n end\n if (sfcm = \" \") then\n SFCM = prjVTab.ReturnValue(prjVTab.FindField(\"sfcm\"),b)\n end\n if (sfcl = \" \") then\n SFCL = prjVTab.ReturnValue(prjVTab.FindField(\"sfcl\"),b)\n end\n if (lcm = \" \") then\n
LCM = prjVTab.ReturnValue(prjVTab.FindField(\"lcm\"),b)\n end\n if (lopo = \" \") then\n LOPO = prjVTab.ReturnValue(prjVTab.FindField(\"lopo\"),b)\n end\n if (svlp = \" \") then\n SVLP = prjVTab.ReturnValue(prjVTab.FindField(\"svlp\"),b) \n end\n if (coofe = \" \") then\n cooFE = prjVTab.ReturnValue(prjVTab.FindField(\"fe\"),b)\n end\n if (coofn = \" \") then\n cooFN = prjVTab.ReturnValue(prjVTab.FindField(\"fn\"),b)
\n end\n if (ol = \" \") then\n OL = prjVTab.ReturnValue(prjVTab.FindField(\"ol\"),b)\n end\n if (ollat = \" \") then\n OLLat = prjVTab.ReturnValue(prjVTab.FindField(\"ollat\"),b)\n end\n if (ollong = \" \") then\n OLLong = prjVTab.ReturnValue(prjVTab.FindField(\"ollong\"),b)\n end\n if (aa = \" \") then\n AA = prjVTab.ReturnValue(prjVTab.FindField(\"aa\"),b)\n end\n if (ampl = \" \") then\n AMPL
= prjVTab.ReturnValue(prjVTab.FindField(\"ampl\"),b)\n end\n if (hppas = \" \") then\n hppas = prjVTab.ReturnValue(prjVTab.FindField(\"hppas\"),b)\n end\n if (longpc = \" \") then\n longpc = prjVTab.ReturnValue(prjVTab.FindField(\"longpc\"),b)\n end\n if (latpc = \" \") then\n latpc = prjVTab.ReturnValue(prjVTab.FindField(\"latpc\"),b)\n end\n if (sfe = \" \") then\n sfe = prjVTab.ReturnValue(prjVTab.FindField(\"sfe\"),b)\n
end\n if (sfpo = \" \") then\n sfpo = prjVTab.ReturnValue(prjVTab.FindField(\"sfpo\"),b)\n end\n if (ln = \" \") then\n ln = prjVTab.ReturnValue(prjVTab.FindField(\"ln\"),b)\n end\n if (pn = \" \") then\n pn = prjVTab.ReturnValue(prjVTab.FindField(\"pn\"),b)\n end\n \n end 'end set values from bitmap\n else 'prjid is not set\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do yo
u want to continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end 'checking if prjid gets set from list of Ids\n end 'checking if idList is empty\n end' prjList = 0\nend 'big while loop\nprjVTab.SetEditable(false)\n\n\nif (HCDef = \"Geographic\") then\n tmpmeta.Wr
iteElt(\"\")\n tmpmeta.WriteElt(\"SPATIAL_REFERENCE_INFORMATION\")\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\" Horizontal_Coordinate_System_Definition:\")\n tmpmeta.WriteElt(\" \"+HCDef)\n if (latRes = NIL) then\n theLabs = {\"4.1.1.1 Latitude_Resolution\",\"4.1.1.2 Longitude_Resolution\"}\n theDefs = {\" \",\" \"}\n lResList = MsgBox.MultiInput(\"Enter Coordinate Resolution for Geographic Coordinate System:\",\"Coordinate_Resolution\",theLabs,theDefs)\n if (lResList.Count > 0) then\n latRes = lResList.Get(0)\n
longRes = lResList.Get(1)\n else\n latRes = \"\"\n longRes = \"\"\n end\n end ' checking if latRes has been set!!\n tmpmeta.WriteElt(\" Latitude_Resolution:\"++latRes)\n tmpmeta.WriteElt(\" Longitude_Resolution:\"++longRes)\n tmpmeta.WriteElt(\" Geographic_Coordinate_Units:\"++plUnits)\nelseif (plsys = \"Grid_Coordinate_System\") then\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\"SPATIAL_REFERENCE_INFORMATION\")\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\" Horizontal_Coordinate_System_Defini
tion:\")\n tmpmeta.WriteElt(\" \"+HCDef)\n tmpmeta.WriteElt(\" Grid_Coordinate_System:\")\n tmpmeta.WriteElt(\" Grid_Coordinate_System_Name:\"++cooName)\n tmpmeta.WriteElt(\" \"+GCS+\":\")\n if (GCS = \"Universal_Transverse_Mercator\") then\n tmpmeta.WriteElt(\" UTM_Zone_Number:\"++cooZone)\n tmpmeta.WriteElt(\" \"+theProjection)\n tmpmeta.WriteElt(\" Scale_Factor_at_Central_Meridian:\"++SFCM)\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++LCM)\n t
mpmeta.WriteElt(\" Latitude_of_Projection_Origin:\"++LOPO)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end' UTM\n \n if (GCS = \"Universal_Polar_Stereographic\") then\n tmpmeta.WriteElt(\" UPS_Zone_Identifier:\"++cooZone)\n tmpmeta.WriteElt(\" \"+theProjection)\n tmpmeta.WriteElt(\" Standard_Parallel:\"++cooSP1) \n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++LCM)\n tmpmeta.W
riteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n \n end' UPS\n \n if (GCS.Contains(\"State_Plane_Coordinate_System\")) then\n tmpmeta.WriteElt(\" SPCS_Zone_Identifier:\"++cooZone)\n tmpmeta.WriteElt(\" \"+theProjection)\n if (theProjection = \"Lambert_Conformal_Conic\") then\n tmpmeta.WriteElt(\" Standard_Parallel:\"++cooSP1)\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++LCM)\n tmpmeta.WriteElt
(\" Latitude_of_Projection_Origin:\"++LOPO)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end 'if Lambert Conformal Conic\n \n if (theProjection = \"Transverse_Mercator\") then\n tmpmeta.WriteElt(\" Scale_Factor_at_Central_Meridian:\"++SFCM)\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++LCM)\n tmpmeta.WriteElt(\" Latitude_of_Projection_Origin:\"++LOPO)\n tmpmeta.Writ
eElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end 'if Transverse Mercator\n \n if (theProjection = \"Oblique_Mercator\") then\n tmpmeta.WriteElt(\" Scale_Factor_at_Center_Line:\"++SFCL)\n tmpmeta.WriteElt(\" \"+OL)\n if (OL = \"Oblique Line Azimuth\") then\n tmpmeta.WriteElt(\" Azimuthal_Angle:\"++AA)\n tmpmeta.WriteElt(\" Azimuthal_Measure_Point_Longitude:\"++AMPL)\n end\n if
(OL = \"Oblique Line Point\") then\n tmpmeta.WriteElt(\" Oblique_Line_Latitude:\"++OLLat)\n tmpmeta.WriteElt(\" Oblique_Line_Longitude:\"++OLLong)\n end\n tmpmeta.WriteElt(\" Latitude_of_Projection_Origin:\"++LOPO)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end ' if Oblique Mercator \n \n if (theProjection = \"Polyconic\") then\n tmpmeta.WriteElt(\" Longitude_of_C
entral_Meridian:\"++LCM)\n tmpmeta.WriteElt(\" Latitude_of_Projection_Origin:\"++LOPO)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end 'if Polyconic\n end' State Plane \n\nelseif (plsys = \"Map_Projection\") then\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\"SPATIAL_REFERENCE_INFORMATION\")\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\" Horizontal_Coordinate_System_Definition\")\n tmpmeta.WriteElt(\" \"+HCDef)\n tmpmeta.Writ
eElt(\" Map_Projection:\")\n tmpmeta.WriteElt(\" Map_Projection_Name:\"++cooName)\n tmpmeta.WriteElt(\" \"+mapPrj+\":\")\n if ((cooName.Contains(\"Albers\")) or (cooName = \"Equidistant Conic\") or (cooName = \"Equidistant_Conic\") or (cooName = \"Lambert Conformal Conic\")) then\n tmpmeta.WriteElt(\" 1st_Standard_Parallel:\"++coosp1)\n tmpmeta.WriteElt(\" 2nd_Standard_Parallel:\"++coosp2)\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++LCM)\n tmpmeta.WriteElt(\"
Latitude_of_Projection_Origin:\"++LOPO)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end ' if Albers, Equidistant, Lambert\n \n if ((cooName.Contains(\"Azimuthal Equidistant\")) or (cooName.Contains(\"Polyconic\"))) then\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++LCM)\n tmpmeta.WriteElt(\" Latitude_of_Projection_Origin:\"++LOPO)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\"
False_Northing:\"++cooFN)\n end 'Azimuthal, Polyconic\n \n if (cooName = \"Equirectangular\") then\n tmpmeta.WriteElt(\" Standard_Parallel:\"++cooSp1)\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++lcm)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end ' Equirectangular\n \n if(cooName = \"General Vertical Near-sided Perspective\") then\n tmpmeta.WriteElt(\" Height_of_Perspective_Point_Above_Surfac
e:\"++hppas)\n tmpmeta.WriteElt(\" Longitude_of_Projection_Center:\"++longpc)\n tmpmeta.WriteElt(\" Latitude_of_Projection_Center:\"++latpc)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end 'GVNSP\n \n if ((cooName = \"Gnomonic\") or (cooName = \"Lambert Azimuthal Equal Area\") or (cooName = \"Orthographic\") or (cooName = \"Stereographic\")) then\n tmpmeta.WriteElt(\" Longitude_of_Projection_Center:\"++longpc)\n t
mpmeta.WriteElt(\" Latitude_of_Projection_Center:\"++latpc)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end '\n if (cooName = \"Mercator\") then\n tmpmeta.WriteElt(\" Standard_Parallel:\"++cooSp1)\n tmpmeta.WriteElt(\" Scale_Factor_at_Equator:\"++sfe)\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++lcm)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False
_Northing:\"++cooFN) \n end '\n if (cooName = \"Modified Stereographic for Alaska\") then\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end '\n\n if ((cooName.Contains(\"Miller\")) or cooName.Contains(\"Sinusoidal\")) then\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++lcm)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end '\n \n if (cooName.Contains(\"Po
lar\")) then\n tmpmeta.WriteElt(\" Straight-Vertical_Longitude_from_Pole:\"++svlp)\n tmpmeta.WriteElt(\" Standard_Parallel:\"++cooSp1)\n tmpmeta.WriteElt(\" Scale_Factor_at_Projection_Origin:\"++sfpo)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end ' \n \n if (cooName = \"Robinson\") then\n tmpmeta.WriteElt(\" Longitude_of_Projection_Center:\"++longpc)\n tmpmeta.WriteElt(\" False_Easting:\"++cooF
E)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end \n if (cooName = \"Space Oblique Mercator\") then\n tmpmeta.WriteElt(\" Landsat_Number:\"++ln)\n tmpmeta.WriteElt(\" Path_Number:\"++pn)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end\n \n if (cooName = \"Transverse Mercator\") then\n tmpmeta.WriteElt(\" Scale_Factor_at_Central_Meridian:\"++sfcm)\n tmpmeta.WriteElt(\" Longitude_of_C
entral_Meridian:\"++lcm)\n tmpmeta.WriteElt(\" Latitude_of_Projection_Origin:\"++lopo)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN)\n end '\n\n if (cooName.Contains(\"Grinten\")) then\n tmpmeta.WriteElt(\" Longitude_of_Central_Meridian:\"++lcm)\n tmpmeta.WriteElt(\" False_Easting:\"++cooFE)\n tmpmeta.WriteElt(\" False_Northing:\"++cooFN) \n end \n\n\nelse 'write out empty tags for Spatial Reference Information
\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\"SPATIAL_REFERENCE_INFORMATION\")\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\" Horizontal_Coordinate_System_Definition\")\n tmpmeta.WriteElt(\" Planar\")\n tmpmeta.WriteElt(\" Grid_Coordinate_System\")\n tmpmeta.WriteElt(\" Grid_Coordinate_System_Name:\")\nend 'for writing out Metadata for Grid Coordinate info\n\n\n\n'Planar_Coordinate_Information\nif (HCDef = \"Planar\") then\n if (_refMeth = \"Vector\") then\n encodeDef = \"Coordinate pair\"\n else\n encodeDef = \"
Row and column\"\n end\n tmpMeta.WriteElt(\" Planar_Coordinate_Information\")\n tmpMeta.WriteElt(\" Planar_Coordinate_Encoding_Method:\"++encodeDef)\n tmpMeta.WriteElt(\" Coordinate_Representation:\")\n \n theLabs = {\"4.1.2.4.2.1 Abscissa Resolution\",\"4.1.2.4.2.2 Ordinate_Resolution:\"}\n theDefs = {\" \",\" \"}\n res = MsgBox.MultiInput(\"Enter Resolution Information for Planar Coordinate System:\",\"Resolution Information\",theLabs,theDefs)\n if (res.Count > 0) then\n abRes = res.Get(0)\n orRes = r
es.Get(1)\n tmpMeta.WriteElt(\" Abscissa_Resolution:\"++abRes)\n tmpMeta.WriteElt(\" Ordinate_Resolution:\"++orRes)\n tmpMeta.WriteElt(\" Planar_Distance_Units:\"++plUnits)\n 'tmpHtml.WriteElt(\" Abscissa_Resolution:\"++abRes)\n 'tmpHtml.WriteElt(\" Ordinate_Resolution:\"++orRes)\n 'tmpHtml.WriteElt(\" Planar_Distance_Units:\"++plUnits)\n else\n goon = MsgBox.YesNo(\"If you exit now, this section will have to be recreated. Do you want t
o continue collecting metadata?\",\"Continue\",true)\n if (goon = true) then\n keepon = false\n tmpMeta.WriteElt(\" Abscissa_Resolution:\")\n tmpMeta.WriteElt(\" Ordinate_Resolution:\")\n else\n system.Beep\n tmpmeta.Close\n metafile.Close\n File.Delete(tmpName.AsFileName)\n File.Delete(htmpName.AsFileName)\n exit\n end\n end\nend 'checking in Horizontal Coordinate definition if Planar\n\n\n'Geodetic Model Information\n\nif (cooDatum = NIL) then\n datList = {\"N
orth American Datum of 1927\",\"North American Datum of 1983\"}\n cooDatum = MsgBox.ChoiceAsString(datList,\"Select the Horizontal_Datum 4.1.4.1:\",\"Horizontal_Datum\")\n if (cooDatum = \"North American Datum of 1927\") then\n cooDatum = \"North American Datum 1927\"\n cooEllip = \"Clarke 1866\"\n cooAxis = \"6378206.4\"\n cooFlat = \"294.98\"\n\n elseif (cooDatum = \"North American Datum of 1983\") then\n cooDatum = \"North American Datum 1983\"\n cooEllip = \"Geodetic Reference System 1980\"\n cooAxis = \"6378137\"\n
cooFlat = \"298.257\"\n end' checking datum\nend 'checking if cooDatum has been set\n\nif (cooDatum <> NIL) then\n tmpMeta.WriteElt(\" Geodetic_Model\")\n tmpMeta.WriteElt(\" Horizontal_Datum_Name:\"++cooDatum)\n tmpMeta.WriteElt(\" Ellipsoid_Name:\"++cooEllip)\n tmpMeta.WriteElt(\" Semi-major_Axis:\"++cooAxis)\n tmpMeta.WriteElt(\" Denominator_of_Flattening_Ratio:\"++cooFlat)\nend 'checking if cooDatum is Set\ntmpMeta.Close\nMsgBox.Info(\"Section 4 SPATIAL_REFERENCE_INFORMATION is complete!\",\"SPATI
AL_REFERENCE_INFORMATION\")"
)
(Script.159
Name: "DD.Sec4.GC_DatumSelect"
SourceCode: "theD = av.FindDialog(\"Sec4.GC\")\ntheStr = Self.GetSelection.AsString\nif (theStr = \"Other\") then\n n = msgbox.Input(\"Enter value for other:\",\"Horizontal Datum Name\",\"\")\n if (n <> NIL) then\n theList = Self.GetList\n theList.insert(n)\n Self.DefineFromList(theList)\n Self.SetCurrentValue(n)\n theD.FindByName(\"Sec4.GC_BCEllipse\").FindByValue(\"Other\")\n theD.FindByName(\"Sec4.GC_BCEllipse\").SelectCurrent\n theD.FindByName(\"Sec4.GC_TxtAxis\").SetText(\"\")\n theD.FindByName(\"Sec4.GC_TxtFlat\").SetText
(\"\")\n end\nelseif (theStr = \"North American Datum of 1927\") then\n theD.FindByName(\"Sec4.GC_BCEllipse\").FindByValue(\"Clarke 1866\")\n theD.FindByName(\"Sec4.GC_BCEllipse\").SelectCurrent\n theD.FindByName(\"Sec4.GC_TxtAxis\").SetText(\"6,378,206.4\")\n theD.FindByName(\"Sec4.GC_TxtFlat\").SetText(\"294.98\")\nelseif (theStr = \"North American Datum of 1983\") then\n theD.FindByName(\"Sec4.GC_BCEllipse\").FindByValue(\"Geodetic Reference System 80\")\n theD.FindByName(\"Sec4.GC_BCEllipse\").SelectCurrent\n theD.FindByName(\"Sec4
.GC_TxtAxis\").SetText(\"6,378,137\")\n theD.FindByName(\"Sec4.GC_TxtFlat\").SetText(\"298.257\")\nend"
)
(Script.160
Name: "DD.Sec4.GC_EllipsoidSelect"
SourceCode: "theD = av.FindDialog(\"Sec4.GC\")\ntheStr = Self.GetSelection.AsString\nif (theStr = \"Other\") then\n n = msgbox.Input(\"Enter value for other:\",\"Ellipsoid Name\",\"\")\n if (n <> NIL) then\n theList = Self.GetList\n theList.insert(n)\n Self.DefineFromList(theList)\n Self.SetCurrentValue(n)\n theD.FindByName(\"Sec4.GC_TxtAxis\").SetText(\"\")\n theD.FindByName(\"Sec4.GC_TxtFlat\").SetText(\"\")\n end\nelseif (theStr = \"Clarke 1866\") then\n theD.FindByName(\"Sec4.GC_TxtAxis\").SetText(\"6,378,206.4\")\n theD.FindByNam
e(\"Sec4.GC_TxtFlat\").SetText(\"294.98\")\nelseif (theStr = \"Geodetic Reference System 80\") then\n theD.FindByName(\"Sec4.GC_TxtAxis\").SetText(\"6,378,137\")\n theD.FindByName(\"Sec4.GC_TxtFlat\").SetText(\"298.257\")\nend"
)
(Script.161
Name: "DD.Sec4.GC_Open"
SourceCode: "Self.FindByName(\"Sec4.GC_TxtUnits\").SetText(\"Decimal Degrees\")\ndatList = {\"North American Datum of 1927\",\"North American Datum of 1983\",\"Other\"}\nif (_Sec4PCDat <> NIL) then\n datList.Insert(_Sec4PCDat)\n datList.RemoveDuplicates\n Self.FindByName(\"Sec4.GC_CBDatum\").DefineFromList(datList)\n Self.FindByName(\"Sec4.GC_CBDatum\").SetCurrentValue(_Sec4PCDat)\nelse\n Self.FindByName(\"Sec4.GC_CBDatum\").DefineFromList(datList)\n Self.FindByName(\"Sec4.GC_CBDatum\").SetCurrentValue(\"North American Datum of 1927\")\nend\nel
lList = {\"Clarke 1866\",\"Geodetic Reference System 80\",\"Other\"}\nif (_Sec4PCEll <> NIL) then\n ellList.Insert(_Sec4PCEll)\n ellList.RemoveDuplicates\n Self.FindByName(\"Sec4.GC_BCEllipse\").DefineFromList(ellList)\n Self.FindByName(\"Sec4.GC_BCEllipse\").SetCurrentValue(_Sec4PCEll)\nelse\n Self.FindByName(\"Sec4.GC_BCEllipse\").DefineFromList(ellList)\nend\n\nt = Self.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\"
)\"\n Self.SetTitle(nt)\nend\nSelf.MoveTo(50,20)"
)
(Script.162
Name: "DD.Sec4.PC_DatumSelect"
SourceCode: "theD = av.FindDialog(\"Sec4.PC\")\ntheStr = Self.GetSelection.AsString\nif (theStr = \"Other\") then\n n = msgbox.Input(\"Enter value for other:\",\"Horizontal Datum Name\",\"\")\n if (n <> NIL) then\n theList = Self.GetList\n theList.insert(n)\n Self.DefineFromList(theList)\n Self.SetCurrentValue(n)\n theD.FindByName(\"Sec4.PC_BCEllipse\").FindByValue(\"Other\")\n theD.FindByName(\"Sec4.PC_BCEllipse\").SelectCurrent\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(\"\")\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText
(\"\")\n end\nelseif (theStr = \"North American Datum of 1927\") then\n theD.FindByName(\"Sec4.PC_BCEllipse\").FindByValue(\"Clarke 1866\")\n theD.FindByName(\"Sec4.PC_BCEllipse\").SelectCurrent\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(\"6,378,206.4\")\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(\"294.98\")\nelseif (theStr = \"North American Datum of 1983\") then\n theD.FindByName(\"Sec4.PC_BCEllipse\").FindByValue(\"Geodetic Reference System 80\")\n theD.FindByName(\"Sec4.PC_BCEllipse\").SelectCurrent\n theD.FindByName(\"Sec4
.PC_TxtAxis\").SetText(\"6,378,137\")\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(\"298.257\")\nend"
)
(Script.163
Name: "DD.Sec4.PC_DatumSelect_Old"
SourceCode: "theD = av.FindDialog(\"Sec4.PC\")\ntheStr = Self.GetSelection.AsString\nif (theStr = \"Other\") then\n n = msgbox.Input(\"Enter value for other:\",\"Horizontal Datum Name\",\"\")\n if (n <> NIL) then\n theList = Self.GetList\n theList.insert(n)\n Self.DefineFromList(theList)\n Self.SetCurrentValue(n)\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(\"\")\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(\"\")\n end\nend\n\nif (theStr = \"North American Datum of 1927\") then\n theEll = \"Clarke 1866\"\n ellBC = theD.FindByName(
\"Sec4.PC_BCEllipse\")\n theList = ellBC.GetList\n theList.Remove(theList.FindByValue(theEll))\n theList.Insert(theEll)\n ellBC.DefineFromList(theList)\n ellBC.SetCurrentValue(theEll)\n \n theAx = \"6,378,206.4\"\n theFlat = \"294.98\"\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(theAx)\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(theFlat)\nend\n\nif (theStr = \"North American Datum of 1983\") then\n theEll = \"Geodetic Reference System 80\"\n ellBC = theD.FindByName(\"Sec4.PC_BCEllipse\")\n theList = ellBC.GetList\n theL
ist.Remove(theList.FindByValue(theEll))\n theList.Insert(theEll)\n ellBC.DefineFromList(theList)\n ellBC.SetCurrentValue(theEll)\n \n theAx = \"6,378,137\"\n theFlat = \"298.257\"\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(theAx)\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(theFlat)\nend"
)
(Script.164
Name: "DD.Sec4.PC_EllipseSelect"
SourceCode: "theD = av.FindDialog(\"Sec4.PC\")\ntheStr = Self.GetSelection.AsString\nif (theStr = \"Other\") then\n n = msgbox.Input(\"Enter value for other:\",\"Ellipsoid Name\",\"\")\n if (n <> NIL) then\n theList = Self.GetList\n theList.insert(n)\n Self.DefineFromList(theList)\n Self.SetCurrentValue(n)\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(\"\")\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(\"\")\n end\nend\n\nif (theStr = \"Clarke 1866\") then\n theDat = \"North American Datum of 1927\"\n datBC = theD.FindByName(\"Sec4.P
C_CBDatum\")\n theList = datBC.GetList\n theList.Remove(theList.FindByValue(theDat))\n theList.Insert(theDat)\n datBC.DefineFromList(theList)\n datBC.SetCurrentValue(theDat)\n \n theAx = \"6,378,206.4\"\n theFlat = \"294.98\"\n 'theD.FindByName(\"Sec4.PC_BCEllipse\").SetCurrentValue(theDat)\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(theAx)\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(theFlat)\nend\n\nif (theStr = \"Geodetic Reference System 80\") then\n theDat = \"North American Datum of 1983\"\n datBC = theD.FindByNam
e(\"Sec4.PC_CBDatum\")\n theList = datBC.GetList\n theList.Remove(theList.FindByValue(theDat))\n theList.Insert(theDat)\n datBC.DefineFromList(theList)\n datBC.SetCurrentValue(theDat) \n \n theAx = \"6,378,137\"\n theFlat = \"298.257\"\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(theAx)\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(theFlat)\nend"
)
(Script.165
Name: "DD.Sec4.VC_Back"
SourceCode: "Self.GetDialog.Close\nif (_sourceunits = #UNITS_LINEAR_DEGREES) then \n av.FindDialog(\"Sec4.GC\").Open\nelse\n av.FindDialog(\"Sec4.PC\").Open\nend"
)
(Script.166
Name: "DD.Sec4.VC_Click"
SourceCode: "Self.GetDialog.Close\nav.FindDialog(\"Sec4.VC\").Open\n_Sec4VCDoVert = True"
)
(Script.167
Name: "DD.Sec4.VC_DatumSelect"
SourceCode: "theD = av.FindDialog(\"Sec4.GC\")\ntheStr = Self.GetSelection.AsString\nif (theStr = \"Other\") then\n n = msgbox.Input(\"Enter value for other:\",\"Horizontal Datum Name\",\"\")\n if (n <> NIL) then\n theList = Self.GetList\n theList.insert(n)\n Self.DefineFromList(theList)\n Self.SetCurrentValue(n)\n end\nend"
)
(Script.168
Name: "DD.Sec4.VC_Open"
SourceCode: "datList = {\"National Geodetic Vertical Datum of 1929\",\"North American Vertical Datum of 1988\",\"Other\"}\nif (_Sec4VCDat <> NIL) then\n datList.Insert(_Sec4VCDat)\n datList.RemoveDuplicates\n Self.FindByName(\"DD.Sec4VC_CBAldat\").DefineFromList(datList)\n Self.FindByName(\"DD.Sec4VC_CBAldat\").SetCurrentValue(_Sec4VCDat)\nelse\n Self.FindByName(\"DD.Sec4VC_CBAldat\").DefineFromList(datList)\n Self.FindByName(\"DD.Sec4VC_CBAldat\").SetCurrentValue(\"National Geodetic Vertical Datum of 1929\")\nend\n\nencList = {\"Implicit co
ordinate\",\"Attribute Value\",\"Explicit elevation coordinate included with horizontal coordinates\"}\nif (_Sec4VCEnc <> NIL) then\n encList.Insert(_Sec4VCEnc)\n encList.RemoveDuplicates\n Self.FindByName(\"DD.Sec4VC_CBAlencode\").DefineFromList(encList)\n Self.FindByName(\"DD.Sec4VC_CBAlencode\").SetCurrentValue(_Sec4VCEnc)\nelse\n Self.FindByName(\"DD.Sec4VC_CBAlencode\").DefineFromList(encList)\n Self.FindByName(\"DD.Sec4VC_CBAlencode\").SetCurrentValue(\"Implicit coordinate\")\nend\n\n\n\n\nt = Self.GetTitle\nif (t.Contains(\"
(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n Self.SetTitle(nt)\nend\nSelf.MoveTo(50,20)"
)
(Script.169
Name: "DD.Sec4_Close4"
SourceCode: "if (_sourceunits = #UNITS_LINEAR_DEGREES) then \n av.FindDialog(\"Sec4.GC\").Open\nelse\n av.FindDialog(\"Sec4.PC\").Open\nend\nav.FindDialog(\"Sec4\").Close\n"
)
(Script.170
Name: "DD.Sec4_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec4.txt\").AsFileName,#FILE_PERM_READ)\n'e = lf.ReadElt.Substitute(NL,\"\")\ngotPlanar = False\ngotVert = False\nSec4PCDat = NIL\nSec4PCEll = NIL\nSec4GCDat = NIL\nSec4GCEll = NIL\nSec4VCDat = NIL\nSec4VCEnc = NIL\nwhile (lf.IsAtEnd.NOT) \n e = lf.ReadElt.Substitute(NL,\"\")\n e2 = lf.ReadElt\n if (e2 <> NIL) then\n e2 = e2.Substitute(NL,\"\")\n lf.SetPos(lf.GetPos - 1)\n else\n e2 = \"\"\n end\n \n if (e.Trim = \"Planar:\") then\n gotPlanar = True\n end\n if (gotPlanar = True)
then\n theDia = av.FindDialog(\"Sec4.PC\")\n if ((e.Contains(\"Abscissa_Resolution:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.PC_TxtAbRes\").SetText(s)\n end\n if ((e.Contains(\"Ordinate_Resolution:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.PC_TxtOrRes\").SetText(s)\n end\n if ((e.Contains(\"Planar_Distance_Units:\")) and (e.AsTokens(\":\").Count > 1)) then\n s
= av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.PC_TxtDisUnits\").SetText(s)\n _plUnits = s\n end\n if ((e.Contains(\"Horizontal_Datum_Name:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec4PCDat = e.AsTokens(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Ellipsoid_Name:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec4PCEll = e.AsTokens(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Semi-major_Axis:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n
theDia.FindByName(\"Sec4.PC_TxtAxis\").SetText(s)\n end\n if ((e.Contains(\"Denominator_of_Flattening_Ratio:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.PC_TxtFlat\").SetText(s)\n end\n end\n if (gotPlanar = False) then\n theDia = av.FindDialog(\"Sec4.GC\")\n if ((e.Contains(\"Latitude_Resolution:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.GC_TxtLatRes\").SetText
(s)\n end\n if ((e.Contains(\"Longitude_Resolution:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.GC_TxtLongRes\").SetText(s)\n end\n if ((e.Contains(\"Geographic_Coordinate_Units:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.GC_TxtUnits\").SetText(s)\n end\n if ((e.Contains(\"Horizontal_Datum_Name:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec4GCDat = e.AsTokens
(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Ellipsoid_Name:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec4GCEll = e.AsTokens(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Semi-major_Axis:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.GC_TxtAxis\").SetText(s)\n end\n if ((e.Contains(\"Denominator_of_Flattening_Ratio:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec4.GC_T
xtFlat\").SetText(s)\n end \n end\n \n 'Check for Vertical Coordinates\n if (e.Contains(\"Vertical_Coordinate_System_Definition:\")) then\n _Sec4VCDoVert = True\n gotVert = True\n theDia = av.FindDialog(\"Sec4.VC\")\n end\n if (gotVert = True) then\n theDia = av.FindDialog(\"Sec4.VC\")\n if ((e.Contains(\"Altitude_Datum_Name:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec4VCDat = e.AsTokens(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Altitude_Resolution:\")) and (e.AsTokens(\":\").Count > 1)) then\n
s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"DD.Sec4VC_TxtAlResolution\").SetText(s)\n end\n if ((e.Contains(\"Altitude_Distance_Units:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"DD.Sec4VC_TxtAlunits\").SetText(s)\n end\n if ((e.Contains(\"Altitude_Encoding_Method:\")) and (e.AsTokens(\":\").Count > 1)) then\n Sec4VCEnc = e.AsTokens(\":\").Get(1).Trim\n end\n if ((e.Contains(\"Depth_Datum_Name:\")) and (e.AsTokens(\":\"
).Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"DD.Sec4VC_TxtDatum\").SetText(s)\n end\n if ((e.Contains(\"Depth_Resolution:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"DD.Sec4VC_TxtDepres\").SetText(s)\n end\n if ((e.Contains(\"Depth_Distance_Units:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"DD.Sec4VC_TxtDepdist\").SetText(s)\n end\n i
f ((e.Contains(\"Depth_Encoding_Method:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"DD.Sec4VC_TxtDepencode\").SetText(s)\n end \n end\nend\nlf.Close\n'Set Listbox for Sec4.GC\ntheDia = av.FindDialog(\"Sec4.GC\")\ndatList = {\"North American Datum of 1927\",\"North American Datum of 1983\",\"Other\"}\nif (Sec4GCDat <> NIL) then\n datList.Insert(Sec4GCDat)\n datList.RemoveDuplicates\n theDia.FindByName(\"Sec4.GC_CBDatum\").DefineFromList(datList)\n theDia.Fin
dByName(\"Sec4.GC_CBDatum\").SetCurrentValue(Sec4GCDat)\nend\nellList = {\"Clarke 1866\",\"Geodetic Reference System 80\",\"Other\"}\nif (Sec4GCEll <> NIL) then\n ellList.Insert(Sec4GCEll)\n ellList.RemoveDuplicates\n theDia.FindByName(\"Sec4.GC_BCEllipse\").DefineFromList(ellList)\n theDia.FindByName(\"Sec4.GC_BCEllipse\").SetCurrentValue(Sec4GCEll)\nend\n\ntheDia = av.FindDialog(\"Sec4.PC\")\ndatList = {\"North American Datum of 1927\",\"North American Datum of 1983\",\"Other\"}\nif (Sec4PCDat <> NIL) then\n _Sec4PCDat = Sec4PCDat\n
datList.Insert(Sec4PCDat)\n datList.RemoveDuplicates\n theDia.FindByName(\"Sec4.PC_CBDatum\").DefineFromList(datList)\n theDia.FindByName(\"Sec4.PC_CBDatum\").SetCurrentValue(Sec4PCDat)\nend\n\nellList = {\"Clarke 1866\",\"Geodetic Reference System 80\",\"Other\"}\nellName = NIL\nif (_thePrj <> NIL) then\n theprj = _thePrj\n ellName = thePrj.GetSpheroid.GetSpheroidName\n 'msgbox.info(ellname,\"\")\n if (ellList.FindByValue(ellName) < 0) then\n ellList.Insert(ellName)\n end\n maxis = theprj.GetSpheroid.returnradius\n maxi
s.SetFormat(\"d.ddddddd\")\n theDia.FindByName(\"Sec4.PC_TxtAxis\").SetText(maxis.AsString)\n e = theprj.GetSpheroid.ReturnEccentricity\n e.setformat(\"d.dddddddd\")\n 'e = e.sqrt\n s = (1 - e).sqrt\n f = 1 - s\n f = 1 / f\n f.setformat(\"d.dd\")\n theDia.FindByName(\"Sec4.PC_TxtFlat\").SetText(f.AsString)\nend\n\nif (ellName <> NIL) then\n theDia.FindByName(\"Sec4.PC_BCEllipse\").SetCurrentValue(ellName)\nend\nif (Sec4PCEll <> NIL) then\n _Sec4PCEll = Sec4PCEll\n ellList.Insert(Sec4PCEll)\n ellList.RemoveDuplicates\n theDi
a.FindByName(\"Sec4.PC_BCEllipse\").DefineFromList(datList)\n theDia.FindByName(\"Sec4.PC_BCEllipse\").SetCurrentValue(Sec4PCEll)\nend\ntheDia.FindByName(\"Sec4.PC_BCEllipse\").DefineFromList(ellList)\n\n'Set Listboxes for Sec4.VC\ntheDia = av.FindDialog(\"Sec4.VC\")\ndatList = {\"National Geodetic Vertical Datum of 1929\",\"North American Vertical Datum of 1988\",\"Other\"}\nif (Sec4VCDat <> NIL) then\n datList.Insert(Sec4VCDat)\n datList.RemoveDuplicates\n theDia.FindByName(\"DD.Sec4VC_CBAldat\").DefineFromList(datList)\n theDi
a.FindByName(\"DD.Sec4VC_CBAldat\").SetCurrentValue(Sec4VCDat)\nend\n\nencList = {\"Implicit coordinate\",\"Attribute Value\",\"Explicit elevation coordinate included with horizontal coordinates\"}\nif (Sec4VCEnc <> NIL) then\n encList.Insert(Sec4VCEnc)\n encList.RemoveDuplicates\n theDia.FindByName(\"DD.Sec4VC_CBAlencode\").DefineFromList(encList)\n theDia.FindByName(\"DD.Sec4VC_CBAlencode\").SetCurrentValue(Sec4VCEnc)\nend\n\ntheDia = av.FindDialog(\"Sec4.PC\")\ntheFN = _workdir+_pathDel+\"xxSec4_Prj.txt\"\nif (File.Exists(theFN.
AsFileName)) then\n tf = TextFile.Make(theFN.AsFileName,#FILE_PERM_READ)\n source = tf.Read( tf.GetSize )\n tf.Close\n theDia.FindByName(\"Sec4.PC_TBoxDef\").SetText(source)\nend"
)
(Script.171
Name: "DD.Sec4_Open"
SourceCode: "av.DelayedRun(\"DD.Sec4_Close4\",{},0.1)\nSelf.MoveTo(50,20)"
)
(Script.172
Name: "DD.Sec4_SetPC"
SourceCode: "'Write out Planar_Coordinate_Info\n\n\ntheD = av.FindDialog(\"Sec4.PC\")\n'Populate Definition Box from xxSec4_Prj file\ntheFN = _workdir+_pathDel+\"xxSec4_Prj.txt\"\nif (File.Exists(theFN.AsFileName)) then\n tf = TextFile.Make(theFN.AsFileName,#FILE_PERM_READ)\n source = tf.Read( tf.GetSize )\n tf.Close\n theD.FindByName(\"Sec4.PC_TBoxDef\").SetText(source)\nend\n\nencodeDef = \"\"\nif (_refMeth = \"Vector\") then\n theList = {\"Row and column\"}\n theList.Insert(\"Coordinate pair\")\n theD.FindByName(\"Sec4.PC_CBMeth\").DefineFrom
List(theList)\n theD.FindByName(\"Sec4.PC_CBMeth\").SetCurrentValue(\"Coordinate pair\")\n encodeDef = \"Coordinate pair\"\nelse\n theList = {\"Coordinate pair\"}\n theList.Insert(\"Row and column\")\n theD.FindByName(\"Sec4.PC_CBMeth\").DefineFromList(theList)\n theD.FindByName(\"Sec4.PC_CBMeth\").SetCurrentValue(\"Row and column\")\n encodeDef = \"Row and column\"\nend\n\n\n\ndatList = {\"North American Datum of 1927\",\"North American Datum of 1983\",\"Other\"}\nif (_Sec4PCDat <> NIL) then\n datList.Insert(_Sec4PCDat)\n datList.Remove
Duplicates\n theD.FindByName(\"Sec4.PC_CBDatum\").DefineFromList(datList)\n theD.FindByName(\"Sec4.PC_CBDatum\").SetCurrentValue(_Sec4PCDat)\nelse\n theD.FindByName(\"Sec4.PC_CBDatum\").DefineFromList(datList)\n theD.FindByName(\"Sec4.PC_CBDatum\").SetCurrentValue(\"North American Datum of 1927\")\nend\nellList = {\"Clarke 1866\",\"Geodetic Reference System 80\",\"Other\"}\n\nellName = NIL\nif (_thePrj <> NIL) then\n theprj = _thePrj\n ellName = thePrj.GetSpheroid.GetSpheroidName\n 'msgbox.info(ellname,\"\")\n if (ellList.FindByVa
lue(ellName) < 0) then\n ellList.Insert(ellName)\n end\n maxis = theprj.GetSpheroid.returnradius\n maxis.SetFormat(\"d.ddddddd\")\n theD.FindByName(\"Sec4.PC_TxtAxis\").SetText(maxis.AsString)\n e = theprj.GetSpheroid.ReturnEccentricity\n e.setformat(\"d.dddddddd\")\n 'e = e.sqrt\n s = (1 - e).sqrt\n f = 1 - s\n f = 1 / f\n f.setformat(\"d.dd\")\n theD.FindByName(\"Sec4.PC_TxtFlat\").SetText(f.AsString)\nend\n\nif (ellName <> NIL) then\n theD.FindByName(\"Sec4.PC_BCEllipse\").SetCurrentValue(ellName)\nend\nif (_Sec4PCEll
<> NIL) then\n ellList.Insert(_Sec4PCEll)\n ellList.RemoveDuplicates\n theD.FindByName(\"Sec4.PC_BCEllipse\").DefineFromList(datList)\n theD.FindByName(\"Sec4.PC_BCEllipse\").SetCurrentValue(_Sec4PCEll)\nend\ntheD.FindByName(\"Sec4.PC_BCEllipse\").DefineFromList(ellList)\n"
)
(Script.173
Name: "DD.Sec4_Write"
SourceCode: "tmpName = _workDir.AsString+_pathDel+\"xxSec4.txt\"\ntmpMeta = LineFile.Make(tmpName.AsFileName,#FILE_PERM_WRITE)\n\nif (_sourceunits = #UNITS_LINEAR_DEGREES) then\n theD = av.FindDialog(\"Sec4.GC\")\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\"SPATIAL_REFERENCE_INFORMATION\")\n tmpmeta.WriteElt(\"\")\n tmpMeta.WriteElt(\" Horizontal_Coordinate_System_Definition:\")\n tmpMeta.WriteElt(\" Geographic:\")\n tmpMeta.WriteElt(\" Latitude_Resolution: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.GC_TxtLatRes\").GetText,\"
\",False}))\n tmpMeta.WriteElt(\" Longitude_Resolution: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.GC_TxtLongRes\").GetText,\" \",False}))\n tmpMeta.WriteElt(\" Geographic_Coordinate_Units: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.GC_TxtUnits\").GetText,\" \",False}))\n tmpMeta.WriteElt(\" Geodetic_Model:\")\n tmpMeta.WriteElt(\" Horizontal_Datum_Name: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.GC_CBDatum\").GetSelection.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Ell
ipsoid_Name: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.GC_BCEllipse\").GetSelection.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Semi-major_Axis: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.GC_TxtAxis\").GetText,\" \",False}))\n tmpMeta.WriteElt(\" Denominator_of_Flattening_Ratio: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.GC_TxtFlat\").GetText,\" \",False}))\nelse\n theD = av.FindDialog(\"Sec4.PC\")\n if (theD.FindByName(\"Sec4.PC_TBoxDef\").GetText.AsString.Count > 0) then\n tmpmeta.W
riteElt(\"\")\n Def = theD.FindByName(\"Sec4.PC_TBoxDef\").GetText.AsString\n tokes = Def.AsTokens(NL)\n for each t in tokes\n tmpMeta.WriteElt(t)\n end\n else\n tmpmeta.WriteElt(\"\")\n tmpmeta.WriteElt(\"SPATIAL_REFERENCE_INFORMATION\")\n tmpmeta.WriteElt(\"\")\n tmpMeta.WriteElt(\" Horizontal_Coordinate_System_Definition:\")\n tmpMeta.WriteElt(\" Planar:\")\n tmpMeta.WriteElt(\" Map_Projection:\")\n end\n tmpMeta.WriteElt(\" Planar_Coordinate_Information:\")\n tmpMeta.WriteElt(\"
Planar_Coordinate_Encoding_Method: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.PC_CBMeth\").GetSelection.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Coordinate_Representation:\")\n tmpMeta.WriteElt(\" Abscissa_Resolution: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.PC_TxtAbRes\").GetText,\" \",False}))\n tmpMeta.WriteElt(\" Ordinate_Resolution: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.PC_TxtOrRes\").GetText,\" \",False}))\n tmpMeta.WriteElt(\" Planar_Distance_Un
its: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.PC_TxtDisUnits\").GetText,\" \",False}))\n tmpMeta.WriteElt(\" Geodetic_Model:\")\n tmpMeta.WriteElt(\" Horizontal_Datum_Name: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.PC_CBDatum\").GetSelection.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Ellipsoid_Name: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.PC_BCEllipse\").GetSelection.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Semi-major_Axis: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"S
ec4.PC_TxtAxis\").GetText,\" \",False}))\n tmpMeta.WriteElt(\" Denominator_of_Flattening_Ratio: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"Sec4.PC_TxtFlat\").GetText,\" \",False}))\nend\n\n'Check for Vertical Coordinates\nif (_Sec4VCDoVert <> NIL) then\n theD = av.FindDialog(\"Sec4.VC\")\n tmpMeta.WriteElt(\" Vertical_Coordinate_System_Definition:\")\n tmpMeta.WriteElt(\" Altitude_System_Definition:\")\n tmpMeta.WriteElt(\" Altitude_Datum_Name: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_CBAldat\"
).GetSelection.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Altitude_Resolution: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_TxtAlResolution\").GetText.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Altitude_Distance_Units: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_TxtAlunits\").GetText.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Altitude_Encoding_Method: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_CBAlencode\").GetSelection.AsString,\" \",False}))\n tmpMeta.WriteElt(\"
Depth_System_Definition:\")\n tmpMeta.WriteElt(\" Depth_Datum_Name: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_TxtDatum\").GetText.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Depth_Resolution: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_TxtDepres\").GetText.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Depth_Distance_Units: \"+Av.Run(\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_TxtDepdist\").GetText.AsString,\" \",False}))\n tmpMeta.WriteElt(\" Depth_Encoding_Method: \"+Av.Run(
\"DD.WordWrap\",{theD.FindByName(\"DD.Sec4VC_TxtDepencode\").GetText.AsString,\" \",False}))\nend\ntmpMeta.Close"
)
(Script.174
Name: "DD.Sec4PC_Open"
SourceCode: "theD = av.FindDialog(\"Sec4.PC\")\nt = theD.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n theD.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n theD.SetTitle(nt)\nend\ntheD.MoveTo(50,20)\n'theFN = _workdir+_pathDel+\"xxSec4_Prj.txt\"\n'if (File.Exists(theFN.AsFileName)) then\n' tf = TextFile.Make(theFN.AsFileName,#FILE_PERM_READ)\n' source = tf.Read( tf.GetSize )\n' tf.Close\n' theD.FindByName(\"Sec4.PC_TBoxDef\").SetText(source)\n'end\n\nav.Run(\"DD.Sec4_SetPc\",\"\"
)\n\nplunits = \"\"\nif (_sourceunits = #UNITS_LINEAR_DEGREES) then\n plunits = \"Decimal degrees\"\nend\nif (_sourceunits = #UNITS_LINEAR_YARDS) then\n plunits = \"Yards\"\nend\nif (_sourceunits = #UNITS_LINEAR_INCHES) then\n plunits = \"Inches\"\nend\nif (_sourceunits = #UNITS_LINEAR_FEET) then\n plunits = \"Feet\"\nend\nif (_sourceunits = #UNITS_LINEAR_MILES) then\n plunits = \"Miles\"\nend\nif (_sourceunits = #UNITS_LINEAR_MILLIMETERS) then\n plunits = \"Milimeters\"\nend\nif (_sourceunits = #UNITS_LINEAR_CENTIMETERS) then\n plunit
s = \"Centimeters\"\nend\nif (_sourceunits = #UNITS_LINEAR_METERS) then\n plunits = \"Meters\"\nend\nif (_sourceunits = #UNITS_LINEAR_KILOMETERS) then\n plunits = \"Kilometers\"\nend\nif (_sourceunits = #UNITS_LINEAR_NAUTICALMILES) then\n plunits = \"Nautical miles\"\nend\nif ((plunits = \"\") and (_plunits <> NIL)) then\n plunits = _plUnits\nend\ntheD.FindByName(\"Sec4.PC_TxtDisUnits\").SetText(plunits)"
)
(Script.175
Name: "DD.Sec4PC_SetPro"
SourceCode: "av.Run(\"DD.DoProjection\",{})\nav.Run(\"DD.Sec4_SetPC\",{})"
)
(Script.176
Name: "DD.Sec5.DD_Cancel"
SourceCode: "_DoDD = False\nav.FindDialog(\"Sec5.DD\").Close"
)
(Script.177
Name: "DD.Sec5.DD_LBApply"
SourceCode: "d = av.FindDialog(\"Sec5.DD\")\nsType = d.FindByName(\"Sec5.DD_CBType\").GetSelection\n_AttEnum = sType\n'd.FindByName(\"Sec5.1_LBResults\").DefineFromList({})\nd.FindByName(\"Sec5.DD_TBoxResults\").Empty\nresList = {}\nhitList = {}\ntheStr = \"\"\ntheLutDict = Dictionary.Make(1)\ntheField = _theFTab.FindField(d.FindByName(\"Sec5.DD_TxtAttLab\").GetText)\n\n'Set Globals\n_theKeys = NIL\n_theLutDict = Nil\n_theMinimum = Nil\n_theMaximum = Nil\n_theType = Nil\n_theCodes = Nil\n\nif (sType = \"Enumerated Domain Value\") then\n theVals = {} '
a list of unique attribute values\n _theTheme.ClearSelection\n for each r in _theFTab\n theVals.Add(_theFtab.ReturnValueString(theField,r))\n end\n theVals.RemoveDuplicates\n if (theVals.Count < 1) then\n msgbox.Warning(\"No records found!\",\"Exiting\")\n 'exit\n else\n getit = msgbox.YesNoCancel(\"Do you want to use a look up table for the attributes?\",\"Attribute Definition\",true)\n if (getit = true) then\n theFN = FileDialog.Show(\"*.dbf\",\"\",\"Select File\")\n if (theFN <> NIL) then\n theBads = {}
'a list to hold attributes that have no match in the LUT\n lutVTab = VTab.Make(theFN,False,False)\n theLuts = {} 'a unique list of attributes from the LUT\n theValDict = Dictionary.Make(lutVTab.GetNumRecords)\n theLutDict = Dictionary.Make(_theFTab.GetNumRecords)\n for each r in lutVTab\n vList = {} 'list to hold value,source combo\n a = lutVTab.ReturnValueString(lutVTab.FindField(\"Attr_Val\"),r)\n v = lutVTab.ReturnValueString(lutVTab.FindField(\"Val_Def\"),r)\n s =
lutVTab.ReturnValueString(lutVTab.FindField(\"Source\"),r)\n vList.Add(v)\n vList.Add(s)\n theLuts.Add(a)\n theValDict.Add(a,vList)\n end\n theLuts.RemoveDuplicates\n for each v in thevals\n theF = NIL\n for each l in theLuts\n if (v = l) then 'we got a hit add it to theLutDict\n theF = v\n theLutDict.Add(theF,theValDict.get(theF))\n end\n end\n if (theF = NIL) then\n msgBox.Info(\"Nothing found for:\"++v,\"\"
)\n theBads.Add(v)\n end\n end 'for each l\n if (theBads.Count > 0) then\n addEm = msgBox.YesNoCancel(\"Some values where not found in the look up table. Do you want to add them?\",\"Add values\",true)\n if (addEm = True) then\n newAttsDict = Dictionary.Make(theBads.Count)\n for each b in theBads\n newVals = {}\n theLabs = {\"Value Definition 5.1.2.4.1.2\",\"Definition Source 5.1.2.4.1.3\"}\n theDefs = {\" \",\" \"}\n newVals = m
sgBox.MultiInput(\"Enter values for: \"+b,\"Value Definition\",theLabs,theDefs)\n if (newVals.Count > 0) then\n newAttsDict.Add(b,newVals)\n theLutDict.Add(b,newVals)\n end\n end\n if (newAttsDict.Count > 0) then\n writeEm = msgBox.YesNoCancel(\"Do you want to save new values to: \"+lutVTab.GetName.AsString,\"Save values\",true)\n if (writeEm = true) then\n lutVTab.SetEditable(true)\n theKeys = newAttsDict.Return
Keys\n theKeys.Sort(True)\n for each k in theKeys\n r = lutVTab.AddRecord\n lutVTab.SetValue((lutVtab.FindField(\"Attr_Val\")),r,k.AsString)\n lutVTab.SetValue((lutVTab.FindField(\"Val_Def\")),r,newAttsDict.Get(k).Get(0).AsString)\n lutVTab.SetValue((lutVTab.FindField(\"Source\")),r,newAttsDict.Get(k).Get(1).AsString)\n end\n lutVtab.SetEditable(false)\n end\n end 'newAttsDict \n end 'Ad
dEm = true\n end 'if theBads.count > 0 \n end 'If got file\n end 'getit = true\n if (getit = false) then\n theLutDict = Dictionary.Make(theVals.Count)\n theVals.Sort(true)\n GetVal = True\n while (GetVal)\n for each v in theVals\n newVals = {}\n theLabs = {\"Value Definition 5.1.2.4.1.2\",\"Definition Source 5.1.2.4.1.3\"}\n theDefs = {\" \",\" \"}\n if (GetVal) then\n newVals = msgBox.MultiInput(\"Enter values for: \"+v,\"Value Definition\",theLabs,theDefs) \n
if (newVals.Count > 0) then\n theLutDict.Add(v,newVals)\n 'getVal = False\n else\n keepOn = MsgBox.YesNo(\"You must provide a value. Do you want to continue?\",\"Continue Enumerate Domain\", False)\n if (keepOn = False) then\n System.Beep\n GetVal = False\n theLutDict = Dictionary.Make(0)\n end \n 'theLutDict.Add(v,{\" \",\" \"})\n end\n end\n end ' the for loop\n GetVal = False\n
end\n if (theLutDict.Count > 0) then\n writeEM = MsgBox.YesNoCancel(\"Do you want to save these values to a Look Up Table?\",\"Save Values\",true)\n if (writeEM = true) then\n metaName = av.GetProject.GetWorkDir.AsString+_pathDel+\"lut1.dbf\"\n newVTabName = FileDialog.Put(metaName.AsFileName,\" \",\"Look Up Table Name\")\n if (newVTabName <> NIL) then\n newVTab = VTab.MakeNew(newVTabName,dBASE)\n aField = Field.Make(\"Attr_Val\",#FIELD_CHAR,50,0)\n vField = Field.
Make(\"Val_Def\",#FIELD_CHAR,250,0)\n sField = Field.Make(\"Source\",#FIELD_CHAR,250,0)\n newVTab.SetEditable(true)\n newVTab.AddFields({aField,vField,sField})\n theKeys = theLutDict.ReturnKeys\n theKeys.Sort(True)\n for each k in theKeys\n r = newVTab.AddRecord\n newVTab.SetValue((newVtab.FindField(\"Attr_Val\")),r,k.AsString)\n newVTab.SetValue((newVTab.FindField(\"Val_Def\")),r,theLutDict.Get(k).Get(0).AsString)\n newVTab.Set
Value((newVTab.FindField(\"Source\")),r,theLutDict.Get(k).Get(1).AsString)\n end\n newVtab.SetEditable(false)\n end\n end 'if WriteEm\n end 'LutDict.Count\n end 'getIf = false\n theKeys = theLutDict.ReturnKeys\n theKeys.Sort(True)\n \n if (theKeys.Count > 0) then\n resList.Add(\"ENUMERATED DOMAIN\"+NL)\n end\n for each k in theKeys\n theStr = k.AsString+\" \"+theLutDict.Get(k).Get(0).AsString+\" \"+theLutDict.Get(k).Get(1).AsString\n resList.Add(theStr)\n end\n theStr = \"\"\n
for each r in resList\n theStr = theStr + r.AsString +NL\n end\n d.FindByName(\"Sec5.DD_TBoxResults\").SetText(theStr)\n _theKeys = theKeys\n _theLutDict = theLutDict\n end 'if theVals.Count > 0\nend\n\nif (sType = \"Range Domain\") then\n theVTab = _theFTab\n thePrecision = \"d.dddddddddd\"\n theFieldPrecision = theField.GetPrecision\n Script.The.SetNumberFormat( thePrecision.Left( theFieldPrecision + 2 ) )\n \n theSum = 0\n theCount = 0\n theMinimum = nil\n theMaximum = nil\n for each rec in theVtab\n theVal
ue = theVTab.ReturnValueNumber( theField, rec )\n if ( not ( theValue.IsNull ) ) then\n if ( theMinimum = nil ) then\n theMinimum = theValue\n theMaximum = theValue\n else\n theMinimum = theMinimum min theValue\n theMaximum = theMaximum max theValue\n end\n theSum = theValue + theSum\n theCount = theCount + 1\n end\n end\n 'resList.Add(\"RANGE DOMAIN\"+NL+NL)\n theStr = \"RANGE DOMAIN\"+NL+NL\n theStr = theStr + \"Minimum: \"+theMinimum.AsString + NL\n 'resList.Add(
theStr)\n theStr = theStr + \"Maximum: \"+theMaximum.AsString\n 'resList.Add(theStr)\n _theMinimum = theMinimum\n _theMaximum = theMaximum\n d.FindByName(\"Sec5.DD_TBoxResults\").SetText(theStr)\n 'd.FindByName(\"Sec5.1_LBResults\").DefineFromList(resList) \nend\n\nif (sType = \"Unrepresentable Domain\") then\n 'UnRepDict = Dictionary.Make(_theFTab.GetFields.Count)\n theType = \"\"\n resList = {}\n if (_theFTab.FindField(theField.AsString).IsTypeString) then\n theType = \"Character Field\"\n end\n if (_theFTab.FindFiel
d(theField.AsString).IsTypeNumber) then\n theType = \"Numeric Field\"\n end\n if (_theFTab.FindField(theField.AsString).GetType = #FIELD_DATE) then\n theType = \"Date Field\"\n end\n theType = msgBox.Input(\"Unrepresentable Domain 5.1.2.4.4\",\"Enter value\",theType)\n if (theType = NIL) then \n resList = {}\n theType = \"\"\n else\n resList.Add(\"UNREPRESENTABLE DOMAIN\"+NL)\n resList.Add(theType)\n end\n theStr = \"\"\n for each r in resList\n theStr = theStr + r.AsString\n end\n d.FindByName(\"Sec5.DD_
TBoxResults\").SetText(theStr)\n 'd.FindByName(\"Sec5.1_LBResults\").DefineFromList(resList)\n \n _theType = theType\nend\n\nif (sType = \"Codeset Domain\") then\n codeDict = Dictionary.Make(_theFTab.GetFields.Count)\n theLabs = {\"Codeset Name 5.1.2.4.3.1\",\"Codeset Source 5.1.2.4.3.2\"}\n theDefs = {\"\",\"\"}\n theCodes = msgBox.MultiInput(\"Enter Codeset information\",\"Codeset Domain\",theLabs,theDefs)\n if (theCodes.count > 0) then\n resList.Add(\"CODESET DOMAIN\"+NL)\n theStr = \"Codeset_Name: \"+theCodes.Get(0)\n r
esList.Add(theStr)\n theStr = \"Codeset_Source: \"+theCodes.Get(1)\n resList.Add(theStr) \n else\n resList = {}\n theCodes = {}\n end\n _theCodes = theCodes\n theStr = \"\"\n for each r in resList\n theStr = theStr + r.AsString + NL\n end\n d.FindByName(\"Sec5.DD_TBoxResults\").SetText(theStr)\n 'd.FindByName(\"Sec5.1_LBResults\").DefineFromList(resList)\nend"
)
(Script.178
Name: "DD.Sec5.DD_Next"
SourceCode: "theD = Self.GetDialog\ntheField = theD.FindByName(\"Sec5.DD_TxtAttLab\").GetText\ntheDef = theD.FindByName(\"Sec5.DD_TxtAttDef\").GetText\ntheDS = theD.FindByName(\"Sec5.DD_TxtAttDS\").GetText\nif (theD.FindByName(\"Sec5.DD_TBoxResults\").GetText.Count < 1) then\n msgBox.Warning(\"You must select an Attribute Domain!\",\"Attribute Domain\")\nelse \n _tmpMeta.WriteElt(\" Attribute:\")\n _tmpMeta.WriteElt(\" Attribute_Label: \"+Av.Run(\"DD.WordWrap\",{theField.AsString,\" \",False}))\n _tmpMeta.WriteElt(\" Attribute
_Definition: \"+Av.Run(\"DD.WordWrap\",{theDef,\" \",False}))\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: \"+Av.Run(\"DD.WordWrap\",{theDS,\" \",False}))\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n \n 'Enumerated_Domain\n \n if (_AttEnum = \"Enumerated Domain Value\") then\n _tmpMeta.WriteElt(\" Enumerated_Domain: \")\n for each k in _theKeys\n _tmpMeta.WriteElt(\" Enumerated_Domain_Value: \"+Av.Run(\"DD.WordWrap\",{k.AsString,\" \",False}))\n _tmpMeta.Writ
eElt(\" Enumerated_Domain_Value_Definition: \"+Av.Run(\"DD.WordWrap\",{_theLutDict.Get(k).Get(0).AsString,\" \",False}))\n _tmpMeta.WriteElt(\" Enumerated_Domain_Value_Definition_Source: \"+Av.Run(\"DD.WordWrap\",{_theLutDict.Get(k).Get(1).AsString,\" \",False}))\n end\n _theKeys = NIL\n _theLutDict = NIL\n end\n \n 'Range Domain\n if (_AttEnum = \"Range Domain\") then\n _tmpMeta.WriteElt(\" Range_Domain:\")\n _tmpMeta.WriteElt(\" Range_Domain_Minimum: \"+Av.R
un(\"DD.WordWrap\",{_theMinimum.AsString,\" \",False}))\n _tmpMeta.WriteElt(\" Range_Domain_Maximum: \"+Av.Run(\"DD.WordWrap\",{_theMaximum.AsString,\" \",False}))\n _theMinimum = NIL\n _theMaximum = NIL\n end\n 'Unrepresentable Domain\n if (_AttEnum = \"Unrepresentable Domain\") then\n _tmpMeta.WriteElt(\" Unrepresentable_Domain: \"+Av.Run(\"DD.WordWrap\",{_theType,\" \",False}))\n _theType = NIL\n end\n \n 'Codeset Domain\n if (_AttEnum = \"Codeset Domain\") then\n _tmpMet
a.WriteElt(\" Codeset_Domain:\")\n _tmpMeta.WriteElt(\" Codeset_Name: \"+Av.Run(\"DD.WordWrap\",{_theCodes.Get(0),\" \",False}))\n _tmpMeta.WriteElt(\" Codeset_Source: \"+Av.Run(\"DD.WordWrap\",{_theCodes.Get(1),\" \",False}))\n _theCodes = NIL\n end\n theD.FindByName(\"Sec5.DD_TxtAttDef\").Empty\n theD.FindByName(\"Sec5.DD_TxtAttDS\").Empty\n av.FindDialog(\"Sec5.DD\").Close\nend"
)
(Script.179
Name: "DD.Sec5.DD_Open"
SourceCode: "if (Self.FindByName(\"Sec5.DD_TxtAttLab\").GetText.Count = 0) then\n Self.Close\nelse\n t = Self.GetTitle\n if (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\n else\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n Self.SetTitle(nt)\n end\n Self.MoveTo(50,20)\nend"
)
(Script.180
Name: "DD.Sec5.OD_Cancel"
SourceCode: "theD = Self.GetDialog\ntheD.Close\nav.FindDialog(\"Sec5\").Open"
)
(Script.181
Name: "DD.Sec5.OD_CitRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec5.OD_TBoxCit\", \"Entity and Attribute Detail Citation\"})"
)
(Script.182
Name: "DD.Sec5.OD_CitSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec5.OD_TBoxOver\",\"attcit.txt\",\"Entity and Attribute Detail Citation\"})"
)
(Script.183
Name: "DD.Sec5.OD_OverRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec5.OD_TBoxOver\", \"Entity and Attribute Overview\"})"
)
(Script.184
Name: "DD.Sec5.OD_OverSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec5.OD_TBoxOver\",\"attover.txt\",\"Entity and Attribute Overview\"})"
)
(Script.185
Name: "DD.Sec5.OD_Submit"
SourceCode: "theD = Self.GetDialog\ntmpName = _workDir.AsString+_pathDel+\"xxSec5_OD.txt\"\nif (File.Exists(tmpName.AsFileName)) then\n File.Delete(tmpName.AsFileName)\nend\ntmpOD = LineFile.Make(tmpName.AsFileName,#FILE_PERM_WRITE)\ntmpOD.WriteElt(\" Overview_Description:\")\ntmpOD.WriteElt(\" Entity_and_Attribute_Overview:\")\n\nr = theD.FindByName(\"Sec5.OD_TBoxOver\").GetText.AsString\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpOD.WriteElt(r)\nend\n\n\ntmpOD.WriteElt(\" Entity_and_Attribute_Detail_Cit
ation:\")\n\nr = theD.FindByName(\"Sec5.OD_TBoxCit\").GetText.AsString\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpOD.WriteElt(r)\nend\n\ntmpOD.Close\ntheD.Close\nav.FindDialog(\"Sec5\").Open"
)
(Script.186
Name: "DD.Sec5_Close"
SourceCode: "'av.Run(\"DD.ClearEm\",{av.FindDialog(\"Sec5\")})\n'av.FindDialog(\"Sec5\").Close"
)
(Script.187
Name: "DD.Sec5_DD"
SourceCode: "'Retrive ENTITY_and_Attribute Information\ntmpName = _workDir.AsString+_pathDel+\"xxSec5_DD.txt\"\nif (File.Exists(tmpName.AsFileName)) then\n File.Delete(tmpName.AsFileName)\nend\n_tmpMeta = LineFile.Make(tmpName.AsFileName,#FILE_PERM_APPEND)\n\n\nav.ShowMsg(\"Retrieving Attribute Information\")\n'_tmpMeta.WriteElt(\"\")\n_tmpMeta.WriteElt(\" Detailed_Description:\")\n\nattFields = {}\nif (_theClass <> \"Image\") then\n if (_theFTab <> NIL) then\n _tmpMeta.WriteElt(\" Entity_Type:\")\n 'tmpHTML.WriteElt(\" Entity_Typ
e\")\n\n _etLab = _theFTab.AsString\n _tmpMeta.WriteElt(\" Entity_Type_Label:\"++_etLab)\n if (_etLab.Contains(\".aat\")) then\n _etDef = \"Arc Attribute Table\"\n elseif ((_etLab.Contains(\".pat\")) and (_shpClass = \"Polygon\")) then\n _etDef = \"Polygon Attribute Table\"\n elseif ((_etLab.Contains(\".pat\")) and (_shpClass = \"Point\")) then\n _etDef = \"Point Attribute Table\"\n elseif (_etLab.Contains(\".vat\")) then\n _etDef = \"GRID Value Attribute Table\"\n elseif (_etLab.Contains(\".d
bf\")) then\n _etDef = \"Shapefile Attribute Table\"\n elseif ((_etLab.Contains(\".dxf\")) or (_etLab.Contains(\".dwg\"))) then\n _etDef = \"CAD Drawing Attribute Table\"\n end 'end for determining shpClass\n _tmpMeta.WriteElt(\" Entity_Type_Definition:\"++_etDef)\n _tmpMeta.WriteElt(\" Entity_Type_Definition_Source: None\")\n \n for each f in _theFTab.GetFields\n '\n if (f.AsString <> \"Shape\") then\n if (f.AsString = \"Length\") then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.
WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: Length of line\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString.Contains(\"FNODE\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++
f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: From-node identifier of linear feature\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n\n elseif (f.AsString.Contains(\"TNODE\")) then \n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsStrin
g)\n _tmpMeta.WriteElt(\" Attribute_Definition: To-node identifier of linear feature\") \n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString.Contains(\"LPOLY\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _
tmpMeta.WriteElt(\" Attribute_Definition: Internal number of polygon to left of arc\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString.Contains(\"RPOLY\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.
WriteElt(\" Attribute_Definition: Internal number of polygon to right of arc\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString.Contains(\"Area\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt
(\" Attribute_Definition: Area of polygon\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString.Contains(\"Perimeter\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition:
Perimeter of polygon\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif ((f.AsString = \"Value\") and (_theClass = \"Grid\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: Pixel valu
e\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif ((f.AsString.Contains(\"count\")) and (_theClass = \"Grid\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: Number of pixel with
same value\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString.Contains(_tName+\"#\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: Internal feature number\")\n _tmp
Meta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString.Contains(_tName+\"-id\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: Feature identification number\")\n _tmpMeta.WriteElt(\"
Attribute_Definition_Source: Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" User Defined\")\n elseif (f.AsString = (_tName+\"_\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: Internal feature number\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source:
Software generated\")\n _tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n elseif (f.AsString = (_tName+\"_i\")) then\n _tmpMeta.WriteElt(\" Attribute:\") \n _tmpMeta.WriteElt(\" Attribute_Label:\"++f.AsString)\n _tmpMeta.WriteElt(\" Attribute_Definition: Feature identification number\")\n _tmpMeta.WriteElt(\" Attribute_Definition_Source: Software generated\")\n
_tmpMeta.WriteElt(\" Attribute_Domain_Values:\")\n _tmpMeta.WriteElt(\" Unrepresentable_Domain:\")\n _tmpMeta.WriteElt(\" Software computed\")\n else\n attFields.Add(f)\n end ' for software generated fields \n end 'end for checking for shape field\n end 'for each field in FTab\n end 'for checking if FTab is NIL\nend 'for test if IMAGE\n\n_DoDD = True\nif (attFields.Count > 0) then\n for each f in attFields\n if (_DoDD) then\n d = av.FindDialog(\"Sec5.DD\")\n
DomList = {}\n if (f.IsTypeNumber) then\n DomList.Add(\"Range Domain\")\n end\n DomList.Add(\"Enumerated Domain Value\")\n DomList.Add(\"Codeset Domain\")\n DomList.Add(\"Unrepresentable Domain\")\n d.FindByName(\"Sec5.DD_TxtAttLab\").SetText(f.AsString)\n d.FindByName(\"Sec5.DD_CBType\").DefineFromList(DomList)\n d.FindByName(\"Sec5.DD_TBoxResults\").Empty\n d = NIL\n if (f.AsString.Count > 0) then\n av.FindDialog(\"Sec5.DD\").open\n end\n end\n end\nend\n_tmpMeta
.Close\n \nif (_DoDD = False) then\n if (File.Exists(tmpName.AsFileName)) then\n File.Delete(tmpName.AsFileName)\n MsgBox.Warning(\"Detailed Description was not completed!\",\"Detailed Description Not Complete\")\n end\nelse\n MsgBox.Info(\"Detailed Description is complete!\",\"Section Complete\")\nend\n_DoDD = NIL\nav.FindDialog(\"Sec5\").Open"
)
(Script.188
Name: "DD.Sec5_DDClick"
SourceCode: "if (File.Exists((_workdir+_pathDel+\"xxSec5_DD.txt\").AsFileName)) then\n Self.GetDialog.Close\n av.FindDialog(\"Sec5_DDE\").Open\nelse\n av.Run(\"DD.Sec5_DD\",{})\nend\n "
)
(Script.189
Name: "DD.Sec5_DDclose"
SourceCode: "Self.GetDialog.Close"
)
(Script.190
Name: "DD.Sec5_DDEOver"
SourceCode: "Self.GetDialog.Close\nav.Run(\"DD.Sec5_DD\",{})"
)
(Script.191
Name: "DD.Sec5_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec5.txt\").AsFileName,#FILE_PERM_READ)\n'e = lf.ReadElt\ndoOverView = False\nwhile (lf.IsAtEnd.NOT)\n e = lf.ReadElt\n \n if (e.Contains(\"Overview_Description:\")) then\n doOverView = True\n theDia = av.FindDialog(\"Sec5.OD\")\n end\n if (doOverView = True) then\n 'Open file to write info to.\n \n if (e.Contains(\"Entity_and_Attribute_Overview:\")) then \n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n
if (e.Contains(\"Entity_and_Attribute_Detail_Citation:\")) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec5.OD_TBoxOver\").SetText(abs)\n lf.SetPos(pos)\n e = lf.ReadElt\n end\n if (e.Contains(\"Entity_and_Attribute_Detail_Citation:\")) then \n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n if (e <> NIL) then\n while (goon = true)\n
if (lf.IsAtEnd) then\n goon = false\n end\n abs = abs + e.Trim +NL\n e = lf.ReadElt\n end\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec5.OD_TBoxCit\").SetText(abs)\n lf.SetPos(pos)\n end\n end\nend\nlf.Close"
)
(Script.192
Name: "DD.Sec5_OD"
SourceCode: "av.FindDialog(\"Sec5.OD\").Open\nSelf.GetDialog.Close"
)
(Script.193
Name: "DD.Sec5_Open"
SourceCode: "if (_theFTab = NIL) then\n Self.FindByName(\"Sec5_ButtDD\").SetEnAbled(False)\nelse\n Self.FindByName(\"Sec5_ButtDD\").SetEnAbled(True)\nend\n\nt = Self.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n Self.SetTitle(nt)\nend\nSelf.MoveTo(50,20)"
)
(Script.194
Name: "DD.Sec5_Write"
SourceCode: "metaName = _workDir.AsString+_pathDel+\"xxSec5.txt\"\nif (File.Exists(metaName.AsFileName)) then\n File.Delete(metaName.AsFileName)\nend\nmetaFile = LineFile.Make(metaName.AsFileName,#FILE_PERM_WRITE)\nMetaFile.WriteElt(\"\")\nMetaFile.WriteElt(\"ENTITY_AND_ATTRIBUTE_INFORMATION\")\nMetaFile.WriteElt(\"\")\ngotIt = False\ntheFile = _workDir.AsString+_pathDel+\"xxSec5_DD.txt\"\nif (File.Exists(theFile.AsFileName)) then\n opFile = LineFile.Make(theFile.AsFileName,#FILE_PERM_READ)\n While (NOT(opFile.IsAtEnd))\n theElt = opFil
e.ReadElt\n metaFile.WriteElt(theElt)\n end\n opFile.Close\n gotIt = True\nend\n\ntheFile = _workDir.AsString+_pathDel+\"xxSec5_OD.txt\"\nif (File.Exists(theFile.AsFileName)) then\n opFile = LineFile.Make(theFile.AsFileName,#FILE_PERM_READ)\n While (NOT(opFile.IsAtEnd))\n theElt = opFile.ReadElt\n metaFile.WriteElt(theElt)\n end\n opFile.Close\n gotIt = True\nend\n\nif (gotIt = False) then 'this section has not been completed write out empty tags.\n metaFile.WriteElt(\" Overview_Description:\")\n metaFile.Write
Elt(\" Entity_and_Attribute_Overview:\")\n metaFile.WriteElt(\" Entity_and_Attribute_Detail_Citation:\")\nend\nmetaFile.Close"
)
(Script.195
Name: "DD.Sec5_WriteODDD"
SourceCode: "if (File.Exists((_workdir+_pathDel+\"xxSec5.txt\").AsFileName)) then\n sec5File = LineFile.Make((_workdir+_pathDel+\"xxSec5.txt\").AsFileName,#FILE_PERM_READ)\nelse\n exit\nend \ngotOD = False\ngotDD = False\nx = sec5File.ReadElt\nwhile (sec5File.IsAtEnd.NOT) \n if (x.Contains(\"Detailed_Description:\")) then\n gotDD = True\n end\n if (x.Contains(\"Overview_Description:\")) then\n gotOD = True\n end\n \n if (gotDD = True) then\n ddFile = LineFile.Make((_workdir+_pathDel+\"xxSec5_DD.txt\").AsFileName,#FILE_PERM_WRIT
E)\n pos = sec5File.GetPos\n keepon = True\n while (keepon = True)\n if (x.Contains(\"Overview_Description:\")) then\n keepon = False\n elseif (sec5File.IsAtEnd) then\n ddFile.WriteElt(x)\n keepon = False\n else\n ddFile.WriteElt(x)\n end\n x = sec5File.ReadElt\n end\n ddFile.Close\n gotDD = False\n sec5File.SetPos(pos + 1)\n end\n \n if (gotOD = True) then\n ddFile = LineFile.Make((_workdir+_pathDel+\"xxSec5_OD.txt\").AsFileName,#FILE_PERM_WRITE)\n
pos = sec5File.GetPos\n keepon = True\n while (keepon = True)\n if (x.Contains(\"Detailed_Description:\")) then\n keepon = False \n elseif (sec5File.IsAtEnd) then\n ddFile.WriteElt(x)\n keepon = False\n else\n ddFile.WriteElt(x)\n end\n x = sec5File.ReadElt\n end\n ddFile.Close\n gotOD = False\n sec5File.SetPos(pos + 1)\n end\n x = sec5File.ReadElt\nend\nsec5File.Close"
)
(Script.196
Name: "DD.Sec5DDE_Cancel"
SourceCode: "Self.GetDialog.Close\nav.FindDialog(\"Sec5\").Open"
)
(Script.197
Name: "DD.Sec5DDE_Open"
SourceCode: "if (File.Exists((_workdir+_pathDel+\"xxSec5_DD.txt\").AsFileName)) then\n sec5File = LineFile.Make((_workdir+_pathDel+\"xxSec5_DD.txt\").AsFileName,#FILE_PERM_READ)\nend \n\ntheStr = \"\"\nwhile (sec5File.IsAtEnd.NOT)\n x = sec5File.ReadElt\n theStr = theStr + x + NL\nend\nsec5File.Close\nSelf.FindByName(\"Sec5_DDETBox\").SetText(theStr.Trim)"
)
(Script.198
Name: "DD.Sec6.1.CO_FormRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec6.1.CO_TBoxCO\", \"Custom Order Form\"})"
)
(Script.199
Name: "DD.Sec6.1.CO_FormSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec6.1.CO_TBoxCO\",\"orderfrm.txt\",\"Custom Order Form\"})"
)
(Script.200
Name: "DD.Sec6.1.CO_Submit"
SourceCode: "theD = Self.GetDialog\ntmpName = _workDir.AsString+_pathDel+\"xxSec6_CO.txt\"\nif (File.Exists(tmpName.AsFileName)) then\n File.Delete(tmpName.AsFileName)\nend\ntmpOD = LineFile.Make(tmpName.AsFileName,#FILE_PERM_WRITE)\ntmpOD.WriteElt(\" Custom_Order_Process:\")\nr = theD.FindByName(\"Sec6.1.CO_TBoxCO\").GetText.AsString\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpOD.WriteElt(r)\nend\n\n\ntmpOD.Close\ntheD.Close\nav.FindDialog(\"Sec6.1\").Open"
)
(Script.201
Name: "DD.Sec6.1.DF_Open"
SourceCode: "Self.GetDialog.Close\nav.FindDialog(\"Sec6.1.DF\").Open"
)
(Script.202
Name: "DD.Sec6.1.DF_Submit"
SourceCode: "theD = Self.GetDialog\nfName = _workdir+_pathDel+\"xxSec6_DF.txt\"\nif (File.Exists(fName.AsFileName)) then\n File.Delete(fName.AsFileName)\nend\n\n'Delete NON-Digital Form if it exists.\nnfFile = _workdir+_pathDel+\"xxSec6_NF.txt\"\nif (File.Exists(nfFile.AsFileName)) then\n File.Delete(nfFile.AsFileName)\nend\ntmpMeta = LineFile.Make(fName.AsFileName,#FILE_PERM_WRITE)\ntmpMeta.WriteElt(\" Standard_Order_Process:\")\n\n\nformat = theD.FindByName(\"Sec6.1.DF_TxtForName\").GetText.AsString\nmedia = theD.FindByName(\"Sec6.1.DF_Txt
OffMed\").GetText.AsString\nrecfor = theD.FindByName(\"Sec6.1.DF_TxtRecFor\").GetText.AsString\nfee = theD.FindByName(\"Sec6.1.DF_TxtFees\").GetText.AsString \ntmpMeta.WriteElt(\" Digital_Form:\")\ntmpMeta.WriteElt(\" Digital_Transfer_Information:\")\ntmpMeta.WriteElt(\" Format_Name:\"+Av.Run(\"DD.WordWrap\",{format,\" \",False}))\ntmpMeta.WriteElt(\" Digital_Transfer_Option:\")\ntmpMeta.WriteElt(\" Offline_Option:\")\ntmpMeta.WriteElt(\" Offline_Media:\"++Av.Run(\"DD.WordWrap\",{media,\"
\",False}))\ntmpMeta.WriteElt(\" Recording_Format:\"++Av.Run(\"DD.WordWrap\",{recfor,\" \",False}))\ntmpMeta.WriteElt(\" Compatibility_Information:\")\nr = theD.FindByName(\"Sec6.1.DF_TBoxComp\").GetText.AsString\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\ntmpMeta.WriteElt(\" Fees: \"+Av.Run(\"DD.WordWrap\",{fee,\" \",False}))\ntmpMeta.WriteElt(\" Ordering_Instructions:\")\nr = theD.FindByName(\"Sec6.1.DF_TBoxOrdIn\").GetText.AsString\nr =
Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\ntmpMeta.Close\ntheD.Close\nav.FindDialog(\"Sec6.1\").Open"
)
(Script.203
Name: "DD.Sec6.1.NF_Open"
SourceCode: "Self.GetDialog.Close\nav.FindDialog(\"Sec6.1.NF\").Open"
)
(Script.204
Name: "DD.Sec6.1.NF_Submit"
SourceCode: "'Write stuff from Sec6.1\ntheD = Self.GetDialog\nfName = _workdir+_pathDel+\"xxSec6_NF.txt\"\nif (File.Exists(fName.AsFileName)) then\n File.Delete(fName.AsFileName)\nend\n'Delete Digital Form if it exists.\nif (File.Exists((_workdir+_pathDel+\"xxSec6_DF.txt\").AsFileName)) then\n File.Delete((_workdir+_pathDel+\"xxSec6_DF.txt\").AsFileName)\nend\ntmpMeta = LineFile.Make(fName.AsFileName,#FILE_PERM_WRITE)\ntmpMeta.WriteElt(\" Standard_Order_Process:\")\n\nr = theD.FindByName(\"Sec6.1.NF_TBoxNDF\").GetText.AsString\ntheTokes = r
.AsTokens(NL)\nif (theTokes.Count > 0) then\n tmpMeta.WriteElt(\" Non-Digital_Form:\") \n tmpMeta.WriteElt(Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true}))\nelse\n tmpMeta.WriteElt(\" Non-Digital_Form:\")\nend\nfee = theD.FindByName(\"Sec6.1.NF_TxtFees\").GetText.AsString\ntmpMeta.WriteElt(\" Fees: \"+Av.Run(\"DD.WordWrap\",{fee,\" \",False}))\n\nr = theD.FindByName(\"Sec6.1.NF_TBoxOrdIn\").GetText.AsString\ntheTokes = r.AsTokens(NL)\nif (theTokes.Count > 0) then\n tmpMeta.WriteElt(\" Ordering_Instructions:\") \n tm
pMeta.WriteElt(Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true}))\nelse\n tmpMeta.WriteElt(\" Ordering_Instructions:\")\nend\n\ntmpMeta.Close\ntheD.Close\nav.FindDialog(\"Sec6.1\").Open"
)
(Script.205
Name: "DD.Sec6.1.SO_NDFRet"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec6.1.NF_TBoxNDF\", \"Non-Digital_Form\"})"
)
(Script.206
Name: "DD.Sec6.1.SO_NDFSave"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec6.1.SO_TBoxNDF\",\"standard.txt\",\"Non-Digital Form\"})"
)
(Script.207
Name: "DD.Sec6.1_Cancel"
SourceCode: "Self.GetDialog.Close\nav.FindDialog(\"Sec6.1\").Open"
)
(Script.208
Name: "DD.Sec6.1_CO"
SourceCode: "Self.GetDialog.Close\nav.FindDialog(\"Sec6.1.CO\").Open"
)
(Script.209
Name: "DD.Sec6.1_Load"
SourceCode: "av.Run(\"DD.Sec6_WriteOrder\",{})\n\n'Load Non-Digital Order Form\nif (File.Exists((_workdir+_pathdel+\"xxSec6_NF.txt\").AsFileName)) then\n lf = LineFile.Make((_workdir+_pathdel+\"xxSec6_NF.txt\").AsFileName,#FILE_PERM_READ)\n theDia = av.FindDialog(\"Sec6.1.NF\")\n While (lf.IsAtEnd.NOT)\n e = lf.ReadElt\n if (e.Contains(\"Non-Digital_Form:\")) then \n keepon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (keepon = true)\n if (e.Contains(\"Fees:\")) then\n keepon = f
alse\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec6.1.NF_TBoxNDF\").SetText(abs)\n lf.SetPos(pos)\n e = lf.ReadElt\n end\n if ((e.Contains(\"Fees:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6.1.NF_TxtFees\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if (e.Contains(\"Ordering_Instructions:\")) then\n keepon = true\n pos = lf.GetPos\n abs = \"\"\n while (lf.IsAtE
nd.NOT)\n e = lf.ReadElt\n abs = abs + e.Trim + NL \n end \n abs = abs.Trim\n theDia.FindByName(\"Sec6.1.NF_TBoxOrdIn\").SetText(abs)\n end\n end\n lf.Close\nend 'End for Non-Digial Form\n\n\n'Load Digital Order Form\nif (File.Exists((_workdir+_pathdel+\"xxSec6_DF.txt\").AsFileName)) then\n lf = LineFile.Make((_workdir+_pathdel+\"xxSec6_DF.txt\").AsFileName,#FILE_PERM_READ)\n theDia = av.FindDialog(\"Sec6.1.DF\")\n While (lf.IsAtEnd.NOT)\n e = lf.ReadElt\n if ((e.Contains(\"Format_Name:\"))
and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6.1.DF_TxtForName\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Offline_Media:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6.1.DF_TxtOffMed\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Recording_Format:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6.1.DF_TxtRecFor\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if (e.Contains(\"Compatibility_Infor
mation:\")) then \n keepon = true\n pos = lf.GetPos\n e = lf.ReadElt\n \n abs = \"\"\n while (keepon = true)\n if (e.Contains(\"Fees:\")) then\n keepon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec6.1.DF_TBoxComp\").SetText(abs)\n lf.SetPos(pos)\n e = lf.ReadElt\n end\n if ((e.Contains(\"Fees:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec
6.1.DF_TxtFees\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if (e.Contains(\"Ordering_Instructions:\")) then\n keepon = true\n pos = lf.GetPos\n abs = \"\"\n while (lf.IsAtEnd.NOT)\n e = lf.ReadElt\n abs = abs + e.Trim + NL \n end \n abs = abs.Trim\n theDia.FindByName(\"Sec6.1.DF_TBoxOrdIn\").SetText(abs)\n end\n end\nend\n\n'Load Custom Order Form\nif (File.Exists((_workdir+_pathdel+\"xxSec6_CO.txt\").AsFileName)) then\n lf = LineFile.Make((_workdir+_pathdel+\"xxSec6_CO
.txt\").AsFileName,#FILE_PERM_READ)\n theDia = av.FindDialog(\"Sec6.1.CO\")\n abs = \"\"\n While (lf.IsAtEnd.NOT)\n e = lf.ReadElt\n if (e.Contains(\"Custom_Order_Process:\").NOT) then\n abs = abs + e.Trim + NL\n end\n end\n theDia.FindByName(\"Sec6.1.CO_TBoxCO\").SetText(abs)\nend\n\n"
)
(Script.210
Name: "DD.Sec6.1_Open"
SourceCode: "Self.MoveTo(50,20)\ntheD = av.FindDialog(\"Sec6.1\")\nif (theD.FindByName(\"Sec6.1_TxtRecFor\").GetText = \"\") then\n theD.FindByName(\"Sec6.1_TxtRecFor\").SetText(\"ISO 9660\")\nend\nif (theD.FindByName(\"Sec6.1_TBoxComp\").GetText = \"\") then\n theD.FindByName(\"Sec6.1_TBoxComp\").SetText(\"ISO 9660 format allows the CDROM to be read\"+NL+\"by most computer operating systems.\")\nend"
)
(Script.211
Name: "DD.Sec6_DisRet"
SourceCode: "'DISTRIBUTION_INFORMATION\ntheD = Self.GetDialog\n\nconFile = _workdir+_pathDel+\"distrib.dbf\"\nconVTab = VTab.Make(conFile.AsFileName,false,false)\ndisCnt = {}\nidSet = true\nif (conVTab.GetSelection = NIL) then\n conid = NIL\n conEx = NIL\n MsgBox.Info(\"Could not find: \"+conFile.AsString+\". Move the file or change your Working Directory.\",\"Distribution Information\")\nelse\n conList = {}\n conEx = true\n conidField = conVTab.FindField(\"con_Id\")\n for each o in conVTab\n conid = conVTab.ReturnValue(conidField,o)\n
conList.Add(conid)\n if (conid.Contains(\"Distribution_Id\")) then\n disCnt.Add(conid)\n end\n end\n conid = MsgBox.ListAsString(conList,\"Select Distribution_Information Id or Cancel to create new record.\",\"Distribution_Information\")\nend\n\nif (conid <> NIL) then\n Querystr = \"([con_id] =\"++conid.Quote+\")\"\n conVTab.GetSelection.SetAll\n conBitMap = conVTab.GetSelection\n conVTab.Query(Querystr,conBitMap,#VTAB_SELTYPE_NEW)\n conVTab.UpdateSelection\n QueryBitmap = conVTab.GetSelection\n for each b in
QueryBitmap\n org = conVTab.ReturnValue(conVTab.FindField(\"organ\"),b)\n theD.FindByName(\"Sec6_TxtOrg\").SetText(org)\n person = conVTab.ReturnValue(conVTab.FindField(\"person\"),b)\n theD.FindByName(\"Sec6_TxtPer\").SetText(person)\n conPos1 = conVTab.ReturnValue(conVTab.FindField(\"position1\"),b)\n theD.FindByName(\"Sec6_TxtPos\").SetText(conPos1)\n add = conVTab.ReturnValue(conVTab.FindField(\"address\"),b)\n theD.FindByName(\"Sec6_TxtAdd\").SetText(add)\n city = conVTab.ReturnValue(conVTab.FindFie
ld(\"city\"),b)\n theD.FindByName(\"Sec6_TxtCity\").SetText(city)\n state = conVTab.ReturnValue(conVTab.FindField(\"state\"),b)\n theD.FindByName(\"Sec6_TxtState\").SetText(state)\n pcode = conVTab.ReturnValue(conVTab.FindField(\"pcode\"),b)\n theD.FindByName(\"Sec6_TxtPCode\").SetText(pcode)\n country = conVTab.ReturnValue(conVTab.FindField(\"country\"),b)\n theD.FindByName(\"Sec6_TxtCountry\").SetText(country)\n tele = conVTab.ReturnValue(conVTab.FindField(\"tele\"),b)\n theD.FindByName(\"Sec6_TxtTele\").Se
tText(tele)\n fax = conVTab.ReturnValue(conVTab.FindField(\"fax\"),b)\n theD.FindByName(\"Sec6_TxtFax\").SetText(fax)\n email = conVTab.ReturnValue(conVTab.FindField(\"email\"),b)\n theD.FindByName(\"Sec6_TxtEmail\").SetText(email)\n hours = conVTab.ReturnValue(conVTab.FindField(\"hours\"),b) \n theD.FindByName(\"Sec6_TxtHours\").SetText(hours)\n end\nend"
)
(Script.212
Name: "DD.Sec6_DisSave"
SourceCode: "theD = Self.GetDialog\nconFile = _workdir+_pathDel+\"distrib.dbf\"\nconVTab = VTab.Make(conFile.AsFileName,false,false)\ndisCnt = {}\nidSet = true\nif (conVTab.GetSelection = NIL) then\n conid = NIL\n conEx = NIL\nend\nif (conEx = NIL) then\n conVTab = VTab.MakeNew(confile.AsFileName,dBASE)\n conIdField = Field.Make(\"con_Id\",#FIELD_VCHAR,20,0)\n conOrgField = Field.Make(\"organ\",#FIELD_VCHAR,50,0)\n conPerField = Field.Make(\"person\",#FIELD_VCHAR,50,0)\n conPos1Field = Field.Make(\"position1\",#FIELD_VCHAR,50,0)\n AddFi
eld = Field.Make(\"address\",#FIELD_VCHAR,50,0)\n CityField = Field.Make(\"city\",#FIELD_VCHAR,50,0)\n StateField = Field.Make(\"state\",#FIELD_VCHAR,50,0)\n PcodeField = Field.Make(\"pcode\",#FIELD_VCHAR,12,0)\n CountryField = Field.Make(\"country\",#FIELD_VCHAR,25,0)\n VteleField = Field.Make(\"tele\",#FIELD_VCHAR,20,0)\n FteleField = Field.Make(\"fax\",#FIELD_VCHAR,20,0)\n EmailField = Field.Make(\"email\",#FIELD_VCHAR,50,0)\n HoursField = Field.Make(\"hours\",#FIELD_VCHAR,50,0)\n FieldList = {conIdField,conOrgField,conPe
rField,conPos1Field,AddField,cityField,StateField,PcodeField,CountryField,VteleField,FteleField,EmailField,HoursField}\n conVTab.AddFields(FieldList)\nelse\n conVTab = VTab.Make(conFile.AsFileName,false,false)\nend\nconId = MsgBox.Input(\"Enter Contact_Id (reference for future use)\",\"Contact ID\",\"\")\nif (conId = NIL) then\n System.Beep\n MsgBox.Warning(\"You must enter a Contact_Id for future access!\",\"Warning\")\n exit\nend\n\nconVTab.Seteditable(true)\nnewRec = conVTab.AddRecord\nconVTab.SetValue(conVTab.FindField(\"c
on_Id\"), newRec, conid)\nconOrg = theD.FindByName(\"Sec6_TxtOrg\").GetText\nconVTab.SetValue(conVTab.FindField(\"organ\"), newRec, conOrg)\nconPer = theD.FindByName(\"Sec6_TxtPer\").GetText\nconVTab.SetValue(conVTab.FindField(\"person\"),newRec, conPer)\nconPos1 = theD.FindByName(\"Sec6_TxtPos\").GetText\nconVTab.SetValue(conVTab.FindField(\"position1\"),newRec, conPos1)\nadd = theD.FindByName(\"Sec6_TxtAdd\").GetText\nconVTab.SetValue(conVTab.FindField(\"address\"), newRec, add)\ncity = theD.FindByName(\"Sec6_TxtCity\").GetText\nconV
Tab.SetValue(conVTab.FindField(\"city\"), newRec, city)\nstate = theD.FindByName(\"Sec6_TxtState\").GetText\nconVTab.SetValue(conVTab.FindField(\"state\"), newRec, state)\npcode = theD.FindByName(\"Sec6_TxtPCode\").GetText\nconVTab.SetValue(conVTab.FindField(\"pcode\"), newRec, pcode)\ncountry = theD.FindByName(\"Sec6_TxtCountry\").GetText\nconVTab.SetValue(conVTab.FindField(\"country\"), newRec, country)\nvtele = theD.FindByName(\"Sec6_TxtTele\").GetText\nconVTab.SetValue(conVTab.FindField(\"tele\"), newRec, vtele)\nftele = theD.Fin
dByName(\"Sec6_TxtFax\").GetText\nconVTab.SetValue(conVTab.FindField(\"fax\"), newRec, ftele)\nemail = theD.FindByName(\"Sec6_TxtEmail\").GetText\nconVTab.SetValue(conVTab.FindField(\"email\"), newRec, email)\nhours = theD.FindByName(\"Sec6_TxtHours\").GetText\nconVTab.SetValue(conVTab.FindField(\"hours\"), newRec, hours)\nconVTab.SetEditable(false)\n"
)
(Script.213
Name: "DD.Sec6_Load"
SourceCode: "lf = LineFile.Make((_workdir+_pathdel+\"xxSec6.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt\ntheDia = av.FindDialog(\"Sec6\")\nwhile (lf.IsAtEnd.NOT)\n if ((e.Contains(\"Contact_Organization:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtOrg\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Contact_Person:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtPer\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Contact_Position:\")) and (
e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtPos\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Address:\")) and ((e.Contains(\"Contact_Electronic_Mail_Address:\")).Not) and ((e.Contains(\"Contact_Electronic_Mail_Address:\")).Not) and (e.AsTokens(\":\").Count > 1)) then\n if (e.AsTokens(\":\").Count > 1) then\n theDia.FindByName(\"Sec6_TxtAdd\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n end\n \n \n if ((e.Contains(\"City:\")) and (e.AsTokens(\":\").Count > 1)) then\n theD
ia.FindByName(\"Sec6_TxtCity\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"State_or_Province:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtState\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Postal_Code:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtPCode\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Country:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtCountry\").SetText(e.AsT
okens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Contact_Voice_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtTele\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Contact_Facsimile_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtFax\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n if ((e.Contains(\"Contact_Electronic_Mail_Address:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec6_TxtEmail\").SetText(e.AsTok
ens(\":\").Get(1).Trim)\n end\n\n if ((e.Contains(\"Hours_of_Service:\")) and (e.AsTokens(\":\").Count > 1)) then\n h = \"\"\n cnt = 0\n for each t in e.AsTokens(\":\")\n if (cnt > 0) then\n if (cnt = 1) then\n h = h + t.Trim\n else\n h = h + \":\"+ t\n end\n end\n cnt = cnt + 1\n end \n theDia.FindByName(\"Sec6_TxtHours\").SetText(h)\n end\n\n\n if (e.Contains(\"Resource_Description:\")) then \n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n whi
le (goon = true)\n if (e.Contains(\"Distribution_Liability:\")) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec6_TBoxResDes\").SetText(abs)\n lf.SetPos(pos)\n e = lf.ReadElt\n end\n if (e.Contains(\"Distribution_Liability:\")) then \n if (lf.IsAtEnd.Not) then\n goon = true\n pos = lf.GetPos\n e = lf.ReadElt\n abs = \"\"\n while (goon = true)\n if ((e.Contains(\"Standard_Orde
r_Process:\")) or (e.Contains(\"Custom_Order_Process:\")) or (lf.IsAtEnd)) then\n goon = false\n else\n abs = abs + e.Trim +NL\n end\n e = lf.ReadElt\n end\n abs = abs.Trim\n theDia.FindByName(\"Sec6_TBoxDisLia\").SetText(abs)\n lf.SetPos(pos)\n e = lf.ReadElt\n end\n end\n e = lf.ReadElt\nend\nlf.Close\nav.Run(\"DD.Sec6.1_Load\",{})"
)
(Script.214
Name: "DD.Sec6_RetDis"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec6_TBoxDisLia\", \"Distribution Liability\"})"
)
(Script.215
Name: "DD.Sec6_RetRes"
SourceCode: "av.Run(\"DD.TB_Retrieve\", {Self.GetDialog.AsString, \"Sec6_TBoxResDes\", \"Resource Description\"})"
)
(Script.216
Name: "DD.Sec6_SaveDis"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec6_TBoxDisLia\",\"liability.txt\",\"Distribution Liability\"})"
)
(Script.217
Name: "DD.Sec6_SaveRes"
SourceCode: "av.Run(\"DD.TB_Save\", {Self.GetDialog.AsString,\"Sec6_TBoxResDes\",\"resource.txt\",\"Resource Description\"})"
)
(Script.218
Name: "DD.Sec6_Write"
SourceCode: "fName = _workdir+_pathDel+\"xxSec6.txt\"\nif (File.Exists(fName.AsFileName)) then\n File.Delete(fName.AsFileName)\nend\ntmpMeta = LineFile.Make(fName.AsFileName,#FILE_PERM_WRITE)\ntheD = av.FindDialog(\"Sec6\")\norg = theD.FindByName(\"Sec6_TxtOrg\").GetText.AsString\nperson = theD.FindByName(\"Sec6_TxtPer\").GetText.AsString\nconPos = theD.FindByName(\"Sec6_TxtPos\").GetText.AsString\nadd = theD.FindByName(\"Sec6_TxtAdd\").GetText.AsString\ncity = theD.FindByName(\"Sec6_TxtCity\").GetText.AsString\nstate = theD.FindByName(\"Sec6_T
xtState\").GetText.AsString\npcode = theD.FindByName(\"Sec6_TxtPCode\").GetText.AsString\ncountry = theD.FindByName(\"Sec6_TxtCountry\").GetText.AsString\ntele = theD.FindByName(\"Sec6_TxtTele\").GetText.AsString\nfax = theD.FindByName(\"Sec6_TxtFax\").GetText.AsString\nemail = theD.FindByName(\"Sec6_TxtEmail\").GetText.AsString\nhours = theD.FindByName(\"Sec6_TxtHours\").GetText.AsString\n\ntmpMeta.WriteElt(\"\")\ntmpMeta.WriteElt(\"DISTRIBUTION_INFORMATION\")\ntmpMeta.WriteElt(\"\")\ntmpMeta.WriteElt(\" Distributor:\")\ntmpMeta.WriteElt
(\" Contact_Information:\")\ntmpMeta.WriteElt(\" Contact_Organization_Primary:\")\ntmpMeta.WriteElt(\" Contact_Organization:\"++Av.Run(\"DD.WordWrap\",{org,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Person:\"++Av.Run(\"DD.WordWrap\",{person,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Position:\"++Av.Run(\"DD.WordWrap\",{conPos,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Address:\")\ntmpMeta.WriteElt(\" Address_Type: mailing and physical address\")\ntmpMeta.WriteElt(\" Address
:\"++Av.Run(\"DD.WordWrap\",{add,\" \",False}))\ntmpMeta.WriteElt(\" City:\"++Av.Run(\"DD.WordWrap\",{city,\" \",False}))\ntmpMeta.WriteElt(\" State_or_Province:\"++Av.Run(\"DD.WordWrap\",{state,\" \",False}))\ntmpMeta.WriteElt(\" Postal_Code:\"++Av.Run(\"DD.WordWrap\",{pcode,\" \",False}))\ntmpMeta.WriteElt(\" Country:\"++Av.Run(\"DD.WordWrap\",{country,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Voice_Telephone:\"++Av.Run(\"DD.WordWrap\",{tele,\" \",False}))\ntmpMeta.WriteE
lt(\" Contact_Facsimile_Telephone:\"++Av.Run(\"DD.WordWrap\",{fax,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Electronic_Mail_Address:\"++Av.Run(\"DD.WordWrap\",{email,\" \",False}))\ntmpMeta.WriteElt(\" Hours_of_Service:\"++Av.Run(\"DD.WordWrap\",{hours,\" \",False}))\ntmpMeta.WriteElt(\" Resource_Description:\")\nr = theD.FindByName(\"Sec6_TBoxResDes\").GetText.AsString\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\n\ntmpMeta.WriteElt(\" Distribution_Liabil
ity:\")\nr = theD.FindByName(\"Sec6_TBoxDisLia\").GetText.AsString\nr = Av.Run(\"DD.WordWrap\",{r.AsString,\" \",true})\nif (r > \"\") then\n tmpMeta.WriteElt(r)\nend\n\ntheFile = _workDir.AsString+_pathDel+\"xxSec6_NF.txt\"\nif (File.Exists(theFile.AsFileName)) then\n opFile = LineFile.Make(theFile.AsFileName,#FILE_PERM_READ)\n While (NOT(opFile.IsAtEnd))\n theElt = opFile.ReadElt\n tmpMeta.WriteElt(theElt)\n end\n opFile.Close\nend\n\ntheFile = _workDir.AsString+_pathDel+\"xxSec6_DF.txt\"\nif (File.Exists(theFile.AsFileName
)) then\n opFile = LineFile.Make(theFile.AsFileName,#FILE_PERM_READ)\n While (NOT(opFile.IsAtEnd))\n theElt = opFile.ReadElt\n tmpMeta.WriteElt(theElt)\n end\n opFile.Close\nend\n\ntheFile = _workDir.AsString+_pathDel+\"xxSec6_CO.txt\"\nif (File.Exists(theFile.AsFileName)) then\n opFile = LineFile.Make(theFile.AsFileName,#FILE_PERM_READ)\n While (NOT(opFile.IsAtEnd))\n theElt = opFile.ReadElt\n tmpMeta.WriteElt(theElt)\n end\n opFile.Close\nend\ntmpMeta.Close\n"
)
(Script.219
Name: "DD.Sec6_WriteOrder"
SourceCode: "if (File.Exists((_workdir+_pathDel+\"xxSec6.txt\").AsFileName)) then\n sec6File = LineFile.Make((_workdir+_pathDel+\"xxSec6.txt\").AsFileName,#FILE_PERM_READ)\nelse\n exit\nend \ngotNF = False\ngotDF = False\ngotCO = False\nx = sec6File.ReadElt\nwhile (sec6File.IsAtEnd.NOT) \n if (x.Contains(\"Non-Digital_Form:\")) then\n gotNF = True\n end\n if ((x.Contains(\"Digital_Form:\")) and (gotNF = False)) then\n gotDF = True\n end\n if (x.Contains(\"Custom_Order_Process:\")) then\n gotCO = True\n end\n if (gotNF = True) th
en\n ddFile = LineFile.Make((_workdir+_pathDel+\"xxSec6_NF.txt\").AsFileName,#FILE_PERM_WRITE)\n pos = sec6File.GetPos\n keepon = True\n ddFile.WriteElt(\" Standard_Order_Process:\")\n while (keepon = True)\n if (x.Contains(\"Custom_Order_Process:\")) then\n keepon = False\n elseif (sec6File.IsAtEnd) then\n sec6File.SetPos(sec6File.GetPos - 1)\n x = sec6File.ReadElt\n ddFile.WriteElt(x)\n keepon = False\n else\n ddFile.WriteElt(x)\n end\n x = sec6
File.ReadElt\n end\n ddFile.Close\n gotNF = False\n sec6File.SetPos(pos + 1)\n end\n \n if (gotDF = True) then\n ddFile = LineFile.Make((_workdir+_pathDel+\"xxSec6_DF.txt\").AsFileName,#FILE_PERM_WRITE)\n pos = sec6File.GetPos\n keepon = True\n ddFile.WriteElt(\" Standard_Order_Process:\")\n while (keepon = True)\n if (x.Contains(\"Custom_Order_Process:\")) then\n keepon = False \n elseif (sec6File.IsAtEnd) then\n sec6File.SetPos(sec6File.GetPos - 1)\n x = sec6Fil
e.ReadElt\n ddFile.WriteElt(x)\n keepon = False\n else\n ddFile.WriteElt(x)\n end\n x = sec6File.ReadElt\n end\n ddFile.Close\n gotDF = False\n sec6File.SetPos(pos + 1)\n end\n \n if (gotCO = True) then\n ddFile = LineFile.Make((_workdir+_pathDel+\"xxSec6_CO.txt\").AsFileName,#FILE_PERM_WRITE)\n keepon = True\n while (keepon)\n if ((sec6File.IsAtEnd) and (x.Count > 1)) then\n ddFile.WriteElt(x)\n keepon = False\n else\n ddFile.WriteElt(x)\n
end\n if (sec6File.IsAtEnd) then\n keepon = False\n end\n x = sec6File.ReadElt\n end\n ddFile.Close\n gotCO = False\n end\n x = sec6File.ReadElt\nend\nsec6File.Close"
)
(Script.220
Name: "DD.Sec7_Exit"
SourceCode: "if (_MetaDone = NIL) then\n goon = MsgBox.YesNoCancel(\"This is the last section. Do you want to write a MetaData record?\",\"Write MetaData\",true)\n if (goon = NIL) then\n exit\n end\n if (goon = False) then\n av.Run(\"DD.Delete_Files\",{})\n Self.GetDialog.Close\n end\n if (goon = True) then\n av.Run(\"DD.FindFile\",{})\n if (Self.GetClass.GetClassName = \"LabelButton\") then\n theSec = Self.GetDialog.GetName.AsTokens(\".\").Get(0)\n av.Run(\"DD.\"+theSec+\"_write\",{})\n Self.GetDialog.Close\n e
lse\n theSec = Self.Get(0).AsString\n end\n av.Run(\"DD.All_Write\",{theSec})\n end\nelse\n exit\nend"
)
(Script.221
Name: "DD.Sec7_Load"
SourceCode: "'For some reason it does not read Meta_Name or Version form xxSec7.txt file, Version\n'does not get written from Load_All\n\nlf = LineFile.Make((_workdir+_pathdel+\"xxSec7.txt\").AsFileName,#FILE_PERM_READ)\ne = lf.ReadElt\ntheDia = av.FindDialog(\"Sec7\")\nwhile (lf.IsAtEnd.NOT)\n e2 = lf.ReadElt.Substitute(NL,\"\")\n if ((e.Contains(\"Metadata_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtMDate\").SetText(s)\n end\n if ((e.Contains(\"Metadata_Review
_Date:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtMRDate\").SetText(s)\n end\n \n if ((e.Contains(\"Contact_Organization:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtOrg\").SetText(s)\n end\n if ((e.Contains(\"Contact_Person:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtPer\").SetText(s)\n end\n if ((e.Contains(
\"Contact_Position:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtPos\").SetText(s)\n end\n if ((e.Contains(\"Address:\")) and ((e.Contains(\"Contact_Electronic_Mail_Address:\")).Not) and ((e.Contains(\"Contact_Electronic_Mail_Address:\")).Not) and (e.AsTokens(\":\").Count > 1)) then\n if (e.AsTokens(\":\").Count > 1) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtAdd\").SetText(s)\n end\n end\n\n if ((e.Contains(\"City:
\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtCity\").SetText(s)\n end\n if ((e.Contains(\"State_or_Province:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtState\").SetText(s)\n end\n if ((e.Contains(\"Postal_Code:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtPCode\").SetText(s)\n end\n if ((e.Contains(\"Country:\"))
and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtCountry\").SetText(s)\n end\n if ((e.Contains(\"Contact_Voice_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtTele\").SetText(s)\n end\n if ((e.Contains(\"Contact_Facsimile_Telephone:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtFax\").SetText(s)\n end\n if ((e.Cont
ains(\"Contact_Electronic_Mail_Address:\")) and (e.AsTokens(\":\").Count > 1)) then\n s = av.Run(\"DD.Load_String\",{e,e2})\n theDia.FindByName(\"Sec7_TxtEmail\").SetText(s)\n end\n if ((e.Contains(\"Hours_of_Service:\")) and (e.AsTokens(\":\").Count > 1)) then\n h = \"\"\n cnt = 0\n for each t in e.AsTokens(\":\")\n if (cnt > 0) then\n if (cnt = 1) then\n h = h + t.Trim\n else\n h = h + \":\"+ t\n end\n end\n cnt = cnt + 1\n end \n theDia.FindByName(\"Sec7_TxtHours\"
).SetText(h)\n end\n \n if ((e.Contains(\"Metadata_Standard_Name:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec7_TxtMSName\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\n lf.SetPos(lf.GetPos - 1)\n e = lf.ReadElt\n if ((e.Contains(\"Metadata_Standard_Version:\")) and (e.AsTokens(\":\").Count > 1)) then\n theDia.FindByName(\"Sec7_TxtMSVer\").SetText(e.AsTokens(\":\").Get(1).Trim)\n end\nend\nlf.Close"
)
(Script.222
Name: "DD.Sec7_MDWrite"
SourceCode: "av.Run(\"DD.FindFile\",{})\ntheSec = \"Sec7\"\nav.Run(\"DD.\"+theSec+\"_write\",{})\nav.Run(\"DD.All_Write\",{theSec})\nh = msgBox.YesNo(\"Do you want to create an HTML file?\",\"Create HTML\",true)\nif (h = true) then\n _theTitle = av.FindDialog(\"Sec1\").FindByName(\"Sec1_TxtPubTitle\").GetText\n av.Run(\"DD.Write_Html\",{_MetaFile})\nend\nif ((_theType = \"Coverage\") or (_theClass = \"Grid\")) then\n makeInf = msgbox.yesno(\"Do you want to create a metadata INFO file in the theme's workspace?\",\"Create INFO\",true)\n if (makeInf = true)
then\n av.Run(\"DD.Write_INFO\",{_MetaFile})\n end\nend\nSelf.GetDialog.Close\nav.ClearGlobals"
)
(Script.223
Name: "DD.Sec7_Open"
SourceCode: "t = Self.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n Self.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n Self.SetTitle(nt)\nend\nSelf.MoveTo(50,20)\ntheD = av.FindDialog(\"Sec7\")\nif (theD.FindByName(\"Sec7_TxtMSName\").GetText = \"\") then\n theD.FindByName(\"Sec7_TxtMSName\").SetText(\"FGDC CSDGM\")\nend\nif (theD.FindByName(\"Sec7_TxtMSVer\").GetText = \"\") then\n theD.FindByName(\"Sec7_TxtMSVer\").SetText(\"FGDC-STD-001-1998\")\nend"
)
(Script.224
Name: "DD.Sec7_Write"
SourceCode: "fName = _workdir+_pathDel+\"xxSec7.txt\"\nif (File.Exists(fName.AsFileName)) then\n File.Delete(fName.AsFileName)\nend\ntmpMeta = LineFile.Make(fName.AsFileName,#FILE_PERM_WRITE)\ntheD = av.FindDialog(\"Sec7\")\nrefdate = theD.FindByName(\"Sec7_TxtMDate\").GetText.AsString\nreview = theD.FindByName(\"Sec7_TxtMRDate\").GetText.AsString\norg = theD.FindByName(\"Sec7_TxtOrg\").GetText.AsString\nper = theD.FindByName(\"Sec7_TxtPer\").GetText.AsString\npos = theD.FindByName(\"Sec7_TxtPos\").GetText.AsString\nadd = theD.FindByName(\"Sec7
_TxtAdd\").GetText.AsString\ncity = theD.FindByName(\"Sec7_TxtCity\").GetText.AsString\nstate = theD.FindByName(\"Sec7_TxtState\").GetText.AsString\npcode = theD.FindByName(\"Sec7_TxtPCode\").GetText.AsString\ncountry = theD.FindByName(\"Sec7_TxtCountry\").GetText.AsString\ntele = theD.FindByName(\"Sec7_TxtTele\").GetText.AsString\nfax = theD.FindByName(\"Sec7_TxtFax\").GetText.AsString\nemail = theD.FindByName(\"Sec7_TxtEmail\").GetText.AsString\nhours = theD.FindByName(\"Sec7_TxtHours\").GetText.AsString\nstand = theD.FindByName(\"
Sec7_TxtMSName\").GetText.AsString\nver = theD.FindByName(\"Sec7_TxtMSVer\").GetText.AsString\n\ntmpMeta.WriteElt(\"\")\ntmpMeta.WriteElt(\"METADATA_REFERENCE_INFORMATION\")\ntmpMeta.WriteElt(\"\")\ntmpMeta.WriteElt(\" Metadata_Date:\"++Av.Run(\"DD.WordWrap\",{refdate,\" \",False}))\ntmpMeta.WriteElt(\" Metadata_Review_Date:\"++Av.Run(\"DD.WordWrap\",{review,\" \",False}))\ntmpMeta.WriteElt(\" Metadata_Contact:\")\ntmpMeta.WriteElt(\" Contact_Information:\")\ntmpMeta.WriteElt(\" Contact_Organization_Primary:\")\ntmpMeta.WriteElt(\"
Contact_Organization:\"++Av.Run(\"DD.WordWrap\",{org,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Person:\"++Av.Run(\"DD.WordWrap\",{per,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Position:\"++Av.Run(\"DD.WordWrap\",{pos,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Address:\")\ntmpMeta.WriteElt(\" Address_Type: Mailing and physical address\")\ntmpMeta.WriteElt(\" Address:\"++Av.Run(\"DD.WordWrap\",{add,\" \",False}))\ntmpMeta.WriteElt(\" City:\"++Av.Run(\"DD.WordWrap\",{city
,\" \",False}))\ntmpMeta.WriteElt(\" State_or_Province:\"++Av.Run(\"DD.WordWrap\",{state,\" \",False}))\ntmpMeta.WriteElt(\" Postal_Code:\"++Av.Run(\"DD.WordWrap\",{pcode,\" \",False}))\ntmpMeta.WriteElt(\" Country:\"++Av.Run(\"DD.WordWrap\",{country,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Voice_Telephone:\"++Av.Run(\"DD.WordWrap\",{tele,\" \",False}))\ntmpMeta.WriteElt(\" Contact_Facsimile_Telephone:\"++Av.Run(\"DD.WordWrap\",{fax,\" \",False}))\ntmpMeta.WriteElt(\" C
ontact_Electronic_Mail_Address:\"++Av.Run(\"DD.WordWrap\",{email,\" \",False}))\ntmpMeta.WriteElt(\" Hours_of_Service:\"++Av.Run(\"DD.WordWrap\",{hours,\" \",False}))\ntmpMeta.WriteElt(\" Metadata_Standard_Name:\"++Av.Run(\"DD.WordWrap\",{stand,\" \",False}))\ntmpMeta.WriteElt(\" Metadata_Standard_Version:\"++Av.Run(\"DD.WordWrap\",{ver,\" \",False}))\ntmpMeta.Close"
)
(Script.225
Name: "DD.Sec_Exam"
SourceCode: "sec = Self.GetDialog.GetName\nsec = sec.Left(4)\ns = av.FindScript(\"DD.Exam_\"+sec)\nsSource = s.AsString\nsTokes = sSource.AsTokens(NL)\n'Determine path delemiter for creating new files\nif (System.GetOS = #SYSTEM_OS_UNIX) then\n pathDel = \"/\"\nend\nif (System.GetOS = #SYSTEM_OS_MAC) then\n pathDel = \":\"\nend\nif (System.GetOS = #SYSTEM_OS_MSW) then\n pathDel = \"\\\"\nend\n\nhelpStr = \"\"\ntFile = av.GetProject.GetWorkDir.AsString+pathDel+\"xxtmp.text\"\ntmpFile = LineFile.Make(tFile.AsFileName,#FILE_PERM_WRITE)\nfor each s in
sTokes\n 'helpStr = helpStr + s.Substitute(\"'\",\"\")+NL\n tmpFile.WriteElt(s.Substitute(\"'\",\"\"))\nend\ntmpFile.Close\ntextWin.Make(tFile.AsFileName,\"Metadata Collector Help\").Open\nif (File.Exists(tFile.AsFileName)) then\n File.Delete(tFile.AsFileName)\nend"
)
(Script.226
Name: "DD.Sec_Help"
SourceCode: "sec = Self.GetDialog.GetName\nsec = sec.Left(4)\ns = av.FindScript(\"DD.Help_\"+sec)\nsSource = s.AsString\nsTokes = sSource.AsTokens(NL)\n'Determine path delemiter for creating new files\nif (System.GetOS = #SYSTEM_OS_UNIX) then\n pathDel = \"/\"\nend\nif (System.GetOS = #SYSTEM_OS_MAC) then\n pathDel = \":\"\nend\nif (System.GetOS = #SYSTEM_OS_MSW) then\n pathDel = \"\\\"\nend\n\nhelpStr = \"\"\ntFile = av.GetProject.GetWorkDir.AsString+pathDel+\"xxtmp.text\"\ntmpFile = LineFile.Make(tFile.AsFileName,#FILE_PERM_WRITE)\nfor each s in
sTokes\n tmpFile.WriteElt(s.Substitute(\"'\",\"\"))\nend\ntmpFile.Close\ntextWin.Make(tFile.AsFileName,\"Metadata Collector Help\").Open\nif (File.Exists(tFile.AsFileName)) then\n File.Delete(tFile.AsFileName)\nend"
)
(Script.227
Name: "DD.Set_Focus"
SourceCode: "av.FindDialog(\"DD.MainSetup\").FindByName(\"DD.Main_LBTheme\").Focus\nav.FindDialog(\"Sec1\").FindByName(\"Sec1_TxtPubTitle\").Focus\nav.FindDialog(\"Sec1.1\").FindByName(\"Sec1.1_TBoxCitDet\").Focus\nav.FindDialog(\"Sec1.2\").FindByName(\"Sec1.2_TxtBegDate\").Focus\nav.FindDialog(\"Sec1.3\").FindByName(\"Sec1.3_TxtOrg\").Focus\nav.FindDialog(\"Sec2\").FindByName(\"Sec2_TBoxAttAcc\").Focus\nav.FindDialog(\"Sec2.1\").FindByName(\"Sec2.1_TxtPubTitle\").Focus\nav.FindDialog(\"Sec2.2\").FindByName(\"Sec2.2_TBoxCitDet\").Focus\nav.FindDialog(\"Sec2.3\"
).FindByName(\"Sec2.3_TBoxPro\").Focus\nav.FindDialog(\"Sec4.GC\").FindByName(\"Sec4.GC_TxtLatRes\").Focus\nav.FindDialog(\"Sec4.PC\").FindByName(\"Sec4.PC_TBoxDef\").Focus\nav.FindDialog(\"Sec4.VC\").FindByName(\"DD.Sec4VC_CBAldat\").Focus\nav.FindDialog(\"Sec5.DD\").FindByName(\"Sec5.DD_TxtAttLab\").Focus\nav.FindDialog(\"Sec5.OD\").FindByName(\"Sec5.OD_TBoxOver\").Focus\nav.FindDialog(\"Sec5_DDE\").FindByName(\"Sec5_DDETBox\").Focus\nav.FindDialog(\"Sec6\").FindByName(\"Sec6_TxtOrg\").Focus\nav.FindDialog(\"Sec6.1.CO\").FindByName(\"Sec6.1.CO_T
BoxCO\").Focus\nav.FindDialog(\"Sec6.1.DF\").FindByName(\"Sec6.1.DF_TxtForName\").Focus\nav.FindDialog(\"Sec6.1.NF\").FindByName(\"Sec6.1.NF_TBoxNDF\").Focus\nav.FindDialog(\"Sec7\").FindByName(\"Sec7_TxtMDate\").Focus\n\n"
)
(Script.228
Name: "DD.Set_ListBoxes"
SourceCode: "'This script sets the default values for List Boxes.\n\n'Set List Box for Sec1.2\ntheDia = av.FindDialog(\"Sec1.2\")\n\nprogList = {\"Complete\",\"In work\", \"Planned\"}\n\n'if (_Sec12Progress <> NIL) then\n' progList.Insert(_Sec12Progress)\n' theDia.FindByName(\"Sec1.2_CBProg\").SetCurrentValue(_Sec12Progress)\n'end\nprogList.RemoveDuplicates\ntheDia.FindByName(\"Sec1.2_CBProg\").DefineFromList(progList)\n\nmainList = {\"Continually\",\"Daily\",\"Weekly\",\"Monthly\",\"Annually\",\"Unknown\",\"As needed\",\"Irregular\",\"None planned\",\"Other\"}\n'
if (_Sec12MainUpdate <> NIL) then\n' mainList.Insert(_Sec12MainUpdate)\n' theDia.FindByName(\"Sec1.2_CBMain\").SetCurrentValue(_Sec12MainUpdate)\n'end\nmainList.RemoveDuplicates\ntheDia.FindByName(\"Sec1.2_CBMain\").DefineFromList(mainList)\nt = theDia.GetTitle\nif (t.Contains(\"(\").NOT) then\n nt = t+\" (\"+_sName+\")\"\n theDia.SetTitle(nt)\nelse\n nt = t.AsTokens(\"(\").get(0).Trim + \" (\"+_sName+\")\"\n theDia.SetTitle(nt)\nend\n\n\n'Set Listbox for Sec4.GC\ntheDia = av.FindDialog(\"Sec4.GC\")\ntheDia.FindByName(\"Sec
4.GC_TxtUnits\").SetText(\"Decimal Degrees\")\ndatList = {\"North American Datum of 1927\",\"North American Datum of 1983\",\"Other\"}\ntheDia.FindByName(\"Sec4.GC_CBDatum\").DefineFromList(datList)\ntheDia.FindByName(\"Sec4.GC_CBDatum\").SetCurrentValue(\"North American Datum of 1927\")\n\nellList = {\"Clarke 1866\",\"Geodetic Reference System 80\",\"Other\"}\ntheDia.FindByName(\"Sec4.GC_BCEllipse\").DefineFromList(ellList)\n\n\n\n'Set Listboxes for Sec4.PC\n'theDia = av.FindDialog(\"Sec4.PC\")\n'theFN = _workdir+_pathDel+\"xxSec4_Prj.txt\"\n'if
(File.Exists(theFN.AsFileName)) then\n' tf = TextFile.Make(theFN.AsFileName,#FILE_PERM_READ)\n' source = tf.Read( tf.GetSize )\n' tf.Close\n' theDia.FindByName(\"Sec4.PC_TBoxDef\").SetText(source)\n'end\nplunits = \"\"\nif (_sourceunits = #UNITS_LINEAR_DEGREES) then\n plunits = \"Decimal degrees\"\nend\nif (_sourceunits = #UNITS_LINEAR_YARDS) then\n plunits = \"Yards\"\nend\nif (_sourceunits = #UNITS_LINEAR_INCHES) then\n plunits = \"Inches\"\nend\nif (_sourceunits = #UNITS_LINEAR_FEET) then\n plunits = \"Feet\"\nend\nif (_sourc
eunits = #UNITS_LINEAR_MILES) then\n plunits = \"Miles\"\nend\nif (_sourceunits = #UNITS_LINEAR_MILLIMETERS) then\n plunits = \"Milimeters\"\nend\nif (_sourceunits = #UNITS_LINEAR_CENTIMETERS) then\n plunits = \"Centimeters\"\nend\nif (_sourceunits = #UNITS_LINEAR_METERS) then\n plunits = \"Meters\"\nend\nif (_sourceunits = #UNITS_LINEAR_KILOMETERS) then\n plunits = \"Kilometers\"\nend\nif (_sourceunits = #UNITS_LINEAR_NAUTICALMILES) then\n plunits = \"Nautical miles\"\nend\nencodeDef = \"\"\ntheDia = av.FindDialog(\"Sec4.PC\")\nif (_re
fMeth = \"Vector\") then\n theList = {\"Row and column\"}\n theList.Insert(\"Coordinate pair\")\n theDia.FindByName(\"Sec4.PC_CBMeth\").DefineFromList(theList)\n theDia.FindByName(\"Sec4.PC_CBMeth\").SetCurrentValue(\"Coordinate pair\")\n encodeDef = \"Coordinate pair\"\nelse\n theList = {\"Coordinate pair\"}\n theList.Insert(\"Row and column\")\n theDia.FindByName(\"Sec4.PC_CBMeth\").DefineFromList(theList)\n theDia.FindByName(\"Sec4.PC_CBMeth\").SetCurrentValue(\"Row and column\")\n encodeDef = \"Row and column\"\nend\n\n\ntheDia.FindB
yName(\"Sec4.PC_TxtDisUnits\").SetText(plunits)\ndatList = {\"North American Datum of 1927\",\"North American Datum of 1983\",\"Other\"}\ntheDia.FindByName(\"Sec4.PC_CBDatum\").DefineFromList(datList)\ntheDia.FindByName(\"Sec4.PC_CBDatum\").SetCurrentValue(\"North American Datum of 1927\")\n\nellList = {\"Clarke 1866\",\"Geodetic Reference System 80\",\"Other\"}\nellName = NIL\nif (_thePrj <> NIL) then\n theprj = _thePrj\n ellName = thePrj.GetSpheroid.GetSpheroidName\n if (ellList.FindByValue(ellName) < 0) then\n ellList.Insert(ell
Name)\n end\n maxis = theprj.GetSpheroid.returnradius\n maxis.SetFormat(\"d.ddddddd\")\n theDia.FindByName(\"Sec4.PC_TxtAxis\").SetText(maxis.AsString)\n e = theprj.GetSpheroid.ReturnEccentricity\n e.setformat(\"d.dddddddd\")\n 'e = e.sqrt\n s = (1 - e).sqrt\n f = 1 - s\n f = 1 / f\n f.setformat(\"d.dd\")\n theDia.FindByName(\"Sec4.PC_TxtFlat\").SetText(f.AsString)\nend\n\nif (ellName <> NIL) then\n theDia.FindByName(\"Sec4.PC_BCEllipse\").SetCurrentValue(ellName)\nend\ntheDia.FindByName(\"Sec4.PC_BCEllipse\").DefineFromList(
ellList)\n\n'Set Listboxes for Sec4.VC\ntheDia = av.FindDialog(\"Sec4.VC\")\ndatList = {\"National Geodetic Vertical Datum of 1929\",\"North American Vertical Datum of 1988\",\"Other\"}\ntheDia.FindByName(\"DD.Sec4VC_CBAldat\").DefineFromList(datList)\ntheDia.FindByName(\"DD.Sec4VC_CBAldat\").SetCurrentValue(\"National Geodetic Vertical Datum of 1929\")\n\n\nencList = {\"Implicit coordinate\",\"Attribute Value\",\"Explicit elevation coordinate included with horizontal coordinates\"}\ntheDia.FindByName(\"DD.Sec4VC_CBAlencode\").DefineFromL
ist(encList)\ntheDia.FindByName(\"DD.Sec4VC_CBAlencode\").SetCurrentValue(\"Implicit coordinate\")\n"
)
(Script.229
Name: "DD.Set_Title"
SourceCode: "myDocs = av.GetProject.GetDocs\ntheDias = {}\nfor each d in myDocs\n if (d.GetClass.GetClassName = \"DialogEditor\") then\n theDias.Add(d.GetName)\n end\nend\n\nfor each d in theDias\n if ((av.getproject.findDialog(d)=\"Null\").NOT) then\n theD =av.getproject.findDialog(d) \n t = thed.GetTitle\n if (t.Contains(\"(\")) then\n nt = t.AsTokens(\"(\").Get(0).Trim\n thed.SetTitle(nt)\n end\n end\n av.GetProject.SetModified(true)\nend"
)
(Script.230
Name: "DD.TB_Retrieve"
SourceCode: "dName = Self.Get(0)\ntbName = Self.Get(1)\ntitleName = Self.Get(2)\ntheD = av.FindDialog(dName)\n\ntheFList = FileDialog.ReturnFiles({\"*.txt\",\"*.*\"},{\"Text Files\",\"All Files\"},titleName,0)\nif (theFList.Count > 0) then\n tf = TextFile.Make(theFList.Get(0),#FILE_PERM_READ)\n source = tf.Read( tf.GetSize )\n tf.Close\n theD.FindByName(tbName).SetText(source)\nend\n"
)
(Script.231
Name: "DD.TB_Save"
SourceCode: "dName = Self.Get(0)\ntbName = Self.Get(1)\nfName = Self.Get(2)\ntitleName = Self.Get(3)\n\n\ntheD = av.FindDialog(dName)\nmetaName = _workdir+_pathDel+fName\noutFile = FileDialog.Put(metaName.AsFileName,\" \",\"Save\"++titleName)\nif(outFile = NIL) then\n system.beep\n exit\nend\nnewFile = LineFile.Make(outFile, #FILE_PERM_WRITE)\nnewFile.WriteElt(theD.FindByName(tbName).GetText)\nnewFile.Close"
)
(Script.232
Name: "DD.TestDate"
SourceCode: "d = Self.Get(0)\ngood = true\nif ((d.Count <> 8) or (d.IsNumber = False)) then\n good = false\nend\n\nif (good = true) then\n yr = d.Left(4)\n mo = d.middle(4,2)\n da = d.right(2)\n if ((mo > 12) or (da > 31)) then\n good = false\n end\nend\nif (good = false) then\n msgBox.Warning(\"The following date is not formatted properly: \"+d.AsString,\"Date Format\")\nend\nreturn good"
)
(Script.233
Name: "DD.WordWrap"
SourceCode: "inStr = Self.Get(0).Trim\n\npad = Self.Get(1)\npad1st = Self.Get(2)\ntheTokes = inStr.AsTokens(\" \")\ninCnt = theTokes.Count\ntheStr = \"\"\nkeepStr = \"\"\nkeepList = {}\nif (inCnt = 1) then\n keepList.Add(inStr)\nelse\n cnt = 0\n for each t in theTokes\n \n cnt = cnt + 1\n if (t.Contains(NL)) then\n tokes = t.AsTokens(NL)\n newStr = theStr ++ tokes.Get(0)\n if (newStr.Count >= 60) then\n keepList.Add(theStr)\n keepList.Add(tokes.Get(0))\n else\n keepList.Add(newStr)\n end\n
theStr = \"\"\n if (tokes.Count > 1) then\n t = tokes.Get(1)\n else\n t = \"\"\n end\n end\n if (theStr = \"\") then\n theStr = t\n else\n theStr = theStr ++ t\n end\n if ((theStr.Count >= 60).NOT) then\n keepStr = theStr\n if (cnt = inCnt) then\n keepList.Add(keepStr)\n end\n else\n 'keepStr = keepStr + NL\n if (cnt = inCnt) then\n keepstr = theStr\n keepList.Add(keepStr)\n else\n keepList.Add(keepStr)\n keepStr =
\"\"\n theStr = t\n end\n end\n end\nend\nrStr = \"\"\ncnt = 0\nkeepCnt = keepList.Count\n'msgbox.info(keepcnt.asstring,\"\")\nif (keepCnt = 1) then\n rStr = keepList.Get(0)\n if (pad1st = true) then\n rStr = pad + \" \" + rStr\n end\nelse\n padNext = False\n for each k in keepList\n cnt = cnt + 1\n if ((cnt = 1) and (pad1st = true)) then\n k = pad + \" \" + k\n end\n if (cnt > 1) then\n k = pad + \" \" + k\n end\n if (cnt = keepCnt) then\n rStr = rStr + K\n else\n rStr = rStr +
k + NL\n end\n end\nend\nif (rStr = NIL) then\n rStr = \"\"\nend\nreturn rStr"
)
(Script.234
Name: "DD.WordWrap_tmp"
SourceCode: "inStr = Self.Get(0)\n\npad = Self.Get(1)\npad1st = Self.Get(2)\ntheTokes = inStr.AsTokens(\" \")\ninCnt = theTokes.Count\ntheStr = \"\"\nkeepStr = \"\"\nkeepList = {}\nif (inCnt = 1) then\n keepList.Add(inStr)\nelse\n cnt = 0\n for each t in theTokes\n \n cnt = cnt + 1\n if (t.Contains(NL)) then\n tokes = t.AsTokens(NL)\n newStr = theStr ++ tokes.Get(0)\n if (newStr.Count >= 60) then\n keepList.Add(theStr)\n keepList.Add(tokes.Get(0))\n else\n keepList.Add(newStr)\n end\n the
Str = \"\"\n if (tokes.Count > 1) then\n t = tokes.Get(1)\n else\n t = \"\"\n end\n end\n if (theStr = \"\") then\n theStr = t\n else\n theStr = theStr ++ t\n end\n if ((theStr.Count >= 60).NOT) then\n keepStr = theStr\n if (cnt = inCnt) then\n keepList.Add(keepStr)\n end\n else\n 'keepStr = keepStr + NL\n if (cnt = inCnt) then\n keepstr = theStr\n keepList.Add(keepStr)\n else\n keepList.Add(keepStr)\n keepStr = \"\"\n
theStr = t\n end\n end\n end\nend\nrStr = \"\"\ncnt = 0\nkeepCnt = keepList.Count\n'msgbox.info(\"keepcnt is: \"+keepcnt.asstring,\"\")\nif (keepCnt = 1) then\n rStr = keepList.Get(0)\n if (pad1st = true) then\n rStr = pad + \" \" + rStr\n end\nelseif (keepcnt = 0) then\n rStr = \"\"\nelse\n padNext = False\n for each k in keepList\n if (k > \"\") then\n cnt = cnt + 1\n if ((cnt = 1) and (pad1st = true)) then\n k = pad + \" \" + k\n end\n if (cnt > 1) then\n k = pad + \" \" + k\n
end\n if (cnt = keepCnt) then\n rStr = rStr + K\n else\n rStr = rStr + k + NL\n end\n else\n rStr = \"\"\n end\n end\nend\nif (rStr = NIL) then\n rStr = \"\"\nend\n'if (rStr > \"\") then\n'else\n' rStr = NIL\n' 'msgbox.info(\"Not\",\"\")\n'end\nreturn rStr"
)
(Script.235
Name: "DD.Write_Html"
SourceCode: "'Get the file to Read!\n'If passed from Write script pass the name of the .met file, if not ask the user for it!\n\nif (Self.Is(Choice)) then\n theThemes = av.GetActiveDoc.GetActiveThemes\n if (theThemes.Count = 0) then\n MsgBox.Info(\"Please make a theme Active.\",\"Active Theme\")\n exit\n end\n theTheme = av.GetActiveDoc.GetActiveThemes.Get(0)\n themePath = theTheme.GetSrcName.GetFileName.GetFullName.AsFileName\n theBase = themePath.GetBaseName.AsString\n thePath = themePath.AsString.substitute(theBase,\"\")\n
thePath.AsFileName.SetCWD\n\n fileList = FileDialog.ReturnFiles({\"*.met\",\"*.*\"},{\"Metadata Files(*.met)\",\"All Files(*.*)\"},\"Select Metadata File\",0)\n if (fileList.Count = 0) then\n exit\n end\n inFile = fileList.Get(0)\n if (inFile = NIL) then\n System.Beep\n exit\n end\n opFile = LineFile.Make(inFile,#FILE_PERM_READ)\nelse\n MetaFile = Self.Get(0)\n opFile = LineFile.Make(MetaFile.GetFileName,#FILE_PERM_READ)\nend\n\n\n'Get File to Write\nmetaName = opFile.GetFileName.GetBaseName.AsTokens(\".\").Get(0)+\".h
tm\" \noutFile = FileDialog.Put(metaName.AsFileName,\"*.htm\",\"Create New HTML file\")\nif (outFile = NIL) then\n exit\nend\ntmpHtml = LineFile.Make(outFile,#FILE_PERM_WRITE)\n\n'Find the title\n\ntheTitle = NIL\nt = \"\"\nkeepOn = True\nWhile (keepOn)\n e = opFile.ReadElt\n if (e.Contains(\"Title:\")) then\n eTokes = e.AsTokens(\":\")\n if (eTokes.Count > 2) then\n t = \"\"\n cnt = 0\n for each k in eTokes\n if (cnt = 1) then\n t = t + k\n end\n if (cnt > 1) then\n t = t + \":\" +
k\n end\n cnt = cnt + 1\n end\n else\n t = e.AsTokens(\":\").Get(1)\n end\n getT = True\n While(getT)\n r = opFile.ReadElt.Trim\n if (r.Contains(\"Edition:\")) then\n getT = False\n keepOn = False\n else\n t = t ++ r\n end\n end\n end\n if (opFile.IsAtEnd) then\n keepOn = False\n end \nend\n\nif (t <> \"\") then\n theTitle = t\nend\nif (theTitle = NIL) then\n theTitle = MsgBox.Input(\"Enter the Title for this Metadata Record.\",\"Enter Title\",\"\")\n if (th
eTitle = NIL) then\n System.Beep\n Exit\n end\nend\ntmpHtml.WriteElt(\"\")\ntmpHtml.WriteElt(\"\")\nif (theTitle <> NIL) then\n tmpHtml.WriteElt(\"\"+theTitle+\"\")\nend\ntmpHtml.WriteElt(\"\")\ntmpHtml.WriteElt(\"\")\ntmpHtml.WriteElt(\"\")\nif (theTitle <> NIL) then\n tmpHtml.WriteElt(\"\"+theTitle+\"
\")\nend\n\n\ntmpHtml.WriteElt(\"Table of Contents
\")\ntmpHtml.WriteElt(\"\")\ntmpHtml.WriteElt(\"\")\ntmpHtml.WriteElt(\"\")\ntmpHtml.WriteElt(\"
\")\ntmpHtml.WriteElt(\"\")\n\n\n'Create CheckList to test strings against for Bolding\nCheckList = {\"Title\",\"Originator\",\"Edition\",\"Publisher\",\"Progress\",\"Address\",\"City\",\"Country\",\"Fees\"}\n\nopFile.GoToBeg\nWhile (NOT(opFile.IsAtEnd))\n theStr = opFile.ReadElt\n if (theStr = \"IDENTIFICATION_INFORMATION\") then\n tmpHtml.WriteElt(\"\")\n theStr = \"\"+theStr+\"
\"\n end\n if (theStr = \"DATA_QUALITY_INFOR
MATION\") then\n tmpHtml.WriteElt(\"Top
\")\n tmpHtml.WriteElt(\"
\")\n tmpHtml.WriteElt(\"\")\n theStr = \"\"+theStr+\"
\"\n end\n if (theStr = \"SPATIAL_DATA_ORGANIZATION_INFORMATION\") then\n tmpHtml.WriteElt(\"Top
\")\n tmpHtml.WriteElt(\"
\")\n tmpHtml.WriteElt(\"\")\n theStr = \"\"+theStr+\"
\"\n end\n if (theStr = \"SPATIAL_REFERENCE_INFORMATION\") then\n
tmpHtml.WriteElt(\"Top
\")\n tmpHtml.WriteElt(\"
\")\n tmpHtml.WriteElt(\"\")\n theStr = \"\"+theStr+\"
\"\n end\n if (theStr = \"ENTITY_AND_ATTRIBUTE_INFORMATION\") then\n tmpHtml.WriteElt(\"Top
\")\n tmpHtml.WriteElt(\"
\")\n tmpHtml.WriteElt(\"\")\n theStr = \"\"+theStr+\"
\"\n end\n if (theStr = \"DISTRIBUTION_INFORMATION\") then\n tmpHtml.WriteElt(\"Top
\")\n tmpHtml.WriteElt(\"
\")\n tmpHtml.WriteElt(\"\")\n theStr = \"\"+theStr+\"
\"\n end\n if (theStr = \"METADATA_REFERENCE_INFORMATION\") then\n tmpHtml.WriteElt(\"Top
\")\n tmpHtml.WriteElt(\"
\")\n tmpHtml.WriteElt(\"\")\n theStr = \"\"+theStr+\"
\"\n end\n \n if (theStr.Contains(\":\")) then \n theTokes = theStr.AsTokens(\":\")\n if (theTokes.Count >
1) then\n cnt = 0\n theStr = \"\"\n for each t in theTokes\n if (cnt = 0) then\n 'check for path name\n if ((theTokes.Get(1).Contains(\"/\")) or (theTokes.Get(1).Contains(\"\\\")) or (theTokes.Get(1).Left(1) <> \" \")) then\n theStr = theTokes.Get(0) + \":\"\n elseif (t.Contains(\"_\")) then\n theStr = \"\"+t+\":\"\n elseif (CheckList.FindByValue(t.Trim) <> -1) then\n theStr = \"\"+t+\":\"\n else\n theStr = t + \":\"\n
end\n else\n nb = thetokes.get(cnt)\n theStr = theStr+nb+\":\"\n end\n cnt = cnt + 1\n end\n if (theStr.Right(1) = \":\") then\n theStr = theStr.Left(theStr.Count - 1)\n end\n else\n theStr = \"\"+theTokes.get(0)+\":\"\n end\n end\n if (theStr.Contains(\"://\")) then 'we have a URL make an tag\n aTokes = theStr.AsTokens(\":\")\n aText = aTokes.Get(0) ' this is the text before the link\n aRef = aTokes.Get(aTokes.Count - 1) ' this i
s the Ref part\n if (theStr.Contains(\"ftp://\")) then\n aType = \"FTP:\"\n else\n aType = \"HTTP:\"\n end\n aLink = aType+aRef\n theStr = aText+\":\" ++ \"\" + aLink + \"\"\n end\n\n tmpHtml.WriteElt(theStr)\nend\ntmpHtml.WriteElt(\"Top
\")\ntmpHtml.WriteElt(\" \")\nopFile.Close\ntmpHtml.close\nmsgBox.info(tmpHtml.AsString+NL+\"was written successfully\",\"HTML File Created\")"
)
(Script.236
Name: "DD.Write_INFO"
SourceCode: "themePath = _theTheme.GetSrcName.GetFileName.GetFullName.AsFileName\ntheBase = themePath.GetBaseName.AsString\nthePath = themePath.AsString.substitute(theBase,\"\")\nsc = NIL\n\nif (_shpClass = \"Polygon\") then\n sc = \"p\"\nelseif (_shpClass = \"PolyLine\") then\n sc = \"l\"\nelseif (_shpClass = \"MultiPoint\") then\n sc = \"pt\"\nend\nif (_theClass = \"Grid\") then\n sc = \"\"\nend\n\nif (sc = NIL) then\n MsgBox.Warning(\"INFO file could not be created!\",\"Error Creating INFO File\")\nelse\n infName = thePath+\"info\"+_pathDel+_theTheme.As
String+\".\"+sc+\"met\"\n \n opFile = LineFile.Make(_MetaFile.GetFileName,#FILE_PERM_READ)\n inf = VTab.MakeNew(infName.AsFileName,INFO)\n inf.SetEditable(true)\n metaField = Field.Make(\"metadata\",#FIELD_CHAR,200,0)\n inf.Addfields({metaField})\n opFile.GotoBeg\n While (opFile.IsAtEnd.NOT)\n newrec = inf.AddRecord\n theElt = opFile.ReadElt\n inf.SetValue(metaField,newRec,theElt) \n end\n opFile.Close\nend"
)
(AVDLog.237
Name: "DD.MainSetup"
X: 53
Y: 42
W: 544
H: 497
ConstrainedControlNames: 238
ConstrainedControlNames: 239
ConstrainedControlNames: 240
ConstrainedControlNames: 241
Constraints: 242
Constraints: 243
Constraints: 244
Constraints: 245
Server: 246
ControlPanel: 247
Title: "Metadata Collector Setup"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Closeable: 1
Open: "DD.Main_Setup_Open"
DefaultButton: 285
)
(AVStr.238
S: "DD.Main_ButtBrowse"
)
(AVStr.239
S: "DD.Main_ButtGo"
)
(AVStr.240
S: "DD.Main_ButtExit"
)
(AVStr.241
S: "DD.Main_ButtHelp"
)
(Numb.242
N: 85.00000000000000
)
(Numb.243
N: 85.00000000000000
)
(Numb.244
N: 85.00000000000000
)
(Numb.245
N: 85.00000000000000
)
(Nil.246
)
(CPanel.247
Child: 248
Child: 255
Child: 265
Child: 271
Child: 275
Child: 276
Child: 277
ResBox: 278
ResBox: 279
ResBox: 280
ResBox: 281
ResBox: 282
ResBox: 283
ResBox: 284
Listening: 1
)
(CPanel.248
InternalName: "aControlPanel16"
Child: 249
Child: 250
Child: 251
Constraints: 0x55
ResBox: 252
ResBox: 253
ResBox: 254
Label: "4) Do you want to clear forms before collecting Metadata?"
VisibleBorder: 1
Listening: 1
)
(RButn.249
InternalName: "DD.Main_RBClearNo"
Constraints: 0x55
Listening: 1
Label: "No"
)
(RButn.250
InternalName: "DD.Main_RBClearYes"
Constraints: 0x55
Listening: 1
Label: "Yes"
)
(TextLabel.251
InternalName: "aTextLabel1"
Constraints: 0x55
Label: "If you select yes, all previously entered Metadata will be cleared."
Listening: 1
)
(RectD.252
Left: 20.00000000000000
Top: 65.00000000000000
Right: 77.00000000000000
Bottom: 46.00000000000000
)
(RectD.253
Left: 94.00000000000000
Top: 65.00000000000000
Right: 151.00000000000000
Bottom: 46.00000000000000
)
(RectD.254
Left: 21.00000000000000
Top: 41.00000000000000
Right: 439.00000000000000
Bottom: 21.00000000000000
)
(CPanel.255
InternalName: "aControlPanel20"
Child: 256
Child: 257
Child: 258
Child: 260
Constraints: 0x55
ResBox: 261
ResBox: 262
ResBox: 263
ResBox: 264
Label: "3) Do you want to edit or append to an existing Metadata file?"
VisibleBorder: 1
Listening: 1
)
(RButn.256
InternalName: "DD.Main_RBFileNo"
Constraints: 0x55
Listening: 1
Label: "No"
Click: "DD.Main_Setup_FileNo"
)
(RButn.257
InternalName: "DD.Main_RBFileYes"
Constraints: 0x55
Listening: 1
Label: "Yes"
Click: "DD.Main_Setup_FileYes"
)
(TextLine.258
InternalName: "DD.Main_TxtFile"
Label: "Metadata file:"
Constraints: 0x55
Listening: 1
TextType: 259
NextControl: 246
)
(AVEnum.259
Name: "TEXTLINE_TYPE_ALL"
)
(LButn.260
InternalName: "DD.Main_ButtBrowse"
Label: "Browse"
Click: "DD.Main_Setup_FileBrowse"
)
(RectD.261
Left: 21.00000000000000
Top: 37.00000000000000
Right: 82.00000000000000
Bottom: 18.00000000000000
)
(RectD.262
Left: 21.00000000000000
Top: 58.00000000000000
Right: 82.00000000000000
Bottom: 39.00000000000000
)
(RectD.263
Left: 82.00000000000000
Top: 59.00000000000000
Right: 407.00000000000000
Bottom: 39.00000000000000
)
(RectD.264
Left: 420.00000000000000
Top: 61.00000000000000
Right: 500.00000000000000
Bottom: 38.00000000000000
)
(CPanel.265
InternalName: "aControlPanel28"
Child: 266
Child: 268
Constraints: 0x55
ResBox: 269
ResBox: 270
Label: "2) Set the working directory."
VisibleBorder: 1
Listening: 1
)
(TextLine.266
InternalName: "DD.Main_TxtWorkDir"
Label: "Working Directory:"
Constraints: 0x55
Listening: 1
TextType: 267
FocusLost: "DD.Main_Setup_WDFocus"
NextControl: 258
)
(AVEnum.267
Name: "TEXTLINE_TYPE_ALL"
)
(TextLabel.268
InternalName: "aTextLabel31"
Constraints: 0x55
Label: "This will be the default directory for reading and writing files."
Listening: 1
)
(RectD.269
Left: 21.00000000000000
Top: 65.00000000000000
Right: 411.00000000000000
Bottom: 45.00000000000000
)
(RectD.270
Left: 23.00000000000000
Top: 37.00000000000000
Right: 354.00000000000000
Bottom: 17.00000000000000
)
(CPanel.271
InternalName: "aControlPanel32"
Child: 272
Constraints: 0x55
ResBox: 274
Label: "1) Select theme to collect Metadata for:"
VisibleBorder: 1
Listening: 1
)
(AVLBox.272
InternalName: "DD.Main_LBTheme"
NextControl: 266
ContentKind: 4
Constraints: 0x55
ColumnCount: 1
HorizontalScroll: 1
Listening: 1
VerticalScroll: 1
Select: "DD.Main_Setup_ThemeChanged"
SelectionStyle: 273
)
(AVEnum.273
Name: "LISTBOX_SELECTION_SINGLECELL"
)
(RectD.274
Left: 273.00000000000000
Top: 115.00000000000000
Right: 493.00000000000000
Bottom: 14.00000000000000
)
(LButn.275
InternalName: "DD.Main_ButtGo"
Label: "Collect Metadata"
Click: "DD.Main_Setup_Go"
)
(LButn.276
InternalName: "DD.Main_ButtExit"
Label: "Cancel"
Click: "DD.Main_Setup_Cancel"
)
(LButn.277
InternalName: "DD.Main_ButtHelp"
Label: "Helpful Hints"
Click: "DD.Main_SetUp_Help"
)
(RectD.278
Left: 14.00000000000000
Top: 421.00000000000000
Right: 523.00000000000000
Bottom: 343.00000000000000
)
(RectD.279
Left: 14.00000000000000
Top: 335.00000000000000
Right: 523.00000000000000
Bottom: 263.00000000000000
)
(RectD.280
Left: 14.00000000000000
Top: 259.00000000000000
Right: 523.00000000000000
Bottom: 179.00000000000000
)
(RectD.281
Left: 14.00000000000000
Top: 172.00000000000000
Right: 523.00000000000000
Bottom: 52.00000000000000
)
(RectD.282
Left: 350.00000000000000
Top: 465.00000000000000
Right: 488.00000000000000
Bottom: 428.00000000000000
)
(RectD.283
Left: 54.00000000000000
Top: 465.00000000000000
Right: 192.00000000000000
Bottom: 428.00000000000000
)
(RectD.284
Left: 19.00000000000000
Top: 47.00000000000000
Right: 166.00000000000000
Bottom: 26.00000000000000
)
(Nil.285
)
(AVDLog.286
Name: "Sec1"
X: 315
Y: 199
W: 603
H: 427
ConstrainedControlNames: 287
ConstrainedControlNames: 288
ConstrainedControlNames: 289
ConstrainedControlNames: 290
ConstrainedControlNames: 291
ConstrainedControlNames: 292
ConstrainedControlNames: 293
ConstrainedControlNames: 294
Constraints: 295
Constraints: 296
Constraints: 297
Constraints: 298
Constraints: 299
Constraints: 300
Constraints: 301
Constraints: 302
Server: 246
ControlPanel: 303
Title: "Section 1 Identification_Information"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 371
)
(AVStr.287
S: "Sec1.Butt_PubRet"
)
(AVStr.288
S: "Sec1.Butt_PubSave"
)
(AVStr.289
S: "aLabelButton1"
)
(AVStr.290
S: "Sec1.Butt_Continue"
)
(AVStr.291
S: "Sec1_ButtExit"
)
(AVStr.292
S: "Sec1_ButtClear"
)
(AVStr.293
S: "DD.ButtSecHelp"
)
(AVStr.294
S: "DD.Sec_ButtExam"
)
(Numb.295
N: 85.00000000000000
)
(Numb.296
N: 85.00000000000000
)
(Numb.297
N: 85.00000000000000
)
(Numb.298
N: 85.00000000000000
)
(Numb.299
N: 85.00000000000000
)
(Numb.300
N: 85.00000000000000
)
(Numb.301
N: 85.00000000000000
)
(Numb.302
N: 85.00000000000000
)
(CPanel.303
Child: 304
Child: 360
Child: 361
Child: 362
Child: 363
Child: 364
ResBox: 365
ResBox: 366
ResBox: 367
ResBox: 368
ResBox: 369
ResBox: 370
Listening: 1
)
(CPanel.304
InternalName: "aControlPanel6"
Child: 305
Child: 315
Child: 321
Child: 323
Child: 319
Child: 325
Child: 327
Child: 331
Child: 332
Child: 313
Child: 311
Child: 309
Child: 317
Child: 329
Child: 307
Child: 333
Child: 334
Child: 335
Child: 336
Child: 337
Child: 338
Constraints: 0x55
ResBox: 339
ResBox: 340
ResBox: 341
ResBox: 342
ResBox: 343
ResBox: 344
ResBox: 345
ResBox: 346
ResBox: 347
ResBox: 348
ResBox: 349
ResBox: 350
ResBox: 351
ResBox: 352
ResBox: 353
ResBox: 354
ResBox: 355
ResBox: 356
ResBox: 357
ResBox: 358
ResBox: 359
Label: "1.1 Citation"
VisibleBorder: 1
Listening: 1
)
(TextLine.305
InternalName: "Sec1_TxtPubTitle"
Help: "enter the name by which the data set is known. HINT, a quality title includes the TOPIC, TIME & PLACE."
Label: "8.4 Title:"
Constraints: 0x55
Listening: 1
TextType: 306
NextControl: 307
)
(AVEnum.306
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.307
InternalName: "Sec1_TxtEd"
Help: "the version of the title."
Label: "8.5 Edition"
Constraints: 0x55
Listening: 1
TextType: 308
NextControl: 309
)
(AVEnum.308
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.309
InternalName: "Sec1_TxtPubOrg"
Help: "the name of an organization(s) or individual(s)that developed the data set.; organization(s) or individual(s) that developed the data set."
Label: "8.1 Originators: (separate with a semi-colon)"
Constraints: 0x55
Listening: 1
TextType: 310
NextControl: 311
)
(AVEnum.310
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.311
InternalName: "Sec1_TxtPubDate"
Help: "when the data set is published or made available for release."
Label: "8.2 Publication Date (YYYYMMDD)"
Constraints: 0x55
Listening: 1
TextType: 312
NextControl: 313
)
(AVEnum.312
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.313
InternalName: "Sec1_TxtPubPlace"
Help: "the name of the city where the data set was published or released."
Label: "8.8.1 Publication_Place:"
Constraints: 0x55
Listening: 1
TextType: 314
NextControl: 315
)
(AVEnum.314
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.315
InternalName: "Sec1_TxtPublisher"
Help: "the name of the individual or organization that published the data set."
Label: "8.8.2 Publisher:"
Constraints: 0x55
Listening: 1
TextType: 316
NextControl: 317
)
(AVEnum.316
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.317
InternalName: "Sec1_TxtOnLine"
Help: "the name of an online computer resource that contains the data set."
Label: "8.10 Online_Linkage:"
Constraints: 0x55
Listening: 1
TextType: 318
NextControl: 319
)
(AVEnum.318
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.319
InternalName: "Sec1_TxtPubLWTitle"
Help: "the information identifying a larger work in which the data set is included."
Label: "8.11.4 Larger_Work_Title:"
Constraints: 0x55
Listening: 1
TextType: 320
NextControl: 321
)
(AVEnum.320
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.321
InternalName: "Sec1_TxtPubLWOrg"
Help: "organization(s) or individual(s) that developed the data set."
Label: "8.11.1 Larger_Work_Originator:"
Constraints: 0x55
Listening: 1
TextType: 322
NextControl: 323
)
(AVEnum.322
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.323
InternalName: "Sec1_TxtPubLWDate"
Help: "when the data set is published or made available for release."
Label: "8.11.2 Larger_Work_Publication_Date:"
Constraints: 0x55
Listening: 1
TextType: 324
NextControl: 325
)
(AVEnum.324
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.325
InternalName: "Sec1_TxtPubLWPlace"
Help: "city where the data set was published or released."
Label: "8.11.8.1 Larger_Work_Publication_Place:"
Constraints: 0x55
Listening: 1
TextType: 326
NextControl: 327
)
(AVEnum.326
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.327
InternalName: "Sec1_TxtPubLWPub"
Help: "name of the individual or organization that published the data set."
Label: "8.11.8.2 Larger_Work_Publisher:"
Constraints: 0x55
Listening: 1
TextType: 328
NextControl: 329
)
(AVEnum.328
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.329
InternalName: "Sec1_TxtLWOnLine"
Help: "an online computer resource that contains the data set."
Label: "8.11.8.10 Larger_Work_Online_Linkage:"
Constraints: 0x55
Listening: 1
TextType: 330
NextControl: 305
)
(AVEnum.330
Name: "TEXTLINE_TYPE_ALL"
)
(LButn.331
InternalName: "Sec1.Butt_PubRet"
Label: "Retrieve Citation Information"
Click: "DD.All_PubRet"
)
(LButn.332
InternalName: "Sec1.Butt_PubSave"
Label: "Save Citation Information"
Click: "DD.AllPub_New"
)
(TextLabel.333
InternalName: "aTextLabel8"
Constraints: 0x55
Label: "8 Citation_Information"
Listening: 1
)
(TextLabel.334
InternalName: "aTextLabel1"
Constraints: 0x55
Label: "Retrieve data from existing file."
Listening: 1
)
(LButn.335
InternalName: "aLabelButton1"
Label: "Append Citation Information"
Click: "DD.AllPub_Append"
)
(TextLabel.336
InternalName: "aTextLabel22"
Constraints: 0x55
Label: "Add new data to existing file."
Listening: 1
)
(TextLabel.337
InternalName: "aTextLabel2"
Constraints: 0x55
Label: "Create new file."
Listening: 1
)
(TextLabel.338
InternalName: "aTextLabel3"
Constraints: 0x55
Label: "Default file is citation.dbf."
Listening: 1
)
(RectD.339
Left: 11.00000000000000
Top: 70.00000000000000
Right: 399.00000000000000
Bottom: 50.00000000000000
)
(RectD.340
Left: 11.00000000000000
Top: 176.00000000000000
Right: 399.00000000000000
Bottom: 156.00000000000000
)
(RectD.341
Left: 11.00000000000000
Top: 240.00000000000000
Right: 399.00000000000000
Bottom: 220.00000000000000
)
(RectD.342
Left: 11.00000000000000
Top: 261.00000000000000
Right: 399.00000000000000
Bottom: 241.00000000000000
)
(RectD.343
Left: 11.00000000000000
Top: 219.00000000000000
Right: 399.00000000000000
Bottom: 199.00000000000000
)
(RectD.344
Left: 11.00000000000000
Top: 283.00000000000000
Right: 399.00000000000000
Bottom: 263.00000000000000
)
(RectD.345
Left: 11.00000000000000
Top: 304.00000000000000
Right: 399.00000000000000
Bottom: 284.00000000000000
)
(RectD.346
Left: 416.00000000000000
Top: 84.00000000000000
Right: 575.00000000000000
Bottom: 55.00000000000000
)
(RectD.347
Left: 416.00000000000000
Top: 160.00000000000000
Right: 575.00000000000000
Bottom: 131.00000000000000
)
(RectD.348
Left: 11.00000000000000
Top: 155.00000000000000
Right: 399.00000000000000
Bottom: 135.00000000000000
)
(RectD.349
Left: 11.00000000000000
Top: 134.00000000000000
Right: 399.00000000000000
Bottom: 114.00000000000000
)
(RectD.350
Left: 11.00000000000000
Top: 113.00000000000000
Right: 399.00000000000000
Bottom: 93.00000000000000
)
(RectD.351
Left: 11.00000000000000
Top: 198.00000000000000
Right: 399.00000000000000
Bottom: 178.00000000000000
)
(RectD.352
Left: 11.00000000000000
Top: 325.00000000000000
Right: 399.00000000000000
Bottom: 305.00000000000000
)
(RectD.353
Left: 11.00000000000000
Top: 91.00000000000000
Right: 399.00000000000000
Bottom: 71.00000000000000
)
(RectD.354
Left: 6.00000000000000
Top: 56.00000000000000
Right: 122.00000000000000
Bottom: 27.00000000000000
)
(RectD.355
Left: 420.00000000000000
Top: 109.00000000000000
Right: 570.00000000000000
Bottom: 89.00000000000000
)
(RectD.356
Left: 416.00000000000000
Top: 236.00000000000000
Right: 575.00000000000000
Bottom: 207.00000000000000
)
(RectD.357
Left: 427.00000000000000
Top: 268.00000000000000
Right: 564.00000000000000
Bottom: 241.00000000000000
)
(RectD.358
Left: 457.00000000000000
Top: 192.00000000000000
Right: 533.00000000000000
Bottom: 165.00000000000000
)
(RectD.359
Left: 434.00000000000000
Top: 302.00000000000000
Right: 556.00000000000000
Bottom: 283.00000000000000
)
(LButn.360
InternalName: "Sec1.Butt_Continue"
Label: "Continue Section 1"
Click: "DD.All_Cont"
)
(LButn.361
InternalName: "Sec1_ButtExit"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.362
InternalName: "Sec1_ButtClear"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(LButn.363
InternalName: "DD.ButtSecHelp"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(LButn.364
InternalName: "DD.Sec_ButtExam"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(RectD.365
Left: 3.00000000000000
Top: 357.00000000000000
Right: 585.00000000000000
Bottom: 27.00000000000000
)
(RectD.366
Left: 434.00000000000000
Top: 396.00000000000000
Right: 547.00000000000000
Bottom: 367.00000000000000
)
(RectD.367
Left: 65.00000000000000
Top: 396.00000000000000
Right: 178.00000000000000
Bottom: 367.00000000000000
)
(RectD.368
Left: 250.00000000000000
Top: 396.00000000000000
Right: 362.00000000000000
Bottom: 367.00000000000000
)
(RectD.369
Left: 393.00000000000000
Top: 31.00000000000000
Right: 483.00000000000000
Bottom: 10.00000000000000
)
(RectD.370
Left: 493.00000000000000
Top: 31.00000000000000
Right: 583.00000000000000
Bottom: 10.00000000000000
)
(Nil.371
)
(AVDLog.372
Name: "Sec1.1"
X: 53
Y: 42
W: 618
H: 539
ConstrainedControlNames: 373
ConstrainedControlNames: 374
ConstrainedControlNames: 375
ConstrainedControlNames: 376
ConstrainedControlNames: 377
ConstrainedControlNames: 378
ConstrainedControlNames: 379
ConstrainedControlNames: 380
ConstrainedControlNames: 381
ConstrainedControlNames: 382
ConstrainedControlNames: 383
ConstrainedControlNames: 384
ConstrainedControlNames: 385
ConstrainedControlNames: 386
Constraints: 387
Constraints: 388
Constraints: 389
Constraints: 390
Constraints: 391
Constraints: 392
Constraints: 393
Constraints: 394
Constraints: 395
Constraints: 396
Constraints: 397
Constraints: 398
Constraints: 399
Constraints: 400
Server: 401
ControlPanel: 402
Title: "Section 1 Identification_Information Continued"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 451
)
(AVStr.373
S: "Sec1.1_ButtRetCit"
)
(AVStr.374
S: "Sec1.1_ButtSaveCit"
)
(AVStr.375
S: "Sec1.1_ButtRetSup"
)
(AVStr.376
S: "Sec1.1_ButtSaveSup"
)
(AVStr.377
S: "Sec1.1_ButtSavePur"
)
(AVStr.378
S: "Sec1.1_ButtRetPur"
)
(AVStr.379
S: "Sec1.1_ButtSaveAbs"
)
(AVStr.380
S: "Sec1.1_ButtRetAbs"
)
(AVStr.381
S: "Sec1.1_ButtClear"
)
(AVStr.382
S: "Sec1.1_ButtExit"
)
(AVStr.383
S: "Sec1.1_ButtCont"
)
(AVStr.384
S: "Sec1_ButtBack"
)
(AVStr.385
S: "aLabelButton2"
)
(AVStr.386
S: "aLabelButton3"
)
(Numb.387
N: 85.00000000000000
)
(Numb.388
N: 85.00000000000000
)
(Numb.389
N: 85.00000000000000
)
(Numb.390
N: 85.00000000000000
)
(Numb.391
N: 85.00000000000000
)
(Numb.392
N: 85.00000000000000
)
(Numb.393
N: 85.00000000000000
)
(Numb.394
N: 85.00000000000000
)
(Numb.395
N: 85.00000000000000
)
(Numb.396
N: 85.00000000000000
)
(Numb.397
N: 85.00000000000000
)
(Numb.398
N: 85.00000000000000
)
(Numb.399
N: 85.00000000000000
)
(Numb.400
N: 85.00000000000000
)
(Nil.401
)
(CPanel.402
Child: 403
Child: 415
Child: 437
Child: 438
Child: 439
Child: 440
Child: 441
Child: 442
ResBox: 443
ResBox: 444
ResBox: 445
ResBox: 446
ResBox: 447
ResBox: 448
ResBox: 449
ResBox: 450
Listening: 1
)
(CPanel.403
InternalName: "aControlPanel7"
Child: 404
Child: 405
Child: 409
Child: 410
Constraints: 0x55
ResBox: 411
ResBox: 412
ResBox: 413
ResBox: 414
Label: "1.1 Citation Continued"
VisibleBorder: 1
Listening: 1
)
(LButn.404
InternalName: "Sec1.1_ButtRetCit"
Label: "Retrieve Other Citation Details"
Click: "DD.Sec1.1_CitDetText"
)
(TextBox.405
InternalName: "Sec1.1_TBoxCitDet"
Help: "other information required to complete the citation."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 406
)
(TextBox.406
InternalName: "Sec1.1_TBoxAbs"
Help: "a brief narrative summary of the data set and project it is a part of if it applies."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 407
)
(TextBox.407
InternalName: "Sec1.1_TBoxPur"
Help: "a summary of the intentions with which the data set was developed."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 408
)
(TextBox.408
InternalName: "Sec1.1_TBoxSup"
Help: "other descriptive information about the data set."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 405
)
(LButn.409
InternalName: "Sec1.1_ButtSaveCit"
Label: "Save Other Citation Details"
Click: "DD.Sec1.1_CitSave"
)
(TextLabel.410
InternalName: "Sec1.1_LabCit"
Constraints: 0x55
Label: "8.9 Other Citation Details"
Listening: 1
)
(RectD.411
Left: 366.00000000000000
Top: 74.00000000000000
Right: 523.00000000000000
Bottom: 42.00000000000000
)
(RectD.412
Left: 6.00000000000000
Top: 112.00000000000000
Right: 362.00000000000000
Bottom: 34.00000000000000
)
(RectD.413
Left: 366.00000000000000
Top: 110.00000000000000
Right: 523.00000000000000
Bottom: 78.00000000000000
)
(RectD.414
Left: 6.00000000000000
Top: 50.00000000000000
Right: 131.00000000000000
Bottom: 21.00000000000000
)
(CPanel.415
InternalName: "aControlPanel6"
Child: 408
Child: 416
Child: 417
Child: 418
Child: 419
Child: 407
Child: 420
Child: 421
Child: 406
Child: 422
Child: 423
Child: 424
Constraints: 0x55
ResBox: 425
ResBox: 426
ResBox: 427
ResBox: 428
ResBox: 429
ResBox: 430
ResBox: 431
ResBox: 432
ResBox: 433
ResBox: 434
ResBox: 435
ResBox: 436
Label: "1.2 Description"
VisibleBorder: 1
Listening: 1
)
(LButn.416
InternalName: "Sec1.1_ButtRetSup"
Label: "Retrieve Supplement"
Click: "DD.Sec1.1_SupText"
)
(LButn.417
InternalName: "Sec1.1_ButtSaveSup"
Label: "Save Supplement"
Click: "DD.Sec1.1_SupSave"
)
(LButn.418
InternalName: "Sec1.1_ButtSavePur"
Label: "Save Purpose"
Click: "DD.Sec1.1_PurSave"
)
(LButn.419
InternalName: "Sec1.1_ButtRetPur"
Label: "Retrieve Purpose"
Click: "DD.Sec1.1_PurText"
)
(LButn.420
InternalName: "Sec1.1_ButtSaveAbs"
Label: "Save Abstract"
Click: "DD.Sec1.1_AbsSave"
)
(LButn.421
InternalName: "Sec1.1_ButtRetAbs"
Label: "Retreive Abstract"
Click: "DD.Sec1.1_AbsText"
)
(TextLabel.422
InternalName: "Sec1.1_LabAbs"
Constraints: 0x55
Label: "1.2.1 Abstract"
Listening: 1
)
(TextLabel.423
InternalName: "Sec1.1_LabPur"
Constraints: 0x55
Label: "1.2.2 Purpose"
Listening: 1
)
(TextLabel.424
InternalName: "Sec1.1_LabSup"
Constraints: 0x55
Label: "1.2.3 Supplemental Information"
Listening: 1
)
(RectD.425
Left: 6.00000000000000
Top: 328.00000000000000
Right: 362.00000000000000
Bottom: 250.00000000000000
)
(RectD.426
Left: 366.00000000000000
Top: 290.00000000000000
Right: 523.00000000000000
Bottom: 259.00000000000000
)
(RectD.427
Left: 366.00000000000000
Top: 325.00000000000000
Right: 523.00000000000000
Bottom: 294.00000000000000
)
(RectD.428
Left: 366.00000000000000
Top: 220.00000000000000
Right: 523.00000000000000
Bottom: 189.00000000000000
)
(RectD.429
Left: 366.00000000000000
Top: 184.00000000000000
Right: 523.00000000000000
Bottom: 153.00000000000000
)
(RectD.430
Left: 6.00000000000000
Top: 221.00000000000000
Right: 362.00000000000000
Bottom: 143.00000000000000
)
(RectD.431
Left: 366.00000000000000
Top: 112.00000000000000
Right: 523.00000000000000
Bottom: 81.00000000000000
)
(RectD.432
Left: 366.00000000000000
Top: 77.00000000000000
Right: 523.00000000000000
Bottom: 46.00000000000000
)
(RectD.433
Left: 6.00000000000000
Top: 116.00000000000000
Right: 362.00000000000000
Bottom: 38.00000000000000
)
(RectD.434
Left: 8.00000000000000
Top: 54.00000000000000
Right: 104.00000000000000
Bottom: 25.00000000000000
)
(RectD.435
Left: 7.00000000000000
Top: 160.00000000000000
Right: 103.00000000000000
Bottom: 131.00000000000000
)
(RectD.436
Left: 8.00000000000000
Top: 265.00000000000000
Right: 171.00000000000000
Bottom: 236.00000000000000
)
(LButn.437
InternalName: "Sec1.1_ButtClear"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(LButn.438
InternalName: "Sec1.1_ButtExit"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.439
InternalName: "Sec1.1_ButtCont"
Label: "Continue Section 1"
Click: "DD.All_Cont"
)
(LButn.440
InternalName: "Sec1_ButtBack"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.441
InternalName: "aLabelButton2"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.442
InternalName: "aLabelButton3"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.443
Left: 3.00000000000000
Top: 146.00000000000000
Right: 532.00000000000000
Bottom: 25.00000000000000
)
(RectD.444
Left: 3.00000000000000
Top: 487.00000000000000
Right: 535.00000000000000
Bottom: 151.00000000000000
)
(RectD.445
Left: 158.00000000000000
Top: 522.00000000000000
Right: 272.00000000000000
Bottom: 495.00000000000000
)
(RectD.446
Left: 33.00000000000000
Top: 522.00000000000000
Right: 147.00000000000000
Bottom: 495.00000000000000
)
(RectD.447
Left: 400.00000000000000
Top: 522.00000000000000
Right: 514.00000000000000
Bottom: 495.00000000000000
)
(RectD.448
Left: 279.00000000000000
Top: 522.00000000000000
Right: 393.00000000000000
Bottom: 495.00000000000000
)
(RectD.449
Left: 440.00000000000000
Top: 28.00000000000000
Right: 530.00000000000000
Bottom: 6.00000000000000
)
(RectD.450
Left: 340.00000000000000
Top: 28.00000000000000
Right: 430.00000000000000
Bottom: 6.00000000000000
)
(Nil.451
)
(AVDLog.452
Name: "Sec1.2"
X: 53
Y: 42
W: 634
H: 612
ConstrainedControlNames: 453
ConstrainedControlNames: 454
ConstrainedControlNames: 455
ConstrainedControlNames: 456
ConstrainedControlNames: 457
ConstrainedControlNames: 458
ConstrainedControlNames: 459
ConstrainedControlNames: 460
ConstrainedControlNames: 461
ConstrainedControlNames: 462
Constraints: 463
Constraints: 464
Constraints: 465
Constraints: 466
Constraints: 467
Constraints: 468
Constraints: 469
Constraints: 470
Constraints: 471
Constraints: 472
Server: 473
ControlPanel: 474
Title: "Section 1 Identification_Information Continued"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 548
)
(AVStr.453
S: "Sec1.2_ButtRetKey"
)
(AVStr.454
S: "aLabelButton34"
)
(AVStr.455
S: "Sec1._ButtSavePlace"
)
(AVStr.456
S: "Sec1.2_ButtRetTheme"
)
(AVStr.457
S: "Sec1.2_ButtBack"
)
(AVStr.458
S: "Sec1.2_ButtExit"
)
(AVStr.459
S: "Sec1.2_ButtClear"
)
(AVStr.460
S: "Sec1.2_ButtCont"
)
(AVStr.461
S: "aLabelButton4"
)
(AVStr.462
S: "aLabelButton5"
)
(Numb.463
N: 85.00000000000000
)
(Numb.464
N: 85.00000000000000
)
(Numb.465
N: 85.00000000000000
)
(Numb.466
N: 85.00000000000000
)
(Numb.467
N: 85.00000000000000
)
(Numb.468
N: 85.00000000000000
)
(Numb.469
N: 85.00000000000000
)
(Numb.470
N: 85.00000000000000
)
(Numb.471
N: 85.00000000000000
)
(Numb.472
N: 85.00000000000000
)
(Nil.473
)
(CPanel.474
Child: 475
Child: 508
Child: 517
Child: 527
Child: 528
Child: 529
Child: 479
Child: 530
Child: 531
Child: 480
Child: 532
Child: 533
Child: 534
ResBox: 535
ResBox: 536
ResBox: 537
ResBox: 538
ResBox: 539
ResBox: 540
ResBox: 541
ResBox: 542
ResBox: 543
ResBox: 544
ResBox: 545
ResBox: 546
ResBox: 547
Listening: 1
)
(CPanel.475
InternalName: "aControlPanel16"
Child: 476
Child: 493
Constraints: 0x55
ResBox: 506
ResBox: 507
Label: "1.6 Keywords"
VisibleBorder: 1
Listening: 1
)
(CPanel.476
InternalName: "Sec1.1_PanTK"
Child: 477
Child: 481
Child: 482
Child: 483
Child: 485
Child: 486
Constraints: 0x55
ResBox: 487
ResBox: 488
ResBox: 489
ResBox: 490
ResBox: 491
ResBox: 492
Label: "1.6.1.2 Theme Keywords (one per line)"
VisibleBorder: 1
Listening: 1
)
(TextBox.477
InternalName: "Sec1.2_TBoxTK"
Help: "common-use word(s) or phrase(s) used to describe the subject of the data set.\n"
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 478
)
(TextBox.478
InternalName: "Sec1.2_TBoxPK"
Help: "the geographic name(s) of a location covered by a data set.\n"
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 479
)
(TextBox.479
InternalName: "Sec1.2_TBoxAcc"
Help: "restrictions and legal prerequisites for accessing the data set"
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 480
)
(TextBox.480
InternalName: "Sec1.2_TBoxUse"
Help: "restrictions and legal prerequisites for using the data set after access is\ngranted."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 473
)
(LButn.481
InternalName: "Sec1.2_ButtRetKey"
Label: "Retrieve Theme Keywords"
Click: "DD.Sec1.2_RetTheme"
)
(LButn.482
InternalName: "aLabelButton34"
Label: "Save Theme Keywords"
Click: "DD.Sec1.2_SaveTheme"
)
(AVLBox.483
InternalName: "Sec1.2_LBoxTKSel"
NextControl: 473
ContentKind: 4
Constraints: 0x55
ColumnCount: 1
Listening: 1
VerticalScroll: 1
Select: "DD.Sec1.2_TKSelect"
SelectionStyle: 484
)
(AVEnum.484
Name: "LISTBOX_SELECTION_SINGLECELL"
)
(TextLabel.485
InternalName: "aTextLabel2"
Constraints: 0x55
Label: "Select from list"
Listening: 1
)
(TextLabel.486
InternalName: "aTextLabel3"
Constraints: 0x55
Label: "Keywords"
Listening: 1
)
(RectD.487
Left: 196.00000000000000
Top: 130.00000000000000
Right: 382.00000000000000
Bottom: 37.00000000000000
)
(RectD.488
Left: 387.00000000000000
Top: 67.00000000000000
Right: 524.00000000000000
Bottom: 42.00000000000000
)
(RectD.489
Left: 387.00000000000000
Top: 126.00000000000000
Right: 524.00000000000000
Bottom: 101.00000000000000
)
(RectD.490
Left: 6.00000000000000
Top: 130.00000000000000
Right: 192.00000000000000
Bottom: 42.00000000000000
)
(RectD.491
Left: 7.00000000000000
Top: 49.00000000000000
Right: 103.00000000000000
Bottom: 20.00000000000000
)
(RectD.492
Left: 197.00000000000000
Top: 50.00000000000000
Right: 293.00000000000000
Bottom: 21.00000000000000
)
(CPanel.493
InternalName: "Sec1.1_PanPK"
Child: 478
Child: 494
Child: 495
Child: 496
Child: 498
Child: 499
Constraints: 0x55
ResBox: 500
ResBox: 501
ResBox: 502
ResBox: 503
ResBox: 504
ResBox: 505
Label: "1.6.2.2 Place Keywords (one per line)"
VisibleBorder: 1
Listening: 1
)
(LButn.494
InternalName: "Sec1._ButtSavePlace"
Label: "Save Place Keywords"
Click: "DD.Sec1.2_PlaceSave"
)
(LButn.495
InternalName: "Sec1.2_ButtRetTheme"
Label: "Retrieve Place Keywords"
Click: "DD.Sec1.2_RetPlace"
)
(AVLBox.496
InternalName: "Sec1.2_LBoxPKSel"
NextControl: 473
ContentKind: 4
Constraints: 0x55
ColumnCount: 1
Listening: 1
VerticalScroll: 1
Select: "DD.Sec1.2_PKSelect"
SelectionStyle: 497
)
(AVEnum.497
Name: "LISTBOX_SELECTION_SINGLECELL"
)
(TextLabel.498
InternalName: "aTextLabel1"
Constraints: 0x55
Label: "Select from list"
Listening: 1
)
(TextLabel.499
InternalName: "aTextLabel4"
Constraints: 0x55
Label: "Keywords"
Listening: 1
)
(RectD.500
Left: 198.00000000000000
Top: 123.00000000000000
Right: 384.00000000000000
Bottom: 30.00000000000000
)
(RectD.501
Left: 387.00000000000000
Top: 120.00000000000000
Right: 524.00000000000000
Bottom: 94.00000000000000
)
(RectD.502
Left: 387.00000000000000
Top: 60.00000000000000
Right: 524.00000000000000
Bottom: 35.00000000000000
)
(RectD.503
Left: 6.00000000000000
Top: 123.00000000000000
Right: 192.00000000000000
Bottom: 34.00000000000000
)
(RectD.504
Left: 5.00000000000000
Top: 48.00000000000000
Right: 101.00000000000000
Bottom: 20.00000000000000
)
(RectD.505
Left: 198.00000000000000
Top: 45.00000000000000
Right: 294.00000000000000
Bottom: 16.00000000000000
)
(RectD.506
Left: 2.00000000000000
Top: 157.00000000000000
Right: 536.00000000000000
Bottom: 18.00000000000000
)
(RectD.507
Left: 3.00000000000000
Top: 289.00000000000000
Right: 538.00000000000000
Bottom: 160.00000000000000
)
(CPanel.508
InternalName: "aControlPanel13"
Child: 509
Child: 510
Child: 511
Child: 512
Constraints: 0x55
ResBox: 513
ResBox: 514
ResBox: 515
ResBox: 516
Label: "1.4 Status"
VisibleBorder: 1
Listening: 1
)
(AVCBBox.509
InternalName: "Sec1.2_CBProg"
Help: "the state of the data set."
NextControl: 473
ContentKind: 4
Constraints: 0x55
Listening: 1
Label: " "
)
(TextLabel.510
InternalName: "aTextLabel12"
Constraints: 0x55
Label: "1.4.1 Progress"
Listening: 1
)
(TextLabel.511
InternalName: "aTextLabel14"
Constraints: 0x55
Label: "1.4.2 Maintance_and_Update_Frequency"
Listening: 1
)
(AVCBBox.512
InternalName: "Sec1.2_CBMain"
Help: "the frequency with which changes an additions are made to the"
NextControl: 473
ContentKind: 4
Constraints: 0x55
Listening: 1
Select: "DD.Sec1.2_CBMain"
)
(RectD.513
Left: 211.00000000000000
Top: 91.00000000000000
Right: 368.00000000000000
Bottom: 18.00000000000000
)
(RectD.514
Left: 6.00000000000000
Top: 49.00000000000000
Right: 102.00000000000000
Bottom: 20.00000000000000
)
(RectD.515
Left: 6.00000000000000
Top: 68.00000000000000
Right: 203.00000000000000
Bottom: 39.00000000000000
)
(RectD.516
Left: 212.00000000000000
Top: 148.00000000000000
Right: 368.00000000000000
Bottom: 37.00000000000000
)
(CPanel.517
InternalName: "aControlPanel10"
Child: 518
Child: 520
Child: 522
Constraints: 0x55
ResBox: 524
ResBox: 525
ResBox: 526
Label: "1.3 Time_Period_of_Content"
VisibleBorder: 1
Listening: 1
)
(TextLine.518
InternalName: "Sec1.2_TxtBegDate"
Help: "the first year (optionally month, or month and day) of the event. (YYYYMMDD)"
Label: "9.3.1 Beginning_Date:"
Constraints: 0x55
Listening: 1
TextType: 519
NextControl: 520
)
(AVEnum.519
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.520
InternalName: "Sec1.2_TxtEndDate"
Help: "the last year (optionally month, or month and day) of the event. (YYYYMMDD)"
Label: "9.3.3 Ending_Date:"
Constraints: 0x55
Listening: 1
TextType: 521
NextControl: 522
)
(AVEnum.521
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.522
InternalName: "Sec1.2_TxtCurRef"
Help: "basis on which the time period of content information is determined HINT, this is how \"up-to-date\" the dataset is"
Label: "1.3.1 Currentness_Reference:"
Constraints: 0x55
Listening: 1
TextType: 523
NextControl: 509
)
(AVEnum.523
Name: "TEXTLINE_TYPE_ALL"
)
(RectD.524
Left: 6.00000000000000
Top: 37.00000000000000
Right: 367.00000000000000
Bottom: 17.00000000000000
)
(RectD.525
Left: 6.00000000000000
Top: 60.00000000000000
Right: 367.00000000000000
Bottom: 40.00000000000000
)
(RectD.526
Left: 6.00000000000000
Top: 82.00000000000000
Right: 367.00000000000000
Bottom: 62.00000000000000
)
(LButn.527
InternalName: "Sec1.2_ButtBack"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.528
InternalName: "Sec1.2_ButtExit"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.529
InternalName: "Sec1.2_ButtClear"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(TextLabel.530
InternalName: "Sec1.2_LabAcc"
Constraints: 0x55
Label: "1.7 Access_Contraints:"
Listening: 1
)
(TextLabel.531
InternalName: "Sec1.2_LabUse"
Constraints: 0x55
Label: "1.8 Use_Contraints:"
Listening: 1
)
(LButn.532
InternalName: "Sec1.2_ButtCont"
Label: "Continue Section 1"
Click: "DD.All_Cont"
)
(LButn.533
InternalName: "aLabelButton4"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.534
InternalName: "aLabelButton5"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.535
Left: 6.00000000000000
Top: 474.00000000000000
Right: 550.00000000000000
Bottom: 182.00000000000000
)
(RectD.536
Left: 6.00000000000000
Top: 174.00000000000000
Right: 394.00000000000000
Bottom: 115.00000000000000
)
(RectD.537
Left: 6.00000000000000
Top: 117.00000000000000
Right: 394.00000000000000
Bottom: 28.00000000000000
)
(RectD.538
Left: 312.00000000000000
Top: 551.00000000000000
Right: 427.00000000000000
Bottom: 524.00000000000000
)
(RectD.539
Left: 13.00000000000000
Top: 551.00000000000000
Right: 127.00000000000000
Bottom: 524.00000000000000
)
(RectD.540
Left: 163.00000000000000
Top: 551.00000000000000
Right: 277.00000000000000
Bottom: 524.00000000000000
)
(RectD.541
Left: 10.00000000000000
Top: 520.00000000000000
Right: 286.00000000000000
Bottom: 486.00000000000000
)
(RectD.542
Left: 10.00000000000000
Top: 493.00000000000000
Right: 129.00000000000000
Bottom: 474.00000000000000
)
(RectD.543
Left: 306.00000000000000
Top: 493.00000000000000
Right: 402.00000000000000
Bottom: 474.00000000000000
)
(RectD.544
Left: 306.00000000000000
Top: 520.00000000000000
Right: 582.00000000000000
Bottom: 486.00000000000000
)
(RectD.545
Left: 462.00000000000000
Top: 551.00000000000000
Right: 576.00000000000000
Bottom: 524.00000000000000
)
(RectD.546
Left: 450.00000000000000
Top: 25.00000000000000
Right: 540.00000000000000
Bottom: 4.00000000000000
)
(RectD.547
Left: 350.00000000000000
Top: 25.00000000000000
Right: 440.00000000000000
Bottom: 4.00000000000000
)
(Nil.548
)
(AVDLog.549
Name: "Sec1.3"
X: 53
Y: 42
W: 585
H: 404
ConstrainedControlNames: 550
ConstrainedControlNames: 551
ConstrainedControlNames: 552
ConstrainedControlNames: 553
ConstrainedControlNames: 554
ConstrainedControlNames: 555
ConstrainedControlNames: 556
ConstrainedControlNames: 557
ConstrainedControlNames: 558
Constraints: 559
Constraints: 560
Constraints: 561
Constraints: 562
Constraints: 563
Constraints: 564
Constraints: 565
Constraints: 566
Constraints: 567
Server: 568
ControlPanel: 569
Title: "Section 1 Identification_Information Continued"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 636
)
(AVStr.550
S: "aLabelButton17"
)
(AVStr.551
S: "aLabelButton18"
)
(AVStr.552
S: "aLabelButton20"
)
(AVStr.553
S: "aLabelButton28"
)
(AVStr.554
S: "aLabelButton29"
)
(AVStr.555
S: "Sec1.3_ButtGoto"
)
(AVStr.556
S: "aLabelButton31"
)
(AVStr.557
S: "aLabelButton6"
)
(AVStr.558
S: "aLabelButton7"
)
(Numb.559
N: 85.00000000000000
)
(Numb.560
N: 85.00000000000000
)
(Numb.561
N: 85.00000000000000
)
(Numb.562
N: 85.00000000000000
)
(Numb.563
N: 85.00000000000000
)
(Numb.564
N: 85.00000000000000
)
(Numb.565
N: 85.00000000000000
)
(Numb.566
N: 85.00000000000000
)
(Numb.567
N: 85.00000000000000
)
(Nil.568
)
(CPanel.569
Child: 570
Child: 623
Child: 624
Child: 625
Child: 626
Child: 627
Child: 628
ResBox: 629
ResBox: 630
ResBox: 631
ResBox: 632
ResBox: 633
ResBox: 634
ResBox: 635
Listening: 1
)
(CPanel.570
InternalName: "aControlPanel17"
Child: 571
Child: 579
Child: 577
Child: 575
Child: 573
Child: 593
Child: 591
Child: 589
Child: 587
Child: 585
Child: 583
Child: 581
Child: 595
Child: 596
Child: 597
Child: 598
Child: 599
Child: 600
Child: 601
Child: 602
Constraints: 0x55
ResBox: 603
ResBox: 604
ResBox: 605
ResBox: 606
ResBox: 607
ResBox: 608
ResBox: 609
ResBox: 610
ResBox: 611
ResBox: 612
ResBox: 613
ResBox: 614
ResBox: 615
ResBox: 616
ResBox: 617
ResBox: 618
ResBox: 619
ResBox: 620
ResBox: 621
ResBox: 622
Label: "1.9 Point_of_Contact"
VisibleBorder: 1
Listening: 1
)
(TextLine.571
InternalName: "Sec1.3_TxtCountry"
Help: "the country of the address."
Label: "10.4.6 Country:"
Constraints: 0x55
Listening: 1
TextType: 572
NextControl: 573
)
(AVEnum.572
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.573
InternalName: "Sec1.3_TxtTele"
Help: "the telephone number for the contact organization or individual."
Label: "10.5 Contact_Voice_Telephone:"
Constraints: 0x55
Listening: 1
TextType: 574
NextControl: 575
)
(AVEnum.574
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.575
InternalName: "Sec1.3_TxtFax"
Help: "number of facsimile machine of the organization or individual."
Label: "10.7 Contact_Facsimile_Telephone:"
Constraints: 0x55
Listening: 1
TextType: 576
NextControl: 577
)
(AVEnum.576
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.577
InternalName: "Sec1.3_TxtEmail"
Help: "electronic mail address for the organization or individual."
Label: "10.8 Contact_Electronic_Mail_Address:"
Constraints: 0x55
Listening: 1
TextType: 578
NextControl: 579
)
(AVEnum.578
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.579
InternalName: "Sec1.3_TxtHours"
Help: "time period when individuals can speak to the organization or individual."
Label: "10.9 Hours_of_Service:"
Constraints: 0x55
Listening: 1
TextType: 580
NextControl: 581
)
(AVEnum.580
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.581
InternalName: "Sec1.3_TxtOrg"
Help: "the organization associated with the data set."
Label: "10.1.2 Contact_Organization:"
Constraints: 0x55
Listening: 1
TextType: 582
NextControl: 583
)
(AVEnum.582
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.583
InternalName: "Sec1.3_TxtPer"
Help: "the name of the individual associated with the data set."
Label: "10.1.1 Contact_Person:"
Constraints: 0x55
Listening: 1
TextType: 584
NextControl: 585
)
(AVEnum.584
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.585
InternalName: "Sec1.3_TxtPos"
Help: "the title of individual associated with the data set."
Label: "10.3 Contact_Position:"
Constraints: 0x55
Listening: 1
TextType: 586
NextControl: 587
)
(AVEnum.586
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.587
InternalName: "Sec1.3_TxtAdd"
Help: "an address line for the address."
Label: "10.4.2 Address:"
Constraints: 0x55
Listening: 1
TextType: 588
NextControl: 589
)
(AVEnum.588
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.589
InternalName: "Sec1.3_TxtCity"
Help: "the city of the address."
Label: "10.4.3 City:"
Constraints: 0x55
Listening: 1
TextType: 590
NextControl: 591
)
(AVEnum.590
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.591
InternalName: "Sec1.3_TxtState"
Help: "the state or province of the address."
Label: "10.4.4 State_or_Province:"
Constraints: 0x55
Listening: 1
TextType: 592
NextControl: 593
)
(AVEnum.592
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.593
InternalName: "Sec1.3_TxtPCode"
Help: "the ZIP or other postal code of the address."
Label: "10.4.5 Postal_Code:"
Constraints: 0x55
Listening: 1
TextType: 594
NextControl: 571
)
(AVEnum.594
Name: "TEXTLINE_TYPE_ALL"
)
(TextLabel.595
InternalName: "aTextLabel18"
Constraints: 0x55
Label: "10 Contact_Information"
Listening: 1
)
(TextLabel.596
InternalName: "aTextLabel14"
Constraints: 0x55
Label: "Add new data to existing file."
Listening: 1
)
(TextLabel.597
InternalName: "aTextLabel15"
Constraints: 0x55
Label: "Create new file."
Listening: 1
)
(TextLabel.598
InternalName: "aTextLabel16"
Constraints: 0x55
Label: "Retrieve data from existing file."
Listening: 1
)
(LButn.599
InternalName: "aLabelButton17"
Label: "Save Contact Information"
Click: "DD.All_ConNew"
)
(LButn.600
InternalName: "aLabelButton18"
Label: "Retrieve Contact Information"
Click: "DD.All_ConRet"
)
(TextLabel.601
InternalName: "aTextLabel19"
Constraints: 0x55
Label: "Default file is contact.dbf."
Listening: 1
)
(LButn.602
InternalName: "aLabelButton20"
Label: "Append Contact Information"
Click: "DD.All_ConAppend"
)
(RectD.603
Left: 8.00000000000000
Top: 215.00000000000000
Right: 383.00000000000000
Bottom: 195.00000000000000
)
(RectD.604
Left: 8.00000000000000
Top: 307.00000000000000
Right: 383.00000000000000
Bottom: 287.00000000000000
)
(RectD.605
Left: 8.00000000000000
Top: 284.00000000000000
Right: 383.00000000000000
Bottom: 264.00000000000000
)
(RectD.606
Left: 8.00000000000000
Top: 261.00000000000000
Right: 383.00000000000000
Bottom: 241.00000000000000
)
(RectD.607
Left: 8.00000000000000
Top: 238.00000000000000
Right: 383.00000000000000
Bottom: 218.00000000000000
)
(RectD.608
Left: 8.00000000000000
Top: 192.00000000000000
Right: 383.00000000000000
Bottom: 172.00000000000000
)
(RectD.609
Left: 8.00000000000000
Top: 170.00000000000000
Right: 383.00000000000000
Bottom: 150.00000000000000
)
(RectD.610
Left: 8.00000000000000
Top: 147.00000000000000
Right: 383.00000000000000
Bottom: 127.00000000000000
)
(RectD.611
Left: 8.00000000000000
Top: 124.00000000000000
Right: 383.00000000000000
Bottom: 104.00000000000000
)
(RectD.612
Left: 8.00000000000000
Top: 101.00000000000000
Right: 383.00000000000000
Bottom: 81.00000000000000
)
(RectD.613
Left: 8.00000000000000
Top: 78.00000000000000
Right: 383.00000000000000
Bottom: 58.00000000000000
)
(RectD.614
Left: 8.00000000000000
Top: 55.00000000000000
Right: 383.00000000000000
Bottom: 35.00000000000000
)
(RectD.615
Left: 4.00000000000000
Top: 46.00000000000000
Right: 122.00000000000000
Bottom: 17.00000000000000
)
(RectD.616
Left: 403.00000000000000
Top: 235.00000000000000
Right: 540.00000000000000
Bottom: 208.00000000000000
)
(RectD.617
Left: 434.00000000000000
Top: 172.00000000000000
Right: 510.00000000000000
Bottom: 145.00000000000000
)
(RectD.618
Left: 397.00000000000000
Top: 96.00000000000000
Right: 547.00000000000000
Bottom: 76.00000000000000
)
(RectD.619
Left: 394.00000000000000
Top: 137.00000000000000
Right: 549.00000000000000
Bottom: 101.00000000000000
)
(RectD.620
Left: 394.00000000000000
Top: 71.00000000000000
Right: 549.00000000000000
Bottom: 35.00000000000000
)
(RectD.621
Left: 412.00000000000000
Top: 264.00000000000000
Right: 531.00000000000000
Bottom: 241.00000000000000
)
(RectD.622
Left: 394.00000000000000
Top: 203.00000000000000
Right: 549.00000000000000
Bottom: 167.00000000000000
)
(LButn.623
InternalName: "aLabelButton28"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(LButn.624
InternalName: "aLabelButton29"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.625
InternalName: "Sec1.3_ButtGoto"
Label: "Goto Section 2"
Click: "DD.All_Goto"
)
(LButn.626
InternalName: "aLabelButton31"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.627
InternalName: "aLabelButton6"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.628
InternalName: "aLabelButton7"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.629
Left: 4.00000000000000
Top: 344.00000000000000
Right: 574.00000000000000
Bottom: 29.00000000000000
)
(RectD.630
Left: 155.00000000000000
Top: 384.00000000000000
Right: 270.00000000000000
Bottom: 356.00000000000000
)
(RectD.631
Left: 5.00000000000000
Top: 384.00000000000000
Right: 120.00000000000000
Bottom: 356.00000000000000
)
(RectD.632
Left: 456.00000000000000
Top: 384.00000000000000
Right: 571.00000000000000
Bottom: 356.00000000000000
)
(RectD.633
Left: 306.00000000000000
Top: 384.00000000000000
Right: 421.00000000000000
Bottom: 356.00000000000000
)
(RectD.634
Left: 482.00000000000000
Top: 33.00000000000000
Right: 572.00000000000000
Bottom: 11.00000000000000
)
(RectD.635
Left: 382.00000000000000
Top: 33.00000000000000
Right: 472.00000000000000
Bottom: 11.00000000000000
)
(Nil.636
)
(AVDLog.637
Name: "Sec2"
X: 53
Y: 42
W: 606
H: 560
ConstrainedControlNames: 638
ConstrainedControlNames: 639
ConstrainedControlNames: 640
ConstrainedControlNames: 641
ConstrainedControlNames: 642
ConstrainedControlNames: 643
ConstrainedControlNames: 644
ConstrainedControlNames: 645
ConstrainedControlNames: 646
ConstrainedControlNames: 647
ConstrainedControlNames: 648
ConstrainedControlNames: 649
ConstrainedControlNames: 650
ConstrainedControlNames: 651
ConstrainedControlNames: 652
ConstrainedControlNames: 653
Constraints: 654
Constraints: 655
Constraints: 656
Constraints: 657
Constraints: 658
Constraints: 659
Constraints: 660
Constraints: 661
Constraints: 662
Constraints: 663
Constraints: 664
Constraints: 665
Constraints: 666
Constraints: 667
Constraints: 668
Constraints: 669
Server: 246
ControlPanel: 670
Title: "Section 2 Data_Quality_Information"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 727
)
(AVStr.638
S: "Sec2_ButtAttRet"
)
(AVStr.639
S: "Sec2_ButtAccSave"
)
(AVStr.640
S: "Sec2_ButtLogConRet"
)
(AVStr.641
S: "Sec2_ButtLogConSave"
)
(AVStr.642
S: "Sec2_ButtComRepRet"
)
(AVStr.643
S: "Sec2_ButtComRepSave"
)
(AVStr.644
S: "Sec2_ButtHorPosRet"
)
(AVStr.645
S: "Sec2_ButtHorRepSave"
)
(AVStr.646
S: "Sec2_ButtVerPosRet"
)
(AVStr.647
S: "Sec2_ButtVerPosSave"
)
(AVStr.648
S: "Sec2_ButtCont"
)
(AVStr.649
S: "aLabelButton1"
)
(AVStr.650
S: "aLabelButton2"
)
(AVStr.651
S: "aLabelButton3"
)
(AVStr.652
S: "aLabelButton8"
)
(AVStr.653
S: "aLabelButton9"
)
(Numb.654
N: 85.00000000000000
)
(Numb.655
N: 85.00000000000000
)
(Numb.656
N: 85.00000000000000
)
(Numb.657
N: 85.00000000000000
)
(Numb.658
N: 85.00000000000000
)
(Numb.659
N: 85.00000000000000
)
(Numb.660
N: 85.00000000000000
)
(Numb.661
N: 85.00000000000000
)
(Numb.662
N: 85.00000000000000
)
(Numb.663
N: 85.00000000000000
)
(Numb.664
N: 85.00000000000000
)
(Numb.665
N: 85.00000000000000
)
(Numb.666
N: 85.00000000000000
)
(Numb.667
N: 85.00000000000000
)
(Numb.668
N: 85.00000000000000
)
(Numb.669
N: 85.00000000000000
)
(CPanel.670
Child: 671
Child: 684
Child: 690
Child: 696
Child: 711
Child: 712
Child: 713
Child: 714
Child: 715
Child: 716
ResBox: 717
ResBox: 718
ResBox: 719
ResBox: 720
ResBox: 721
ResBox: 722
ResBox: 723
ResBox: 724
ResBox: 725
ResBox: 726
Listening: 1
)
(CPanel.671
InternalName: "Sec2_PanAttAcc"
Child: 672
Child: 677
Child: 678
Child: 679
Constraints: 0x55
ResBox: 680
ResBox: 681
ResBox: 682
ResBox: 683
Label: "2.1 Atribute_Accuracy"
VisibleBorder: 1
Listening: 1
)
(TextBox.672
InternalName: "Sec2_TBoxAttAcc"
Help: "an explanation of the accuracy of the identification of the entities and assignments of values in the data set."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 673
)
(TextBox.673
InternalName: "Sec2_TBoxLogCon"
Help: "an explanation of the fidelity of relationships in the data set and tests used."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 674
)
(TextBox.674
InternalName: "Sec2_TBoxComRep"
Help: "information about omissions, selection criteria, generalization, and definitions used."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 675
)
(TextBox.675
InternalName: "Sec2_TBoxHorPos"
Help: "an estimate of accuracy of the horizontal positions of the spatial objects."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 676
)
(TextBox.676
InternalName: "Sec2_TBoxVerPos"
Help: "an explanation of the accuracy of the vertical coordinate measurements and a description of the tests used."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 672
)
(LButn.677
InternalName: "Sec2_ButtAttRet"
Label: "Retrieve Accuracy Report"
Click: "DD.Sec2_AccRet"
)
(LButn.678
InternalName: "Sec2_ButtAccSave"
Label: "Save Accuracy Report"
Click: "DD.Sec2_AccSave"
)
(TextLabel.679
InternalName: "aTextLabel1"
Constraints: 0x55
Label: "2.1.1 Attribute_Accuracy_Report"
Listening: 1
)
(RectD.680
Left: 4.00000000000000
Top: 110.00000000000000
Right: 398.00000000000000
Bottom: 33.00000000000000
)
(RectD.681
Left: 404.00000000000000
Top: 67.00000000000000
Right: 548.00000000000000
Bottom: 41.00000000000000
)
(RectD.682
Left: 404.00000000000000
Top: 102.00000000000000
Right: 548.00000000000000
Bottom: 76.00000000000000
)
(RectD.683
Left: 4.00000000000000
Top: 48.00000000000000
Right: 160.00000000000000
Bottom: 19.00000000000000
)
(CPanel.684
InternalName: "Sec2_PanLogCon"
Child: 673
Child: 685
Child: 686
Constraints: 0x55
ResBox: 687
ResBox: 688
ResBox: 689
Label: "2.2 Logical_Consistency_Report"
VisibleBorder: 1
Listening: 1
)
(LButn.685
InternalName: "Sec2_ButtLogConRet"
Label: "Retrieve Logical Consistency"
Click: "DD.Sec2_LogConRet"
)
(LButn.686
InternalName: "Sec2_ButtLogConSave"
Label: "Save Logical Consistency"
Click: "DD.Sec2_LogConSave"
)
(RectD.687
Left: 4.00000000000000
Top: 93.00000000000000
Right: 398.00000000000000
Bottom: 16.00000000000000
)
(RectD.688
Left: 404.00000000000000
Top: 50.00000000000000
Right: 548.00000000000000
Bottom: 24.00000000000000
)
(RectD.689
Left: 404.00000000000000
Top: 84.00000000000000
Right: 548.00000000000000
Bottom: 58.00000000000000
)
(CPanel.690
InternalName: "Sec2_PanComRep"
Child: 674
Child: 691
Child: 692
Constraints: 0x55
ResBox: 693
ResBox: 694
ResBox: 695
Label: "2.3 Completeness_Report"
VisibleBorder: 1
Listening: 1
)
(LButn.691
InternalName: "Sec2_ButtComRepRet"
Label: "Retrieve Completeness"
Click: "DD.Sec2_ComRepRet"
)
(LButn.692
InternalName: "Sec2_ButtComRepSave"
Label: "Save Completeness"
Click: "DD.Sec2_ComRepSave"
)
(RectD.693
Left: 4.00000000000000
Top: 94.00000000000000
Right: 398.00000000000000
Bottom: 17.00000000000000
)
(RectD.694
Left: 404.00000000000000
Top: 52.00000000000000
Right: 548.00000000000000
Bottom: 26.00000000000000
)
(RectD.695
Left: 404.00000000000000
Top: 86.00000000000000
Right: 548.00000000000000
Bottom: 60.00000000000000
)
(CPanel.696
InternalName: "Sec2_PanHorPos"
Child: 675
Child: 697
Child: 698
Child: 676
Child: 699
Child: 700
Child: 701
Child: 702
Constraints: 0x55
ResBox: 703
ResBox: 704
ResBox: 705
ResBox: 706
ResBox: 707
ResBox: 708
ResBox: 709
ResBox: 710
Label: "2.4 Positional_Accuracy"
VisibleBorder: 1
Listening: 1
)
(LButn.697
InternalName: "Sec2_ButtHorPosRet"
Label: "Retrieve Horizontal"
Click: "DD.Sec2_HorRepRet"
)
(LButn.698
InternalName: "Sec2_ButtHorRepSave"
Label: "Save Horizontal"
Click: "DD.Sec2_HorRepSave"
)
(LButn.699
InternalName: "Sec2_ButtVerPosRet"
Label: "Retrieve Vertical"
Click: "DD.Sec2_VerPosRet"
)
(LButn.700
InternalName: "Sec2_ButtVerPosSave"
Label: "Save Vertical"
Click: "DD.Sec2_VerPosSave"
)
(TextLabel.701
InternalName: "aTextLabel2"
Constraints: 0x55
Label: "2.4.1.1 Horizontal_Positional_Accuracy_Report"
Listening: 1
)
(TextLabel.702
InternalName: "aTextLabel3"
Constraints: 0x55
Label: "2.4.1.2 Vertical_Positional_Accuracy_Report"
Listening: 1
)
(RectD.703
Left: 4.00000000000000
Top: 110.00000000000000
Right: 398.00000000000000
Bottom: 33.00000000000000
)
(RectD.704
Left: 404.00000000000000
Top: 66.00000000000000
Right: 548.00000000000000
Bottom: 40.00000000000000
)
(RectD.705
Left: 404.00000000000000
Top: 102.00000000000000
Right: 548.00000000000000
Bottom: 76.00000000000000
)
(RectD.706
Left: 4.00000000000000
Top: 198.00000000000000
Right: 398.00000000000000
Bottom: 121.00000000000000
)
(RectD.707
Left: 404.00000000000000
Top: 154.00000000000000
Right: 548.00000000000000
Bottom: 128.00000000000000
)
(RectD.708
Left: 404.00000000000000
Top: 189.00000000000000
Right: 548.00000000000000
Bottom: 163.00000000000000
)
(RectD.709
Left: 4.00000000000000
Top: 48.00000000000000
Right: 257.00000000000000
Bottom: 19.00000000000000
)
(RectD.710
Left: 4.00000000000000
Top: 141.00000000000000
Right: 227.00000000000000
Bottom: 112.00000000000000
)
(LButn.711
InternalName: "Sec2_ButtCont"
Label: "Continue Section 2"
Click: "DD.All_Cont"
)
(LButn.712
InternalName: "aLabelButton1"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.713
InternalName: "aLabelButton2"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.714
InternalName: "aLabelButton3"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(LButn.715
InternalName: "aLabelButton8"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.716
InternalName: "aLabelButton9"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.717
Left: 18.00000000000000
Top: 140.00000000000000
Right: 571.00000000000000
Bottom: 21.00000000000000
)
(RectD.718
Left: 18.00000000000000
Top: 232.00000000000000
Right: 571.00000000000000
Bottom: 130.00000000000000
)
(RectD.719
Left: 18.00000000000000
Top: 324.00000000000000
Right: 571.00000000000000
Bottom: 222.00000000000000
)
(RectD.720
Left: 18.00000000000000
Top: 516.00000000000000
Right: 571.00000000000000
Bottom: 314.00000000000000
)
(RectD.721
Left: 452.00000000000000
Top: 547.00000000000000
Right: 568.00000000000000
Bottom: 523.00000000000000
)
(RectD.722
Left: 313.00000000000000
Top: 547.00000000000000
Right: 429.00000000000000
Bottom: 523.00000000000000
)
(RectD.723
Left: 35.00000000000000
Top: 547.00000000000000
Right: 151.00000000000000
Bottom: 523.00000000000000
)
(RectD.724
Left: 174.00000000000000
Top: 547.00000000000000
Right: 290.00000000000000
Bottom: 523.00000000000000
)
(RectD.725
Left: 479.00000000000000
Top: 25.00000000000000
Right: 569.00000000000000
Bottom: 4.00000000000000
)
(RectD.726
Left: 379.00000000000000
Top: 25.00000000000000
Right: 469.00000000000000
Bottom: 4.00000000000000
)
(Nil.727
)
(AVDLog.728
Name: "Sec2.1"
X: 53
Y: 42
W: 568
H: 429
ConstrainedControlNames: 729
ConstrainedControlNames: 730
ConstrainedControlNames: 731
ConstrainedControlNames: 732
ConstrainedControlNames: 733
ConstrainedControlNames: 734
ConstrainedControlNames: 735
ConstrainedControlNames: 736
ConstrainedControlNames: 737
Constraints: 738
Constraints: 739
Constraints: 740
Constraints: 741
Constraints: 742
Constraints: 743
Constraints: 744
Constraints: 745
Constraints: 746
Server: 747
ControlPanel: 748
Title: "Section 2 Data_Quality_Information Continued"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 818
)
(AVStr.729
S: "Sec2.1_ButtCont"
)
(AVStr.730
S: "Sec2.1_ButtExit"
)
(AVStr.731
S: "Sec2.1_ButtBack"
)
(AVStr.732
S: "Sec2.1_ButtClear"
)
(AVStr.733
S: "aLabelButton7"
)
(AVStr.734
S: "aLabelButton9"
)
(AVStr.735
S: "aLabelButton101"
)
(AVStr.736
S: "aLabelButton10"
)
(AVStr.737
S: "aLabelButton11"
)
(Numb.738
N: 85.00000000000000
)
(Numb.739
N: 85.00000000000000
)
(Numb.740
N: 85.00000000000000
)
(Numb.741
N: 85.00000000000000
)
(Numb.742
N: 85.00000000000000
)
(Numb.743
N: 85.00000000000000
)
(Numb.744
N: 85.00000000000000
)
(Numb.745
N: 85.00000000000000
)
(Numb.746
N: 85.00000000000000
)
(Nil.747
)
(CPanel.748
Child: 749
Child: 750
Child: 751
Child: 752
Child: 753
Child: 809
Child: 810
ResBox: 811
ResBox: 812
ResBox: 813
ResBox: 814
ResBox: 815
ResBox: 816
ResBox: 817
Listening: 1
)
(LButn.749
InternalName: "Sec2.1_ButtCont"
Label: "Continue Section 2"
Click: "DD.All_Cont"
)
(LButn.750
InternalName: "Sec2.1_ButtExit"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.751
InternalName: "Sec2.1_ButtBack"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.752
InternalName: "Sec2.1_ButtClear"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(CPanel.753
InternalName: "aControlPanel4"
Child: 754
Child: 756
Child: 776
Child: 772
Child: 770
Child: 768
Child: 766
Child: 764
Child: 760
Child: 758
Child: 762
Child: 774
Child: 778
Child: 780
Child: 781
Child: 782
Child: 783
Child: 784
Child: 785
Child: 786
Child: 787
Constraints: 0x55
ResBox: 788
ResBox: 789
ResBox: 790
ResBox: 791
ResBox: 792
ResBox: 793
ResBox: 794
ResBox: 795
ResBox: 796
ResBox: 797
ResBox: 798
ResBox: 799
ResBox: 800
ResBox: 801
ResBox: 802
ResBox: 803
ResBox: 804
ResBox: 805
ResBox: 806
ResBox: 807
ResBox: 808
Label: "2.5 Lineage"
VisibleBorder: 1
Listening: 1
)
(TextLine.754
InternalName: "Sec2.1_TxtPubOrg"
Help: " the name of an organization(s) or individual(s)that developed the data set. "
Label: "8.1 Originators: (separate with a semi-colon)"
Constraints: 0x55
Listening: 1
TextType: 755
NextControl: 756
)
(AVEnum.755
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.756
InternalName: "Sec2.1_TxtPubDate"
Help: "when the data set is published or made available"
Label: "8.2 Publication Date (YYYYMMDD)"
Constraints: 0x55
Listening: 1
TextType: 757
NextControl: 758
)
(AVEnum.757
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.758
InternalName: "Sec2.1_TxtPubPlace"
Help: " the name of the city where the data set was published or released."
Label: "8.8.1 Publication_Place:"
Constraints: 0x55
Listening: 1
TextType: 759
NextControl: 760
)
(AVEnum.759
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.760
InternalName: "Sec2.1_TxtPublisher"
Help: " the name of the individual or organization that published the data"
Label: "8.8.2 Publisher:"
Constraints: 0x55
Listening: 1
TextType: 761
NextControl: 762
)
(AVEnum.761
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.762
InternalName: "Sec2.1_TxtOnline"
Help: " the name of an online computer resource that contains the data set."
Label: "8.10 Online_Linkage:"
Constraints: 0x55
Listening: 1
TextType: 763
NextControl: 764
)
(AVEnum.763
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.764
InternalName: "Sec2.1_TxtPubLWOrg"
Help: "organization(s) or individual(s) that developed the data set."
Label: "8.11.1 Larger_Work_Originator:"
Constraints: 0x55
Listening: 1
TextType: 765
NextControl: 766
)
(AVEnum.765
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.766
InternalName: "Sec2.1_TxtPubLWDate"
Help: "when the data set is published or made available ."
Label: "8.11.2 Larger_Work_Publication_Date:"
Constraints: 0x55
Listening: 1
TextType: 767
NextControl: 768
)
(AVEnum.767
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.768
InternalName: "Sec2.1_TxtPubLWTitle"
Help: " information identifying a larger work in which the data set is included."
Label: "8.11.4 Larger_Work_Title:"
Constraints: 0x55
Listening: 1
TextType: 769
NextControl: 770
)
(AVEnum.769
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.770
InternalName: "Sec2.1_TxtPubLWPlace"
Help: "city where the data set was published or released."
Label: "8.11.8.1 Larger_Work_Publication_Place:"
Constraints: 0x55
Listening: 1
TextType: 771
NextControl: 772
)
(AVEnum.771
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.772
InternalName: "Sec2.1_TxtPubLWPub"
Help: " name of the individual or organization that published the data"
Label: "8.11.8.2 Larger_Work_Publisher:"
Constraints: 0x55
Listening: 1
TextType: 773
NextControl: 774
)
(AVEnum.773
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.774
InternalName: "Sec2.1_TxtLWOnline"
Help: " online computer resource that contains the data "
Label: "8.11.8.10 Larger_Work_Online_Linkage:"
Constraints: 0x55
Listening: 1
TextType: 775
NextControl: 776
)
(AVEnum.775
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.776
InternalName: "Sec2.1_TxtPubTitle"
Help: "enter the name by which the data set is known."
Label: "8.4 Title"
Constraints: 0x55
Listening: 1
TextType: 777
NextControl: 778
)
(AVEnum.777
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.778
InternalName: "Sec2.1_TxtEd"
Help: "the version of the title."
Label: "8.5 Edition"
Constraints: 0x55
Listening: 1
TextType: 779
NextControl: 754
)
(AVEnum.779
Name: "TEXTLINE_TYPE_ALL"
)
(TextLabel.780
InternalName: "aTextLabel4"
Constraints: 0x55
Label: "2.5.1.1 Source_Citation"
Listening: 1
)
(TextLabel.781
InternalName: "aTextLabel44"
Constraints: 0x55
Label: "Default file is citation.dbf."
Listening: 1
)
(TextLabel.782
InternalName: "aTextLabel5"
Constraints: 0x55
Label: "Create new file."
Listening: 1
)
(TextLabel.783
InternalName: "aTextLabel6"
Constraints: 0x55
Label: "Add new data to existing file."
Listening: 1
)
(LButn.784
InternalName: "aLabelButton7"
Label: "Append Citation Information"
Click: "DD.AllPub_Append"
)
(TextLabel.785
InternalName: "aTextLabel8"
Constraints: 0x55
Label: "Retrieve data from existing file."
Listening: 1
)
(LButn.786
InternalName: "aLabelButton9"
Label: "Save Citation Information"
Click: "DD.AllPub_New"
)
(LButn.787
InternalName: "aLabelButton101"
Label: "Retrieve Citation Information"
Click: "DD.All_PubRet"
)
(RectD.788
Left: 11.00000000000000
Top: 106.00000000000000
Right: 378.00000000000000
Bottom: 86.00000000000000
)
(RectD.789
Left: 11.00000000000000
Top: 129.00000000000000
Right: 378.00000000000000
Bottom: 109.00000000000000
)
(RectD.790
Left: 11.00000000000000
Top: 60.00000000000000
Right: 378.00000000000000
Bottom: 40.00000000000000
)
(RectD.791
Left: 11.00000000000000
Top: 311.00000000000000
Right: 378.00000000000000
Bottom: 291.00000000000000
)
(RectD.792
Left: 11.00000000000000
Top: 288.00000000000000
Right: 378.00000000000000
Bottom: 268.00000000000000
)
(RectD.793
Left: 11.00000000000000
Top: 266.00000000000000
Right: 378.00000000000000
Bottom: 246.00000000000000
)
(RectD.794
Left: 11.00000000000000
Top: 243.00000000000000
Right: 378.00000000000000
Bottom: 223.00000000000000
)
(RectD.795
Left: 11.00000000000000
Top: 220.00000000000000
Right: 378.00000000000000
Bottom: 200.00000000000000
)
(RectD.796
Left: 11.00000000000000
Top: 174.00000000000000
Right: 378.00000000000000
Bottom: 154.00000000000000
)
(RectD.797
Left: 11.00000000000000
Top: 151.00000000000000
Right: 378.00000000000000
Bottom: 131.00000000000000
)
(RectD.798
Left: 11.00000000000000
Top: 197.00000000000000
Right: 378.00000000000000
Bottom: 177.00000000000000
)
(RectD.799
Left: 11.00000000000000
Top: 334.00000000000000
Right: 378.00000000000000
Bottom: 314.00000000000000
)
(RectD.800
Left: 11.00000000000000
Top: 83.00000000000000
Right: 378.00000000000000
Bottom: 63.00000000000000
)
(RectD.801
Left: 4.00000000000000
Top: 37.00000000000000
Right: 371.00000000000000
Bottom: 20.00000000000000
)
(RectD.802
Left: 403.00000000000000
Top: 283.00000000000000
Right: 528.00000000000000
Bottom: 264.00000000000000
)
(RectD.803
Left: 427.00000000000000
Top: 173.00000000000000
Right: 504.00000000000000
Bottom: 146.00000000000000
)
(RectD.804
Left: 396.00000000000000
Top: 249.00000000000000
Right: 534.00000000000000
Bottom: 222.00000000000000
)
(RectD.805
Left: 386.00000000000000
Top: 217.00000000000000
Right: 545.00000000000000
Bottom: 188.00000000000000
)
(RectD.806
Left: 389.00000000000000
Top: 90.00000000000000
Right: 542.00000000000000
Bottom: 70.00000000000000
)
(RectD.807
Left: 386.00000000000000
Top: 141.00000000000000
Right: 545.00000000000000
Bottom: 112.00000000000000
)
(RectD.808
Left: 386.00000000000000
Top: 65.00000000000000
Right: 545.00000000000000
Bottom: 36.00000000000000
)
(LButn.809
InternalName: "aLabelButton10"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.810
InternalName: "aLabelButton11"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.811
Left: 442.00000000000000
Top: 415.00000000000000
Right: 557.00000000000000
Bottom: 386.00000000000000
)
(RectD.812
Left: 14.00000000000000
Top: 415.00000000000000
Right: 128.00000000000000
Bottom: 386.00000000000000
)
(RectD.813
Left: 300.00000000000000
Top: 415.00000000000000
Right: 414.00000000000000
Bottom: 386.00000000000000
)
(RectD.814
Left: 157.00000000000000
Top: 415.00000000000000
Right: 271.00000000000000
Bottom: 386.00000000000000
)
(RectD.815
Left: 5.00000000000000
Top: 374.00000000000000
Right: 563.00000000000000
Bottom: 31.00000000000000
)
(RectD.816
Left: 471.00000000000000
Top: 36.00000000000000
Right: 561.00000000000000
Bottom: 15.00000000000000
)
(RectD.817
Left: 371.00000000000000
Top: 36.00000000000000
Right: 461.00000000000000
Bottom: 15.00000000000000
)
(Nil.818
)
(AVDLog.819
Name: "Sec2.2"
X: 53
Y: 42
W: 563
H: 477
ConstrainedControlNames: 820
ConstrainedControlNames: 821
ConstrainedControlNames: 822
ConstrainedControlNames: 823
ConstrainedControlNames: 824
ConstrainedControlNames: 825
ConstrainedControlNames: 826
ConstrainedControlNames: 827
ConstrainedControlNames: 828
ConstrainedControlNames: 829
ConstrainedControlNames: 830
Constraints: 831
Constraints: 832
Constraints: 833
Constraints: 834
Constraints: 835
Constraints: 836
Constraints: 837
Constraints: 838
Constraints: 839
Constraints: 840
Constraints: 841
Server: 401
ControlPanel: 842
Title: "Section 2 Data_Quality_Information Contiued"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 895
)
(AVStr.820
S: "aLabelButton18"
)
(AVStr.821
S: "aLabelButton19"
)
(AVStr.822
S: "Sec2.2_ButtSoConSave"
)
(AVStr.823
S: "Sec2.2_ButtSoConRet"
)
(AVStr.824
S: "aLabelButton21"
)
(AVStr.825
S: "aLabelButton22"
)
(AVStr.826
S: "aLabelButton23"
)
(AVStr.827
S: "aLabelButton24"
)
(AVStr.828
S: "aLabelButton1"
)
(AVStr.829
S: "aLabelButton12"
)
(AVStr.830
S: "aLabelButton13"
)
(Numb.831
N: 85.00000000000000
)
(Numb.832
N: 85.00000000000000
)
(Numb.833
N: 85.00000000000000
)
(Numb.834
N: 85.00000000000000
)
(Numb.835
N: 85.00000000000000
)
(Numb.836
N: 85.00000000000000
)
(Numb.837
N: 85.00000000000000
)
(Numb.838
N: 85.00000000000000
)
(Numb.839
N: 85.00000000000000
)
(Numb.840
N: 85.00000000000000
)
(Numb.841
N: 85.00000000000000
)
(CPanel.842
Child: 843
Child: 865
Child: 869
Child: 855
Child: 847
Child: 845
Child: 875
Child: 876
Child: 877
Child: 878
Child: 879
Child: 880
Child: 881
ResBox: 882
ResBox: 883
ResBox: 884
ResBox: 885
ResBox: 886
ResBox: 887
ResBox: 888
ResBox: 889
ResBox: 890
ResBox: 891
ResBox: 892
ResBox: 893
ResBox: 894
Listening: 1
)
(CPanel.843
InternalName: "aControlPanel20"
Child: 844
Child: 858
Child: 859
Child: 860
Constraints: 0x55
ResBox: 861
ResBox: 862
ResBox: 863
ResBox: 864
Label: "2.5.1.1 Source_Citation Continued"
VisibleBorder: 1
Listening: 1
)
(TextBox.844
InternalName: "Sec2.2_TBoxCitDet"
Help: "other information required to complete the citation."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 845
)
(TextLine.845
InternalName: "Sec2.2_TxtLinSSD"
Help: "the denominator of the representative fraction on a map"
Label: "2.5.1.2 Source_Scale_Denominator:"
Constraints: 0x55
Listening: 1
TextType: 846
NextControl: 847
)
(AVEnum.846
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.847
InternalName: "Sec2.2_TxtMed"
Help: "the medium of the source data set."
Label: "2.5.1.3 Type_of_Source_Media:"
Constraints: 0x55
Listening: 1
TextType: 848
NextControl: 849
)
(AVEnum.848
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.849
InternalName: "Sec2.2_TxtTBeg"
Help: "the first year (optionally month, or month and day) of the event. (YYYYMMDD)"
Label: "9.3.1 Time_Period_Beginning_Date:"
Constraints: 0x55
Listening: 1
TextType: 850
NextControl: 851
)
(AVEnum.850
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.851
InternalName: "Sec2.2_TxtTEnd"
Help: "the last year (optionally month, or month and day) of the event. (YYYYMMDD)"
Label: "9.3.3 Time_Period_Ending_Date:"
Constraints: 0x55
Listening: 1
TextType: 852
NextControl: 853
)
(AVEnum.852
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.853
InternalName: "Sec2.2_TxtCur"
Help: " the basis on which the source time period of content information of the source data set is determined."
Label: "2.5.1.4.1 Source_Currentness_Reference:"
Constraints: 0x55
Listening: 1
TextType: 854
NextControl: 855
)
(AVEnum.854
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.855
InternalName: "Sec2.2_TxtCit"
Help: "short-form alias for the source citation."
Label: "2.5.1.5 Source_Citation_Abbreviation:"
Constraints: 0x55
Listening: 1
TextType: 856
NextControl: 857
)
(AVEnum.856
Name: "TEXTLINE_TYPE_ALL"
)
(TextBox.857
InternalName: "Sec2.2_TBoxSoCon"
Help: "brief statement identifying the information contributed by the source to the data set."
Listening: 1
Constraints: 0x55
VerticalScroll: 1
NextControl: 844
)
(LButn.858
InternalName: "aLabelButton18"
Label: "Retrieve Citation"
Click: "DD.Sec2.2_CitDetText"
)
(LButn.859
InternalName: "aLabelButton19"
Label: "Save Citation"
Click: "DD.Sec2.2_CitDetSave"
)
(TextLabel.860
InternalName: "aTextLabel7"
Constraints: 0x55
Label: "8.9 Other_Citation_Details"
Listening: 1
)
(RectD.861
Left: 11.00000000000000
Top: 115.00000000000000
Right: 398.00000000000000
Bottom: 38.00000000000000
)
(RectD.862
Left: 406.00000000000000
Top: 75.00000000000000
Right: 546.00000000000000
Bottom: 45.00000000000000
)
(RectD.863
Left: 406.00000000000000
Top: 115.00000000000000
Right: 546.00000000000000
Bottom: 85.00000000000000
)
(RectD.864
Left: 7.00000000000000
Top: 48.00000000000000
Right: 136.00000000000000
Bottom: 20.00000000000000
)
(CPanel.865
InternalName: "aControlPanel14"
Child: 853
Child: 851
Child: 849
Constraints: 0x55
ResBox: 866
ResBox: 867
ResBox: 868
Label: "2.5.1.4 Source_Time_Period_of_Content"
VisibleBorder: 1
Listening: 1
)
(RectD.866
Left: 5.00000000000000
Top: 65.00000000000000
Right: 553.00000000000000
Bottom: 45.00000000000000
)
(RectD.867
Left: 293.00000000000000
Top: 40.00000000000000
Right: 553.00000000000000
Bottom: 20.00000000000000
)
(RectD.868
Left: 19.00000000000000
Top: 39.00000000000000
Right: 291.00000000000000
Bottom: 19.00000000000000
)
(CPanel.869
InternalName: "aControlPanel9"
Child: 870
Child: 871
Child: 857
Constraints: 0x55
ResBox: 872
ResBox: 873
ResBox: 874
Label: "2.5.1.6 Source_Contribution"
VisibleBorder: 1
Listening: 1
)
(LButn.870
InternalName: "Sec2.2_ButtSoConSave"
Label: "Save Source"
Click: "DD.Sec2.2_SoConSave"
)
(LButn.871
InternalName: "Sec2.2_ButtSoConRet"
Label: "Retrieve Source"
Click: "DD.Sec2.2_SoConText"
)
(RectD.872
Left: 408.00000000000000
Top: 86.00000000000000
Right: 548.00000000000000
Bottom: 56.00000000000000
)
(RectD.873
Left: 408.00000000000000
Top: 48.00000000000000
Right: 548.00000000000000
Bottom: 18.00000000000000
)
(RectD.874
Left: 11.00000000000000
Top: 89.00000000000000
Right: 398.00000000000000
Bottom: 12.00000000000000
)
(LButn.875
InternalName: "aLabelButton21"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(LButn.876
InternalName: "aLabelButton22"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.877
InternalName: "aLabelButton23"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.878
InternalName: "aLabelButton24"
Label: "Continue Section 2"
Click: "DD.All_Cont"
)
(LButn.879
InternalName: "aLabelButton1"
Label: "Create Another Source Citation"
Click: "DD.Sec2.2_CreateSource"
)
(LButn.880
InternalName: "aLabelButton12"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.881
InternalName: "aLabelButton13"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.882
Left: 5.00000000000000
Top: 150.00000000000000
Right: 561.00000000000000
Bottom: 27.00000000000000
)
(RectD.883
Left: 5.00000000000000
Top: 249.00000000000000
Right: 561.00000000000000
Bottom: 180.00000000000000
)
(RectD.884
Left: 5.00000000000000
Top: 383.00000000000000
Right: 561.00000000000000
Bottom: 280.00000000000000
)
(RectD.885
Left: 8.00000000000000
Top: 279.00000000000000
Right: 376.00000000000000
Bottom: 259.00000000000000
)
(RectD.886
Left: 268.00000000000000
Top: 181.00000000000000
Right: 561.00000000000000
Bottom: 161.00000000000000
)
(RectD.887
Left: 8.00000000000000
Top: 181.00000000000000
Right: 255.00000000000000
Bottom: 161.00000000000000
)
(RectD.888
Left: 157.00000000000000
Top: 469.00000000000000
Right: 271.00000000000000
Bottom: 440.00000000000000
)
(RectD.889
Left: 299.00000000000000
Top: 469.00000000000000
Right: 413.00000000000000
Bottom: 440.00000000000000
)
(RectD.890
Left: 14.00000000000000
Top: 469.00000000000000
Right: 128.00000000000000
Bottom: 440.00000000000000
)
(RectD.891
Left: 442.00000000000000
Top: 469.00000000000000
Right: 556.00000000000000
Bottom: 440.00000000000000
)
(RectD.892
Left: 181.00000000000000
Top: 421.00000000000000
Right: 377.00000000000000
Bottom: 388.00000000000000
)
(RectD.893
Left: 469.00000000000000
Top: 31.00000000000000
Right: 559.00000000000000
Bottom: 9.00000000000000
)
(RectD.894
Left: 369.00000000000000
Top: 31.00000000000000
Right: 459.00000000000000
Bottom: 9.00000000000000
)
(Nil.895
)
(AVDLog.896
Name: "Sec2.3"
X: 53
Y: 42
W: 629
H: 539
ConstrainedControlNames: 897
ConstrainedControlNames: 898
ConstrainedControlNames: 899
ConstrainedControlNames: 900
ConstrainedControlNames: 901
ConstrainedControlNames: 902
ConstrainedControlNames: 903
ConstrainedControlNames: 904
ConstrainedControlNames: 905
ConstrainedControlNames: 906
ConstrainedControlNames: 907
ConstrainedControlNames: 908
ConstrainedControlNames: 909
Constraints: 910
Constraints: 911
Constraints: 912
Constraints: 913
Constraints: 914
Constraints: 915
Constraints: 916
Constraints: 917
Constraints: 918
Constraints: 919
Constraints: 920
Constraints: 921
Constraints: 922
Server: 923
ControlPanel: 924
Title: "Section 2 Data_Quality_Information Contiued"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.Sec2.3_Open"
DefaultButton: 1012
)
(AVStr.897
S: "Sec2.3_ButtProCreate"
)
(AVStr.898
S: "Sec2.3_ButtProSave"
)
(AVStr.899
S: "Sec2.2_ButProRet"
)
(AVStr.900
S: "aLabelButton3"
)
(AVStr.901
S: "aLabelButton4"
)
(AVStr.902
S: "aLabelButton6"
)
(AVStr.903
S: "aLabelButton7"
)
(AVStr.904
S: "Sec2.3_ButtCont"
)
(AVStr.905
S: "Sec2.3_ButtBack"
)
(AVStr.906
S: "Sec2.3_ButtExit"
)
(AVStr.907
S: "Sec2.2_ButtClear"
)
(AVStr.908
S: "aLabelButton14"
)
(AVStr.909
S: "aLabelButton15"
)
(Numb.910
N: 85.00000000000000
)
(Numb.911
N: 85.00000000000000
)
(Numb.912
N: 85.00000000000000
)
(Numb.913
N: 85.00000000000000
)
(Numb.914
N: 85.00000000000000
)
(Numb.915
N: 85.00000000000000
)
(Numb.916
N: 85.00000000000000
)
(Numb.917
N: 85.00000000000000
)
(Numb.918
N: 85.00000000000000
)
(Numb.919
N: 85.00000000000000
)
(Numb.920
N: 85.00000000000000
)
(Numb.921
N: 85.00000000000000
)
(Numb.922
N: 85.00000000000000
)
(Nil.923
)
(CPanel.924
Child: 925
Child: 969
Child: 996
Child: 997
Child: 998
Child: 999
Child: 1000
Child: 1001
Child: 1002
ResBox: 1003
ResBox: 1004
ResBox: 1005
ResBox: 1006
ResBox: 1007
ResBox: 1008
ResBox: 1009
ResBox: 1010
ResBox: 1011
Listening: 1
)
(CPanel.925
InternalName: "aControlPanel2"
Child: 926
Child: 957
Child: 958
Child: 959
Child: 929
Child: 927
Child: 931
Child: 960
Constraints: 0x55
ResBox: 961
ResBox: 962
ResBox: 963
ResBox: 964
ResBox: 965
ResBox: 966
ResBox: 967
ResBox: 968
Label: "2.5.2.1 Process_Step_Description"
VisibleBorder: 1
Listening: 1
)
(TextBox.926
InternalName: "Sec2.3_TBoxPro"
Help: "an explanation of the event and related parameters or tolerances."
Listening: 1
Constraints: 0x55
Changed: "DD.Sec2.3_ProChange"
VerticalScroll: 1
NextControl: 927
)
(TextLine.927
InternalName: "Sec2.3_TxtSrcUsed"
Label: "2.5.2.2 Source_Used_Citation_Abbreviation:"
Constraints: 0x55
Listening: 1
TextType: 928
NextControl: 929
)
(AVEnum.928
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.929
InternalName: "Sec2.3_TxtProDate"
Help: "the date when the event was completed. (YYYYMMDD)"
Label: "2.5.2.3 Process_Date:"
Constraints: 0x55
Listening: 1
TextType: 930
NextControl: 931
)
(AVEnum.930
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.931
InternalName: "Sec2.3_TxtSrcPro"
Label: "2.5.2.5 Source_Produced_Citation_Abbreviation:"
Constraints: 0x55
Listening: 1
TextType: 932
NextControl: 933
)
(AVEnum.932
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.933
InternalName: "Sec2.3_TxtOrg"
Help: "the organization associated with the data set."
Label: "10.1.2 Contact_Organization:"
Constraints: 0x55
Listening: 1
TextType: 934
NextControl: 935
)
(AVEnum.934
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.935
InternalName: "Sec2.3_TxtPer"
Help: "the name of the individual associated with the data set."
Label: "10.1.1 Contact_Person:"
Constraints: 0x55
Listening: 1
TextType: 936
NextControl: 937
)
(AVEnum.936
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.937
InternalName: "Sec2.3_TxtPos"
Help: "the title of individual associated with the data set."
Label: "10.3 Contact_Position:"
Constraints: 0x55
Listening: 1
TextType: 938
NextControl: 939
)
(AVEnum.938
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.939
InternalName: "Sec2.3_TxtAdd"
Help: "an address line for the address."
Label: "10.4.2 Address:"
Constraints: 0x55
Listening: 1
TextType: 940
NextControl: 941
)
(AVEnum.940
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.941
InternalName: "Sec2.3_TxtCity"
Help: "the city of the address."
Label: "10.4.3 City:"
Constraints: 0x55
Listening: 1
TextType: 942
NextControl: 943
)
(AVEnum.942
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.943
InternalName: "Sec2.3_TxtState"
Help: "the state or province of the address."
Label: "10.4.4 State_or_Province:"
Constraints: 0x55
Listening: 1
TextType: 944
NextControl: 945
)
(AVEnum.944
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.945
InternalName: "Sec2.3_TxtPCode"
Help: "the ZIP or other pos"
Label: "10.4.5 Postal_Code:"
Constraints: 0x55
Listening: 1
TextType: 946
NextControl: 947
)
(AVEnum.946
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.947
InternalName: "Sec2.3_TxtCountry"
Help: "the country of the address."
Label: "10.4.6 Country:"
Constraints: 0x55
Listening: 1
TextType: 948
NextControl: 949
)
(AVEnum.948
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.949
InternalName: "Sec2.3_TxtTele"
Help: "the telephone number for the contact organization or individual."
Label: "10.5 Contact_Voice_Telephone:"
Constraints: 0x55
Listening: 1
TextType: 950
NextControl: 951
)
(AVEnum.950
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.951
InternalName: "Sec2.3_TxtFax"
Help: "number of facsimile machine of the organization or individual."
Label: "10.7 Contact_Facsimile_Telephone:"
Constraints: 0x55
Listening: 1
TextType: 952
NextControl: 953
)
(AVEnum.952
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.953
InternalName: "Sec2.3_TxtEmail"
Help: "electronic mail address for the organization or individual."
Label: "10.8 Contact_Electronic_Mail_Address:"
Constraints: 0x55
Listening: 1
TextType: 954
NextControl: 955
)
(AVEnum.954
Name: "TEXTLINE_TYPE_ALL"
)
(TextLine.955
InternalName: "Sec2.3_TxtHours"
Help: "time period when individuals can speak to the organization or individual."
Label: "10.9 Hours_of_Service:"
Constraints: 0x55
Listening: 1
TextType: 956
NextControl: 933
)
(AVEnum.956
Name: "TEXTLINE_TYPE_ALL"
)
(LButn.957
InternalName: "Sec2.3_ButtProCreate"
Label: "Add Another Process"
Click: "DD.Sec2.3_ProCreate"
)
(LButn.958
InternalName: "Sec2.3_ButtProSave"
Label: "Save Process"
Click: "DD.Sec2.3_ProSave"
)
(LButn.959
InternalName: "Sec2.2_ButProRet"
Label: "Retrieve Process"
Click: "DD.Sec2.3_ProRet"
)
(LButn.960
InternalName: "aLabelButton3"
Label: "Edit Different Process"
Click: "DD.Sec2.3_Edit"
)
(RectD.961
Left: 5.00000000000000
Top: 92.00000000000000
Right: 389.00000000000000
Bottom: 20.00000000000000
)
(RectD.962
Left: 397.00000000000000
Top: 116.00000000000000
Right: 538.00000000000000
Bottom: 94.00000000000000
)
(RectD.963
Left: 397.00000000000000
Top: 74.00000000000000
Right: 538.00000000000000
Bottom: 52.00000000000000
)
(RectD.964
Left: 397.00000000000000
Top: 47.00000000000000
Right: 538.00000000000000
Bottom: 25.00000000000000
)
(RectD.965
Left: 5.00000000000000
Top: 137.00000000000000
Right: 385.00000000000000
Bottom: 117.00000000000000
)
(RectD.966
Left: 5.00000000000000
Top: 113.00000000000000
Right: 385.00000000000000
Bottom: 93.00000000000000
)
(RectD.967
Left: 5.00000000000000
Top: 160.00000000000000
Right: 385.00000000000000
Bottom: 140.00000000000000
)
(RectD.968
Left: 397.00000000000000
Top: 157.00000000000000
Right: 538.00000000000000
Bottom: 135.00000000000000
)
(CPanel.969
InternalName: "Sec2.2_PanProInfo"
Child: 933
Child: 935
Child: 937
Child: 939
Child: 941
Child: 943
Child: 945
Child: 947
Child: 949
Child: 951
Child: 953
Child: 955
Child: 970
Child: 971
Child: 972
Child: 973
Child: 974
Child: 975
Child: 976
Constraints: 0x55
ResBox: 977
ResBox: 978
ResBox: 979
ResBox: 980
ResBox: 981
ResBox: 982
ResBox: 983
ResBox: 984
ResBox: 985
ResBox: 986
ResBox: 987
ResBox: 988
ResBox: 989
ResBox: 990
ResBox: 991
ResBox: 992
ResBox: 993
ResBox: 994
ResBox: 995
Label: "2.5.2.6 Process_Step_Contact_Information"
VisibleBorder: 1
Listening: 1
)
(LButn.970
InternalName: "aLabelButton4"
Label: "Append Contact Information"
Click: "DD.All_ConAppend"
)
(TextLabel.971
InternalName: "aTextLabel5"
Constraints: 0x55
Label: "Default file is contact.dbf."
Listening: 1
)
(LButn.972
InternalName: "aLabelButton6"
Label: "Retrieve Contact Information"
Click: "DD.All_ConRet"
)
(LButn.973
InternalName: "aLabelButton7"
Label: "Save Contact Information"
Click: "DD.All_ConNew"
)
(TextLabel.974
InternalName: "aTextLabel11"
Constraints: 0x55
Label: "Retrieve data from existing file."
Listening: 1
)
(TextLabel.975
InternalName: "aTextLabel12"
Constraints: 0x55
Label: "Create new file."
Listening: 1
)
(TextLabel.976
InternalName: "aTextLabel13"
Constraints: 0x55
Label: "Add new data to existing file."
Listening: 1
)
(RectD.977
Left: 13.00000000000000
Top: 44.00000000000000
Right: 383.00000000000000
Bottom: 24.00000000000000
)
(RectD.978
Left: 13.00000000000000
Top: 64.00000000000000
Right: 383.00000000000000
Bottom: 44.00000000000000
)
(RectD.979
Left: 13.00000000000000
Top: 86.00000000000000
Right: 383.00000000000000
Bottom: 66.00000000000000
)
(RectD.980
Left: 13.00000000000000
Top: 107.00000000000000
Right: 383.00000000000000
Bottom: 87.00000000000000
)
(RectD.981
Left: 13.00000000000000
Top: 128.00000000000000
Right: 383.00000000000000
Bottom: 108.00000000000000
)
(RectD.982
Left: 13.00000000000000
Top: 148.00000000000000
Right: 383.00000000000000
Bottom: 128.00000000000000
)
(RectD.983
Left: 13.00000000000000
Top: 170.00000000000000
Right: 383.00000000000000
Bottom: 150.00000000000000
)
(RectD.984
Left: 13.00000000000000
Top: 191.00000000000000
Right: 383.00000000000000
Bottom: 171.00000000000000
)
(RectD.985
Left: 13.00000000000000
Top: 212.00000000000000
Right: 383.00000000000000
Bottom: 192.00000000000000
)
(RectD.986
Left: 13.00000000000000
Top: 232.00000000000000
Right: 383.00000000000000
Bottom: 212.00000000000000
)
(RectD.987
Left: 13.00000000000000
Top: 254.00000000000000
Right: 383.00000000000000
Bottom: 234.00000000000000
)
(RectD.988
Left: 13.00000000000000
Top: 275.00000000000000
Right: 383.00000000000000
Bottom: 255.00000000000000
)
(RectD.989
Left: 392.00000000000000
Top: 193.00000000000000
Right: 547.00000000000000
Bottom: 157.00000000000000
)
(RectD.990
Left: 410.00000000000000
Top: 254.00000000000000
Right: 529.00000000000000
Bottom: 231.00000000000000
)
(RectD.991
Left: 392.00000000000000
Top: 61.00000000000000
Right: 547.00000000000000
Bottom: 25.00000000000000
)
(RectD.992
Left: 392.00000000000000
Top: 127.00000000000000
Right: 547.00000000000000
Bottom: 91.00000000000000
)
(RectD.993
Left: 395.00000000000000
Top: 86.00000000000000
Right: 545.00000000000000
Bottom: 66.00000000000000
)
(RectD.994
Left: 432.00000000000000
Top: 162.00000000000000
Right: 508.00000000000000
Bottom: 135.00000000000000
)
(RectD.995
Left: 401.00000000000000
Top: 225.00000000000000
Right: 538.00000000000000
Bottom: 198.00000000000000
)
(LButn.996
InternalName: "Sec2.3_ButtCont"
Label: "Goto Section 3"
Click: "DD.All_Goto"
)
(LButn.997
InternalName: "Sec2.3_ButtBack"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.998
InternalName: "Sec2.3_ButtExit"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.999
InternalName: "Sec2.2_ButtClear"
Label: "Clear Form"
Click: "DD.All_Clear"
)
(TextLabel.1000
InternalName: "aTextLabel9"
Constraints: 0x55
Label: "2.5.2 Process_Step"
Listening: 1
)
(LButn.1001
InternalName: "aLabelButton14"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.1002
InternalName: "aLabelButton15"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.1003
Left: 8.00000000000000
Top: 210.00000000000000
Right: 568.00000000000000
Bottom: 42.00000000000000
)
(RectD.1004
Left: 8.00000000000000
Top: 488.00000000000000
Right: 568.00000000000000
Bottom: 207.00000000000000
)
(RectD.1005
Left: 447.00000000000000
Top: 531.00000000000000
Right: 560.00000000000000
Bottom: 502.00000000000000
)
(RectD.1006
Left: 304.00000000000000
Top: 531.00000000000000
Right: 418.00000000000000
Bottom: 502.00000000000000
)
(RectD.1007
Left: 19.00000000000000
Top: 531.00000000000000
Right: 133.00000000000000
Bottom: 502.00000000000000
)
(RectD.1008
Left: 162.00000000000000
Top: 531.00000000000000
Right: 275.00000000000000
Bottom: 502.00000000000000
)
(RectD.1009
Left: 7.00000000000000
Top: 38.00000000000000
Right: 103.00000000000000
Bottom: 9.00000000000000
)
(RectD.1010
Left: 476.00000000000000
Top: 40.00000000000000
Right: 566.00000000000000
Bottom: 19.00000000000000
)
(RectD.1011
Left: 376.00000000000000
Top: 40.00000000000000
Right: 466.00000000000000
Bottom: 19.00000000000000
)
(Nil.1012
)
(AVDLog.1013
Name: "Sec3"
X: 53
Y: 42
W: 421
H: 208
ConstrainedControlNames: 1014
ConstrainedControlNames: 1015
ConstrainedControlNames: 1016
ConstrainedControlNames: 1017
ConstrainedControlNames: 1018
ConstrainedControlNames: 1019
Constraints: 1020
Constraints: 1021
Constraints: 1022
Constraints: 1023
Constraints: 1024
Constraints: 1025
Server: 1026
ControlPanel: 1027
Title: "Section 3 Spatial_Data_Organization_Information"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultButton: 1044
)
(AVStr.1014
S: "Sec3_ButtBack"
)
(AVStr.1015
S: "Sec3_ButtGoto"
)
(AVStr.1016
S: "Sec3_ButtExit"
)
(AVStr.1017
S: "aLabelButton4"
)
(AVStr.1018
S: "aLabelButton16"
)
(AVStr.1019
S: "aLabelButton17"
)
(Numb.1020
N: 85.00000000000000
)
(Numb.1021
N: 85.00000000000000
)
(Numb.1022
N: 85.00000000000000
)
(Numb.1023
N: 85.00000000000000
)
(Numb.1024
N: 85.00000000000000
)
(Numb.1025
N: 85.00000000000000
)
(Nil.1026
)
(CPanel.1027
Child: 1028
Child: 1037
Child: 1038
Child: 1039
ResBox: 1040
ResBox: 1041
ResBox: 1042
ResBox: 1043
Listening: 1
)
(CPanel.1028
InternalName: "aControlPanel5"
Child: 1029
Child: 1030
Child: 1031
Child: 1032
Constraints: 0x55
ResBox: 1033
ResBox: 1034
ResBox: 1035
ResBox: 1036
VisibleBorder: 1
Listening: 1
)
(TextLabel.1029
InternalName: "Sec3_LabInfo"
Constraints: 0x55
Label: "This section will read the data file to gather information."
Listening: 1
)
(LButn.1030
InternalName: "Sec3_ButtBack"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.1031
InternalName: "Sec3_ButtGoto"
Label: "Goto Section 4"
Click: "DD.All_Goto"
)
(LButn.1032
InternalName: "Sec3_ButtExit"
Label: "Exit"
Click: "DD.All_Exit"
)
(RectD.1033
Left: 13.00000000000000
Top: 62.00000000000000
Right: 424.00000000000000
Bottom: 25.00000000000000
)
(RectD.1034
Left: 141.00000000000000
Top: 90.00000000000000
Right: 248.00000000000000
Bottom: 64.00000000000000
)
(RectD.1035
Left: 272.00000000000000
Top: 90.00000000000000
Right: 380.00000000000000
Bottom: 64.00000000000000
)
(RectD.1036
Left: 9.00000000000000
Top: 90.00000000000000
Right: 116.00000000000000
Bottom: 64.00000000000000
)
(LButn.1037
InternalName: "aLabelButton4"
Label: "Section Help"
)
(LButn.1038
InternalName: "aLabelButton16"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(LButn.1039
InternalName: "aLabelButton17"
Label: "Section Help"
Click: "DD.Sec_Help"
)
(RectD.1040
Left: 5.00000000000000
Top: 160.00000000000000
Right: 403.00000000000000
Bottom: 41.00000000000000
)
(RectD.1041
Left: 383.00000000000000
Top: -223.00000000000000
Right: 476.00000000000000
Bottom: -244.00000000000000
)
(RectD.1042
Left: 311.00000000000000
Top: 39.00000000000000
Right: 401.00000000000000
Bottom: 17.00000000000000
)
(RectD.1043
Left: 211.00000000000000
Top: 39.00000000000000
Right: 301.00000000000000
Bottom: 17.00000000000000
)
(Nil.1044
)
(AVDLog.1045
Name: "Sec4"
X: 53
Y: 42
W: 446
H: 234
ConstrainedControlNames: 1046
ConstrainedControlNames: 1047
ConstrainedControlNames: 1048
ConstrainedControlNames: 1049
ConstrainedControlNames: 1050
ConstrainedControlNames: 1051
Constraints: 1052
Constraints: 1053
Constraints: 1054
Constraints: 1055
Constraints: 1056
Constraints: 1057
Server: 1026
ControlPanel: 1058
Title: "Section 4 Spatial_Reference_Information"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.Sec4_Open"
DefaultButton: 1073
)
(AVStr.1046
S: "Sec4_ButtRunit"
)
(AVStr.1047
S: "Sec5_ButtExit"
)
(AVStr.1048
S: "Sec4_ButtGoto"
)
(AVStr.1049
S: "Sec5_ButtBack"
)
(AVStr.1050
S: "aLabelButton20"
)
(AVStr.1051
S: "aLabelButton21"
)
(Numb.1052
N: 85.00000000000000
)
(Numb.1053
N: 85.00000000000000
)
(Numb.1054
N: 85.00000000000000
)
(Numb.1055
N: 85.00000000000000
)
(Numb.1056
N: 85.00000000000000
)
(Numb.1057
N: 85.00000000000000
)
(CPanel.1058
Child: 1059
Child: 1060
Child: 1061
Child: 1062
Child: 1063
Child: 1064
Child: 1065
ResBox: 1066
ResBox: 1067
ResBox: 1068
ResBox: 1069
ResBox: 1070
ResBox: 1071
ResBox: 1072
Listening: 1
)
(TextLabel.1059
InternalName: "aTextLabel7"
Constraints: 0x55
Label: "This section will assist in collecting projection information"
Listening: 1
)
(LButn.1060
InternalName: "Sec4_ButtRunit"
Label: "Collect Information"
Click: "DD.Sec4"
)
(LButn.1061
InternalName: "Sec5_ButtExit"
Label: "Exit"
Click: "DD.All_Exit"
)
(LButn.1062
InternalName: "Sec4_ButtGoto"
Label: "Goto Section 5"
Click: "DD.All_Goto"
)
(LButn.1063
InternalName: "Sec5_ButtBack"
Label: "Back"
Click: "DD.All_Back"
)
(LButn.1064
InternalName: "aLabelButton20"
Tag: " "
Label: "Section Help"
Click: "DD.Sec_Help"
)
(LButn.1065
InternalName: "aLabelButton21"
Label: "Section Example"
Click: "DD.Sec_Exam"
)
(RectD.1066
Left: 27.00000000000000
Top: 94.00000000000000
Right: 311.00000000000000
Bottom: 50.00000000000000
)
(RectD.1067
Left: 25.00000000000000
Top: 114.00000000000000
Right: 149.00000000000000
Bottom: 82.00000000000000
)
(RectD.1068
Left: 25.00000000000000
Top: 182.00000000000000
Right: 140.00000000000000
Bottom: 154.00000000000000
)
(RectD.1069
Left: 292.00000000000000
Top: 182.00000000000000
Right: 407.00000000000000
Bottom: 154.00000000000000
)
(RectD.1070
Left: 159.00000000000000
Top: 182.00000000000000
Right: 273.00000000000000
Bottom: 154.00000000000000
)
(RectD.1071
Left: 197.00000000000000
Top: 30.00000000000000
Right: 299.00000000000000
Bottom: 8.00000000000000
)
(RectD.1072
Left: 304.00000000000000
Top: 30.00000000000000
Right: 406.00000000000000
Bottom: 8.00000000000000
)
(Nil.1073
)
(AVDLog.1074
Name: "Sec4.GC"
X: 53
Y: 42
W: 508
H: 363
ConstrainedControlNames: 1075
ConstrainedControlNames: 1076
ConstrainedControlNames: 1077
ConstrainedControlNames: 1078
ConstrainedControlNames: 1079
ConstrainedControlNames: 1080
ConstrainedControlNames: 1081
Constraints: 1082
Constraints: 1083
Constraints: 1084
Constraints: 1085
Constraints: 1086
Constraints: 1087
Constraints: 1088
Server: 473
ControlPanel: 1089
Title: "Section 4 Spatial_Reference_Information"
EscapeEnabled: 1
Resizable: 1
AlwaysOnTop: 1
HasTitleBar: 1
Open: "DD.All_Open"
DefaultB