+
+ // BUG :
+ // Ecriture incorrecte si (7FE0 0000) absent et aucun element apres groupe 7FE0 :-(
+ // A JETTER !
+ //
+}
+
+//
+// Remplacera UpdateGroupLength
+// Commite par precaution.
+// Ne pas utiliser
+//
+
+void gdcmElValSet::UpdateGroupLengthNew(bool SkipSequence, FileType type) {
+ guint16 gr, el;
+ string vr;
+
+ gdcmElValue *elem;
+ char trash[10];
+ GroupKey key;
+ GroupHT groupHt;
+
+ for (TagElValueHT::iterator tag2 = tagHt.begin();
+ tag2 != tagHt.end();
+ ++tag2){
+
+ elem = tag2->second;
+ gr = elem->GetGroup();
+ el = elem->GetElement();
+ vr = elem->GetVR();
+
+ sprintf(trash, "%04x", gr);
+ key = trash;
+
+ if (SkipSequence && vr == "SQ") continue;
+ // pas SEQUENCE en ACR-NEMA
+ // WARNING : pb CERTAIN
+ // si on est descendu 'a l'interieur' des SQ
+ //
+ // --> la descente a l'interieur' des SQ
+ // devra etre faite avec une liste chainee, pas avec une HTable...
+
+ if ( groupHt.count(key) == 0) {
+ groupHt[key] = 2 + 2 + 4 + 4; // creation automatique, par affectation ???
+ } else {
+ if (type = ExplicitVR) {
+ if ( (vr == "OB") || (vr == "OW") || (vr == "SQ") ) {
+ groupHt[key] += 4;
+ }
+ }
+ groupHt[key] += 2 + 2 + 4 + elem->GetLength();
+ }
+ }
+
+ // Liberer groupHt !