From 4ac58631c4c4b09fa74f184b9ba381cd4d382387 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 12 Jun 1996 08:32:36 +0000
Subject: [PATCH] COrretto ordinamento moduli

git-svn-id: svn://10.65.10.50/trunk@2988 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba1500.cpp | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/ba/ba1500.cpp b/ba/ba1500.cpp
index 204727c72..ffec9412e 100755
--- a/ba/ba1500.cpp
+++ b/ba/ba1500.cpp
@@ -32,6 +32,7 @@ TInformazione_moduli::TInformazione_moduli()
   char _buffer[256];
   TString  s;
   TToken_string t;
+  TString_array descs;
   
   _unassigned_modules = 0;
   ifstream  in("prassi.aut");
@@ -52,7 +53,11 @@ TInformazione_moduli::TInformazione_moduli()
       t = " "; t.add(" ");
       _unassigned_modules++;
     }
-    t.add(mod++);
+    t.add(mod++); 
+    TString d(t.get(0));
+    descs.add(d);
+    d.upper();
+    t.add(d, 0);
     _infos.add(t);
   }
   
@@ -63,7 +68,10 @@ TInformazione_moduli::TInformazione_moduli()
   for (int i=0;i<mod;i++)
   {
     TToken_string& riga = _infos.row(i);
-    _index[atoi(riga.get(2))] = i;
+    const int mod = riga.get_int(2);
+    _index[mod] = i;         
+    const TString d(descs.row(mod).get(0));
+    riga.add(d, 0);
   }
 }