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

Diff for /loncom/xml/scripttag.pm between versions 1.83 and 1.87

version 1.83, 2002/11/14 16:47:41 version 1.87, 2003/05/13 20:41:08
Line 44  BEGIN { Line 44  BEGIN {
     ('script','scriptlib','parserlib','import',      ('script','scriptlib','parserlib','import',
      'window','display','storetc','physnet',       'window','display','storetc','physnet',
      'standalone','comment',       'standalone','comment',
      'LONCAPA_INTERNAL_TURN_STYLE_ON'));       'LONCAPA_INTERNAL_TURN_STYLE_ON',
        'LONCAPA_INTERNAL_LONHTTPD_PORT'));
 }  }
   
 sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {  sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {
Line 56  sub end_LONCAPA_INTERNAL_TURN_STYLE_ON { Line 57  sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
     return ('','no');      return ('','no');
 }  }
   
   sub start_LONCAPA_INTERNAL_LONHTTPD_PORT {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       if ($target eq 'web') {
    my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
    if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
    return '<script type="text/javascript">var lonhttpdport=\''.
       $lonhttpdPort.'\';</script>';
       }
       return ('','no');
   }
   
   sub end_LONCAPA_INTERNAL_LONHTTPD_PORT {
       return ('','no');
   }
   
 sub start_script {  sub start_script {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   @Apache::scripttag::parser_env = @_;    @Apache::scripttag::parser_env = @_;
Line 63  sub start_script { Line 79  sub start_script {
   my $type= &Apache::lonxml::get_param('type',$parstack,$safeeval);    my $type= &Apache::lonxml::get_param('type',$parstack,$safeeval);
   &Apache::lonxml::debug("found type of $type");    &Apache::lonxml::debug("found type of $type");
   if ($type eq "loncapa/perl") {    if ($type eq "loncapa/perl") {
     my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]);      my $bodytext=&Apache::lonxml::get_all_text("/script",$parser);
     if ( $target eq "modified" ) {      if ( $target eq "modified" ) {
       $result=$token->[4].&Apache::edit::modifiedfield();        $result=$token->[4].&Apache::edit::modifiedfield();
     } elsif ( $target eq 'web' || $target eq 'tex' ||      } elsif ( $target eq 'web' || $target eq 'tex' ||
Line 80  sub start_script { Line 96  sub start_script {
   
     $result.=$listing;      $result.=$listing;
     $result.= "&lt;/pre&gt;&lt;/body&gt;&lt;/html&gt;\');newWindow.document.close();void(0);\">Script Vars</a><br />";      $result.= "&lt;/pre&gt;&lt;/body&gt;&lt;/html&gt;\');newWindow.document.close();void(0);\">Script Vars</a><br />";
       if ($ENV{'form.print_answer'} eq 'yes') {$result='';}
  }   }
     } elsif ($target eq "edit" ) {      } elsif ($target eq "edit" ) {
       #&Apache::run::run($bodytext,$safeeval);        #&Apache::run::run($bodytext,$safeeval);
Line 90  sub start_script { Line 107  sub start_script {
   } else {    } else {
     if ($target ne "meta") {      if ($target ne "meta") {
       $result = $token->[4];        $result = $token->[4];
       my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]);        my $bodytext=&Apache::lonxml::get_all_text("/script",$parser);
       $result.=$bodytext;        $result.=$bodytext;
     }      }
   }    }
Line 117  sub start_display { Line 134  sub start_display {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   
   my $result;    my $result;
   my $bodytext=&Apache::lonxml::get_all_text("/display",$$parser[$#$parser]);    my $bodytext=&Apache::lonxml::get_all_text("/display",$parser);
   
   if ( $target eq "modified" ) {    if ( $target eq "modified" ) {
     $result=$token->[4].&Apache::edit::modifiedfield();      $result=$token->[4].&Apache::edit::modifiedfield();
Line 292  sub start_import { Line 309  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);
     &Apache::lonxml::newparser($parser,\$file,$dir);  
    &Apache::lonxml::newparser($parser,\$file,$dir);
   
   } elsif ($target eq "edit" ) {    } elsif ($target eq "edit" ) {
     $result.=&Apache::edit::tag_start($target,$token);      $result.=&Apache::edit::tag_start($target,$token);
     $result.=&Apache::edit::editline($token->[1],$bodytext,'',40);      $result.=&Apache::edit::editline($token->[1],$bodytext,'',40);
Line 365  sub start_standalone { Line 384  sub start_standalone {
   my $result='';    my $result='';
   if ($target eq 'web' ) {    if ($target eq 'web' ) {
     if ( $ENV{'request.course.id'} ) {      if ( $ENV{'request.course.id'} ) {
       my $inside = &Apache::lonxml::get_all_text("/standalone",$$parser[-1]);        my $inside = &Apache::lonxml::get_all_text("/standalone",$parser);
     } else {      } else {
       $result='<table bgcolor="#E1E1E1" border="2"><tr><td>';        $result='<table bgcolor="#E1E1E1" border="2"><tr><td>';
     }      }
Line 390  sub start_comment { Line 409  sub start_comment {
   my $result='';    my $result='';
   if ($target eq 'edit') {    if ($target eq 'edit') {
     $result=&Apache::edit::tag_start($target,$token);      $result=&Apache::edit::tag_start($target,$token);
     my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]);      my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser);
     $result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4)      $result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4)
   } elsif ( $target eq 'modified') {    } elsif ( $target eq 'modified') {
     $result=$token->[4].&Apache::edit::modifiedfield($token);      $result=$token->[4].&Apache::edit::modifiedfield($token);
   } elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' ||    } elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' ||
     $target eq 'answer' || $target eq 'meta' || $target eq 'analyze') {      $target eq 'answer' || $target eq 'meta' || $target eq 'analyze') {
     #normally throw away comments      #normally throw away comments
     my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]);      my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser);
   }    }
   return $result;    return $result;
 }  }
Removed from v.1.83  
changed lines
  Added in v.1.87

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