From e89776529962ea8827aefde4a46516047c8897b1 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 14 Feb 2012 18:34:30 -0500
Subject: [PATCH] Pipe colors now stripped from file list exports

---
 mystic/bbs_filebase.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 0d45b85..9585cef 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -487,9 +487,9 @@ Begin
       AreaSize  := 0;
 
       WriteLn (TF, '');
-      WriteLn (TF, '.-' + strRep('-', Length(FBase.Name)) + '-.');
-      WriteLn (TF, '| ' + FBase.Name + ' |');
-      WriteLn (TF, '`-' + strRep('-', Length(FBase.Name)) + '-''');
+      WriteLn (TF, '.-' + strRep('-', Length(strStripPipe(FBase.Name))) + '-.');
+      WriteLn (TF, '| ' + strStripPipe(FBase.Name) + ' |');
+      WriteLn (TF, '`-' + strRep('-', Length(strStripPipe(FBase.Name))) + '-''');
       WriteLn (TF, '.' + strRep('-', 77) + '.');
       WriteLn (TF, '| File     Size    Date    Description                                        |');
       WriteLn (TF, '`' + strRep('-', 77) + '''');