loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.83, 2002/11/14 16:47:41	version 1.84, 2003/01/13 22:18:34
Line 63 sub start_script {	Line 63 sub start_script {
my $type= &Apache::lonxml::get_param('type',$parstack,$safeeval);	my $type= &Apache::lonxml::get_param('type',$parstack,$safeeval);
&Apache::lonxml::debug("found type of $type");	&Apache::lonxml::debug("found type of $type");
if ($type eq "loncapa/perl") {	if ($type eq "loncapa/perl") {
my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]);	my $bodytext=&Apache::lonxml::get_all_text("/script",$parser);
if ( $target eq "modified" ) {	if ( $target eq "modified" ) {
$result=$token->[4].&Apache::edit::modifiedfield();	$result=$token->[4].&Apache::edit::modifiedfield();
} elsif ( $target eq 'web' \|\| $target eq 'tex' \|\|	} elsif ( $target eq 'web' \|\| $target eq 'tex' \|\|
Line 117 sub start_display {	Line 117 sub start_display {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;

my $result;	my $result;
my $bodytext=&Apache::lonxml::get_all_text("/display",$$parser[$#$parser]);	my $bodytext=&Apache::lonxml::get_all_text("/display",$parser);

if ( $target eq "modified" ) {	if ( $target eq "modified" ) {
$result=$token->[4].&Apache::edit::modifiedfield();	$result=$token->[4].&Apache::edit::modifiedfield();