loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1203, 2012/11/30 16:50:30	version 1.1204, 2012/11/30 20:48:34
Line 10504 sub symbverify {	Line 10504 sub symbverify {

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 $noclutter;
if (($thisurl =~ m{^/adm/wrapper/ext/}) \|\| ($thisurl =~ m{^ext/})) {	if (($thisurl =~ m{^/adm/wrapper/ext/}) \|\| ($thisurl =~ m{^ext/})) {
$thisurl =~ s/\?.+$//;	$thisurl =~ s/\?.+$//;
	if ($map =~ m{^uploaded/.+\.page$}) {
	$thisurl =~ s{^(/adm/wrapper\|)/ext/}{http://};
	$thisurl =~ s{^\Qhttp://https://\E}{https://};
	$noclutter = 1;
	}
	}
	my $ids;
	if ($noclutter) {
	$ids=$bighash{'ids_'.$thisurl};
	} else {
	$ids=$bighash{'ids_'.&clutter($thisurl)};
}	}
my $ids=$bighash{'ids_'.&clutter($thisurl)};
unless ($ids) {	unless ($ids) {
my $idkey = 'ids_'.($thisurl =~ m{^/}? '' : '/').$thisurl;	my $idkey = 'ids_'.($thisurl =~ m{^/}? '' : '/').$thisurl;
$ids=$bighash{$idkey};	$ids=$bighash{$idkey};