[BACK]Return to scripttag.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.89 and 1.95

version 1.89, 2003/05/22 21:05:01 version 1.95, 2003/06/08 21:03:19
Line 55  sub start_LONCAPA_INTERNAL_TURN_STYLE_ON Line 55  sub start_LONCAPA_INTERNAL_TURN_STYLE_ON
 }  }
   
 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {  sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       my $end=&Apache::lonxml::get_param('end',$parstack,$safeeval);
       if (defined($end)) {
    &Apache::lonxml::end_tag($tagstack,$parstack,$token);
       }
     return ('','no');      return ('','no');
 }  }
   
Line 277  sub end_window { Line 282  sub end_window {
   my $result;    my $result;
   if ($target eq 'web') {    if ($target eq 'web') {
     my $output=&Apache::lonxml::endredirection;      my $output=&Apache::lonxml::endredirection;
     $output =~ s/\"/\&quot\;/g;      $output =~ s/[\n\r]/ /g;
     $result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200,scrollbars=1\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor=&quot;#FFFFFF&quot;> $output </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";      $output=&HTML::Entities::encode($output,'<>&"\'');
       my $linktext= &Apache::lonxml::get_param('linktext',$parstack,$safeeval);
       if (!$linktext) { $linktext='<sup>*</sup>'; }
       my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval);
       if (!$width) { $width='500'; }
       my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval);
       if (!$height) { $height='200'; }
       $result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=$width,height=$height,scrollbars=1\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor=&quot;#FFFFFF&quot;> $output </body></html>\');newWindow.document.close();void(0);\">$linktext</a>";
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
       $result = '}';        $result = '}';
   } else {    } else {
Line 311  sub start_import { Line 323  sub start_import {
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);      my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
     if (!$id) { $id=$Apache::lonxml::curdepth; }      if (!$id) { $id=$Apache::lonxml::curdepth; }
     push(@Apache::inputtags::import,$id);      push(@Apache::inputtags::import,$id);
       push(@Apache::inputtags::importlist,$id);
   
  &Apache::lonxml::newparser($parser,\$file,$dir);   &Apache::lonxml::newparser($parser,\$file,$dir);
   
Removed from v.1.89  
changed lines
  Added in v.1.95

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