home *** CD-ROM | disk | FTP | other *** search
/ The Electronic Whole Earth Catalog / ElectronicWholeEarthCatalog.img / HEALTH / background_4934.txt < prev    next >
Text File  |  1989-02-07  |  23KB  |  1,023 lines
  1. -- background: 4934 from stack: in
  2. -- bmap block id: 14737
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Access
  6. ----- HyperTalk script -----
  7. -- bg Access script  2/7/89
  8. on initAccUpdate
  9.   -- called by 'openStack' in stack script
  10.   -- open access update and update index files
  11.   loadAccUpdate "EWEC Update", "EWEC.update", "ewec.update.index"
  12. end initAccUpdate
  13.  
  14. on exitAccUpdate
  15.   -- called by 'closeStack' in stack script
  16.   closeAccUpdate
  17. end exitAccUpdate
  18.  
  19. on openCard
  20.   doAccUpdate
  21.   pass openCard
  22. end openCard
  23.  
  24. -- access update routines
  25.  
  26. -- all these routines require the accUpdate XFCN
  27. -- doAccUpdate requires pullTabbedChunk XFCN (or function)
  28.  
  29. on doAccUpdate
  30.   -- if an access update file has been opened, this function
  31.   -- checks for an update to this card and updates fields accordingly
  32.  
  33.   global tabbedData  -- used by pullTabbedChunk function
  34.   global updHandle
  35.  
  36.   if updHandle is not 0 then
  37.     if field surveyAccession is empty
  38.     then get lookupUpdate( field "accession" )
  39.   else get lookupUpdate( field "surveyAccession" )
  40.  
  41.   if it is not empty then
  42.     lock screen
  43.     put "x" into field beenUpdated
  44.     put it into tabbedData
  45.     put pullTabbedChunk() into field "theTitle"
  46.     put pullTabbedChunk() into field "theSubTitle"
  47.     put pullTabbedChunk() into field "vendorName"
  48.     put pullTabbedChunk() into field "vendorAddr1"
  49.     put pullTabbedChunk() into field "vendorPhone"
  50.     put tabbedData into field "theAccess"
  51.     unlock screen
  52.   end if
  53. end if
  54. end doAccUpdate
  55.  
  56. function lookupUpdate theAccession
  57. global updHandle
  58.  
  59. return accUpdate( 2, updHandle, theAccession )
  60. end lookupUpdate
  61.  
  62. on loadAccUpdate diskName, dataFileName, indexFileName
  63.   -- loads a prebuilt access index file, opens data file
  64.   -- looks in HyperCard directory as well as the named disk
  65.   global updHandle
  66.   global stacks -- list of stack folders from home stack
  67.  
  68.   -- look in HC directory first, it's probably a hard disk
  69.   put accUpdate( 4, indexFileName, dataFileName ) into updHandle
  70.   if updHandle = 0 then
  71.     -- not found, so look in named disk
  72.     put accUpdate( 4, diskName & ":" & indexFileName, diskName & ":" & dataFileName ) into updHandle
  73.  
  74.     -- disabled search of "stacks" folder list
  75.     -- reenable by removing "AND false" clause
  76.     if updHandle = 0 AND false then
  77.       -- still not found, look thru folder list from home stack
  78.       if stacks is empty then
  79.         getHomeInfo  -- Std. Home stack script that fills in global variables
  80.       end if
  81.       put 1 into lineNum
  82.       put the number of lines of stacks into lc
  83.       repeat while updHandle = 0 and lineNum <= lc
  84.         put lc - lineNum
  85.         put line lineNum of stacks into diskName
  86.         put accUpdate( 4, diskName & indexFileName, diskName & dataFileName ) into updHandle
  87.         put diskName & indexFileName
  88.         add 1 to lineNum
  89.       end repeat
  90.     end if
  91.   end if
  92. end loadAccUpdate
  93.  
  94. on closeAccUpdate
  95.   global updHandle
  96.  
  97.   get accUpdate( 3, updHandle )
  98.   put 0 into updHandle
  99. end closeAccUpdate
  100.  
  101.  
  102. -- ****  end of access update scripts  ****
  103.  
  104.  
  105. -- access update build scripts (not used in product )
  106. on updPrepare fName
  107.   -- builds access update index from text file
  108.   global updHandle
  109.   put accUpdate( 1, fName ) into updHandle
  110. end updPrepare
  111.  
  112.  
  113. on updWrite theAccession
  114.   -- writes access update index to a file that loadAccUpdate can read
  115.   global updHandle
  116.  
  117.   put "ewec.update.index" into fileName
  118.   -- open and close the file, just to be sure it exists
  119.   open file fileName
  120.   close file fileName
  121.  
  122.   return accUpdate( 5, updHandle, fileName )
  123. end updWrite
  124.  
  125. -- ****  end of access update build scripts  ****
  126.  
  127.  
  128.  
  129. -- part 4 (field)
  130. -- low flags: 01
  131. -- high flags: 0000
  132. -- rect: left=34 top=85 right=313 bottom=210
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 0
  136. -- font id: 3
  137. -- text size: 10
  138. -- style flags: 0
  139. -- line height: 13
  140. -- part name: theAccess
  141.  
  142.  
  143. -- part 5 (field)
  144. -- low flags: 01
  145. -- high flags: 0000
  146. -- rect: left=354 top=318 right=338 bottom=456
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 3
  151. -- text size: 9
  152. -- style flags: 0
  153. -- line height: 15
  154. -- part name: thePage
  155.  
  156.  
  157. -- part 6 (field)
  158. -- low flags: 81
  159. -- high flags: 4002
  160. -- rect: left=255 top=0 right=18 bottom=396
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 0
  164. -- font id: 3
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: theIdent
  169.  
  170.  
  171. -- part 20 (field)
  172. -- low flags: 01
  173. -- high flags: 2000
  174. -- rect: left=28 top=40 right=64 bottom=463
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 0
  178. -- font id: 3
  179. -- text size: 14
  180. -- style flags: 768
  181. -- line height: 18
  182. -- part name: theTitle
  183.  
  184.  
  185. -- part 22 (field)
  186. -- low flags: 01
  187. -- high flags: 0002
  188. -- rect: left=345 top=22 right=41 bottom=463
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: theHeading
  197. ----- HyperTalk script -----
  198. on mouseDown
  199.   popMenuArticle
  200. end mouseDown
  201.  
  202.  
  203.  
  204. -- part 26 (button)
  205. -- low flags: 00
  206. -- high flags: 0000
  207. -- rect: left=423 top=317 right=338 bottom=453
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 1013 / 1013
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: Down
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   doArticleDownButton
  219. end mouseUp
  220.  
  221.  
  222.  
  223. -- part 27 (button)
  224. -- low flags: 00
  225. -- high flags: 0000
  226. -- rect: left=353 top=317 right=338 bottom=386
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 1014 / 1014
  229. -- text alignment: 1
  230. -- font id: 0
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: Up
  235. ----- HyperTalk script -----
  236. on mouseUp
  237.   doArticleUpButton
  238. end mouseUp
  239.  
  240.  
  241.  
  242. -- part 30 (button)
  243. -- low flags: 00
  244. -- high flags: 0000
  245. -- rect: left=463 top=88 right=130 bottom=507
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: Earth
  254. ----- HyperTalk script -----
  255. on mouseUp
  256.   goWholeEarth
  257. end mouseUp
  258.  
  259.  
  260.  
  261. -- part 31 (button)
  262. -- low flags: 00
  263. -- high flags: 0000
  264. -- rect: left=463 top=139 right=173 bottom=508
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 1
  268. -- font id: 0
  269. -- text size: 12
  270. -- style flags: 0
  271. -- line height: 16
  272. -- part name: Map
  273. ----- HyperTalk script -----
  274. on mouseUp
  275.   doArticleMapButton
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 34 (field)
  281. -- low flags: 81
  282. -- high flags: 0002
  283. -- rect: left=0 top=172 right=232 bottom=165
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 0
  287. -- font id: 3
  288. -- text size: 10
  289. -- style flags: 0
  290. -- line height: 13
  291. -- part name: Popup
  292.  
  293.  
  294. -- part 37 (field)
  295. -- low flags: 81
  296. -- high flags: 0002
  297. -- rect: left=0 top=0 right=18 bottom=86
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 0
  301. -- font id: 3
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: Accession
  306.  
  307.  
  308. -- part 42 (field)
  309. -- low flags: 81
  310. -- high flags: 0002
  311. -- rect: left=170 top=0 right=18 bottom=256
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 0
  315. -- font id: 3
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: SurveyAccession
  320.  
  321.  
  322. -- part 70 (button)
  323. -- low flags: 00
  324. -- high flags: 0000
  325. -- rect: left=463 top=232 right=275 bottom=488
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: Left
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   doArticleLeftButton
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 71 (button)
  342. -- low flags: 00
  343. -- high flags: 0000
  344. -- rect: left=482 top=184 right=230 bottom=507
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Right
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   doArticleRightButton
  356. end mouseUp
  357.  
  358.  
  359.  
  360. -- part 72 (field)
  361. -- low flags: 01
  362. -- high flags: 2000
  363. -- rect: left=28 top=59 right=81 bottom=463
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 0 / 0
  366. -- text alignment: 0
  367. -- font id: 3
  368. -- text size: 12
  369. -- style flags: 256
  370. -- line height: 16
  371. -- part name: theSubtitle
  372.  
  373.  
  374. -- part 117 (field)
  375. -- low flags: 81
  376. -- high flags: 0002
  377. -- rect: left=245 top=18 right=36 bottom=361
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 0
  381. -- font id: 3
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: ISBN
  386.  
  387.  
  388. -- part 118 (field)
  389. -- low flags: 83
  390. -- high flags: 0002
  391. -- rect: left=373 top=14 right=63 bottom=509
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 0
  395. -- font id: 3
  396. -- text size: 9
  397. -- style flags: 0
  398. -- line height: 11
  399. -- part name: keyWords
  400.  
  401.  
  402. -- part 120 (field)
  403. -- low flags: 81
  404. -- high flags: 0002
  405. -- rect: left=73 top=85 right=117 bottom=237
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 0
  409. -- font id: 3
  410. -- text size: 10
  411. -- style flags: 256
  412. -- line height: 13
  413. -- part name: RealSubtitle
  414.  
  415.  
  416. -- part 121 (field)
  417. -- low flags: 81
  418. -- high flags: 0002
  419. -- rect: left=307 top=61 right=87 bottom=497
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 0 / 0
  422. -- text alignment: 0
  423. -- font id: 3
  424. -- text size: 9
  425. -- style flags: 0
  426. -- line height: 12
  427. -- part name: longTitle
  428.  
  429.  
  430. -- part 122 (field)
  431. -- low flags: 83
  432. -- high flags: 0002
  433. -- rect: left=307 top=86 right=113 bottom=504
  434. -- title width / last selected line: 0
  435. -- icon id / first selected line: 0 / 0
  436. -- text alignment: 0
  437. -- font id: 3
  438. -- text size: 9
  439. -- style flags: 0
  440. -- line height: 11
  441. -- part name: authorName
  442.  
  443.  
  444. -- part 123 (field)
  445. -- low flags: 83
  446. -- high flags: 0002
  447. -- rect: left=307 top=112 right=127 bottom=503
  448. -- title width / last selected line: 0
  449. -- icon id / first selected line: 0 / 0
  450. -- text alignment: 0
  451. -- font id: 3
  452. -- text size: 9
  453. -- style flags: 0
  454. -- line height: 11
  455. -- part name: authorIndexed
  456.  
  457.  
  458. -- part 124 (field)
  459. -- low flags: 83
  460. -- high flags: 0002
  461. -- rect: left=307 top=123 right=152 bottom=399
  462. -- title width / last selected line: 0
  463. -- icon id / first selected line: 0 / 0
  464. -- text alignment: 0
  465. -- font id: 3
  466. -- text size: 9
  467. -- style flags: 0
  468. -- line height: 11
  469. -- part name: pubYear
  470.  
  471.  
  472. -- part 126 (field)
  473. -- low flags: 83
  474. -- high flags: 0002
  475. -- rect: left=307 top=152 right=189 bottom=454
  476. -- title width / last selected line: 0
  477. -- icon id / first selected line: 0 / 0
  478. -- text alignment: 0
  479. -- font id: 3
  480. -- text size: 9
  481. -- style flags: 0
  482. -- line height: 11
  483. -- part name: price
  484.  
  485.  
  486. -- part 127 (field)
  487. -- low flags: 83
  488. -- high flags: 0002
  489. -- rect: left=433 top=144 right=191 bottom=499
  490. -- title width / last selected line: 0
  491. -- icon id / first selected line: 0 / 0
  492. -- text alignment: 0
  493. -- font id: 3
  494. -- text size: 9
  495. -- style flags: 0
  496. -- line height: 11
  497. -- part name: ppd$
  498.  
  499.  
  500. -- part 128 (field)
  501. -- low flags: 83
  502. -- high flags: 0002
  503. -- rect: left=307 top=185 right=219 bottom=510
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 0 / 0
  506. -- text alignment: 0
  507. -- font id: 3
  508. -- text size: 9
  509. -- style flags: 0
  510. -- line height: 11
  511. -- part name: vendorName
  512.  
  513.  
  514. -- part 129 (field)
  515. -- low flags: 83
  516. -- high flags: 0002
  517. -- rect: left=309 top=204 right=250 bottom=512
  518. -- title width / last selected line: 0
  519. -- icon id / first selected line: 0 / 0
  520. -- text alignment: 0
  521. -- font id: 3
  522. -- text size: 9
  523. -- style flags: 0
  524. -- line height: 11
  525. -- part name: vendorAddr1
  526.  
  527.  
  528. -- part 130 (field)
  529. -- low flags: 83
  530. -- high flags: 0002
  531. -- rect: left=309 top=248 right=275 bottom=501
  532. -- title width / last selected line: 0
  533. -- icon id / first selected line: 0 / 0
  534. -- text alignment: 0
  535. -- font id: 3
  536. -- text size: 9
  537. -- style flags: 0
  538. -- line height: 11
  539. -- part name: vendorPhone
  540.  
  541.  
  542. -- part 131 (field)
  543. -- low flags: 83
  544. -- high flags: 0002
  545. -- rect: left=310 top=266 right=282 bottom=487
  546. -- title width / last selected line: 0
  547. -- icon id / first selected line: 0 / 0
  548. -- text alignment: 0
  549. -- font id: 3
  550. -- text size: 9
  551. -- style flags: 0
  552. -- line height: 11
  553. -- part name: originatorName
  554.  
  555.  
  556. -- part 132 (field)
  557. -- low flags: 83
  558. -- high flags: 0002
  559. -- rect: left=310 top=282 right=298 bottom=486
  560. -- title width / last selected line: 0
  561. -- icon id / first selected line: 0 / 0
  562. -- text alignment: 0
  563. -- font id: 3
  564. -- text size: 9
  565. -- style flags: 0
  566. -- line height: 11
  567. -- part name: reviewerName
  568.  
  569.  
  570. -- part 133 (field)
  571. -- low flags: 83
  572. -- high flags: 0002
  573. -- rect: left=310 top=298 right=314 bottom=346
  574. -- title width / last selected line: 0
  575. -- icon id / first selected line: 0 / 0
  576. -- text alignment: 0
  577. -- font id: 3
  578. -- text size: 9
  579. -- style flags: 0
  580. -- line height: 11
  581. -- part name: book
  582.  
  583.  
  584. -- part 134 (field)
  585. -- low flags: 83
  586. -- high flags: 0002
  587. -- rect: left=348 top=298 right=314 bottom=384
  588. -- title width / last selected line: 0
  589. -- icon id / first selected line: 0 / 0
  590. -- text alignment: 0
  591. -- font id: 3
  592. -- text size: 9
  593. -- style flags: 0
  594. -- line height: 11
  595. -- part name: bookPage
  596.  
  597.  
  598. -- part 135 (field)
  599. -- low flags: 83
  600. -- high flags: 0002
  601. -- rect: left=386 top=298 right=314 bottom=422
  602. -- title width / last selected line: 0
  603. -- icon id / first selected line: 0 / 0
  604. -- text alignment: 0
  605. -- font id: 3
  606. -- text size: 9
  607. -- style flags: 0
  608. -- line height: 11
  609. -- part name: articleType
  610.  
  611.  
  612. -- part 136 (field)
  613. -- low flags: 83
  614. -- high flags: 0002
  615. -- rect: left=425 top=298 right=313 bottom=511
  616. -- title width / last selected line: 0
  617. -- icon id / first selected line: 0 / 0
  618. -- text alignment: 0
  619. -- font id: 3
  620. -- text size: 9
  621. -- style flags: 0
  622. -- line height: 11
  623. -- part name: domain
  624.  
  625.  
  626. -- part 138 (field)
  627. -- low flags: 83
  628. -- high flags: 0002
  629. -- rect: left=316 top=327 right=340 bottom=331
  630. -- title width / last selected line: 0
  631. -- icon id / first selected line: 0 / 0
  632. -- text alignment: 0
  633. -- font id: 4
  634. -- text size: 12
  635. -- style flags: 256
  636. -- line height: 13
  637. -- part name: WEA?
  638.  
  639.  
  640. -- part 139 (field)
  641. -- low flags: 81
  642. -- high flags: 0002
  643. -- rect: left=230 top=312 right=342 bottom=303
  644. -- title width / last selected line: 0
  645. -- icon id / first selected line: 0 / 0
  646. -- text alignment: 0
  647. -- font id: 3
  648. -- text size: 12
  649. -- style flags: 0
  650. -- line height: 16
  651. -- part name: publicityphone
  652.  
  653.  
  654. -- part 140 (field)
  655. -- low flags: 83
  656. -- high flags: 0002
  657. -- rect: left=33 top=271 right=308 bottom=289
  658. -- title width / last selected line: 0
  659. -- icon id / first selected line: 0 / 0
  660. -- text alignment: 0
  661. -- font id: 3
  662. -- text size: 9
  663. -- style flags: 0
  664. -- line height: 11
  665. -- part name: misc
  666.  
  667.  
  668. -- part 147 (field)
  669. -- low flags: 83
  670. -- high flags: 0002
  671. -- rect: left=443 top=127 right=145 bottom=512
  672. -- title width / last selected line: 0
  673. -- icon id / first selected line: 0 / 0
  674. -- text alignment: 0
  675. -- font id: 3
  676. -- text size: 9
  677. -- style flags: 0
  678. -- line height: 11
  679. -- part name: pages
  680.  
  681.  
  682. -- part 154 (button)
  683. -- low flags: 80
  684. -- high flags: A003
  685. -- rect: left=4 top=313 right=328 bottom=79
  686. -- title width / last selected line: 0
  687. -- icon id / first selected line: 0 / 0
  688. -- text alignment: 1
  689. -- font id: 0
  690. -- text size: 12
  691. -- style flags: 0
  692. -- line height: 16
  693. -- part name: Show Pic
  694. ----- HyperTalk script -----
  695. on mouseUp
  696.   show Card picture
  697. end mouseUp
  698.  
  699.  
  700.  
  701. -- part 155 (button)
  702. -- low flags: 80
  703. -- high flags: A003
  704. -- rect: left=4 top=327 right=342 bottom=77
  705. -- title width / last selected line: 0
  706. -- icon id / first selected line: 0 / 0
  707. -- text alignment: 1
  708. -- font id: 0
  709. -- text size: 12
  710. -- style flags: 0
  711. -- line height: 16
  712. -- part name: Hide Pic
  713. ----- HyperTalk script -----
  714. on mouseUp
  715.   hide Card picture
  716. end mouseUp
  717.  
  718.  
  719.  
  720. -- part 159 (field)
  721. -- low flags: 81
  722. -- high flags: 0002
  723. -- rect: left=410 top=128 right=143 bottom=512
  724. -- title width / last selected line: 0
  725. -- icon id / first selected line: 0 / 0
  726. -- text alignment: 0
  727. -- font id: 4
  728. -- text size: 9
  729. -- style flags: 0
  730. -- line height: 12
  731. -- part name: MapDest
  732.  
  733.  
  734. -- part 160 (field)
  735. -- low flags: 81
  736. -- high flags: 0002
  737. -- rect: left=410 top=272 right=287 bottom=512
  738. -- title width / last selected line: 0
  739. -- icon id / first selected line: 0 / 0
  740. -- text alignment: 0
  741. -- font id: 4
  742. -- text size: 9
  743. -- style flags: 0
  744. -- line height: 12
  745. -- part name: LeftDest
  746.  
  747.  
  748. -- part 161 (field)
  749. -- low flags: 81
  750. -- high flags: 0002
  751. -- rect: left=410 top=225 right=240 bottom=512
  752. -- title width / last selected line: 0
  753. -- icon id / first selected line: 0 / 0
  754. -- text alignment: 0
  755. -- font id: 4
  756. -- text size: 9
  757. -- style flags: 0
  758. -- line height: 12
  759. -- part name: RightDest
  760.  
  761.  
  762. -- part 162 (field)
  763. -- low flags: 81
  764. -- high flags: 0002
  765. -- rect: left=354 top=285 right=300 bottom=456
  766. -- title width / last selected line: 0
  767. -- icon id / first selected line: 0 / 0
  768. -- text alignment: 0
  769. -- font id: 4
  770. -- text size: 9
  771. -- style flags: 0
  772. -- line height: 12
  773. -- part name: UpDest
  774.  
  775.  
  776. -- part 163 (field)
  777. -- low flags: 81
  778. -- high flags: 0002
  779. -- rect: left=354 top=301 right=316 bottom=456
  780. -- title width / last selected line: 0
  781. -- icon id / first selected line: 0 / 0
  782. -- text alignment: 0
  783. -- font id: 4
  784. -- text size: 9
  785. -- style flags: 0
  786. -- line height: 12
  787. -- part name: DownDest
  788.  
  789.  
  790. -- part 164 (field)
  791. -- low flags: 81
  792. -- high flags: 0002
  793. -- rect: left=163 top=172 right=232 bottom=277
  794. -- title width / last selected line: 0
  795. -- icon id / first selected line: 0 / 0
  796. -- text alignment: 0
  797. -- font id: 3
  798. -- text size: 10
  799. -- style flags: 0
  800. -- line height: 13
  801. -- part name: PopupDest
  802.  
  803.  
  804. -- part 167 (button)
  805. -- low flags: 80
  806. -- high flags: A003
  807. -- rect: left=79 top=312 right=327 bottom=223
  808. -- title width / last selected line: 0
  809. -- icon id / first selected line: 0 / 0
  810. -- text alignment: 1
  811. -- font id: 0
  812. -- text size: 12
  813. -- style flags: 0
  814. -- line height: 16
  815. -- part name: Show Fields
  816. ----- HyperTalk script -----
  817. on mouseUp
  818.   lock screen
  819.   show bg field "ISBN"
  820.   show bg field "keywords"
  821.   show bg field "longtitle"
  822.   show bg field "realsubtitle"
  823.   show bg field "authorname"
  824.   show bg field "authorindexed"
  825.   show bg field "pubyear"
  826.   show bg field "pages"
  827.   show bg field "price"
  828.   show bg field "ppd$"
  829.   show bg field "vendorname"
  830.   show bg field "vendoraddr1"
  831.   show bg field "vendorphone"
  832.   show bg field "originatorname"
  833.   show bg field "reviewername"
  834.   show bg field "book"
  835.   show bg field "bookpage"
  836.   show bg field "articletype"
  837.   show bg field "domain"
  838.   show bg field "WEA?"
  839.   show bg field "publicityphone"
  840.   show bg field "misc"
  841.   unlock screen
  842. end mouseUp
  843.  
  844.  
  845.  
  846. -- part 168 (button)
  847. -- low flags: 80
  848. -- high flags: A003
  849. -- rect: left=79 top=327 right=342 bottom=224
  850. -- title width / last selected line: 0
  851. -- icon id / first selected line: 0 / 0
  852. -- text alignment: 1
  853. -- font id: 0
  854. -- text size: 12
  855. -- style flags: 0
  856. -- line height: 16
  857. -- part name: Hide Fields
  858. ----- HyperTalk script -----
  859. on mouseUp
  860.   lock screen
  861.   hide bg field "ISBN"
  862.   hide bg field "keywords"
  863.   hide bg field "longtitle"
  864.   hide bg field "realsubtitle"
  865.   hide bg field "authorname"
  866.   hide bg field "authorindexed"
  867.   hide bg field "pubyear"
  868.   hide bg field "pages"
  869.   hide bg field "price"
  870.   hide bg field "ppd$"
  871.   hide bg field "vendorname"
  872.   hide bg field "vendoraddr1"
  873.   hide bg field "vendorphone"
  874.   hide bg field "originatorname"
  875.   hide bg field "reviewername"
  876.   hide bg field "book"
  877.   hide bg field "bookpage"
  878.   hide bg field "articletype"
  879.   hide bg field "domain"
  880.   hide bg field "WEA?"
  881.   hide bg field "publicityphone"
  882.   hide bg field "misc"
  883.   unlock screen
  884. end mouseUp
  885.  
  886.  
  887.  
  888. -- part 169 (button)
  889. -- low flags: 80
  890. -- high flags: 8003
  891. -- rect: left=0 top=291 right=313 bottom=100
  892. -- title width / last selected line: 0
  893. -- icon id / first selected line: 0 / 0
  894. -- text alignment: 1
  895. -- font id: 0
  896. -- text size: 12
  897. -- style flags: 0
  898. -- line height: 16
  899. -- part name: Pour Access
  900. ----- HyperTalk script -----
  901. on mouseUp
  902.   pourAccess
  903.   send mouseUp to bg btn "Hide Fields"
  904. end mouseUp
  905.  
  906. on pourAccess
  907.   put empty into accessInfo
  908.  
  909.   -- take care of the title
  910.   put fld "realSubTitle" into realSubTitle
  911.   put fld "longTitle" into longTitle
  912.  
  913.   if realSubTitle is not empty then
  914.     put stripCR(realSubTitle) & Return after accessInfo
  915.   else if fld "longTitle" is not empty then
  916.     put stripCR(longTitle) & Return after accessInfo
  917.   else
  918.     --put Return after accessInfo
  919.   end if
  920.  
  921.   -- now the author name
  922.   if fld "authorName" is not empty then
  923.     put stripCR(fld "authorName") & Return after accessInfo
  924.   end if
  925.  
  926.   -- publication year and number of pages
  927.   put fld "pubYear" into pubYear
  928.   put fld "pages" into pages
  929.   if pubYear is not empty AND pages is not empty then
  930.     put stripCR(pubYear) & ";" && stripCR(pages) & Return after accessInfo
  931.   else if fld "pubYear" is not empty AND fld "pages" is empty then
  932.     put stripCR(pubYear) & Return after accessInfo
  933.   else if fld "pubYear" is empty AND fld "pages" is not empty then
  934.     put stripCR(pages) & Return after accessInfo
  935.   end if
  936.  
  937.   -- ISBN
  938.   put fld "ISBN" into ISBN
  939.   if ISBN is not empty then
  940.     if fld "articleType" = "pr" then
  941.       put "ISSN" && stripCR(ISBN) & Return after accessInfo
  942.     else          -- if fld "articleType" = "br" then
  943.       put "ISBN" && stripCR(ISBN) & Return  after accessInfo
  944.     end if
  945.   end if
  946.  
  947.   -- Price
  948.   put fld "price" into price
  949.   put fld "ppd$" into ppd
  950.   if price is not empty AND ppd is not empty then
  951.     put stripCR(price) && stripCR(ppd) after accessInfo
  952.   else if price is not empty AND ppd is empty then
  953.     put price after accessInfo
  954.   else if price is empty AND ppd is not empty then
  955.     put ppd after accessInfo
  956.   end if
  957.   put Return after accessInfo
  958.  
  959.   -- vendor
  960.   if fld "vendorName" is not empty then
  961.     put "from:" & Return & Return & stripCR(fld "vendorName") & Return after accessInfo
  962.   end if
  963.  
  964.   if fld "vendorAddr1" is not empty then
  965.     put stripCR(fld "vendorAddr1") & Return after accessInfo
  966.   end if
  967.  
  968.   if fld "vendorPhone" is not empty then
  969.     put stripCR(fld "vendorPhone") & Return after accessInfo
  970.   end if
  971.  
  972.   -- Misc
  973.   if fld "misc" is not empty then
  974.     put Return & stripCR(fld "misc") & Return after accessInfo
  975.   end if
  976.  
  977.   put accessInfo into fld "theAccess"
  978. end pourAccess
  979.  
  980. function stripCR theInfo
  981. repeat forever
  982.   if last char of theInfo is " " OR last char of theInfo is Return then
  983.     delete last char of theInfo
  984.   else
  985.     exit repeat
  986.   end if
  987. end repeat
  988.  
  989. return theInfo
  990. end stripCR
  991.  
  992. function hasBgButton what
  993. repeat with i = 1 to number of bg buttons
  994.   if short name of bg button i = what then return true
  995. end repeat
  996. return false
  997. end hasBgButton
  998.  
  999. on slagBgButtons btnName
  1000.   repeat while hasBgButton(btnName) is true
  1001.     show bg btn btnName
  1002.     select bg btn btnName
  1003.     doMenu "Clear Button"
  1004.   end repeat
  1005. end slagBgButtons
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011. -- part 170 (field)
  1012. -- low flags: 81
  1013. -- high flags: 0002
  1014. -- rect: left=0 top=324 right=342 bottom=16
  1015. -- title width / last selected line: 0
  1016. -- icon id / first selected line: 0 / 0
  1017. -- text alignment: 0
  1018. -- font id: 3
  1019. -- text size: 12
  1020. -- style flags: 0
  1021. -- line height: 16
  1022. -- part name: beenUpdated
  1023.