<% parcelName := (request anyQueryValueAt: 'ParcelName'). (((parcelName == nil) or: [ parcelName isEmpty ]) or: [ ((Set with: 'WebMailingList' with: 'WebTaskList') includes: parcelName) not ]) ifTrue: [ %> Unable to load parcel.
Please select WebMailingList or WebTaskList. <% ] ifFalse: [ ((#{Store} isDefined and: [(Store.Registry packageNamed: parcelName) notNil]) or: [(Parcel parcelNamed: parcelName) notNil]) ifFalse: [ componentColl := (OrderedCollection new: 5). componentColl add: '$(VISUALWORKS)'; add: 'web'; add: 'examples'; add: 'examples'; add: parcelName, '.pcl'. Parcel loadParcelFrom: (Filename fromComponents: componentColl). %> Parcel <%=parcelName%> successfully loaded. <% ] ifTrue: [ %> Package or Parcel <%=parcelName%> was already in your image. <% ]. %>

<% ]. %>