loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.74, 2002/07/17 18:00:03
+version 1.75, 2002/07/17 18:03:46
  Line 338  sub end_physnet {
  sub start_standalone {
    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-   if ($target eq 'web'  && $ENV{'request.course.id'} ) {
+   my $result='';
-     my $inside = &Apache::lonxml::get_all_text("/standalone",$$parser[-1]);
+   if ($target eq 'web' ) {
+     if ( $ENV{'request.course.id'} ) {
+       my $inside = &Apache::lonxml::get_all_text("/standalone",$$parser[-1]);
+     } else {
+       $result='<table bgcolor="#E1E1E1" border="2"><tr><td>';
+     }
    }
-   return '';
+   return $result;
  }
  sub end_standalone {
-   return '';
+   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+   my $result='';
+   if ($target eq 'web' ) {
+     if ( $ENV{'request.course.id'} ) {
+     } else {
+       $result='</td></tr></table>';
+     }
+   }
+   return $result;
  }
  sub start_comment {