loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.436, 2010/01/31 04:31:00
+version 1.437, 2010/02/21 02:02:51
  Line 3870  sub dump_course_id_handler {
                              $items->{'cloners'} = $cloneruname.':'.$clonerudom;
                              $valchange = 1;
                          }
+                         unless ($canclone) {
+                             if ($items->{'owner'} =~ /:/) {
+                                 if ($items->{'owner'} eq $cloner) {
+                                     $canclone = 1;
+                                 }
+                             } elsif ($cloner eq $udom.':'.$items->{'owner'}) {
+                                 $canclone = 1;
+                             }
+                             if ($canclone) {
+                                 $items->{'cloners'} = $cloneruname.':'.$clonerudom;
+                                 $valchange = 1;
+                             }
+                         }
                      }
                  }
                  if ($unpack || !$rtn_as_hash) {