FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Mon Aug 22 00:00:21 CEST 2005


Index: freexp/xp4o2.pas
===================================================================
RCS file: /server/cvs/freexp/xp4o2.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- freexp/xp4o2.pas	1 Jan 2005 11:16:30 -0000	1.15
+++ freexp/xp4o2.pas	21 Aug 2005 05:52:55 -0000	1.16
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp4o2.pas,v 1.15 2005/01/01 11:16:30 mw Exp $ }
+{ $Id: xp4o2.pas,v 1.16 2005/08/21 05:52:55 mw Exp $ }
 
 { CrossPoint: DBs packen, Kommentarbaum u.a. }
 
@@ -558,6 +558,7 @@
 var
   f: File;
   FSize: Word;
+  zwiref: string;  { HJT 15.08.2005 }
 begin
   if ReCount(betr)=0 then;
   rmessage(475);    { 'Kommentarbaum einlesen...' }
@@ -575,9 +576,13 @@
       bez:=GetBezug(hdp^.ref);
       if bez<>0 then
         dbGo(mbase,bez)
-      else
-        nullid:=MsgidIndex(hdp^.ref);
-      end;
+      else begin        
+        zwiref := hdp^.ref;
+        if left(zwiref,1)='<' then delfirst(zwiref);  
+        if right(zwiref,1)='>' then dellast(zwiref);
+        nullid:=MsgidIndex(zwiref);
+        end;
+      end;      
     inc(n);
   until (n=emax) or (bez=0);
   dispose(hdp);
@@ -629,6 +634,7 @@
     dat2     : longint;
     mi       : shortint;
     vor      : boolean;
+	zwiref   : string; { HJT 15.08.2005 }
 begin
   new(hdp);
   mi:=dbGetIndex(bezbase);
@@ -636,7 +642,13 @@
   BezSeek:=false;
   ReadHeader(hdp^,hds,true);
   if (hds>1) and (hdp^.ref<>'') then begin
-    ref:=MsgidIndex(hdp^.ref);
+    { HJT 15.08.2005 start }
+    zwiref := hdp^.ref;
+    if left(zwiref,1)='<'  then delfirst(zwiref);  
+    if right(zwiref,1)='>' then dellast(zwiref);
+    ref:=MsgidIndex(zwiref);
+    { ref:=MsgidIndex(hdp^.ref); }
+    { HJT 15.08.2005 end }
     dbSeek(bezbase,beiRef,dbLongStr(ref));
     if dbFound then begin
       vor:=true;
