loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.215, 2002/05/08 15:21:04	version 1.216, 2002/05/08 17:40:03
Line 2524 sub symblist {	Line 2524 sub symblist {
sub symbverify {	sub symbverify {
my ($symb,$thisfn)=@_;	my ($symb,$thisfn)=@_;
$thisfn=&declutter($thisfn);	$thisfn=&declutter($thisfn);

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

# direct jump to resource in page or to a sequence - will construct own symbs	# direct jump to resource in page or to a sequence - will construct own symbs
if ($thisfn=~/\.(page\|sequence)$/) { return 1; }	if ($thisfn=~/\.(page\|sequence)$/) { return 1; }
# check URL part	# 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	$symb=&symbclean($symb);
return 1;

my %bighash;	my %bighash;
my $okay=0;	my $okay=0;
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',	if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
&GDBM_READER,0640)) {	&GDBM_READER,0640)) {
	my $ids=$bighash{'ids_/res/'.$thisfn};
	unless ($ids) {
	$ids=$bighash{'ids_/'.$thisfn};
	}
	if ($ids) {
	# ------------------------------------------------------------------- Has ID(s)
	foreach (split(/\,/,$ids)) {
	my ($mapid,$resid)=split(/\./,$_);
	if (
	&symbclean(&declutter($bighash{'map_id_'.$mapid}).'___'.$resid.'___'.$thisfn)
	eq $symb) {
	$okay=1;
	}
	}
	}
untie(%bighash);	untie(%bighash);
}	}
return $okay;	return $okay;