Index: svn/Command.cls.xml =================================================================== diff -u -r1521 -r1557 --- svn/Command.cls.xml (.../Command.cls.xml) (revision 1521) +++ svn/Command.cls.xml (.../Command.cls.xml) (revision 1557) @@ -270,6 +270,7 @@ set tSC=$$$OK quit:pLine="" tSC + w !,pLine set tResult=##class(svn.CommandResult).%New() if $zcvt(pLine,"L")["could not connect" set ..IsDisconnected=1 @@ -280,18 +281,12 @@ set tResult.LastCommittedDate=$p(pLine," ",4,5) } // +DK 1.21 - } elseif (..SubCommand="status")&&($zcvt(pLine,"L")[".xml") { + } elseif (..SubCommand="status") { // strip all whitespaces - #if $system.Version.GetMajor()=5 - set tLine=##class(TECH.StringUtils).Replace($e(pLine,9,$length(pLine))," "," ",,,1) - #else - set tLine=$zstrip($e(pLine,9,$length(pLine)),"=",$$$SPACE) - #endif + set tLine=$zstrip($e(pLine,9,$length(pLine)),"=",$$$SPACE) set tResult.Action=$e(pLine,1) set tLen=$l(tLine,$$$SPACE) set tResult.ExternalName=$p(tLine,$$$SPACE,tLen) - // Guessing here... - // only "table" lines set tResult.Properties=$e(pLine,2) set tResult.Lock=$e(pLine,3) set tResult.History=$e(pLine,4) @@ -304,14 +299,9 @@ set tResult.LastCommittedRevision=$p(tLine,$$$SPACE,3) set tResult.LastCommittedAuthor=$p(tLine,$$$SPACE,4) } - // +DK 1.21 - } elseif (..SubCommand="checkout")&&($zcvt(pLine,"L")[".xml") { + } elseif (..SubCommand="checkout") { // strip all whitespaces - #if $system.Version.GetMajor()=5 - set tLine=##class(TECH.StringUtils).Replace(pLine," "," ",,,1) - #else set tLine=$zstrip(pLine,"=",$$$SPACE) - #endif set tResult.Action=$e(pLine,1) set tLen=$l(tLine,$$$SPACE) set tResult.ExternalName=$p(tLine,$$$SPACE,tLen) @@ -347,6 +337,7 @@ // TODO } + set tResult.Action = $translate(tResult.Action," ","") set tResult.Command=##this set tSC=tResult.%Save()