[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface loncreatecourse.pm
raeburn
raeburn@source.lon-capa.org
Mon, 24 May 2010 06:43:33 -0000
raeburn Mon May 24 06:43:33 2010 EDT
Modified files: (Branch: version_2_9_X)
/loncom/interface loncreatecourse.pm
Log:
- Backport 1.139.
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.137 loncom/interface/loncreatecourse.pm:1.137.4.1
--- loncom/interface/loncreatecourse.pm:1.137 Tue Apr 13 21:19:15 2010
+++ loncom/interface/loncreatecourse.pm Mon May 24 06:43:32 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.137 2010/04/13 21:19:15 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.137.4.1 2010/05/24 06:43:32 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -359,15 +359,21 @@
.'<label>'
.'<input type="radio" name="firstres" value="blank" />'.$lt{'blnk'}
.'</label>'
- .' '
- .'<label>'
+ .' ');
+ 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>'
.' '
.'<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()