--- loncom/xml/scripttag.pm 2014/08/25 00:20:19 1.172
+++ loncom/xml/scripttag.pm 2023/11/07 12:26:01 1.176
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# ';
+ }
+
+
} elsif ($target eq 'meta') {
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);
}
@@ -330,7 +366,7 @@ sub start_scriptlib {
$result=
&Apache::edit::tag_start($target,$token,'New Script Functions').
&Apache::edit::editline($token->[1],$bodytext,'scriptlib',40).
- &Apache::edit::browse(undef,'textnode').
+ &Apache::edit::browse_or_search(undef,'textnode').
$error.''.
&Apache::edit::end_table();
}
@@ -582,9 +618,11 @@ sub start_import {
my $location=$token->[1];
$location=~s/^\s*//s;
$location=~s/\s*$//s;
+ my $crsonly = join(',',(&Apache::loncommon::filecategorytypes('Problem'),
+ &Apache::loncommon::filecategorytypes('Library')));
$result.=&Apache::edit::editline($location,$bodytext,'',40);
- $result.=&Apache::edit::browse(undef,'textnode');
- $result.= ' ';
#FIXME this need to convert $bodytext to be a contruction space reference
#my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
#$result.="Clickhere to edit
"
@@ -645,12 +683,14 @@ sub end_storetc {
sub start_physnet {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- my $bodytext = '/adm/includes/physnet.sty';
+ my $bodytext = '/res/adm/includes/physnet.sty';
my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
my $cbistyletext=&Apache::lonnet::getfile($location);
%$style = (%$style,&Apache::style::styleparser($target,$cbistyletext));
- $$parser['-1']->unget_token($token);
+ if (keys(%$style) && (($target eq 'web') || ($target eq 'tex'))) {
+ $$parser['-1']->unget_token($token);
+ }
# if ( defined($$style{'physnet'}) ) {
# &Apache::lonxml::newparser($parser,\$$style{'physnet'});
# }