');
}
+# generate rows
for ($i=0;$i<=$#rows;$i++) {
if ($rows[$i]) {
unless ($target eq 'tex') {
@@ -432,49 +520,8 @@ sub handler {
my $avespan=$lcm/($#colcont+1);
for ($j=0;$j<=$#colcont;$j++) {
my $rid=$colcont[$j];
- my $metainfo = '';
- my $esrc=&Apache::lonnet::declutter($hash{'src_'.$rid});
- if ($hash{'encrypted_'.$rid}) {
- $esrc=&Apache::lonenc::encrypted($esrc);
- }
- unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) {
- $metainfo =''.
- ''.
- '
'.
- '';
- }
- $metainfo .= ''.
- '
'.
- '';
- if (
- ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
- (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) &&
- ($hash{'src_'.$rid} !~ m-^/uploaded/-)) {
- my ($mapid,$resid)=split(/\./,$rid);
- my $symb=
- &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
- '___'.$resid.'___'.
- &Apache::lonnet::declutter($hash{'src_'.$rid});
- $metainfo.=
- ''.
- '&command=submission">'.
- '
'.
- ''.
- ''.
- '&command=gradingmenu">'.
- '
'.
- ''.
- ''.
- '" >'.
- '
'.
- '';
- }
- $metainfo.='
';
+
+ my $metainfo =&get_buttons(\%hash,$rid).'
';
unless ($target eq 'tex') {
$r->print('print('');
}
- if ($ENV{'course.'.
- $ENV{'request.course.id'}.
+ if ($env{'course.'.
+ $env{'request.course.id'}.
'.pageseparators'} eq 'yes') {
unless($target eq 'tex') {
$r->print('
');
- } else {
- $r->print('\hline');
- }
+ }
}
} elsif ($cellemb{$rid} eq 'img') {
$r->print('>'.$metainfo.' ');
+ $hash{'src_'.$rid}.'" />');
} elsif ($cellemb{$rid} eq 'emb') {
$r->print('>'.$metainfo.'');
@@ -551,15 +596,19 @@ sub handler {
(($nforms>1)?'submit':'hidden').'">');
}
unless ($target eq 'tex') {
- $r->print(''.&Apache::lonxml::xmlend());
+ $r->print(&Apache::loncommon::end_page({'discussion'
+ => 1,}));
} else {
$r->print('\end{document}'.$number_of_columns);
}
+ &Apache::lonnet::symblist($requrl,%symbhash);
+ my ($map,$id,$url)=&Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
+ &Apache::lonnet::symblist($map,'last_known'=>[$url,$id]);
# -------------------------------------------------------------------- End page
}
# ------------------------------------------------------------- End render page
} else {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
&Apache::lonsequence::viewmap($r,$requrl);
}
@@ -574,114 +623,74 @@ sub handler {
}
}
}
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
&Apache::lonsequence::viewmap($r,$requrl);
return OK;
}
-1;
-__END__
-
-=head1 NAME
-
-Apache::lonpage - Page Handler
-
-=head1 SYNOPSIS
-
-Invoked by /etc/httpd/conf/srm.conf:
-
-
- SetHandler perl-script
- PerlHandler Apache::lonpage
-
-
-=head1 INTRODUCTION
-
-This module renders a .page resource.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-=head1 HANDLER SUBROUTINE
-
-This routine is called by Apache and mod_perl.
-
-=over 4
-
-=item *
-
-set document type for header only
-
-=item *
-
-tie db file
-
-=item *
-
-render page
-
-=item *
-
-add to symb list
-
-=item *
-
-page parms
-
-=item *
-
-Get SSI output, post parameters
-
-=item *
-
-SSI cell rendering
-
-=item *
-
-Deal with Applet codebases
-
-=item *
-
-Build page
-
-=item *
-
-send headers
-
-=item *
-
-start body
-
-=item *
-
-start form
-
-=item *
-
-start table
-
-=item *
-
-submit element, etc, render page, untie hash
-
-=back
-
-=head1 OTHER SUBROUTINES
-
-=over 4
-
-=item *
-
-euclid() : Euclid's method for determining the greatest common denominator.
+sub get_buttons {
+ my ($hash,$rid) = @_;
-=item *
-
-tracetable() : Build page table.
+ # which icons do we use?
+ my $extension='png';
+ if ($env{'environment.icons'} eq 'classic') { $extension='gif'; }
+
+ my $metainfo = '';
+ my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid});
+ my ($mapid,$resid)=split(/\./,$rid);
+ my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid},
+ $resid,
+ $hash->{'src_'.$rid});
+ if ($hash->{'encrypted_'.$rid}) {
+ $symb=&Apache::lonenc::encrypted($symb);
+ $esrc=&Apache::lonenc::encrypted($esrc);
+ }
+ if ($hash->{'src_'.$rid} !~ m-^/uploaded/-
+ && !$env{'request.enc'}
+ && ($env{'request.role.adv'}
+ || !$hash->{'encrypted_'.$rid})) {
+ $metainfo .=''.
+ ''.
+ ' '.
+ '';
+ }
+ $metainfo .= ''.
+ ' '.
+ '';
+ if (($hash->{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
+ ($hash->{'src_'.$rid} !~ m-^/uploaded/-)) {
+
+ if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) {
+ $metainfo.=
+ ''.
+ '&command=submission">'.
+ ' '.
+ ''.
+ ''.
+ '&command=gradingmenu">'.
+ ' '.
+ '';
+ }
+ if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
+ $metainfo.=
+ ''.
+ '" >'.
+ ' '.
+ '';
+ }
+ }
+ return $metainfo;
+}
-=back
+1;
+__END__
-=cut
|