--- loncom/xml/scripttag.pm 2001/10/14 05:08:09 1.55
+++ loncom/xml/scripttag.pm 2001/11/05 22:59:33 1.56
@@ -238,18 +238,20 @@ sub start_import {
$dir=~s:/[^/]*$::;
# &Apache::lonxml::debug("directory $dir $location file $file \nEND\n");
&Apache::lonxml::newparser($parser,\$file,$dir);
- }
- if ($target eq "edit" ) {
+ } elsif ($target eq "edit" ) {
$result.=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);
#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
"
- }
- if ($target eq 'modified') {
+ } elsif ($target eq 'modified') {
$bodytext=$$parser[$#$parser]->get_text("/import");
$result=&Apache::edit::modifiedfield($token);
&Apache::lonxml::debug($result);
+ } elsif ($target eq 'meta') {
+ $result.='';
+ $result.=$bodytext;
+ $result.='';
}
return $result;
}