--- loncom/xml/scripttag.pm	2008/12/11 21:30:10	1.148.2.1
+++ loncom/xml/scripttag.pm	2008/11/24 18:55:01	1.149
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.148.2.1 2008/12/11 21:30:10 raeburn Exp $
+# $Id: scripttag.pm,v 1.149 2008/11/24 18:55:01 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,7 +44,8 @@ BEGIN {
 			     'window','display','storetc','physnet',
 			     'standalone','comment','num','parse','algebra',
 			     '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 {
@@ -80,6 +81,19 @@ 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 = @_;
@@ -612,3 +626,33 @@ sub end_algebra {
 
 1;
 __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
+