Expanded Description
| Topic |
Description |
| Name |
makemeta |
| Synopsis |
/infobank/programs/html/info2html/makemeta.for |
| Description |
Subroutine to make specific meta.htmls for an Activity ID.
|
| AUTHOR |
Clint Steele 10/16/1997
Clint Steele 03/28/2006 restructured
Carolyn Degnan 06/17/2008 added subroutine meta2tablerecord
Carolyn Degnan 12/12/2008 changed handling of daysatsea to be
like stationcount
Sumy Tom 01/20/10 Added script to embed google earth
|
| Reads |
read (ItemUnit, '(q,a)', end = 201)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 2011)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 413)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 213)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 216)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 1216)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(t10,q,a)', end = 204)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 200)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(t10,q,a)', end = 214)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 2203)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 2205)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 212)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 203)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 215)
* ItemLength, Item(1:ItemLength)
read (ItemUnit, '(q,a)', end = 206)
* ItemLength, Item(1:ItemLength)
read (68, '(q,a)', end = 6897)
* ALineLength, ALine(1:ALineLength)
read (68, '(q,a)', end = 6899)
* PDFFileLength, PDFFile(1:PDFFileLength)
|
| Writes |
write (SpecificHtml, '(4096x)')
write (SpecificHtml, 3)
* ShortID(1:1),
* ShortID(1:IDLength),
* LongID(1:IDLength+3),
* ShortName
write (MetaPath, '(4096x)')
write (MetaPath, '(a)')
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)
write (HtmlPath, '(4096x)')
write (HtmlPath, '(a)')
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//LongID(1:IDLength+3)
write (KMZFileUnit, '(a)')
* 'http://walrus.wr.usgs.gov/infobank/'//
* ShortID(1:1)//'/'//ShortID(1:IDLength)//'/'//
* 'kml/'//LongID(1:IDLength+3)//'.nav.kml'
write (SpecificUnit, '(6x,a)')
* '<table class="noborder
write (SpecificUnit, '(8x,a)') '<t
write (SpecificUnit, '(10x,a)') '<td valign="top
write (SpecificUnit, '(12x,a)')
* '<table class="border" rules="all"
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>ID
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(10:29)
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Also Known A
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(30:ItemLength)
write (SpecificUnit, '(a)')
* Item(10:29)
write (SpecificUnit, '(a)')
* '<br>'//Item(30:ItemL
write (SpecificUnit, '(a)')
* '<br>'//Item(
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Abstract
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(1:ItemLength)
write (SpecificUnit, '(a)')
* Item(1:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Organization&
* ' </td&
* ' <td class="light
write (SpecificUnit, '(a)')
* '<b
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Project/Theme
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* '<br
write (SpecificUnit, '(a)')
* '<br
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dar
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>National Plan
* ' </td
* ' <td class="light" align="center
write (SpecificUnit, '(a)')
* Item(10:ItemLength)
write (SpecificUnit, '(a)')
* '<hr>'//Item(10:ItemL
write (SpecificUnit, '(a)')
* '<hr>'//Item(1:ItemL
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (Item, '(4096x)')
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Chief Scientist
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)') '<br />'
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Activity Type
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(10:ItemLength)
write (SpecificUnit, '(a)')
* '<br>'//Item(1:ItemL
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (PlatformPath, '(512x)')
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Platform
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* '<a href="http://walrus.wr.usgs.gov
* PlatformPath(1:PlatformPathLength)//
* '">
* Item(1:ItemLength)//
* '</a
write (SpecificUnit, '(a)')
* Item(1:ItemLength)
write (SpecificUnit, '(a)')
* '<br&
* '<a href="http://walrus.wr.usgs.gov
* PlatformPath(1:PlatformPathLength)//
* '">'//Item(1:ItemLength
* '"><
write (SpecificUnit, '(a)')
* '<br>'//Item(1:ItemL
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Owner
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(10:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Submersible
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(10:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Area of Operation
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
write (SpecificUnit, '(a)')
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Bounding Coordinates
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')'<table>
write (SpecificUnit, '(a)')
* '<td align="center
write (SpecificUnit, '(a)') Item(10:18)
write (SpecificUnit, '(a)') '</td>
write (SpecificUnit, '(a)') '<tr>
write (SpecificUnit, '(a)') Item(41:50)//
* ' '//
* Item(30:39)//'</td>
write (SpecificUnit, '(a)')
* '<tr><td align="
write (SpecificUnit, '(a)')Item(20:28)//
* '</td></tr&
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Ports
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(53:ItemLength)
write (SpecificUnit, '(a)')
* '<br>'//Item(53:ItemL
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Dates
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)')
* Item(10:28)//
* ' to '//Item(34:ItemLength)
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* '<b>Analog Materials
* ' </td
* ' <td class="light"
* ' <a href="http://walrus.wr.usgs.gov
* '/infobank'//
* '/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.container.html">
* 'list</
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a,/,a)')
* '<b>Analog Materials
* ' </td
* ' <td class="light"
* 'No analog holdings.'
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </tr
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a,/,a)')
* '<b>Scanned Materials
* ' </td
* ' <td class="light
write (SpecificUnit, '(a)') '<b
write (SpecificUnit, '(a)')
* ' <a href="http://walrus.wr.usgs.gov
* PDFFile(1:PDFFileLength)//'" target="pdf"&g
write (SpecificUnit, '(a)')
* PDFFile(Slash+1:PDFFileLength-4)//' log</a>
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (Sentence, '(4096x)')
write (SpecificUnit, '(a,/,a)')
* ' <tr
* ' <td class="dark
write (SpecificUnit, '(a,/,a)')
* ' <b><a href="http://walrus.wr.usg
* 'infobank/programs/html/main/mailinfobank.html" target'//
* '="new">Got Help?</a&
* ' </t
write (SpecificUnit, '(a)')
* ' <td class="light"
write (SpecificUnit, '(a)')
* 'For '//CapID//', '//
* 'we would appreciate any information on -- '//
* Sentence(3:SentenceLength)//
* '.'
write (SpecificUnit, '(a,/,a)')
* ' </td
* ' </t
write (SpecificUnit, '(a,/,a,/)')
* '</tabl
write (SpecificUnit, '(8x,a)') '</t
write (SpecificUnit, '(a,/)')
* '<!-- ====== DATA TABLE: ====== -
write (SpecificUnit, '(10x,a)') '<td valign="top" align="center
write (SpecificUnit, '(a,/)')
* '<!-- ====== Google Map ====== -
write (SpecificUnit, '(4x,a)') '<
write (SpecificUnit, '(4x,a)')'<table class="noborder
write (SpecificUnit, '(6x,a)')'<t
write (SpecificUnit, '(8x,a)') '<td&
write (SpecificUnit, 21)
* ShortID(1:1),
* ShortID(1:IDLength),
* LongID(1:IDLength+3),
* 'nav',
* ShortID(1:1),
* ShortID(1:IDLength),
* LongID(1:IDLength+3),
* 'nav.150px',
* CapID
write (SpecificUnit, '(6x,a)')'</t
write (SpecificUnit, '(8x,a)') '</t
write (SpecificUnit, '(6x,a)')'<t
write (SpecificUnit, '(8x,a)') '<t
write (SpecificUnit, 24)
* ShortID(1:1),
* ShortID(1:IDLength),
* LongID(1:IDLength+3),
* 'index',
* ShortID(1:1),
* ShortID(1:IDLength),
* LongID(1:IDLength+3),
* 'index.150px',
* CapID
write (SpecificUnit, '(6x,a)')'</t
write (SpecificUnit, '(8x,a)') '</t
write (SpecificUnit, '(4x,a)') '</tabl
write (SpecificUnit, '(10x,a)') '<
write (SpecificUnit, '(10x,a)') '</t
write (SpecificUnit, '(8x,a)') '</t
write (SpecificUnit, '(6x,a,/)') '</tabl
write (SpecificUnit, '(4x,a)') '</t
write (SpecificUnit, '(2x,a)') '</t
write (SpecificUnit, '(a,/)') '</tabl
write (SpecificUnit, '(a)') '<table class="noborder
write (SpecificUnit, '(2x,a)') '<t
write (SpecificUnit, '(4x,a)') '<t
write (SpecificUnit, '(6x,a)') ' '
|
| Opens |
open (unit = KMZFileUnit,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* name = '/infobank/tmp/kmzfile.temp')
open (name = SpecificHtml(1:SpecificHtmlLength),
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* unit = SpecificUnit)
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.ids')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.akas')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.abstract')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.organization')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.project')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.nationalplan')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.chief')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.activitytype')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.platform')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.owner')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.submersible')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.operationarea')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.navarea')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.ports')
open (unit = ItemUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.dates')
open (unit = 68,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/tmp/info2html.metaPDFfiles.temp')
|
| Calls |
call changecase ('CAPITALS', CapShortID)
call stringlen(ShortID, ShortIDLength)
call stringlen (SpecificHtml, SpecificHtmlLength)
call stringlen (MetaPath, MetaPathLength)
call stringlen (HtmlPath, HtmlPathLength)
call htmlhead (SpecificUnit,
* 'CMG '//CapID//' '//LongName )
call controlbar
* (DiskName,SpecificUnit, ShortID, IDLength, LongID, CapID,
* ShortName, LongName, Existance)
call link4organization(SpecificUnit,
* ShortID(1:IDLength),Item(10:ItemLength))
call link4organization(SpecificUnit,
* ShortID(1:IDLength),Item(10:ItemLength))
call link4project(SpecificUnit,
* ShortID (1:ShortIDLength),
* Item(10:ItemLength))
call link4project (SpecificUnit,
* ShortID (1:ShortIDLength),
* Item(10:ItemLength))
call link4project (SpecificUnit,
* ShortID(1:ShortIDLength),
* Item(1:ItemLength))
call stringlen(Name, NameLength)
call link4participant (SpecificUnit,
* Item(1:Comma))
call link4participant (SpecificUnit,
* Item(1:Comma))
call stringlen (PlatformPath, PlatformPathLength)
call link4region(SpecificUnit, RegionID,
* Item(10:ItemLength))
call link4region(SpecificUnit, RegionID,
* Item(10:ItemLength))
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'daysatsea', 'Days at Sea',
* DidDaysAtSea, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call system ('/bin/grep -i PDF '//
* '/infobank'//
* '/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.metafiles.keep'//
* ' > /infobank/tmp/info2html.metaPDFfiles.tem
call system (
* '/bin/rm /infobank/tmp/info2html.metaPDFfiles.temp')
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'infospecialist', 'Information Specialist',
* DidInfoSpecialist, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'crew', 'Crew',
* DidCrew, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'equipmentused', 'Equipment Used',
* DidEquipmentUsed, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'trackplot', 'Track Plot',
* DidTrackPlot, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'purpose', 'Purpose',
* DidPurpose, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'derivatives', 'Information to be Derived',
* DidDerivatives, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'tabulatedinfo', 'Tabulated Info',
* DidTabulatedInfo, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'summary', 'Summary',
* DidSummary, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'notes', 'Notes',
* DidNotes, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'navkm', 'Navigation',
* DidNavKm, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'stationcount', 'Stations',
* DidStationCount, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'divecount', 'Dives',
* DidDiveCount, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'stationdescription', 'Station Description',
* DidStationDescription, SpecificUnit, ItemUnit, ShortID,
* LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'seismicdescription', 'Seismic Description',
* DidSeismicDescription, SpecificUnit, ItemUnit, ShortID,
* LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'projectnumber', 'Project Number',
* DidProjectNumber, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'funding', 'Funding',
* DidFunding, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'contract', 'Contract',
* DidContract, SpecificUnit, ItemUnit, ShortID, LongID, Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'ngdc_overview', 'NGDC Overview',
* DidNGDCOverview, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call meta2tablerecord (MetaPath(1:MetaPathLength),
* 'publications', 'Publications',
* DidPublications, SpecificUnit, ItemUnit, ShortID, LongID,
* Item)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call datatable (SpecificUnit, ShortID, IDLength, LongID,
* Existance)
call system ('/bin/cp /infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.nav.jpg '//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.nav.150px.jpg')
call system ('mogrify -resize 150x150 '//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.nav.150px.jpg')
call system ('/bin/cp /infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.index.jpg '//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.index.150px.jpg')
call system ('mogrify -resize 150x150 '//
* '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//
* '.index.150px.jpg')
call htmlfoot (SpecificUnit,
* 'http://walrus.wr.usgs.gov'//
* '/infobank'//
* '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)//
* '/html/'//LongID(1:IDLength+3)//'.'//
* ShortName//'.html' )
|
|
