Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1172.2.73 and 1.1172.2.74

version 1.1172.2.73, 2016/08/05 18:36:23 version 1.1172.2.74, 2016/08/06 01:18:07
Line 1793  sub retrieve_inst_usertypes { Line 1793  sub retrieve_inst_usertypes {
   
 sub is_domainimage {  sub is_domainimage {
     my ($url) = @_;      my ($url) = @_;
     if ($url=~m-^/+res/+($match_domain)/+\1\-domainconfig/+(img|logo|domlogo)/+-) {      if ($url=~m-^/+res/+($match_domain)/+\1\-domainconfig/+(img|logo|domlogo)/+[^/]-) {
         if (&domain($1) ne '') {          if (&domain($1) ne '') {
             return '1';              return '1';
         }          }

Removed from v.1.1172.2.73  
changed lines
  Added in v.1.1172.2.74


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>