loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.205, 2003/07/28 13:46:42	version 1.206, 2003/08/01 14:47:15
Line 619 ENDPART	Line 619 ENDPART
$currentURL=$helper->{'VARS'}->{'filename'};	$currentURL=$helper->{'VARS'}->{'filename'};
$currentURL=~s/\/home\//\/~/;	$currentURL=~s/\/home\//\/~/;
$currentURL=~s/public_html\///;	$currentURL=~s/public_html\///;
	if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
}	}
$selectionmade = 1;	$selectionmade = 1;
if ($currentURL=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($currentURL=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {