From 21ee43c9df240b0874f8a695ecef924ce2d824d7 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 29 Sep 2022 08:20:56 -0500
Subject: [PATCH] Importing Markdeep page metadata.

---
 src/MiniDocs/LeDatabase.extension.st | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st
index a489509..f3d3f16 100644
--- a/src/MiniDocs/LeDatabase.extension.st
+++ b/src/MiniDocs/LeDatabase.extension.st
@@ -1,23 +1,27 @@
 Extension { #name : #LeDatabase }
 
+{ #category : #'*MiniDocs' }
+LeDatabase >> addPageFromMarkdeep: markdeepDocTree [
+	| remoteMetadata page |
+	remoteMetadata := Markdeep new metadataFromXML: markdeepDocTree.
+	page := LePage new
+		title: (remoteMetadata at: 'title');
+		basicUid: (remoteMetadata at: 'id');
+		createTime: (remoteMetadata at: 'created');
+		editTime: ("ZTimestamp fromString:" (remoteMetadata at: 'modified'));
+		createEmail: (remoteMetadata at: 'creator');
+		editEmail: (remoteMetadata at: 'modifier').
+	^ {markdeepDocTree . page }
+	 
+]
+
 { #category : #'*MiniDocs' }
 LeDatabase >> addPageFromMarkdeepUrl: aString [
 
 	| page |
 	page := self detectLocalPageForRemote: aString.
 	page ifNotNil: [ :arg | ^ self importErrorMessage: page ].
-	^ self addPageFromString: (self docTreeForLink: aString)
-]
-
-{ #category : #'*MiniDocs' }
-LeDatabase >> addPageFromString: markdeepDocTree [
-	| remoteMetadata page |
-	remoteMetadata := Markdeep new metadataFromXML: markdeepDocTree.
-	page := LePage new
-		title: (remoteMetadata at: 'title');
-		basicUid: (remoteMetadata at: 'id').
-	^ {markdeepDocTree . page . remoteMetadata }
-	 
+	^ self addPageFromMarkdeep: (self docTreeForLink: aString)
 ]
 
 { #category : #'*MiniDocs' }