--- loncom/Lond.pm	2012/07/17 14:49:39	1.4
+++ loncom/Lond.pm	2014/01/01 17:41:37	1.6
@@ -1,6 +1,6 @@
 # The LearningOnline Network
 #
-# $Id: Lond.pm,v 1.4 2012/07/17 14:49:39 droeschl 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);
@@ -776,7 +782,7 @@ Returns: 1 (Continue processing).
 
 Side effects: response is written to $client.  
 
-=item dump_couse_id_handler
+=item dump_course_id_handler
 
 #TODO copy from lond