Diff for /rat/lonpage.pm between versions 1.39 and 1.40

version 1.39, 2002/05/27 12:04:36 version 1.40, 2002/06/20 17:47:35
Line 147  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;
Line 196  sub handler { Line 196  sub handler {
   
 # ------------------------------------------------------------------ Page parms  # ------------------------------------------------------------------ Page parms
   
                     my $number_of_columns = 1;
                   my $j;                    my $j;
                   my $lcm=1;                    my $lcm=1;
                   my $contents=0;                    my $contents=0;
Line 366  sub handler { Line 367  sub handler {
   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}
                                    \begin{document}');
         }
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
         if ($target eq 'tex') {
     $r->print('\begin{tabular}INSERT');
         } else {
   $r->print('<table cols="'.$lcm.'" border="0">');    $r->print('<table cols="'.$lcm.'" border="0">');
       }        }
                       for ($i=0;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
Line 448  sub handler { Line 460  sub handler {
                               }                                }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</td>');    $r->print('</td>');
         } else {
     $number_of_columns++;
     $r->print(' & ');
       }        }
                           }                            }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</tr>');    $r->print('</tr>');
         } else {
     $number_of_columns = 1;
     $r->print('REMOVE\\\\');
       }        }
         }          }
                       }                        }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print("\n</table>");    $r->print("\n</table>");
         } else {
     $r->print('\end{tabular}');
       }        }
 # ---------------------------------------------------------------- Submit, etc.  # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {                        if ($nforms) {
Line 464  sub handler { Line 484  sub handler {
                   '<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

Removed from v.1.39  
changed lines
  Added in v.1.40


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