loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.426, 2003/10/04 02:34:01
+version 1.427, 2003/10/06 20:38:25
  Line 2711  sub is_on_map {
      }
  }
+ # --------------------------------------------------------- Get symb from alias
+ sub get_symb_from_alias {
+     my $symb=shift;
+     my ($map,$resid,$url)=&decode_symb($symb);
+ # Already is a symb
+     if ($url) { return $symb; }
+ # Must be an alias
+     my $aliassymb='';
+     my %bighash;
+     if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
+                             &GDBM_READER(),0640)) {
+         my $rid=$bighash{'mapalias_'.$symb};
+ 	if ($rid) {
+ 	    my ($mapid,$resid)=split(/\./,$rid);
+ 	    $aliassymb=
+ 		&declutter($bighash{'map_id_'.$mapid}).
+ 		'___'.$resid.'___'.
+ 		&declutter($bighash{'src_'.$rid});
+ 	}
+         untie %bighash;
+     }
+     return $aliassymb;
+ }
  # ----------------------------------------------------------------- Define Role
  sub definerole {
- Line 3429  sub EXT {
+ Line 3454  sub EXT {
      #get real user name/domain, courseid and symb
      my $courseid;
      my $publicuser;
+     if ($symbparm) {
+ 	$symbparm=&get_symb_from_alias($symbparm);
+     }
      if (!($uname && $udom)) {
        (my $cursymb,$courseid,$udom,$uname,$publicuser)=
  	  &Apache::lonxml::whichuser($symbparm);