version 1.111.2.13, 2020/11/11 21:52:05
|
version 1.111.2.16, 2024/07/03 02:38:40
|
Line 101 sub tracetable {
|
Line 101 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 236 sub handler {
|
Line 238 sub handler {
|
my $nforms=0; |
my $nforms=0; |
my $nuploads=0; |
my $nuploads=0; |
my $ntimers=0; |
my $ntimers=0; |
|
my $hasnumresp; |
my %turninpaths; |
my %turninpaths; |
my %multiresps; |
my %multiresps; |
my $turninparent; |
my $turninparent; |
Line 473 ENDEXT
|
Line 476 ENDEXT
|
$ntimers++; |
$ntimers++; |
$hastimer = 1; |
$hastimer = 1; |
} |
} |
|
unless ($hasnumresp) { |
|
if ($output=~/\<input[^\>]+class\s*=\s*['"]*[^'">]*LC_numresponse_text\W/) { |
|
$hasnumresp = 1; |
|
} |
|
} |
$output=~ |
$output=~ |
s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi; |
s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi; |
$output=~ |
$output=~ |
Line 603 ENDEXT
|
Line 611 ENDEXT
|
# ---------------------------------------------------------------- End SSI cell |
# ---------------------------------------------------------------- End SSI cell |
} |
} |
} |
} |
} |
} |
} |
} |
unless ($contents) { |
unless ($contents) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
Line 854 ENDEXT
|
Line 862 ENDEXT
|
&mt('Processing your submission ...').'</div></form>'); |
&mt('Processing your submission ...').'</div></form>'); |
} |
} |
unless (($target eq 'tex') || ($target eq 'tex_answer')) { |
unless (($target eq 'tex') || ($target eq 'tex_answer')) { |
$r->print(&Apache::loncommon::end_page({'discussion' |
my $args = {'discussion' => 1}; |
=> 1,})); |
if ($hasnumresp) { |
|
$args->{'dashjs'} = 1; |
|
} |
|
$r->print(&Apache::loncommon::end_page($args)); |
} else { |
} else { |
$r->print('\end{document}'.$number_of_columns); |
$r->print('\end{document}'.$number_of_columns); |
} |
} |
Line 866 ENDEXT
|
Line 877 ENDEXT
|
} |
} |
# ------------------------------------------------------------- End render page |
# ------------------------------------------------------------- End render page |
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
if ($hash{'map_type_'.$hash{'map_pc_'.$requrl}} eq 'none') { |
$r->send_http_header; |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::lonsequence::viewmap($r,$requrl); |
$r->send_http_header; |
|
$r->print(&Apache::loncommon::start_page(undef,undef, |
|
{'force_register' => 1,})); |
|
my $crstype = &Apache::loncommon::course_type(); |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
$r->print('<span class="LC_warning">'.&mt('Missing composite page file.').'</span><br />'. |
|
&mt("You may want to use the $crstype Editor to remove this item.")); |
|
} else { |
|
if ($crstype eq 'Placement') { |
|
$r->print('<span class="LC_warning">'.&mt('Missing page').'</span>'); |
|
} else { |
|
$r->print('<span class="LC_info">'. |
|
&mt('This resource was unavailable when your '.lc($crstype).' session was loaded').'<br />'. |
|
&mt("Please use 'Contents' to list items available in the $crstype.").'</span>'); |
|
} |
|
} |
|
$r->print(&Apache::loncommon::end_page()); |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
&Apache::lonsequence::viewmap($r,$requrl); |
|
} |
} |
} |
# ------------------------------------------------------------------ Untie hash |
# ------------------------------------------------------------------ Untie hash |
unless (untie(%hash)) { |
unless (untie(%hash)) { |
Line 894 sub get_buttons {
|
Line 926 sub get_buttons {
|
my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid}, |
my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid}, |
$resid, |
$resid, |
$hash->{'src_'.$rid}); |
$hash->{'src_'.$rid}); |
my $aname; |
my ($aname,$shownsymb); |
if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) { |
if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) { |
$aname = 'LC_'.$rid; |
$aname = 'LC_'.$rid; |
|
$shownsymb = &Apache::lonenc::encrypted($symb); |
} else { |
} else { |
my $shownsymb = $symb; |
$shownsymb = $symb; |
|
my $dispsymb = $symb; |
if ($symb =~ /\#([^\#]+)$/) { |
if ($symb =~ /\#([^\#]+)$/) { |
my $escan = &escape('#'); |
my $escan = &escape('#'); |
$shownsymb =~ s/#([^\#]+)$/$escan$1/; |
$dispsymb =~ s/#([^\#]+)$/$escan$1/; |
} |
} |
$aname = &escape($shownsymb); |
$aname = &escape($dispsymb); |
} |
} |
my $metainfo = '<a name="'.$aname.'"></a>'; |
my $metainfo = '<a name="'.$aname.'"></a>'; |
unless ($env{'request.role.adv'}) { |
unless ($env{'request.role.adv'}) { |
Line 986 sub get_buttons {
|
Line 1020 sub get_buttons {
|
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb); |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb); |
if ($cfile ne '') { |
if ($cfile ne '') { |
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
$forceedit,1,$symb,undef, |
$forceedit,1,$symb,$shownsymb, |
&escape($env{'form.title'}), |
undef,&escape($env{'form.title'}), |
$hostname); |
$hostname); |
if ($jscall) { |
if ($jscall) { |
$editbutton = 1; |
$editbutton = 1; |