--- loncom/interface/loncommon.pm	2016/11/21 00:06:19	1.1264
+++ loncom/interface/loncommon.pm	2016/11/22 00:43:12	1.1265
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1264 2016/11/21 00:06:19 raeburn Exp $
+# $Id: loncommon.pm,v 1.1265 2016/11/22 00:43:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2185,7 +2185,7 @@ sub crsauthor_url {
 }
 
 sub import_crsauthor_form {
-    my ($form,$firstselectname,$secondselectname,$onchangefirst,$only,$suffix) = @_;
+    my ($form,$firstselectname,$secondselectname,$onchangefirst,$only,$suffix,$disabled) = @_;
     return (0) unless ($env{'request.course.id'});
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};