--- loncom/lonnet/perl/lonnet.pm	2007/04/10 20:29:53	1.867
+++ loncom/lonnet/perl/lonnet.pm	2007/04/11 21:37:20	1.868
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.867 2007/04/10 20:29:53 raeburn Exp $
+# $Id: lonnet.pm,v 1.868 2007/04/11 21:37:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -830,6 +830,16 @@ sub retrieve_inst_usertypes {
     return (\%returnhash,\@order);
 }
 
+sub is_domainimage {
+    my ($url) = @_;
+    if ($url=~m-^/+res/+($match_domain)/+\1\-domainconfig/+(img|logo|domlogo)/+-) {
+        if (&domain($1) ne '') {
+            return '1';
+        }
+    }
+    return;
+}
+
 # --------------------------------------------------- Assign a key to a student
 
 sub assign_access_key {