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

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

version 1.39, 2002/05/27 12:04:36 version 1.44, 2002/08/12 18:21:42
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;
    }     }
      
    &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
   if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {    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)) {
 # ------------------------------------------------------------------- Hash tied  # ------------------------------------------------------------------- Hash tied
               my $firstres=$hash{'map_start_'.$requrl};                my $firstres=$hash{'map_start_'.$requrl};
               my $lastres=$hash{'map_finish_'.$requrl};                my $lastres=$hash{'map_finish_'.$requrl};
Line 366  sub handler { Line 366  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}
                                    \usepackage{longtable}
                                    \begin{document}');
         }
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
         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">');    $r->print('<table cols="'.$lcm.'" border="0">');
       }        }
                       for ($i=0;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
Line 438  sub handler { Line 451  sub handler {
                                   $r->print($ssibody{$rid});                                    $r->print($ssibody{$rid});
   unless ($target eq 'tex') {    unless ($target eq 'tex') {
       $r->print('</font>');        $r->print('</font>');
                                     }
                                     if ($ENV{'course.'.
                                         $ENV{'request.course.id'}.
                                         '.pageseparators'} eq 'yes') {
                                         unless($target eq 'tex') {
                                             $r->print('<hr />');
                                         } else {
                                             $r->print('\hline');
                                         }
   }    }
       } elsif ($cellemb{$rid} eq 'img') {        } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('>'.$metainfo.'<img src="'.                                    $r->print('>'.$metainfo.'<img src="'.
Line 448  sub handler { Line 470  sub handler {
                               }                                }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</td>');    $r->print('</td>');
         } else {
                                     for (my $incol=1;$incol<=$avespan;$incol++) {
         $r->print(' & ');
     }
       }        }
                           }                            }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print('</tr>');    $r->print('</tr>');
         } else {
     $r->print('REMOVETHEHEADOFLONGTABLE\\\\');
       }        }
         }          }
                       }                        }
       unless ($target eq 'tex') {        unless ($target eq 'tex') {
   $r->print("\n</table>");    $r->print("\n</table>");
         } else {
     $r->print('\end{longtable}');
       }        }
 # ---------------------------------------------------------------- Submit, etc.  # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {                        if ($nforms) {
Line 464  sub handler { Line 494  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.44

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