[LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm

[raeburn]

raeburn		Mon May 24 06:36:54 2010 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm 
  Log:
  - A syllabus doesn't make sense for a Community.
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.138 loncom/interface/loncreatecourse.pm:1.139
--- loncom/interface/loncreatecourse.pm:1.138	Fri May 14 18:29:52 2010
+++ loncom/interface/loncreatecourse.pm	Mon May 24 06:36:54 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.138 2010/05/14 18:29:52 bisitz Exp $
+# $Id: loncreatecourse.pm,v 1.139 2010/05/24 06:36:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -359,15 +359,21 @@
                  .'<label>'
                  .'<input type="radio" name="firstres" value="blank" />'.$lt{'blnk'}
                  .'</label>'
-                 .'&nbsp;'
-                 .'<label>'
+                 .'&nbsp;');
+    if ($crstype eq 'Community') {
+        $r->print('<label>'
+                 .'<input type="radio" name="firstres" value="nav" checked="checked" />'.$lt{'navi'}
+                 .'</label>');
+    } else {
+        $r->print('<label>'
                  .'<input type="radio" name="firstres" value="syl" checked="checked" />'.$lt{'sllb'}
                  .'</label>'
                  .'&nbsp;'
                  .'<label>'
                  .'<input type="radio" name="firstres" value="nav" />'.$lt{'navi'}
-                 .'</label>'
-                 .'<br />('.$lt{'stco'}.')'
+                 .'</label>');
+    }
+    $r->print('<br />('.$lt{'stco'}.')'
                  .&Apache::lonhtmlcommon::row_closure(1)
                  .&Apache::lonhtmlcommon::end_pick_box()