29 lines
767 B
Smalltalk
29 lines
767 B
Smalltalk
"
|
|
I provide functionality to add data to some instances of the Etico package.
|
|
"
|
|
Class {
|
|
#name : #EtiWeb,
|
|
#superclass : #Object,
|
|
#category : #'Etico-WebSite'
|
|
}
|
|
|
|
{ #category : #'as yet unclassified' }
|
|
EtiWeb class >> addAgentForm: request [
|
|
|
|
| input page |
|
|
input := request uri queryAt: #input ifAbsent: [ 'Entrada' ].
|
|
page := ZnHtmlOutputStream streamContents: [ :html |
|
|
html page: 'Entrada sencilla' do: [
|
|
html
|
|
tag: #form
|
|
attributes: #(#action 'form-test-1' 'accept-charset' 'utf-8' method GET)
|
|
do: [
|
|
html
|
|
str: 'Entrada'; space;
|
|
tag: #input attributes: { #type. #input. #name. #input. #value. input }; space;
|
|
tag: #input attributes: #(type submit);
|
|
str: 'La entrada fue:'; space; tag: #em with: input]
|
|
]
|
|
]
|
|
]
|