diff --git a/main/}bedrock.hier.unwind.pro b/main/}bedrock.hier.unwind.pro index 2f0f12f..12b5fb9 100644 --- a/main/}bedrock.hier.unwind.pro +++ b/main/}bedrock.hier.unwind.pro @@ -141,6 +141,11 @@ ENDIF; ### Validate Parameters ### nErrors = 0; +# If blank delimiter specified then convert to default +If( pDelim @= '' ); + pDelim = '&'; +EndIf; + If( Scan( '*', pDim ) = 0 & Scan( '?', pDim ) = 0 & Scan( pDelim, pDim ) = 0 & Scan( ':', pDim ) > 0 & pHier @= '' ); # A hierarchy has been passed as dimension. Handle the input error by splitting dim:hier into dimension & hierarchy pHier = SubSt( pDim, Scan( ':', pDim ) + 1, Long( pDim ) ); @@ -192,11 +197,6 @@ ElseIf( Trim( pConsol ) @= '' ); LogOutput( cMsgErrorLevel, Expand( cMsgErrorContent ) ); Endif; -# If blank delimiter specified then convert to default -If( pDelim @= '' ); - pDelim = '&'; -EndIf; - ### Check for errors before continuing If( nErrors <> 0 ); If( pStrictErrorHandling = 1 );