Fix Author-Name extraction
authorStefan Vogel <sv@exept.de>
Fri, 24 Jan 2003 21:48:20 +0100
changeset 1690 56a73b16d62d
parent 1689 5aae4c617ffd
child 1691 6ee1100ba672
Fix Author-Name extraction
ToolApplicationModel.st
--- a/ToolApplicationModel.st	Fri Jan 24 17:34:07 2003 +0100
+++ b/ToolApplicationModel.st	Fri Jan 24 21:48:20 2003 +0100
@@ -85,9 +85,9 @@
                 line := s nextLine.   "/ line after [author:]
                 lines := OrderedCollection new.
                 [line notNil and:[line notEmpty]] whileTrue:[
-                    line := line trimBlanks.
+                    line := line withoutSeparators.
                     line size > 1 ifTrue:[
-                        lines add:line trimBlanks.
+                        lines add:line withoutSeparators.
                         line := s nextLine.
                     ] ifFalse:[
                         line := nil
@@ -97,7 +97,7 @@
             ]
         ]
     ].
-    ^ #('unnown')
+    ^ #('unknown')
 
     "Created: / 1.2.1998 / 15:41:43 / cg"
     "Modified: / 1.2.1998 / 15:59:10 / cg"
@@ -1368,5 +1368,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.113 2002-10-31 17:51:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.114 2003-01-24 20:48:20 stefan Exp $'
 ! !