--- loncom/lonnet/perl/lonnet.pm 2021/10/07 15:51:16 1.1467 +++ loncom/lonnet/perl/lonnet.pm 2021/11/02 20:46:56 1.1469 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1467 2021/10/07 15:51:16 raeburn Exp $ +# $Id: lonnet.pm,v 1.1469 2021/11/02 20:46:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2304,7 +2304,7 @@ sub retrieve_inst_usertypes { sub is_domainimage { my ($url) = @_; - if ($url=~m-^/+res/+($match_domain)/+\1\-domainconfig/+(img|logo|domlogo)/+[^/]-) { + if ($url=~m-^/+res/+($match_domain)/+\1\-domainconfig/+(img|logo|domlogo|login)/+[^/]-) { if (&domain($1) ne '') { return '1'; } @@ -12323,7 +12323,7 @@ sub EXT { if ( (defined($Apache::lonhomework::parsing_a_problem) || defined($Apache::lonhomework::parsing_a_task)) && - ($symbparm eq &symbread()) ) { + ($symbparm eq &symbread()) ) { # if we are in the middle of processing the resource the # get the value we are planning on committing if (defined($Apache::lonhomework::results{$qualifierrest})) {