@@ -927,6 +939,11 @@
 end.
 {
   $Log: xp4o2.pas,v $
+  Revision 1.16  2005/08/21 05:52:55  mw
+  HJT: - Verbesserung der Bezugsverkettung:
+         Bei Refernences werden jetzt die begrenzenden spitzen Klammern
+         entfernt.
+
   Revision 1.15  2005/01/01 11:16:30  mw
   MW: - Willkommen im Jahr 2005
 
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- freexp/xp9.pas	9 Apr 2005 15:55:52 -0000	1.26
+++ freexp/xp9.pas	21 Aug 2005 10:47:01 -0000	1.27
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp9.pas,v 1.26 2005/04/09 15:55:52 mw Exp $ }
+{ $Id: xp9.pas,v 1.27 2005/08/21 10:47:01 mw Exp $ }
 
 
 { CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -152,10 +152,7 @@
 function UniSel(typ:byte; edit:boolean; default:string):string;
 const maxgl   = 40;
       dsellen = 20;
-var d         : DB;
-    p0,p,gl   : integer;
-    t         : taste;
-    drec      : array[1..maxgl] of longint;
+var t         : taste;    
     x,y       : byte;
     width     : byte;
     buttons   : string[60];
@@ -1105,6 +1102,9 @@
 end.
 {
   $Log: xp9.pas,v $
+  Revision 1.27  2005/08/21 10:47:01  mw
+  MW: - Fix Edit/Viewer
+
   Revision 1.26  2005/04/09 15:55:52  mw
   MW: - Kleinen Typo beseitigt.
 
Index: freexp/xp9mime.pas
===================================================================
RCS file: /server/cvs/freexp/xp9mime.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- freexp/xp9mime.pas	4 Mar 2005 14:20:59 -0000	1.1
+++ freexp/xp9mime.pas	21 Aug 2005 10:47:01 -0000	1.2
@@ -6,7 +6,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp9mime.pas,v 1.1 2005/03/04 14:20:59 mw Exp $ }
+{ $Id: xp9mime.pas,v 1.2 2005/08/21 10:47:01 mw Exp $ }
 
 { --- Bearbeitungs-Routinen für MIME-Typen-Liste ---------------- }
 {$I XPDEFINE.INC}
@@ -16,6 +16,12 @@
 
 interface
 
+const maxgl   = 40;
+var  d         : pointer;
+     drec      : array[1..maxgl] of longint;
+     p0,p,gl   : integer;
+
+
   procedure ReadMimetyp(edit:boolean; var typ,ext,prog:string;
                         var brk:boolean);
   procedure EditMimetyp(isNew: Boolean);
@@ -26,11 +32,6 @@
 uses xp3,typeform,xp1,resource,maske,xp0,xp9sel,dbase,datadef,database,
      xp2b,xp1input;
 
-const maxgl   = 40;
-var  d         : DB;
-     drec      : array[1..maxgl] of longint;
-     p0,p,gl   : integer;
-
   { --- Bearbeitungs-Routinen für MIME-Typen-Liste ------------------}
 
   procedure ReadMimetyp(edit:boolean; var typ,ext,prog:string;
@@ -151,6 +152,9 @@
 end.
 {
   $Log: xp9mime.pas,v $
+  Revision 1.2  2005/08/21 10:47:01  mw
+  MW: - Fix Edit/Viewer
+
   Revision 1.1  2005/03/04 14:20:59  mw
   MW: - Speicherproblem in xp9.pas beseitigt.
         (Unit xp9 wurde zu groß fürs Overlay)
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.45
retrieving revision 1.47
diff -u -r1.45 -r1.47
--- freexp/doc/snapshot.dq	6 Jul 2005 15:43:09 -0000	1.45
+++ freexp/doc/snapshot.dq	21 Aug 2005 10:53:59 -0000	1.47
@@ -64,7 +64,8 @@
 J.   2. Inoffizelle Citycarrier-Edition vom 14.03.2005, 10:30 Uhr
 K.   3. Inoffizelle Citycarrier-Edition vom 17.03.2005, 20:10 Uhr
 L.   Inoffizelle Extented-Command-Edition vom 06.07.2005, 18:00 Uhr
-M.   Snapshot vom xx.xx.2005, xx:xx Uhr
+M.   Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr
+N.   Snapshot vom xx.xx.2005, xx:xx Uhr
 ###
 
 1. FreeXP - Support und Kontakte
@@ -4784,7 +4785,29 @@
 
 %
 %
+%Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr
+%---------------------------------------------------------------
+M.   Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr
+--------------------------------------------------------------------
+■  21.08.2005
+-------------
+HJT:
+%!  Bezugsverkettung verbessert.
+- Bei References werden jetzt die begrenzenden
+  spitzen Klammern entfernt.
+  XP4O2.PAS
+
+MW:
+%!  Edit/Viewer funktioniert wieder.
+- Durch Betreibsblindheit wurde der Menuepunkt
+  Edit/Viewer funktionsunfähig gemacht. Soll
+  heißen: Bei jedem Änderungsversuch kam es
+  zum Absturz wegen DB-Error.
+  XP9.PAS, Xp9MIME.PAS
+
+%
+%
 %Snapshot vom xx.xx.2005, xx:xx Uhr
 %----------------------------------
-M.   Snapshot vom xx.xx.2005, xx:xx Uhr
+N.   Snapshot vom xx.xx.2005, xx:xx Uhr
 ---------------------------------------



Mehr Informationen über die CVS-List Mailingliste