Changeset 316

Timestamp:

12/03/07 15:18:11 (16 years ago)

Author:

smasson

Message:

bugfix when using report in $

File:

• trunk/SRC/Utilities/report.pro (modified) (1 diff)

trunk/SRC/Utilities/report.pro

@@ -75 +75 @@
 ;    "; $Id$"
     prefix = routine_name(1)
-    split = STRSPLIT(prefix, ' ', /EXTRACT)  
-    coderoutine = getfile(split[1])
-    idline = (where(stregex(coderoutine, '^; \$Id: .* .* .* .* \$', /boolean) EQ 1))[0]
-    IF (idline GT 0) THEN BEGIN
-      split = STRSPLIT(coderoutine[idline], ' ', /EXTRACT)
-      prefix = '% '+prefix+ ' rev. ' + split[3] + ': '
-    ENDIF ELSE BEGIN
-      prefix = '% '+prefix+': '
-    ENDELSE
+    split = STRSPLIT(prefix, ' ', /EXTRACT, count = cnt)  
+    IF cnt GT 1 THEN BEGIN
+      coderoutine = getfile(split[1])
+      idline = (where(stregex(coderoutine, '^; \$Id: .* .* .* .* \$', /boolean) EQ 1))[0]
+      IF (idline GT 0) THEN BEGIN
+        split = STRSPLIT(coderoutine[idline], ' ', /EXTRACT)
+        prefix = '% '+prefix+ ' rev. ' + split[3] + ': '
+      ENDIF ELSE BEGIN
+        prefix = '% '+prefix+': '
+      ENDELSE
+    ENDIF
     text = [prefix, text]
   ENDIF