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

version 1.42, 2002/06/27 18:48: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 380  sub handler { Line 379  sub handler {
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
       if ($target eq 'tex') {        if ($target eq 'tex') {
   $r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead ');    $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 471  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('REMOVETHEHEADOFLONGTABLE\\\\');
       }        }
         }          }

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


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