--- loncom/xml/scripttag.pm	2008/11/24 18:55:01	1.149
+++ loncom/xml/scripttag.pm	2008/12/11 21:28:59	1.151
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.149 2008/11/24 18:55:01 jms Exp $
+# $Id: scripttag.pm,v 1.151 2008/12/11 21:28:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,8 +44,7 @@ BEGIN {
 			     'window','display','storetc','physnet',
 			     'standalone','comment','num','parse','algebra',
 			     'LONCAPA_INTERNAL_TURN_STYLE_ON',
-			     'LONCAPA_INTERNAL_TURN_STYLE_OFF',
-			     'LONCAPA_INTERNAL_LONHTTPD_PORT'));
+			     'LONCAPA_INTERNAL_TURN_STYLE_OFF'));
 }
 
 sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {
@@ -81,19 +80,6 @@ sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF
     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 {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   @Apache::scripttag::parser_env = @_;
@@ -641,18 +627,5 @@ 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