[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sat Mar 13 19:47:33 2010 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Sanity checking in &courseidput() to avoid ISEs.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1053 loncom/lonnet/perl/lonnet.pm:1.1054
--- loncom/lonnet/perl/lonnet.pm:1.1053	Mon Mar  8 14:28:50 2010
+++ loncom/lonnet/perl/lonnet.pm	Sat Mar 13 19:47:33 2010
@@ -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 courseidput {
     my ($domain,$storehash,$coursehome,$caller) = @_;
+    return unless (ref($storehash) eq 'HASH');
     my $outcome;
     if ($caller eq 'timeonly') {
         my $cids = '';