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.4 and 1.8

version 1.4, 2000/08/02 16:47:53	version 1.8, 2000/08/11 14:24:18
Line 8 use strict;	Line 8 use strict;
use Apache::lonnet;	use Apache::lonnet;

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

sub start_script {	sub start_script {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;

my $result="";	my $result="";
my $bodytext=$parser->get_text("/script");	my $bodytext=$$parser[$#$parser]->get_text("/script");
if ($target ne "edit" ) {	if ($target ne "edit" ) {
$result = &Apache::run::run($bodytext,$safeeval);	$result = &Apache::run::run($bodytext,$safeeval);
} else {	} else {
$result="<textarea>$bodytext</textarea>\n";	$result=&editfield($token->[1],$bodytext);
}	}
return $result;	return $result;
}	}
Line 28 sub end_script {}	Line 28 sub end_script {}

sub start_scriptlib {	sub start_scriptlib {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
my $bodytext=$parser->get_text("/scriptlib");	my $bodytext=$$parser[$#$parser]->get_text("/scriptlib");
my $result ="";	my $result ="";
if ($target ne "edit" ) {	if ($target ne "edit" ) {
&Apache::run::run(&getfile($bodytext),$safeeval);	$bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]);
	&Apache::run::run(&getfile("/home/httpd/html/raw/".$bodytext),$safeeval);
#print "ran $bodytext:<br>".&getfile($bodytext)."<br>";	#print "ran $bodytext:<br>".&getfile($bodytext)."<br>";
} else {	} else {
$result="<textarea>$bodytext</textarea>\n";	$result=&editfield($token->[1],$bodytext);
}	}
return $result;	return $result;
}	}
Line 43 sub end_scriptlib {}	Line 44 sub end_scriptlib {}

sub start_parserlib {	sub start_parserlib {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
my $bodytext="/home/httpd/html/".$parser->get_text("/parserlib");	my $bodytext=$$parser[$#$parser]->get_text("/parserlib");
%$style = ( %$style , &Apache::style::styleparser($target, &getfile($bodytext)));	my $result ="";
	if ($target ne "edit" ) {
	$bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]);
	%$style = ( %$style , &Apache::style::styleparser($target,
	&getfile("/home/httpd/html/raw/".$bodytext)));
	} else {
	$result=&editfield($token->[1],$bodytext);
	}
	return $result;
}	}

sub end_parserlib {	sub end_parserlib {
}	}

	sub start_import {
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	my $bodytext=$$parser[$#$parser]->get_text("/import");
	my $result ="";
	if ($target ne "edit" ) {
	$bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]);
	my $file=&getfile("/home/httpd/html/raw/".$bodytext);
	my $tempparser=HTML::TokeParser->new(\$file);
	push (@$parser,$tempparser);
	} else {
	$result=&editfield($token->[1],$bodytext);
	$result.="Click<a href=\"/res/$bodytext\">here</a> to edit<br></br>"
	}
	}

	sub end_import {
	}

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

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

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

sub getfile {	sub getfile {
my ($filename) = @_;	my ($filename) = @_;
my $a="";	my $a="";

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

Removed from v.1.4
changed lines
	Added in v.1.8