version 1.120.2.3, 2020/06/03 11:24:55
|
version 1.127, 2019/08/11 12:27:15
|
Line 42 use Apache::lonlocal;
|
Line 42 use Apache::lonlocal;
|
use Apache::lonmenu; |
use Apache::lonmenu; |
use Apache::lonhomework; |
use Apache::lonhomework; |
use Apache::lonparmset; |
use Apache::lonparmset; |
|
use Apache::lonenc(); |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
use Apache::lonsequence; |
use Apache::lonsequence; |
Line 185 sub handler {
|
Line 186 sub handler {
|
my $fn=$env{'request.course.fn'}; |
my $fn=$env{'request.course.fn'}; |
if (-e "$fn.db") { |
if (-e "$fn.db") { |
my %buttonshide; |
my %buttonshide; |
|
my $hostname = $r->hostname(); |
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { |
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { |
# ------------------------------------------------------------------- Hash tied |
# ------------------------------------------------------------------- Hash tied |
my $firstres=$hash{'map_start_'.$requrl}; |
my $firstres=$hash{'map_start_'.$requrl}; |
Line 323 ENDEXT
|
Line 325 ENDEXT
|
} elsif ($cellemb{$_} eq 'ssi') { |
} elsif ($cellemb{$_} eq 'ssi') { |
# --------------------------------------------------------- This is an SSI cell |
# --------------------------------------------------------- This is an SSI cell |
my $prefix='p_'.$_.'_'; |
my $prefix='p_'.$_.'_'; |
my $idprefix='p_'.join('_',($mapid,$resid,'')); |
my $idprefix= 'p_'.join('_',($mapid,$resid,'')); |
my %posthash=('request.prefix' => $prefix, |
my %posthash=('request.prefix' => $prefix, |
'LONCAPA_INTERNAL_no_discussion' => 'true', |
'LONCAPA_INTERNAL_no_discussion' => 'true', |
'symb' => $symb); |
'symb' => $symb); |
Line 349 ENDEXT
|
Line 351 ENDEXT
|
} |
} |
if ($submitted) { |
if ($submitted) { |
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
if ($key=~/^\Qform.$prefix\E/) { |
if ($key=~/^\Qform.$prefix\E/) { |
my $name=$key; |
my $name=$key; |
$name=~s/^\Qform.$prefix\E//; |
$name=~s/^\Qform.$prefix\E//; |
$posthash{$name}=$env{$key}; |
$posthash{$name}=$env{$key}; |
} |
} |
} |
} |
if ($env{'form.all_submit_pressed'}) { |
if ($env{'form.all_submit_pressed'}) { |
$posthash{'all_submit'}='yes'; |
$posthash{'all_submit'}='yes'; |
} |
} |
} elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') { |
} |
$posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'}; |
|
} |
|
if ($env{'environment.remote'} eq 'on') { |
|
$posthash{'inhibitmenu'} = 'yes'; |
|
} |
|
my $output=Apache::lonnet::ssi($src,%posthash); |
my $output=Apache::lonnet::ssi($src,%posthash); |
$output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs; |
$output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs; |
if (($target eq 'tex') || ($target eq 'tex_answer')) { |
if (($target eq 'tex') || ($target eq 'tex_answer')) { |
Line 754 ENDEXT
|
Line 751 ENDEXT
|
my $avespan=$lcm/($#colcont+1); |
my $avespan=$lcm/($#colcont+1); |
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
my $metainfo =&get_buttons(\%hash,$rid,\%buttonshide).'<br />'; |
my $metainfo =&get_buttons(\%hash,$rid,\%buttonshide,$hostname).'<br />'; |
unless (($target eq 'tex') || ($target eq 'tex_answer')) { |
unless (($target eq 'tex') || ($target eq 'tex_answer')) { |
$r->print('<td colspan="'.$avespan.'"'); |
$r->print('<td colspan="'.$avespan.'"'); |
} |
} |
Line 884 ENDEXT
|
Line 881 ENDEXT
|
} |
} |
|
|
sub get_buttons { |
sub get_buttons { |
my ($hash,$rid,$buttonshide) = @_; |
my ($hash,$rid,$buttonshide,$hostname) = @_; |
|
|
my $metainfo = ''; |
my $metainfo = ''; |
my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid}); |
my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid}); |
Line 954 sub get_buttons {
|
Line 951 sub get_buttons {
|
'</a>'; |
'</a>'; |
} |
} |
} |
} |
if (($env{'request.course.id'}) && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { |
if ($env{'request.course.id'}) { |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $file=&Apache::lonnet::declutter($hash->{'src_'.$rid}); |
my $file=&Apache::lonnet::declutter($hash->{'src_'.$rid}); |
my ($cfile,$home,$switchserver,$forceedit,$forceview) = |
my $editbutton = ''; |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb); |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if ($cfile ne '') { |
my ($cfile,$home,$switchserver,$forceedit,$forceview) = |
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb); |
$forceedit,1,$symb,undef, |
if ($cfile ne '') { |
&escape($env{'form.title'})); |
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
if ($jscall) { |
$forceedit,1,$symb,undef, |
|
&escape($env{'form.title'}), |
|
$hostname); |
|
if ($jscall) { |
|
$editbutton = 1; |
|
my $icon = 'pcstr.png'; |
|
my $label = &mt('Edit'); |
|
my $title = &mt('Edit this resource'); |
|
my $pic = '<img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$icon).'"'. |
|
' class="LC_icon" alt="'.$label.'" title="'.$title.'" />'; |
|
$metainfo .= ' <a href="javascript:'.$jscall.';">'.$pic.'</a>'; |
|
} |
|
} |
|
} |
|
if ((!$editbutton) && ($file=~/$LONCAPA::assess_re/)) { |
|
my $url = &Apache::lonnet::clutter($file); |
|
my $viewsrcbutton; |
|
if ((&Apache::lonnet::allowed('cre','/')) && |
|
(&Apache::lonnet::metadata($url,'sourceavail') eq 'open')) { |
|
$viewsrcbutton = 1; |
|
} elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) { |
|
if ($url =~ m{^\Q/res/$cdom/\E($LONCAPA::match_username)/}) { |
|
my $auname = $1; |
|
if (($env{'request.course.adhocsrcaccess'} ne '') && |
|
(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) { |
|
$viewsrcbutton = 1; |
|
} |
|
} |
|
} |
|
if ($viewsrcbutton) { |
my $icon = 'pcstr.png'; |
my $icon = 'pcstr.png'; |
my $label = &mt('Edit'); |
my $label = &mt('View Source'); |
my $title = &mt('Edit this resource'); |
my $title = &mt('View source code'); |
|
my $jsrid = $rid; |
|
$jsrid =~ s/\./_/g; |
|
my $showurl = &escape(&Apache::lonenc::check_encrypt($url)); |
my $pic = '<img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$icon).'"'. |
my $pic = '<img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$icon).'"'. |
' class="LC_icon" alt="'.$label.'" title="'.$title.'" />'; |
' class="LC_icon" alt="'.$label.'" title="'.$title.'" />'; |
$metainfo .= ' <a href="javascript:'.$jscall.';">'.$pic.'</a>'; |
$metainfo .= ' <a href="javascript:open_source_'.$jsrid.'();">'.$pic.'</a>'."\n". |
|
'<script type="text/javascript">'."\n". |
|
"function open_source_$jsrid() {\n". |
|
" sourcewin=window.open('/adm/source?inhibitmenu=yes&viewonly=1&filename=$showurl','LONsource',". |
|
"'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');\n". |
|
"}\n". |
|
"</script>\n"; |
} |
} |
} |
} |
} |
} |