SystemOrganization addCategory: #'Pier-Site-SCG'!

PRExternalLink subclass: #SCGExternalLink
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Pier-Site-SCG'!

!SCGExternalLink class methodsFor: 'testing' stamp: 'lr 4/22/2009 11:24'!
isValidReference: aString
	^ (aString beginsWith: '/archive')
		or: [ (aString beginsWith: '/download')
		or: [ (aString beginsWith: '/cgi-bin') ] ]! !

!SCGExternalLink class methodsFor: 'accessing' stamp: 'lr 4/22/2009 11:24'!
priority
	^ 50! !