oral perl problem( I can't update table!)

I can't update the table. I don't know why. I could do "select " statment using &ora_open;

$query1= "update $data_DB_Nm set pre_dept='$data{'pre_dept'}', pre_courseno='$data{'pro_no'}',instructor='$data{'inst_tamu_id'}', instruid='$data{'inst_logid'}' where courseno = $data{'course_id'} and sectionno = $data{'course_section'} and term='$semester' and dept = '$data{'dept'}';";

# I printed the $query1.The content is

update courseData set pre_dept='240', pre_courseno='23',instructor='123455', instruid='yoonjung' where courseno = 631 and sectionno = 600 and term='1999C' and dept = 'CPSC';

 $csr = &ora_open($lda, $query1) || die $ora_errstr;  warn "$ora_errstr" if $ora_errno;
print "MIDDLE OPEN<br>";
&ora_close($csr) || die $ora_errstr;

I executed "sql command that is the value of $query1" manually.It works. So i don't know why it does not work.

Thanks! Received on Mon Apr 24 2000 - 00:00:00 CEST