--- loncom/interface/londocs.pm	2024/01/10 20:07:37	1.709
+++ loncom/interface/londocs.pm	2024/12/15 02:22:53	1.711
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.709 2024/01/10 20:07:37 raeburn Exp $
+# $Id: londocs.pm,v 1.711 2024/12/15 02:22:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5402,7 +5402,7 @@ sub short_urls {
         }
         my %currtiny = &Apache::lonnet::dump('tiny',$cdom,$cnum);
         $r->print(&Apache::loncourserespicker::create_picker($navmap,'shorturls',$formname,$crstype,undef,
-                                                             undef,undef,undef,undef,undef,\%currtiny,$readonly));
+                                                             undef,undef,undef,undef,undef,\%currtiny,undef,$readonly));
     }
     $r->print(&endContentScreen());
 }
@@ -6694,7 +6694,18 @@ SEDFFORM
             $checkcrsres = 1;
         } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'} ne '0') {
             my %domdefs=&Apache::lonnet::get_domain_defaults($coursedom);
-            if ($domdefs{'crsauthor'}) {
+            my $type = lc($env{'course.'.$env{'request.course.id'}.'.type'});
+            unless (($type eq 'community') || ($type eq 'placement')) {
+                $type = 'unofficial';
+                if ($env{'course.'.$env{'request.course.id'}.'internal.coursecode'} ne '') {
+                    $type = 'official';
+                } elsif ($env{'course.'.$env{'request.course.id'}.'internal.textbook'} ne '') {
+                    $type = 'textbook';
+                } else {
+                    $type = 'unofficial';
+                }
+            }
+            if ($domdefs{$type.'crsauthor'}) {
                 $checkcrsres = 1;
             }
         }