[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface lonpickcourse.pm

[raeburn]

raeburn		Sat Nov 13 14:43:08 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	lonpickcourse.pm 
  Log:
  - Backport 1.100.
  
  
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.93.2.2 loncom/interface/lonpickcourse.pm:1.93.2.3
--- loncom/interface/lonpickcourse.pm:1.93.2.2	Fri Aug 20 20:14:03 2010
+++ loncom/interface/lonpickcourse.pm	Sat Nov 13 14:43:08 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.93.2.2 2010/08/20 20:14:03 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.93.2.3 2010/11/13 14:43:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -834,7 +834,11 @@
 
 sub get_coordinator_cloneable {
     my ($cloneruname,$clonerudom,$type) = @_;
-    if (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') {
+    if (($cloneruname!~/\w/) || ($clonerudom!~/\w/)) {
+        my $warning = '<div class="LC_warning">'.&mt('Intended course owner not specified').
+                      '</div>';
+        return ('',$warning);
+    } elsif (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') {
         my $warning = '<div class="LC_error">'.&mt('Intended course owner does not exist').
                    '</div>';
         return ('',$warning);