--- loncom/lonnet/perl/lonnet.pm	2010/03/08 14:28:50	1.1053
+++ loncom/lonnet/perl/lonnet.pm	2010/03/13 19:47:33	1.1054
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1053 2010/03/08 14:28:50 raeburn Exp $
+# $Id: lonnet.pm,v 1.1054 2010/03/13 19:47:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3019,6 +3019,7 @@ sub getannounce {
 
 sub courseidput {
     my ($domain,$storehash,$coursehome,$caller) = @_;
+    return unless (ref($storehash) eq 'HASH');
     my $outcome;
     if ($caller eq 'timeonly') {
         my $cids = '';