Diff for /loncom/xml/scripttag.pm between versions 1.148.2.1 and 1.149

version 1.148.2.1, 2008/12/11 21:30:10 version 1.149, 2008/11/24 18:55:01
Line 44  BEGIN { Line 44  BEGIN {
      'window','display','storetc','physnet',       'window','display','storetc','physnet',
      'standalone','comment','num','parse','algebra',       'standalone','comment','num','parse','algebra',
      'LONCAPA_INTERNAL_TURN_STYLE_ON',       'LONCAPA_INTERNAL_TURN_STYLE_ON',
      'LONCAPA_INTERNAL_TURN_STYLE_OFF'));       'LONCAPA_INTERNAL_TURN_STYLE_OFF',
        'LONCAPA_INTERNAL_LONHTTPD_PORT'));
 }  }
   
 sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {  sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {
Line 80  sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF Line 81  sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF
     return ('','no');      return ('','no');
 }  }
   
   sub start_LONCAPA_INTERNAL_LONHTTPD_PORT {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
       if ($target eq 'web' || $target eq 'webgrade') {
    return '<script type="text/javascript">var lonhttpdport=\''.
       &Apache::loncommon::lonhttpd_port().'\';</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 612  sub end_algebra { Line 626  sub end_algebra {
   
 1;  1;
 __END__  __END__
   
   =pod
   
   =head1 NAME
   
   Apache::scripttag.pm
   
   =head1 SYNOPSIS
   
   implements <script>, <scriptlib>, <parserlib>,
   and <import>
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   
   =head1 NOTABLE SUBROUTINES
   
   =over
   
   =item start_LONCAPA_INTERNAL_LONHTTPD_PORT()
   
   emits a pice of javascript that says a global js variable to the
   current lonhttp port, currently used by the remote control to find out
   where to load images from
   
   =back
   
   =cut
   

Removed from v.1.148.2.1  
changed lines
  Added in v.1.149


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