loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.29, 2009/10/29 03:23:52	version 1.30, 2010/06/15 05:31:43
Line 103 sub unescape {	Line 103 sub unescape {
return $str;	return $str;
}	}

$match_domain = $LONCAPA::domain_re = qr{[\w\-.]+};	$match_domain = $LONCAPA::domain_re = qr{[[:alnum:]\-.]+};
$match_not_domain = $LONCAPA::not_domain_re = qr{[^\w\-.]+};	$match_not_domain = $LONCAPA::not_domain_re = qr{[^[:alnum:]\-.]+};
sub clean_domain {	sub clean_domain {
my ($domain) = @_;	my ($domain) = @_;
$domain =~ s/$match_not_domain//g;	$domain =~ s/$match_not_domain//g;