--- rat/lonpage.pm	2002/02/14 20:45:16	1.31
+++ rat/lonpage.pm	2002/05/20 19:05:11	1.37
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.31 2002/02/14 20:45:16 albertel Exp $
+# $Id: lonpage.pm,v 1.37 2002/05/20 19:05:11 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,6 +34,8 @@
 # YEAR=2001
 # 08/13/01,08/30,10/1 Gerd Kortemeyer
 # 12/16 Scott Harrison
+# YEAR=2002
+# 03/19 Gerd Kortemeyer
 #
 ###
 
@@ -150,7 +152,8 @@ sub handler {
        return OK;
    }
 
-  my $requrl=$r->uri;
+  my $requrl=$r->uri;  
+  my $target = $ENV{'form.grade_target'};
 # ----------------------------------------------------------------- Tie db file
   if ($ENV{'request.course.fn'}) {
       my $fn=$ENV{'request.course.fn'};
@@ -329,43 +332,45 @@ sub handler {
 # ------------------------------------------------------------------ Build page
 
 # ---------------------------------------------------------------- Send headers
-                      if ($isxml) {
-			  $r->content_type('text/xml');
-                          $r->send_http_header;
-                          $r->print($xmlheader);
-		      } else {
-                          $r->content_type('text/html');
-                          $r->send_http_header;
-                          $r->print('<html>');
-		      }
+		      unless ($target eq 'tex') {
+			  if ($isxml) {
+			      $r->content_type('text/xml');
+			      $r->send_http_header;
+			      $r->print($xmlheader);
+			  } else {
+			      $r->content_type('text/html');
+			      $r->send_http_header;
+			      $r->print('<html>');
+			  }
 # ------------------------------------------------------------------------ Head
-                      $r->print("\n<head>\n".$allmeta);
-                      $allscript=~
-       s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
-                      if ($allscript) {
-			  $r->print("\n<script language='JavaScript'>\n".
-                                   $allscript."\n</script>\n");
-                      }
-                      $r->print(&Apache::lonxml::registerurl(1));
-                      $r->print("\n</head>\n");
+			  $r->print("\n<head>\n".$allmeta);
+			  $allscript=~
+			      s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
+			  if ($allscript) {
+			      $r->print("\n<script language='JavaScript'>\n".
+					$allscript."\n</script>\n");
+			  }
+			  $r->print(&Apache::lonxml::registerurl(1,undef));
+			  $r->print("\n</head>\n");
 # ------------------------------------------------------------------ Start body
-                      if ($isxml) {
-                          $r->print($xmlbody);
-                      } else {
-			  $r->print(
- '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.
-                     '" onUnload="'.&Apache::lonxml::unloadevents.'">');
-                      }
+			  if ($isxml) {
+			      $r->print($xmlbody);
+			  } else {
+			      $r->print('<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.'" onUnload="'.&Apache::lonxml::unloadevents.'">');
+			  }
 # ------------------------------------------------------------------ Start form
-                      if ($nforms) {
-			  $r->print('<form method="post" action="'.
-				    $requrl.'">');
-                      }
+			  if ($nforms) {
+			      $r->print('<form method="post" action="'.
+					$requrl.'">');
+			  }		      
 # ----------------------------------------------------------------- Start table
-                      $r->print('<table cols="'.$lcm.'" border="0">');
+			  $r->print('<table cols="'.$lcm.'" border="0">');
+		      }
                       for ($i=0;$i<=$#rows;$i++) {
 			if ($rows[$i]) {
-                          $r->print("\n<tr>");
+			    unless ($target eq 'tex') {
+				$r->print("\n<tr>");
+			    }
                           my @colcont=split(/\&/,$rows[$i]);
                           my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {
@@ -373,7 +378,11 @@ sub handler {
                               my $metainfo='<a href="'.
                                     $metalink{$rid}.'" target="LONcatInfo">'.
                           '<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 (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
@@ -383,53 +392,68 @@ sub handler {
                 '___'.$resid.'___'.
 		&Apache::lonnet::declutter($hash{'src_'.$rid});
                                  $metainfo.=
-                  '<a href="/adm/grades?symb='.$symb.
+                  '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=submission" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/subm_button.gif" border=0>'.
 			  '</img></a>'.
-                  '<a href="/adm/grades?symb='.$symb.
+                  '<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
                   '&command=viewgrades" target="LONcatInfo">'.
                           '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.
 			  '</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></a>';
                               }
                               $metainfo.='<br></br>';
-                              $r->print('<td colspan="'.$avespan.'"');
+			    unless ($target eq 'tex') {
+				$r->print('<td colspan="'.$avespan.'"');
+			    }
                               if ($cellemb{$rid} eq 'ssi') {
-				  if ($ssibgcolor{$rid}) {
-                                     $r->print(' bgcolor="'.
-                                               $ssibgcolor{$rid}.'"');
-                                  }
-                                  $r->print('>'.$metainfo.'<font');
-                                  if ($ssitext{$rid}) {
-				     $r->print(' text="'.$ssitext{$rid}.'"');
-                                  }
-                                  if ($ssilink{$rid}) {
-				     $r->print(' link="'.$ssilink{$rid}.'"');
-                                  }
-                                  if ($ssitext{$rid}) {
-				     $r->print(' vlink="'.$ssivlink{$rid}.'"');
-                                  }
-                                  if ($ssialink{$rid}) {
-				     $r->print(' alink="'.$ssialink{$rid}.'"');
-                                  }
-                            
-                                  $r->print('>'.$ssibody{$rid}.'</font>');
-                              } elsif ($cellemb{$rid} eq 'img') {
+				  unless ($target eq 'tex') {
+				      if ($ssibgcolor{$rid}) {
+					  $r->print(' bgcolor="'.
+						    $ssibgcolor{$rid}.'"');
+				      }
+				      $r->print('>'.$metainfo.'<font');
+		    
+				      if ($ssitext{$rid}) {
+					  $r->print(' text="'.$ssitext{$rid}.'"');
+				      }
+				      if ($ssilink{$rid}) {
+					  $r->print(' link="'.$ssilink{$rid}.'"');
+				      }
+				      if ($ssitext{$rid}) {
+					  $r->print(' vlink="'.$ssivlink{$rid}.'"');
+				      }
+				      if ($ssialink{$rid}) {
+					  $r->print(' alink="'.$ssialink{$rid}.'"');
+				      }             
+				      $r->print('>');
+				  }
+                                  $r->print($ssibody{$rid});	
+				  unless ($target eq 'tex') {
+				      $r->print('</font>');
+				  }
+			      } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('>'.$metainfo.'<img src="'.
                                     $hash{'src_'.$rid}.'"></img>');
 			      } elsif ($cellemb{$rid} eq 'emb') {
                                   $r->print('>'.$metainfo.'<embed src="'.
                                     $hash{'src_'.$rid}.'"></embed>');
                               }
-                              $r->print('</td>');
+			      unless ($target eq 'tex') {
+				  $r->print('</td>');
+			      }
                           }
-                          $r->print('</tr>');
+			      unless ($target eq 'tex') {
+				  $r->print('</tr>');
+			      }
 		        }
                       }
-                      $r->print("\n</table>");
+		      unless ($target eq 'tex') {
+			  $r->print("\n</table>");
+		      }
 # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {
                           $r->print(
