Diff for /rat/lonpage.pm between versions 1.31 and 1.43

version 1.31, 2002/02/14 20:45:16 version 1.43, 2002/07/01 15:02:19
Line 34 Line 34
 # YEAR=2001  # YEAR=2001
 # 08/13/01,08/30,10/1 Gerd Kortemeyer  # 08/13/01,08/30,10/1 Gerd Kortemeyer
 # 12/16 Scott Harrison  # 12/16 Scott Harrison
   # YEAR=2002
   # 03/19 Gerd Kortemeyer
 #  #
 ###  ###
   
Line 46  use Apache::loncommon(); Line 48  use Apache::loncommon();
 use Apache::lonxml();  use Apache::lonxml();
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
   use Apache::lonsequence;
   
 # -------------------------------------------------------------- Module Globals  # -------------------------------------------------------------- Module Globals
 my %hash;  my %hash;
Line 144  sub handler { Line 147  sub handler {
        if ($ENV{'browser.mathml'}) {         if ($ENV{'browser.mathml'}) {
            $r->content_type('text/xml');             $r->content_type('text/xml');
        } else {         } else {
            $r->content_type('text/html');             $r->content_type('text/html'); 
        }         }
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
    }     }
     
   my $requrl=$r->uri;     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['forceselect','launch']);
     my $number_of_columns = 1;
     my $requrl=$r->uri;  
     my $target = $ENV{'form.grade_target'};
 # ----------------------------------------------------------------- Tie db file  # ----------------------------------------------------------------- Tie db file
   if ($ENV{'request.course.fn'}) {    if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
       my $fn=$ENV{'request.course.fn'};        my $fn=$ENV{'request.course.fn'};
       if (-e "$fn.db") {        if (-e "$fn.db") {
           if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) {            if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) {
Line 329  sub handler { Line 336  sub handler {
 # ------------------------------------------------------------------ Build page  # ------------------------------------------------------------------ Build page
   
 # ---------------------------------------------------------------- Send headers  # ---------------------------------------------------------------- Send headers
                       if ($isxml) {        unless ($target eq 'tex') {
   $r->content_type('text/xml');    if ($isxml) {
                           $r->send_http_header;        $r->content_type('text/xml');
                           $r->print($xmlheader);        $r->send_http_header;
       } else {        $r->print($xmlheader);
                           $r->content_type('text/html');    } else {
                           $r->send_http_header;        $r->content_type('text/html');
                           $r->print('<html>');        $r->send_http_header;
       }        $r->print('<html>');
     }
 # ------------------------------------------------------------------------ Head  # ------------------------------------------------------------------------ Head
                       $r->print("\n<head>\n".$allmeta);    $r->print("\n<head>\n".$allmeta);
                       $allscript=~    $allscript=~
        s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;        s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
                       if ($allscript) {    if ($allscript) {
   $r->print("\n<script language='JavaScript'>\n".        $r->print("\n<script language='JavaScript'>\n".
                                    $allscript."\n</script>\n");   $allscript."\n</script>\n");
                       }    }
                       $r->print(&Apache::lonxml::registerurl(1));    $r->print(&Apache::lonxml::registerurl(1,undef));
                       $r->print("\n</head>\n");    $r->print("\n</head>\n");
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
                       if ($isxml) {    if ($isxml) {
                           $r->print($xmlbody);        $r->print($xmlbody);
                       } else {    } else {
   $r->print(        $r->print('<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.'" onUnload="'.&Apache::lonxml::unloadevents.'">');
  '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.    }
                      '" onUnload="'.&Apache::lonxml::unloadevents.'">');  
                       }  
 # ------------------------------------------------------------------ Start form  # ------------------------------------------------------------------ Start form
                       if ($nforms) {    if ($nforms) {
   $r->print('<form method="post" action="'.        $r->print('<form method="post" action="'.
     $requrl.'">');   $requrl.'">');
                       }    }
         } else {
     $r->print('\documentclass[letterpaper]{article}
                                    \newcommand{\keephidden}[1]{}           
                                    \usepackage[dvips]{graphicx}
                                    \usepackage{epsfig}
                                    \usepackage{calc}
                                    \usepackage{longtable}
                                    \begin{document}');
         }
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
                       $r->print('<table cols="'.$lcm.'" border="0">');        if ($target eq 'tex') {
     $r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead ');
     if ($number_of_columns le $lcm) {$number_of_columns=$lcm;};
         } else {
     $r->print('<table cols="'.$lcm.'" border="0">');
         }
                       for ($i=0;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
  if ($rows[$i]) {   if ($rows[$i]) {
                           $r->print("\n<tr>");      unless ($target eq 'tex') {
    $r->print("\n<tr>");
       }
                           my @colcont=split(/\&/,$rows[$i]);                            my @colcont=split(/\&/,$rows[$i]);
                           my $avespan=$lcm/($#colcont+1);                            my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
Line 373  sub handler { Line 395  sub handler {
                               my $metainfo='<a href="'.                                my $metainfo='<a href="'.
                                     $metalink{$rid}.'" target="LONcatInfo">'.                                      $metalink{$rid}.'" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/cat_button.gif" border=0>'.                            '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
   '</img></a>';    '</img></a><a href="/adm/evaluate?postdata='.
         &Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid}))
         .'" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
                             '</img></a>';
                               if (                                if (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&   ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {   (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
Line 383  sub handler { Line 409  sub handler {
                 '___'.$resid.'___'.                  '___'.$resid.'___'.
  &Apache::lonnet::declutter($hash{'src_'.$rid});   &Apache::lonnet::declutter($hash{'src_'.$rid});
                                  $metainfo.=                                   $metainfo.=
                   '<a href="/adm/grades?symb='.$symb.                    '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=submission" target="LONcatInfo">'.                    '&command=submission" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/subm_button.gif" border=0>'.                            '<img src="/adm/lonMisc/subm_button.gif" border=0>'.
   '</img></a>'.    '</img></a>'.
                   '<a href="/adm/grades?symb='.$symb.                    '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=viewgrades" target="LONcatInfo">'.                    '&command=gradingmenu" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.                            '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.
   '</img></a>'.    '</img></a>'.
                   '<a href="/adm/parmset?symb='.$symb.'" target="LONcatInfo">'.                    '<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).
                             '" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.                            '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.
       '</img></a>';        '</img></a>';
                               }                                }
                               $metainfo.='<br></br>';                                $metainfo.='<br></br>';
                               $r->print('<td colspan="'.$avespan.'"');      unless ($target eq 'tex') {
    $r->print('<td colspan="'.$avespan.'"');
       }
                               if ($cellemb{$rid} eq 'ssi') {                                if ($cellemb{$rid} eq 'ssi') {
   if ($ssibgcolor{$rid}) {    unless ($target eq 'tex') {
                                      $r->print(' bgcolor="'.        if ($ssibgcolor{$rid}) {
                                                $ssibgcolor{$rid}.'"');    $r->print(' bgcolor="'.
                                   }      $ssibgcolor{$rid}.'"');
                                   $r->print('>'.$metainfo.'<font');        }
                                   if ($ssitext{$rid}) {        $r->print('>'.$metainfo.'<font');
      $r->print(' text="'.$ssitext{$rid}.'"');      
                                   }        if ($ssitext{$rid}) {
                                   if ($ssilink{$rid}) {    $r->print(' text="'.$ssitext{$rid}.'"');
      $r->print(' link="'.$ssilink{$rid}.'"');        }
                                   }        if ($ssilink{$rid}) {
                                   if ($ssitext{$rid}) {    $r->print(' link="'.$ssilink{$rid}.'"');
      $r->print(' vlink="'.$ssivlink{$rid}.'"');        }
                                   }        if ($ssitext{$rid}) {
                                   if ($ssialink{$rid}) {    $r->print(' vlink="'.$ssivlink{$rid}.'"');
      $r->print(' alink="'.$ssialink{$rid}.'"');        }
         if ($ssialink{$rid}) {
     $r->print(' alink="'.$ssialink{$rid}.'"');
         }             
         $r->print('>');
     }
                                     $r->print($ssibody{$rid});
     unless ($target eq 'tex') {
         $r->print('</font>');
                                   }                                    }
                                                                 if ($ENV{'course.'.
                                   $r->print('>'.$ssibody{$rid}.'</font>');                                        $ENV{'request.course.id'}.
                               } elsif ($cellemb{$rid} eq 'img') {                                        '.pageseparators'} eq 'yes') {
                                         unless($target eq 'tex') {
                                             $r->print('<hr />');
                                         } else {
                                             $r->print('\hline');
                                         }
     }
         } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('>'.$metainfo.'<img src="'.                                    $r->print('>'.$metainfo.'<img src="'.
                                     $hash{'src_'.$rid}.'"></img>');                                      $hash{'src_'.$rid}.'"></img>');
       } elsif ($cellemb{$rid} eq 'emb') {        } elsif ($cellemb{$rid} eq 'emb') {
                                   $r->print('>'.$metainfo.'<embed src="'.                                    $r->print('>'.$metainfo.'<embed src="'.
                                     $hash{'src_'.$rid}.'"></embed>');                                      $hash{'src_'.$rid}.'"></embed>');
                               }                                }
                               $r->print('</td>');        unless ($target eq 'tex') {
     $r->print('</td>');
         } else {
                                     for (my $incol=1;$incol<=$avespan;$incol++) {
         $r->print(' & ');
     }
         }
                           }                            }
                           $r->print('</tr>');        unless ($target eq 'tex') {
     $r->print('</tr>');
         } else {
     $r->print('REMOVETHEHEADOFLONGTABLE\\\\');
         }
         }          }
                       }                        }
                       $r->print("\n</table>");        unless ($target eq 'tex') {
     $r->print("\n</table>");
         } else {
     $r->print('\end{longtable}');
         }
 # ---------------------------------------------------------------- Submit, etc.  # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {                        if ($nforms) {
                           $r->print(                            $r->print(
                   '<input name="all_submit" value="Submit All" type="'.                    '<input name="all_submit" value="Submit All" type="'.
   (($nforms>1)?'submit':'hidden').'"></input></form>');    (($nforms>1)?'submit':'hidden').'"></input></form>');
                       }                        }
                       $r->print('</body>'.&Apache::lonxml::xmlend());        unless ($target eq 'tex') {
     $r->print('</body>'.&Apache::lonxml::xmlend());
         } else {
     $r->print('\end{document}'.$number_of_columns);
         }
 # -------------------------------------------------------------------- End page  # -------------------------------------------------------------------- End page
                   }                                      }                  
 # ------------------------------------------------------------- End render page  # ------------------------------------------------------------- End render page
               } else {                } else {
                   $r->content_type('text/html');                    $r->content_type('text/html');
                   $r->send_http_header;                    $r->send_http_header;
   $r->print('<html><body>Page undefined.</body></html>');                    &Apache::lonsequence::viewmap($r,$requrl);
               }                }
 # ------------------------------------------------------------------ Untie hash  # ------------------------------------------------------------------ Untie hash
               unless (untie(%hash)) {                unless (untie(%hash)) {
Line 456  sub handler { Line 518  sub handler {
           }            }
       }         } 
   }    }
   $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";    $r->content_type('text/html');
   return HTTP_NOT_ACCEPTABLE;     $r->send_http_header;
     &Apache::lonsequence::viewmap($r,$requrl);
     return OK; 
 }  }
   
 1;  1;

Removed from v.1.31  
changed lines
  Added in v.1.43


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