--- loncom/Lond.pm	2013/07/24 18:21:52	1.5
+++ loncom/Lond.pm	2014/01/01 17:41:37	1.6
@@ -1,6 +1,6 @@
 # The LearningOnline Network
 #
-# $Id: Lond.pm,v 1.5 2013/07/24 18:21:52 bisitz Exp $
+# $Id: Lond.pm,v 1.6 2014/01/01 17:41:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -333,7 +333,7 @@ sub dump_course_id_handler {
     my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter,
         $typefilter,$regexp_ok,$rtn_as_hash,$selfenrollonly,$catfilter,$showhidden,
         $caller,$cloner,$cc_clone_list,$cloneonly,$createdbefore,$createdafter,
-        $creationcontext,$domcloner) = split(/:/,$tail);
+        $creationcontext,$domcloner,$hasuniquecode) = split(/:/,$tail);
     my $now = time;
     my ($cloneruname,$clonerudom,%cc_clone);
     if (defined($description)) {
@@ -406,6 +406,9 @@ sub dump_course_id_handler {
     } else {
         $creationcontext = '.';
     }
+    unless ($hasuniquecode) {
+        $hasuniquecode = '.';
+    }
     my $unpack = 1;
     if ($description eq '.' && $instcodefilter eq '.' && $ownerfilter eq '.' && 
         $typefilter eq '.') {
@@ -530,6 +533,9 @@ sub dump_course_id_handler {
                         next if !$showhidden;
                     }
                 }
+                if ($hasuniquecode ne '.') {
+                    next unless ($items->{'uniquecode'});
+                }
             } else {
                 next if ($catfilter ne '');
                 next if ($selfenrollonly);