--- loncom/lonnet/perl/lonnet.pm	2003/08/12 19:46:04	1.399
+++ loncom/lonnet/perl/lonnet.pm	2003/08/13 18:45:02	1.400
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.399 2003/08/12 19:46:04 www Exp $
+# $Id: lonnet.pm,v 1.400 2003/08/13 18:45:02 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1283,6 +1283,25 @@ sub get_course_adv_roles {
      }
     return %returnhash;
 }
+
+sub get_my_roles {
+    my ($uname,$udom)=@_;
+    unless (defined($uname)) { $uname=$ENV{'user.name'}; }
+    unless (defined($udom)) { $udom=$ENV{'user.domain'}; }
+    my %dumphash=
+            &dump('nohist_userroles',$udom,$uname);
+    my %returnhash=();
+    my $now=time;
+    foreach (keys %dumphash) {
+	my ($tend,$tstart)=split(/\:/,$dumphash{$_});
+        if (($tstart) && ($tstart<0)) { next; }
+        if (($tend) && ($tend<$now)) { next; }
+        if (($tstart) && ($now<$tstart)) { next; }
+        my ($role,$username,$domain,$section)=split(/\:/,$_);
+	$returnhash{$username.':'.$domain.':'.$role}=$tstart.':'.$tend;
+     }
+    return %returnhash;
+}
 
 # ----------------------------------------------------- Frontpage Announcements
 #