From: <pi...@us...> - 2003-05-28 17:40:43
|
Update of /cvsroot/gmod/schema/XMLTools/XORT/Loader In directory sc8-pr-cvs1:/tmp/cvs-serv21656/XORT/Loader Modified Files: XMLParser.pm Log Message: Index: XMLParser.pm =================================================================== RCS file: /cvsroot/gmod/schema/XMLTools/XORT/Loader/XMLParser.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** XMLParser.pm 15 May 2003 16:51:38 -0000 1.1 --- XMLParser.pm 28 May 2003 17:28:42 -0000 1.2 *************** *** 6,10 **** use lib $ENV{CodeBase}; use XML::Parser::PerlSAX; ! use XORT:Util::DbUtil::DB; use strict; --- 6,10 ---- use lib $ENV{CodeBase}; use XML::Parser::PerlSAX; ! use XORT::Util::DbUtil::DB; use strict; *************** *** 314,320 **** } } ! else { ! $hash_data_ref=&_extract_hash($AoH_data[$level], $hash_level_name{$level-1}); ! } # for empty hash_ref, will do nothing(other way to test undefined hash ? ) my @temp; --- 314,318 ---- } } ! # for empty hash_ref, will do nothing(other way to test undefined hash ? ) my @temp; *************** *** 325,328 **** --- 323,327 ---- } if ($#temp >-1 ){ + #print "\nthere is data for main module table:$hash_level_name{$level-1}"; my $hash_ref=&_data_check($hash_data_ref, $hash_level_name{$level-1}, $level, \%hash_level_id, \%hash_level_name ); |