--- loncom/lonnet/perl/lonnet.pm 2022/06/08 01:42:20 1.1486 +++ loncom/lonnet/perl/lonnet.pm 2022/09/08 01:41:15 1.1489 @@ -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.1489 2022/09/08 01:41:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4918,6 +4918,7 @@ sub get_scantronformat_file { close($fh); } } + chomp(@lines); } return @lines; } @@ -7933,6 +7934,7 @@ sub usertools_access { blog => 1, webdav => 1, portfolio => 1, + timezone => 1, ); } return if (!defined($tools{$tool})); @@ -13749,14 +13751,10 @@ sub symbread { 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) {