[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Wed Jun  8 20:49:09 2022 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Reverse changes in rev. 1.687. declutter() already removed any leading
    adm/wrapper/.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1486 loncom/lonnet/perl/lonnet.pm:1.1487
--- loncom/lonnet/perl/lonnet.pm:1.1486	Wed Jun  8 01:42:20 2022
+++ loncom/lonnet/perl/lonnet.pm	Wed Jun  8 20:49:09 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1486 2022/06/08 01:42:20 raeburn Exp $
+# $Id: lonnet.pm,v 1.1487 2022/06/08 20:49:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -13749,14 +13749,10 @@
     my %bighash;
     my $syval='';
     if (($env{'request.course.fn'}) && ($thisfn)) {
-        my $targetfn = $thisfn;
-	if ($targetfn =~ m|^adm/wrapper/(ext/.*)|) {
-	    $targetfn=$1;
-	}
         unless ($ignoresymbdb) {
             if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
                           &GDBM_READER(),0640)) {
-	        $syval=$hash{$targetfn};
+	        $syval=$hash{$thisfn};
                 untie(%hash);
             }
             if ($syval && $checkforblock) {