Changeset 31767

Timestamp:

2017-06-30T11:03:07+12:00 (6 years ago)

Author:

kjdon

Message:

added missing closing )

File:

• main/trunk/greenstone2/perllib/classify/List.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify/List.pm

@@ -941 +941 @@
     # !! The [0] bits aren't ideal (multiple metadata values) !! 
     @OIDs = @OIDs[ sort {
-      if (defined($OID_to_metadata_values_hash_ref->{$OIDs[$a]} && defined($OID_to_metadata_values_hash_ref->{$OIDs[$b]})))
+      if (defined($OID_to_metadata_values_hash_ref->{$OIDs[$a]}) && defined($OID_to_metadata_values_hash_ref->{$OIDs[$b]}))
       {
         $OID_to_metadata_values_hash_ref->{$OIDs[$a]}[0] cmp $OID_to_metadata_values_hash_ref->{$OIDs[$b]}[0];