--- loncom/interface/lonpickcourse.pm	2009/05/04 13:24:12	1.79
+++ loncom/interface/lonpickcourse.pm	2009/05/05 05:30:00	1.80
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.79 2009/05/04 13:24:12 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.80 2009/05/05 05:30:00 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -521,10 +521,12 @@ sub build_filters {
              );
 
     $typeselectform =  '<select name="type" size="1">'."\n";
+    my $officialjs;
     if ($type eq 'Course') {
         if ($env{'form.fixeddom'}) {
+            $officialjs = 1;
             ($instcodeform,$jscript,$$numtitlesref) = 
-                &instcode_selectors($codedom,'filterpicker');
+                &instcode_selectors($codedom,'filterpicker',$officialjs);
         }
         if ($instcodeform eq '') {
             $instcodeform = 
@@ -631,16 +633,27 @@ $multelement
 }
 
 sub instcode_selectors {
-    my ($codedom,$formname) = @_;
+    my ($codedom,$formname,$officialjs) = @_;
     my ($output,@codetitles,%cat_titles,%cat_order,%cat_items);
     my ($jscript,$totcodes,$numtitles,$lasttitle) =
         &Apache::courseclassifier::instcode_selectors_data($codedom,$formname,
-                           \%cat_items,\@codetitles,\%cat_titles,\%cat_order);
+                           \%cat_items,\@codetitles,\%cat_titles,\%cat_order,$officialjs);
     if ($numtitles > 0) {
-        $output = &Apache::courseclassifier::build_instcode_selectors($numtitles,
-                  $lasttitle,\%cat_items,\@codetitles,\%cat_titles,\%cat_order)."\n".
-                  '<input type="hidden" name="numtitles" value="'.$numtitles.'" />'."\n".
-                  '<input type="hidden" name="state" value="listing" />'."\n";
+        my $unofficial = ' checked="checked" ';
+        my $official = '';
+        if ($env{'form.official'}) {
+            $official = $unofficial;
+            $unofficial = '';
+        }
+        $output .= '<span class="LC_nobreak">'.&mt('Official course:').'&nbsp;<label>'.
+                   '<input type="radio" name="official" value="1"'.$official.' />'.
+                   &mt('Yes').'</label>'.('&nbsp;'x3).'<label>'.
+                   '<input type="radio" name="official" value="0"'.$unofficial.
+                   ' onclick="toggleOfficial();" />'.&mt('No').'</label></span><br />'.
+                   &Apache::courseclassifier::build_instcode_selectors($numtitles,
+                   $lasttitle,\%cat_items,\@codetitles,\%cat_titles,\%cat_order)."\n".
+                   '<input type="hidden" name="numtitles" value="'.$numtitles.'" />'."\n".
+                   '<input type="hidden" name="state" value="listing" />'."\n";
  
     }
     return ($output,$jscript,$numtitles);
@@ -657,24 +670,26 @@ sub search_courses {
             $filter->{'combownerfilter'} = $filter->{'ownerfilter'}.':'.
                                            $filter->{'ownerdomfilter'};
         }
-        foreach my $item ('descriptfilter','instcodefilter','coursefilter',
-                          'combownerfilter') {
+        foreach my $item ('descriptfilter','coursefilter','combownerfilter') {
             if (!$filter->{$item}) {
                 $filter->{$item}='.';
             }
         }
-        if ($type eq '') { $type = '.'; }
         my $timefilter = 
            ($filter->{'sincefilter'}==-1?1:time-$filter->{'sincefilter'});
         my ($instcodefilter,$regexpok);
         if ($numtitles) {
-            $instcodefilter = 
-                &Apache::courseclassifier::instcode_search_str($filter->{'domainfilter'},
-                                                               $numtitles);
-            $regexpok = 1;
+            if ($env{'form.official'}) {
+                $instcodefilter = 
+                    &Apache::courseclassifier::instcode_search_str($filter->{'domainfilter'},
+                                                                   $numtitles);
+                $regexpok = 1;
+            }
         } else {
             $instcodefilter = $filter->{'instcodefilter'};
         }
+        if ($instcodefilter eq '') { $instcodefilter = '.'; }
+        if ($type eq '') { $type = '.'; }
         %courses = 
             &Apache::lonnet::courseiddump($filter->{'domainfilter'},
                                           $filter->{'descriptfilter'},