--- loncom/xml/scripttag.pm 2001/01/10 16:53:07 1.31
+++ loncom/xml/scripttag.pm 2001/02/19 20:43:00 1.33
@@ -10,7 +10,7 @@ use Apache::lonnet;
sub BEGIN {
&Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
'parserlib','import',
- 'window','meta','display'));
+ 'window','display'));
}
sub start_script {
@@ -28,7 +28,7 @@ sub start_script {
&Apache::run::run($bodytext,$safeeval);
} elsif ($target eq "edit" ) {
&Apache::run::run($bodytext,$safeeval);
- $result="
<$token->[1]> output:
$bodytext
Source:
";
+ $result="
<$token->[1]> output:
$bodytext
Source:
";
$result.=&editfield($token->[1],$bodytext);
}
} else {
@@ -66,7 +66,7 @@ sub start_display {
}
if ($target eq "edit" ) {
$result =
- "
<$token->[1]> output:
$bodytext
Source:
";
+ "
<$token->[1]> output:
$bodytext
Source:
";
$result.=&editfield($token->[1],$bodytext);
}
return $result;
@@ -90,7 +90,7 @@ sub start_scriptlib {
return "";
}
&Apache::run::run($script,$safeeval);
- #&Apache::lonxml::debug("ran $bodytext:
".&Apache::lonnet::getfile($bodytext)."
");
+ #&Apache::lonxml::debug("ran $bodytext:
".&Apache::lonnet::getfile($bodytext)."
");
if ($target eq "edit" ) {
$result.=&editfield($token->[1],$bodytext);
@@ -169,7 +169,7 @@ sub start_import {
if ($target eq "edit" ) {
$result.=&editfield($token->[1],$bodytext);
- $result.="Clickhere to edit
"
+ $result.="Clickhere to edit
"
}
return '';
}
@@ -192,12 +192,6 @@ sub start_meta {
sub end_meta {
}
-
-
-
-
-
-
sub editfield {
my ($tag,$data)=@_;
@@ -207,7 +201,7 @@ sub editfield {
if (length($_) > $maxlength) { $maxlength = length ($_); }
} split ("\n", $data);
- return "
\n<$tag>
\n
\n</$tag>
\n";
+ return "
\n<$tag>
\n
\n</$tag>
\n";
}
sub getfilenothere {