From ae1d5dfe591191ef8c11673d382e6b7ee66c1947 Mon Sep 17 00:00:00 2001 From: mattf Date: Wed, 2 Aug 2006 17:38:28 +0000 Subject: [PATCH] small bug fix to agi-record-prompt.agi git-svn-id: svn://192.168.202.10@108 3d104415-ff17-0410-8863-d5cf3c621b8a --- agc_1-X/trunk/agi-record_prompts.agi | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/agc_1-X/trunk/agi-record_prompts.agi b/agc_1-X/trunk/agi-record_prompts.agi index 2e61863d..a8f656dd 100644 --- a/agc_1-X/trunk/agi-record_prompts.agi +++ b/agc_1-X/trunk/agi-record_prompts.agi @@ -59,20 +59,20 @@ $REC_next = 0; if (-e "/prompt_count.txt") { - open(test, "prompt_count.txt") || die "can't open prompt_count.txt: $!\n"; + open(test, "/prompt_count.txt") || die "can't open /prompt_count.txt: $!\n"; @test = ; close(test); $REC_next = ($test[0] + 1); $REC_id = ($REC_id + $REC_next); - open(test, ">prompt_count.txt") || die "can't open prompt_count.txt: $!\n"; + open(test, ">/prompt_count.txt") || die "can't open /prompt_count.txt: $!\n"; print test "$REC_next"; close(test); } else { - open(test, ">prompt_count.txt") || die "can't open prompt_count.txt: $!\n"; + open(test, ">/prompt_count.txt") || die "can't open /prompt_count.txt: $!\n"; print test "1"; close(test); $REC_id = ($REC_id + 1);