((request fieldsHasKey: 'text') or: [request fieldsHasKey: 'text1'])
	ifTrue: [(page settingsAt: 'lock' ifAbsent: [false])
		ifTrue: [book formatPageTemplate: 'saveFailed' request: request response: response shelf: shelf page: page]
		ifFalse: [(page isOlderThan: request)
			ifTrue: [
				page
					forbidWriting;
					clearRefsCache;
					saveFormat: (request text) request: request response: response shelf: shelf book: book;
					time: (Time now);
					date: (Date today);
					nameUnique: (request fieldsKey: 'name') book: book stripping: '<@*>';
					user: 'unknown';
					alertsFrom: request.
				[page
					user: (shelf formatPrivAddress: 'getIPName' request: request response: response);
					backup;
					write;
					permitWriting;
					sendAlerts: request response: response shelf: shelf book: book] fork.
				response at: 'headerStatus' put: #tempMoved.
				response at: 'location' put: (request referenceShelf: shelf book: book page: page).
				book formatPageTemplate: 'saveSuccess' request: request response: response shelf: shelf page: page]
			ifFalse: [book formatPageTemplate: 'editResolve' request: request response: response shelf: shelf page: page]]]
	ifFalse: [response at: 'headerStatus' put: #notFound.
		book formatBookTemplate: 'addressNotFound' request: request response: response shelf: shelf]