loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.266, 2002/08/09 19:49:30	version 1.268, 2002/08/17 18:23:27
Line 1114 sub str2hashref {	Line 1114 sub str2hashref {
}	}
} else {	} else {
$string =~ s/^(.*?)=//;	$string =~ s/^(.*?)=//;
$key=$1	$key=&unescape($1);
}	}
$string =~ s/^=//;	$string =~ s/^=//;

Line 3135 sub declutter {	Line 3135 sub declutter {
return $thisfn;	return $thisfn;
}	}

	# ------------------------------------------------------------- Clutter up URLs

	sub clutter {
	my $thisfn='/'.&declutter(shift);
	unless ($thisfn=~/^\/(uploaded\|adm)\//) { $thisfn='/res'.$thisfn; }
	return $thisfn;
	}

# -------------------------------------------------------- Escape Special Chars	# -------------------------------------------------------- Escape Special Chars

sub escape {	sub escape {