loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.214, 2002/05/08 14:37:14	version 1.215, 2002/05/08 15:21:04
Line 2525 sub symbverify {	Line 2525 sub symbverify {
my ($symb,$thisfn)=@_;	my ($symb,$thisfn)=@_;
$thisfn=&declutter($thisfn);	$thisfn=&declutter($thisfn);

# &logthis("Symb verify: $symb $thisfn");	&logthis("Symb verify: $symb $thisfn");

	# direct jump to resource in page or to a sequence - will construct own symbs
	if ($thisfn=~/\.(page\|sequence)$/) { return 1; }
	# check URL part
my ($map,$resid,$url)=split(/\_\_\_/,$symb);	my ($map,$resid,$url)=split(/\_\_\_/,$symb);
unless (&symbclean($url) eq &symbclean($thisfn)) { return 0; }	unless (&symbclean($url) eq &symbclean($thisfn)) { return 0; }

	# FIXME: done for now
return 1;	return 1;

my %bighash;	my %bighash;
Line 2547 sub symbverify {	Line 2551 sub symbverify {
sub symbclean {	sub symbclean {
my $symb=shift;	my $symb=shift;

# &logthis("Symb in: $symb");

# remove version from map	# remove version from map
$symb=~s/\.(\d+)\.(\w+)\_\_\_/\.$2\_\_\_/;	$symb=~s/\.(\d+)\.(\w+)\_\_\_/\.$2\_\_\_/;

# remove version from URL	# remove version from URL
$symb=~s/\.(\d+)\.(\w+)$/\.$2/;	$symb=~s/\.(\d+)\.(\w+)$/\.$2/;

# &logthis("Symb out: $symb");

return $symb;	return $symb;
}	}