Changeset 13890

Timestamp:

2007-02-10T15:02:03+13:00 (17 years ago)

Author:

qq6

Message:

fixed a bug

File:

• trunk/gsdl/perllib/classify/NewList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/NewList.pm

@@ -153 +153 @@
 
     my $i;
-    for ($i=0;($i<$size);$i++){
+    for ($i=0;($i<@list);$i++){
     $metavaluetoOIDhash{$list[$i]}=$lastmodified_values[$i];
     }