Documents
<%
isWordDoc: aString
^(#('.' '..') includes: aString) or: [aString matchesRegex: '(.*\.html)|(.*\.ssp)'].
getDocumentArray
"Return an array of the document paths keyed by the document name.
The array is sorted in increasing order."
| dirs result root path |
dirs := #('../web/demo/toyzinc').
result := Dictionary new.
dirs do: [:each |
files := (root := Filename fromUrlString: each) directoryContents.
files do: [:eachFile |
path := root constructString: eachFile.
((self isWordDoc: eachFile) and: [(Filename fromUrlString: each) isReadable])
ifTrue: [
(result includesKey: eachFile)
ifTrue: [
existingPath := result at: eachFile.
newKey := eachFile, ' (', existingPath, ')'.
result at: newKey put: existingPath.
result at: (eachFile, ' (', path, ')') put: path]
ifFalse: [
result at: eachFile put: path]]]].
^result.
htmlOptionTagForValue: aValue label: aLabel
"Return a string that is of the form
"
^'
'.
optionHTMLList
"// Return a list of
%>