loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.187, 2011/11/07 18:22:03	version 1.189, 2012/10/29 17:38:56
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;

Line 2982 BUTTONS	Line 2988 BUTTONS
$subdir=$londocroot.$subdir;	$subdir=$londocroot.$subdir;
}	}
my ($user,$domain)=	my ($user,$domain)=
&Apache::loncacc::constructaccess($subdir);	&Apache::lonnet::constructaccess($subdir);
$metadir='/res/'.$domain.'/'.$user.'/'.$innerpath;	$metadir='/res/'.$domain.'/'.$user.'/'.$innerpath;
($listref,$listerror) =	($listref,$listerror) =
&Apache::lonnet::dirlist($subdir,$domain,$user,undef,undef,'/');	&Apache::lonnet::dirlist($subdir,$domain,$user,undef,undef,'/');