loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.32, 2011/07/04 09:25:53	version 1.34, 2013/02/08 14:49:51
Line 138 sub tempdir {	Line 138 sub tempdir {
return $result;	return $result;
}	}

	# Return the Linux distro where this LON-CAPA instance is running

	sub distro {
	my $distro;
	if (open(PIPE,"/home/httpd/perl/distprobe \|")) {
	$distro = <PIPE>;
	close(PIPE);
	}
	return $distro;
	}

#----------------------------------------------------------------------	#----------------------------------------------------------------------
#	#
Line 175 sub unescape {	Line 185 sub unescape {
return $str;	return $str;
}	}

	$LONCAPA::assess_re = qr{\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|task)$};
	$LONCAPA::assess_page_re = qr{\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|task\|page)$};
	$LONCAPA::assess_page_seq_re = qr{\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|task\|sequence\|page)$};
	$LONCAPA::parse_re = qr{\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$};
	$LONCAPA::parse_page_re = qr{\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm\|page)$};
	$LONCAPA::parse_page_sty_re = qr{\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm\|page\|sty)$};


$match_domain = $LONCAPA::domain_re = qr{[[:alnum:]\-.]+};	$match_domain = $LONCAPA::domain_re = qr{[[:alnum:]\-.]+};
$match_not_domain = $LONCAPA::not_domain_re = qr{[^[:alnum:]\-.]+};	$match_not_domain = $LONCAPA::not_domain_re = qr{[^[:alnum:]\-.]+};
sub clean_domain {	sub clean_domain {