[BACK]Return to lonpage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

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

version 1.41, 2002/06/26 20:28:30 version 1.43, 2002/07/01 15:02:19
Line 152  sub handler { Line 152  sub handler {
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
    }     }
      
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                           ['forceselect','launch']);                                            ['forceselect','launch']);
     my $number_of_columns = 1;
   my $requrl=$r->uri;      my $requrl=$r->uri;  
   my $target = $ENV{'form.grade_target'};    my $target = $ENV{'form.grade_target'};
 # ----------------------------------------------------------------- Tie db file  # ----------------------------------------------------------------- Tie db file
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 374  sub handler { Line 373  sub handler {
                                  \usepackage[dvips]{graphicx}                                   \usepackage[dvips]{graphicx}
                                  \usepackage{epsfig}                                   \usepackage{epsfig}
                                  \usepackage{calc}                                   \usepackage{calc}
                                    \usepackage{longtable}
                                  \begin{document}');                                   \begin{document}');
       }        }
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
       if ($target eq 'tex') {        if ($target eq 'tex') {
   $r->print('\begin{tabular}INSERT');    $r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead ');
     if ($number_of_columns le $lcm) {$number_of_columns=$lcm;};
       } else {        } else {
   $r->print('<table cols="'.$lcm.'" border="0">');    $r->print('<table cols="'.$lcm.'" border="0">');
       }        }
Line 470  sub handler { Line 471  sub handler {
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</td>');    $r->print('</td>');
       } else {        } else {
   $number_of_columns++;                                    for (my $incol=1;$incol<=$avespan;$incol++) {
   $r->print(' & ');        $r->print(' & ');
     }
       }        }
                           }                            }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</tr>');    $r->print('</tr>');
       } else {        } else {
   $number_of_columns = 1;    $r->print('REMOVETHEHEADOFLONGTABLE\\\\');
   $r->print('REMOVE\\\\');  
       }        }
         }          }
                       }                        }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print("\n</table>");    $r->print("\n</table>");
       } else {        } else {
   $r->print('\end{tabular}');    $r->print('\end{longtable}');
       }        }
 # ---------------------------------------------------------------- Submit, etc.  # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {                        if ($nforms) {
Removed from v.1.41  
changed lines
  Added in v.1.43

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