--- loncom/xml/lonxml.pm 2002/02/26 21:00:38 1.154 +++ loncom/xml/lonxml.pm 2002/03/08 18:32:55 1.156 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.154 2002/02/26 21:00:38 albertel Exp $ +# $Id: lonxml.pm,v 1.156 2002/03/08 18:32:55 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -316,6 +316,8 @@ sub fontsettings() { sub registerurl { my $forcereg=shift; + my $target = shift; + my $result = ''; if ($ENV{'request.publicaccess'}) { return ''; @@ -347,7 +349,7 @@ ENDGRDS ENDPARM } } - return (< // BEGIN LON-CAPA Internal @@ -399,7 +401,7 @@ ENDPARM ENDREGTHIS } else { - return (< // BEGIN LON-CAPA Internal @@ -426,8 +428,52 @@ ENDREGTHIS // END LON-CAPA Internal ENDDONOTREGTHIS - } + if ($target eq 'edit') { + # Javascript routines for construction space: + # openbrowser and opensearcher will start the file browser + # (lonindexer) and searcher (lonsearchcat) respectively. + # Inputs are the name of the html form being used + # and the name of the element the selected URL should + # be placed in. + $result .=<<"ENDBROWSERSCRIPT"; + +ENDBROWSERSCRIPT + } + return $result; } sub loadevents() {