--- loncom/interface/loncreatecourse.pm	2010/05/14 18:29:52	1.138
+++ loncom/interface/loncreatecourse.pm	2010/09/23 21:25:43	1.145
@@ -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.145 2010/09/23 21:25:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -299,7 +299,7 @@ END
              .&Apache::lonhtmlcommon::row_closure()
 
              .&Apache::lonhtmlcommon::row_title($lt{'ctit'})
-             .'<input type="text" size="50" name="title" />'
+             .'<input type="text" size="80" name="title" />'
              .&Apache::lonhtmlcommon::row_closure()
 
              .&Apache::lonhtmlcommon::row_title($lt{'chsr'})
@@ -359,15 +359,21 @@ END
                  .'<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()
 
@@ -683,7 +689,7 @@ sub create_course {
 		      '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');
 	}
         # Flush the course logs so reverse user roles immediately updated
-	&Apache::lonnet::flushcourselogs();
+	$r->register_cleanup(\&Apache::lonnet::flushcourselogs);
 	$r->print('<p>'.&mt('Roles will be active at next login').'.</p>');
     }
     $r->print('<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.
@@ -710,7 +716,7 @@ sub print_intro_page {
                url => '/adm/createcourse?phase=courseone',
                permission => 1,
                #help => '',
-               icon => 'ccrs.png',
+               icon => 'crsnew.png',
                linktitle => 'Create a new course by completing an online form.'
           },
           {
@@ -718,7 +724,7 @@ sub print_intro_page {
                url => '/adm/createcourse?phase=groupone',
                permission => $show_all_choices,
                #help => '',
-               icon => 'ccrs.png',
+               icon => 'crsnew.png',
                linktitle => 'Create a new collaborative community by completing an online form.'
           },
           {
@@ -726,7 +732,7 @@ sub print_intro_page {
                url => '/adm/createcourse?phase=batchone',
                permission => 1,
                help => 'Batch_Creation',
-               icon => 'ccrs.png',
+               icon => 'uplcrs.png',
                linktitle => 'Upload an attributes file containing specifications for one or more courses or communities in XML format.'
           },
        ]
@@ -738,15 +744,16 @@ sub print_intro_page {
                url => '/adm/createcourse?phase=requestdisplay',
                permission => $show_all_choices,
                #help => '',
-               icon => 'ccrs.png',
+               icon => 'rcrs.png',
                linktitle => 'Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'
            },
            {
-               linktext => 'Display official course requests',
+               linktext => 'View pending official course requests',
                url => '/adm/createcourse?phase=pendingdisplay',
                permission => $show_all_choices,
                #help => '',
-               icon => 'ccrs.png',
+               icon => 'edit-find.png',
+               alttext => '',
                linktitle => 'Display official course requests submitted by authorized users, held pending validation of instructor status.'
            },
        ]
@@ -925,7 +932,7 @@ sub print_creation_logs {
     if ($numtitles) {
         if (($curr{'type'} eq 'official') || ($curr{'type'} eq 'unofficial')) {
             $instcodefilter = &instcode_srchstr($dom,$numtitles);
-                &Apache::courseclassifier::instcode_search_str($dom,$numtitles);
+                &Apache::courseclassifier::instcode_search_str($dom,$numtitles,\@codetitles);
             if ($curr{'type'} eq 'official') {
                 $regexpok = 1;
             } else {