SCSeasideAnchor

• anchorNumber
• anchorNumber:
• fullUrl:
• label
• path:

• asString

• initializeFromHref:
• initializeFromXMLElement:
• variableFromString:

• fromXMLElement:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	^anchorNumber

	anchorNumber := anObject

	fullUrl _ aString

	^label

	path _ aString

	^ fullUrl

 
	| parts |
	self fullUrl: aString.
	parts _ aString findTokens: '?'.
	parts isEmpty
		ifTrue: [^ self].
	self path: parts first.
	parts size > 1
		ifTrue: [(parts second findTokens: '&')
				do: [:each | self variableFromString: each]]

 
	self
		initializeFromHref: (anXMLElement attributeAt: 'href').
	label _ anXMLElement contents first string

 
	| parts |
	parts _ aString findTokens: '='.
	parts isEmpty
		ifTrue: [^ nil].
	parts size = 1
		ifTrue: [^ self anchorNumber: parts first].
	parts first = '_s'
		ifTrue: [^ self sessionId: parts second].
	parts first = '_k'
		ifTrue: [^ self continuationId: parts second]

	^ self new initializeFromXMLElement: anXMLElement