version 1.111.2.10.2.3, 2020/11/13 02:46:48
|
version 1.111.2.13.2.2, 2022/07/08 16:29:33
|
Line 102 sub tracetable {
|
Line 102 sub tracetable {
|
} else { |
} else { |
$sofar++; |
$sofar++; |
if ($hash{'src_'.$rid}) { |
if ($hash{'src_'.$rid}) { |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); |
my ($mapid,$resid)=split(/\./,$rid); |
|
my $symb = &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid}); |
|
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid},$symb); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$rid; |
$rows[$sofar].='&'.$rid; |
Line 202 sub handler {
|
Line 204 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 745 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 1045 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 1058 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). |