loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.38 and 1.42

version 1.38, 2001/05/13 20:01:11	version 1.42, 2001/07/06 19:50:02
Line 6 package Apache::scripttag;	Line 6 package Apache::scripttag;

use strict;	use strict;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::style;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::scripttag',('script','scriptlib',	&Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
'parserlib','import',	'parserlib','import',
'window','display'));	'window','display',
	'storetc','physnet'));
}	}

sub start_script {	sub start_script {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $args ='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $type = &Apache::run::run("{$args;".'return $type}',$safeeval);
my $result='';	my $result='';
#&Apache::lonxml::debug("found type of $type");	my $type= &Apache::lonxml::get_param('type',$parstack,$safeeval);
	&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[$#$parser]);

if ( $target eq "modified" ) {	if ( $target eq "modified" ) {
$result=$token->[4].$bodytext;	$result=$token->[4].&Apache::edit::modifiedfield();
} elsif ( $target eq "web" \|\| $target eq "grade" ) {	} elsif ( $target eq "web" \|\| $target eq "grade" ) {
&Apache::run::run($bodytext,$safeeval);	&Apache::run::run($bodytext,$safeeval);
} elsif ($target eq "edit" ) {	} elsif ($target eq "edit" ) {
&Apache::run::run($bodytext,$safeeval);	#&Apache::run::run($bodytext,$safeeval);
$result="<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";	#$result="<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',50,5);	$result=&Apache::edit::tag_start($target,$token,'Script');
	$result.=&Apache::edit::editfield($token->[1],$bodytext,'',50,4);
}	}
} else {	} else {
if ($target ne "meta") { $result = $token->[4]; }	if ($target ne "meta") { $result = $token->[4]; }
Line 39 sub start_script {	Line 39 sub start_script {
}	}

sub end_script {	sub end_script {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
if ( $target eq "meta" ) { return ''; }	if ( $target eq "meta" ) { return ''; }
my $args ='';	my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval);
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $type = &Apache::run::run("{$args;".'return $type}',$safeeval);
my $result='';	my $result='';
#other script blocks need to survive	#other script blocks need to survive
if ($type ne "loncapa/perl") { return $token->[2]; }	if ($type ne "loncapa/perl") { return $token->[2]; }
	if ($target eq 'edit' ) { return &Apache::edit::end_table(); }
return '';	return '';
}	}

sub start_display {	sub start_display {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $args ='';
if ( $#$parstack > -1 ) {
$args=$$parstack[$#$parstack];
}
my $bodytext=&Apache::lonxml::get_all_text("/display",$$parser[$#$parser]);	my $bodytext=&Apache::lonxml::get_all_text("/display",$$parser[$#$parser]);

if ( $target eq "modified" ) {	if ( $target eq "modified" ) {
}	}
my $result=&Apache::run::run($bodytext,$safeeval);	my $result=&Apache::run::run($bodytext,$safeeval);
Line 78 sub end_display {	Line 74 sub end_display {
}	}

sub start_scriptlib {	sub start_scriptlib {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $bodytext;	my $bodytext;
my $result ='';	my $result ='';
my $error='';	my $error='';
Line 116 sub start_scriptlib {	Line 112 sub start_scriptlib {
}	}

sub end_scriptlib {	sub end_scriptlib {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
# if ($target eq "edit" ) { $result=" "; }	# if ($target eq "edit" ) { $result=" "; }
return $result;	return $result;
}	}

sub start_parserlib {	sub start_parserlib {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $bodytext;	my $bodytext;
my $result ="";	my $result ="";
my $error='';	my $error='';
Line 161 sub start_parserlib {	Line 157 sub start_parserlib {
}	}

sub end_parserlib {	sub end_parserlib {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
# if ($target eq "edit" ) {	# if ($target eq "edit" ) {
# $result=&Apache::edit::tag_end($target,$token);	# $result=&Apache::edit::tag_end($target,$token);
Line 170 sub end_parserlib {	Line 166 sub end_parserlib {
}	}

sub start_window {	sub start_window {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result = '';	my $result = '';
if ($target eq 'web') {	if ($target eq 'web') {
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result = '\footnote{';	$result = '\unskip\footnote{';
}	}
return $result;	return $result;
}	}

sub end_window {	sub end_window {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'web') {	if ($target eq 'web') {
my $output=&Apache::lonxml::endredirection;	my $output=&Apache::lonxml::endredirection;
Line 196 sub end_window {	Line 192 sub end_window {
}	}

sub start_import {	sub start_import {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $bodytext=$$parser[$#$parser]->get_text("/import");	my $bodytext=$$parser[$#$parser]->get_text("/import");
my $result ="";	my $result ="";

Line 224 sub end_import {	Line 220 sub end_import {
}	}

sub start_meta {	sub start_meta {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result = '';	my $result = '';
if ($target ne 'meta') {	if ($target ne 'meta') {
$result = &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);	$result = &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);
Line 238 sub start_meta {	Line 234 sub start_meta {
sub end_meta {	sub end_meta {
}	}

	sub editfield {
	my ($tag,$data)=@_;

	my $count=0;
	my $maxlength=-1;
	map { $count++;
	if (length($_) > $maxlength) { $maxlength = length ($_); }
	} split ("\n", $data);

	return "<br />\n<$tag><br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";
	}

sub getfilenothere {	sub getfilenothere {
my ($filename) = @_;	my ($filename) = @_;
my $a="";	my $a="";
Line 256 sub getfilenothere {	Line 264 sub getfilenothere {
return $a	return $a
}	}


	sub start_storetc {
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	my $result = '';
	&Apache::lonxml::startredirection;
	return $result;
	}

	sub end_storetc {
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	my $result;
	my $output=&Apache::lonxml::endredirection;
	$output =~ s/\"/\&quot\;/g;
	$result = "{\bf $output.}}\write\tcfile{\protect\tcpc{ $output.}{\the\value{relpage}}}";
	return $result;
	}


	sub start_physnet {

	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	my $cbistylefile = &Apache::lonnet::getfile('/home/httpd/res/msu/physnet/cbi.sty');
	%$style = (%$style,&Apache::style::styleparser($target,$cbistylefile));
	&Apache::lonxml::newparser($parser$$style{'physnet'});

	return "";
	}


1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.38
changed lines
	Added in v.1.42