2004-02-04 Benoit Regrain
      * FIX : WriteEntries : coding style & logic in parameters
+     * FIX : Set the elements to create the DicomDir in a dictionary file
 
 2004-02-03 Benoit Regrain
      * gdcmDirList : to parse a hard drive directory in recursive (or not)
 
 ### Expose only the necessary stuff
 gdcmGlobal       = gdcm.gdcmGlobal
 gdcmDictSet      = gdcm.gdcmDictSet
+gdcmDicomDir     = gdcm.gdcmDicomDir
 gdcmHeader       = gdcm.gdcmHeader
 gdcmHeaderHelper = gdcm.gdcmHeaderHelper
 gdcmFile         = gdcm.gdcmFile
 
 except IndexError:
    FileName = os.path.join(GDCM_DATA_PATH, "test.acr")
 
+try:
+   printLevel = int(sys.argv[2])
+except IndexError:
+   printLevel = 1
+
 #if not os.path.isfile(FileName):
 #   print "Cannot open file ", FileName
 #   sys.exit()
 print "### Display all the elements and their respective values"
 print "## found in the ", FileName, " file."
 print "##############################################################"
-ValDict = toRead.GetEntry()
-for key in ValDict.keys():
-       print "[%s] = [%s]" %(key, ValDict[key])
+toRead.SetPrintLevel(printLevel)
+toRead.Print()
+
+# ValDict = toRead.GetEntry()
+# for key in ValDict.keys():
+#      print "[%s] = [%s]" %(key, ValDict[key])
+