loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.428, 2003/10/07 07:20:05	version 1.429, 2003/10/07 07:24:51
Line 2796 sub get_symb_from_alias {	Line 2796 sub get_symb_from_alias {
my $rid=$bighash{'mapalias_'.$symb};	my $rid=$bighash{'mapalias_'.$symb};
if ($rid) {	if ($rid) {
my ($mapid,$resid)=split(/\./,$rid);	my ($mapid,$resid)=split(/\./,$rid);
$aliassymb=	$aliassymb=&encode_symb($bighash{'map_id_'.$mapid},
&declutter($bighash{'map_id_'.$mapid}).	$resid,$bighash{'src_'.$rid});
'___'.$resid.'___'.
&declutter($bighash{'src_'.$rid});
}	}
untie %bighash;	untie %bighash;
}	}
Line 4080 sub symbclean {	Line 4078 sub symbclean {

# ---------------------------------------------- Split symb to find map and url	# ---------------------------------------------- Split symb to find map and url

	sub encode_symb {
	my ($map,$resid,$url)=@_;
	return &symbclean(&declutter($map).'___'.$resid.'___'.&declutter($url));
	}

sub decode_symb {	sub decode_symb {
my ($map,$resid,$url)=split(/\_\_\_/,shift);	my ($map,$resid,$url)=split(/\_\_\_/,shift);
return (&fixversion($map),$resid,&fixversion($url));	return (&fixversion($map),$resid,&fixversion($url));