loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.186, 2011/11/05 22:42:14	version 1.188, 2011/12/18 17:15:03
Line 261 sub real_handler {	Line 261 sub real_handler {
my $uri = shift;	my $uri = shift;
if (!defined($uri)) { $uri = $r->uri(); }	if (!defined($uri)) { $uri = $r->uri(); }
$env{'request.uri'} = $uri;	$env{'request.uri'} = $uri;
my $filename = '/home/httpd/html' . $uri;	my $filename = $r->dir_config('lonDocRoot').$uri;
my $fh = Apache::File->new($filename);	my $fh = Apache::File->new($filename);
my $file;	my $file;
read $fh, $file, 100000000;	read $fh, $file, 100000000;
Line 1913 CHECK	Line 1913 CHECK
if ($anytime) {	if ($anytime) {
$result.=' checked="checked" '	$result.=' checked="checked" '
}	}
$result.="name='${var}anytime'/>".&mt('Any time').'</label>'	my $anytimetext = &mt('Any time');
	if (($var eq 'startreserve') \|\| ($var eq 'endreserve')) {
	$anytimetext = &mt('Any time before slot starts');
	} elsif (($var eq 'startunique') \|\| ($var eq 'endunique')) {
	$anytimetext = &mt('No restriction on uniqueness');
	}
	$result.="name='${var}anytime'/>".$anytimetext.'</label>'
}	}
return $result;	return $result;