rat/lonpage.pm - diff - 1.111.2.13.2.1

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.111.2.10.2.3 and 1.111.2.13.2.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.111.2.10.2.3, 2020/11/13 02:46:48	version 1.111.2.13.2.1, 2022/01/04 19:37:55
Line 202 sub handler {	Line 202 sub handler {
my ($pagesymb,$courseid,$domain,$name)=&Apache::lonnet::whichuser();	my ($pagesymb,$courseid,$domain,$name)=&Apache::lonnet::whichuser();
unless ($pagesymb) {	unless ($pagesymb) {
$pagesymb=&Apache::lonnet::symbread($requrl);	$pagesymb=&Apache::lonnet::symbread($requrl);
}	}
if ($pagesymb && ($courseid ne '') && ($domain ne '') && ($name ne '')) {	if ($pagesymb && ($courseid ne '') && ($domain ne '') && ($name ne '')) {
my %times=&Apache::lonnet::get('firstaccesstimes',	my %times=&Apache::lonnet::get('firstaccesstimes',
[$courseid."\0".$pagesymb],	[$courseid."\0".$pagesymb],
Line 743 ENDEXT	Line 743 ENDEXT
$uniquetimes{$item} = 1;	$uniquetimes{$item} = 1;
}	}
}	}
if (scalar(keys(%uniquetimes)) == 1) {	if (scalar(keys(%uniquetimes)) == 1) {
my (%uniquedisplays,%uniquedones,$currdisp,$donebuttontime,	my (%uniquedisplays,%uniquedones,$currdisp,$donebuttontime,
$donebuttonextras);	$donebuttonextras);
if (keys(%countdowndisp)) {	if (keys(%countdowndisp)) {
Line 1043 sub get_buttons {	Line 1043 sub get_buttons {
if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&	if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&
($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {	($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {

if ((&Apache::lonnet::allowed('mgr',$crs_sec)) \|\|	if ((&Apache::lonnet::allowed('mgr',$crs_sec)) \|\|
(&Apache::lonnet::allowed('vgr',$crs_sec))) {	(&Apache::lonnet::allowed('vgr',$crs_sec))) {
$metainfo.=	$metainfo.=
'<a href="/adm/grades?symb='.&escape($symb).	'<a href="/adm/grades?symb='.&escape($symb).
Line 1056 sub get_buttons {	Line 1056 sub get_buttons {
}	}
if (&Apache::lonnet::allowed('mgr',$crs_sec)) {	if (&Apache::lonnet::allowed('mgr',$crs_sec)) {
$metainfo.=	$metainfo.=
'<a href="/adm/grades?symb='.&escape($symb).	'<a href="/adm/grades?symb='.&escape($symb).
# '&command=gradingmenu" target="LONcatInfo">'.	# '&command=gradingmenu" target="LONcatInfo">'.
'&command=gradingmenu">'.	'&command=gradingmenu">'.
'<img src="/res/adm/pages/pgrd.png" class="LC_icon"'.	'<img src="/res/adm/pages/pgrd.png" class="LC_icon"'.
' alt="'.&mt('Content Grades').'"'.	' alt="'.&mt('Content Grades').'"'.
' title="'.&mt('Content Grades').'" />'.	' title="'.&mt('Content Grades').'" />'.
'</a>';	'</a>';
}	}
if ((&Apache::lonnet::allowed('opa',$crs_sec)) \|\|	if ((&Apache::lonnet::allowed('opa',$crs_sec)) \|\|
(&Apache::lonnet::allowed('vpa',$crs_sec))) {	(&Apache::lonnet::allowed('vpa',$crs_sec))) {
$metainfo.=	$metainfo.=
'<a href="/adm/parmset?symb='.&escape($symb).	'<a href="/adm/parmset?symb='.&escape($symb).

Removed from v.1.111.2.10.2.3
changed lines
	Added in v.1.111.2.13.2.1