[subproc-cvs] subproc subproc,1.17,1.18

[Costin S. <cs...@us...>]

Update of /cvsroot/subproc/subproc
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv6372

Modified Files:
	subproc 
Log Message:
Fixed a bug whih caused the last subtitles to be lost when deleting.

Index: subproc
===================================================================
RCS file: /cvsroot/subproc/subproc/subproc,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- subproc	30 Jul 2006 20:49:10 -0000	1.17
+++ subproc	11 Sep 2006 17:49:02 -0000	1.18
@@ -493,9 +493,7 @@
 		if (strtonum(subtitles["begin", j]) > s)
 			if (strtonum(subtitles["begin", j]) < s + l)
 			{
-				delete subtitles["begin", j]
-				delete subtitles["end", j]
-				delete subtitles["text", j]
+				subtitles["text", j] = ""
 				d++
 			}
 			else
@@ -504,7 +502,6 @@
 				subtitles["end", j] = subtitles["end", j] - l
 			}
 	}
-	isub["total"] -= d
 }
 
 # vim: set ft=awk syn=awk nowrap nu :