loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.399, 2003/08/12 19:46:04
+version 1.400, 2003/08/13 18:45:02
  Line 1284  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
  #
  #