--- loncom/xml/scripttag.pm 2001/07/30 22:24:56 1.48 +++ loncom/xml/scripttag.pm 2001/08/13 20:52:33 1.49 @@ -110,9 +110,10 @@ sub start_scriptlib { } if ($target eq "edit" ) { $result= - &Apache::edit::tag_start($target,$token). - &Apache::edit::editfield($token->[1],$bodytext,'New Script Functions',40,1). - $error; + &Apache::edit::tag_start($target,$token,'New Script Functions'). + &Apache::edit::editfield($token->[1],$bodytext,'',40,1). + $error.''. + &Apache::edit::end_table(); } if ($target eq "modified" ) { $bodytext=$$parser[$#$parser]->get_text("/scriptlib"); @@ -124,9 +125,9 @@ sub start_scriptlib { sub end_scriptlib { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - my $result=''; -# if ($target eq "edit" ) { $result=" "; } - return $result; + my @result; + if ($target eq "edit" ) { $result[1]='no'; } + return @result; } sub start_parserlib { @@ -154,9 +155,10 @@ sub start_parserlib { } if ($target eq "edit" ) { $result= - &Apache::edit::tag_start($target,$token). - &Apache::edit::editfield($token->[1],$bodytext,"New Tag Definitions",40,1). - $error; + &Apache::edit::tag_start($target,$token,'New Tag Definitions'). + &Apache::edit::editfield($token->[1],$bodytext,'',40,1). + $error.''. + &Apache::edit::end_table(); } if ($target eq "modified" ) { $bodytext=$$parser[$#$parser]->get_text("/parserlib"); @@ -168,11 +170,9 @@ sub start_parserlib { sub end_parserlib { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - my $result=''; -# if ($target eq "edit" ) { -# $result=&Apache::edit::tag_end($target,$token); -# } - return $result; + my @result; + if ($target eq "edit" ) { $result[1]='no'; } + return @result; } sub start_window {