--- loncom/lonnet/perl/lonnet.pm	2001/01/11 10:43:09	1.95
+++ loncom/lonnet/perl/lonnet.pm	2001/01/11 11:08:37	1.96
@@ -693,8 +693,7 @@ sub coursedescription {
     if ($chome ne 'no_host') {
        my $rep=reply("dump:$cdomain:$cnum:environment",$chome);
        if ($rep ne 'con_lost') {
-           my $normalid=$courseid;
-           $normalid=~s/\//\_/g;
+           my $normalid=$cdomain.'_'.$cnum;
            my %envhash=();
            my %returnhash=('home'   => $chome, 
                            'domain' => $cdomain,
@@ -1595,9 +1594,6 @@ sub EXT {
       if ($ENV{'request.course.id'}) {
 # ----------------------------------------------------- Cascading lookup scheme
        my $symbp=&symbread();
-       unless ($symbp) {
-           &logthis('No symb for '.$ENV{'request.filename'});
-       } 
        my $mapp=(split(/\_\_\_/,$symbp))[0];
 
        my $symbparm=$symbp.'.'.$spacequalifierrest;
@@ -1642,17 +1638,14 @@ sub EXT {
       }
 
 # -------------------------------------------------------- second, check course
-        my $section='';
-        if ($ENV{'request.course.sec'}) {
-	    $section='_'.$ENV{'request.course.sec'};
-        }
+
         my $reply=&reply('get:'.
-              $ENV{'course.'.$ENV{'request.course.id'}.$section.'.domain'}.':'.
-              $ENV{'course.'.$ENV{'request.course.id'}.$section.'.num'}.
+              $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
+              $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.
 	      ':resourcedata:'.
    &escape($seclevelr).'&'.&escape($seclevelm).'&'.&escape($seclevel).'&'.
    &escape($courselevelr).'&'.&escape($courselevelm).'&'.&escape($courselevel),
-		   $ENV{'course.'.$ENV{'request.course.id'}.$section.'.home'});
+		   $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
       if ($reply!~/^error\:/) {
 	  map {
 	      if ($_) { return &unescape($_); }
@@ -1661,11 +1654,11 @@ sub EXT {
       if (($reply=~/^con_lost/) || ($reply=~/^error\:/)) {
 	  &logthis("<font color=blue>WARNING:".
                 " Getting ".$reply." asking for ".$varname." for ".
-                $ENV{'course.'.$ENV{'request.course.id'}.$section.'.num'}.
+                $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.
                 ' at '.
-                $ENV{'course.'.$ENV{'request.course.id'}.$section.'.domain'}.
+                $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.
                 ' from '.
-                $ENV{'course.'.$ENV{'request.course.id'}.$section.'.home'}.
+                $ENV{'course.'.$ENV{'request.course.id'}.'.home'}.
                  "</font>");
       }
 # ------------------------------------------------------ third, check map parms