loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.6 and 1.9

version 1.6, 2001/05/13 21:40:32	version 1.9, 2001/06/11 16:15:37
Line 7 use strict;	Line 7 use strict;
use Apache::lonnet;	use Apache::lonnet;

sub tag_start {	sub tag_start {
my ($target,$token) = @_;	my ($target,$token,$description) = @_;
my $result='';	my $result='';
if ($target eq "edit") {	if ($target eq "edit") {
my $tag=$token->[1];	my $tag=$token->[1];
$result.="<table width=\"100%\" border=\"2\"><tr><td><$tag></td>	# my $color = sprintf("#%06lx",(hex("ffffff")) >> scalar(split(/_/,$Apache::lonxml::curdepth)));
<td>Delete:	my $color = sprintf("#%02lxffff",33* scalar(split(/_/,$Apache::lonxml::curdepth)));
<select name=\"delete_$Apache::lonxml::curdepth\">	if (!$description) { $description="<$tag>"; }
<option>Nothing</option>	$result.="<table bgcolor=\"$color\" width=\"100%\" border=\"2\"><tr><td>$description</td>
<option>Tag</option>	<td>Delete:".
<option>Subtags</option>	&deletelist($target,$token)
</select></td>	."</td>
<td>".	<td>".
&insertlist($token,$target).	&insertlist($target,$token).
"</td>	"</td>
</tr><tr><td colspan=\"3\">\n";	</tr><tr><td colspan=\"3\">\n";
}	}
Line 27 sub tag_start {	Line 27 sub tag_start {
}	}

sub tag_end {	sub tag_end {
my ($target,$token) = @_;	my ($target,$token,$description) = @_;
my $result='';	my $result='';
if ($target eq 'edit') {	if ($target eq 'edit') {
my $tag=$token->[1];	my $tag=$token->[1];
$result.="</td></tr><tr><td></$tag></td></tr></table>\n";	if (!defined($description)) {
	$result.="</td></tr><tr><td></$tag>";
	} else {
	if ($description ne '') { $result.="</td></tr><tr><td>$description"; }
	}
	$result.="</td></tr></table>\n";
}	}
return $result;	return $result;
}	}

sub get_insert_list2 {	sub deletelist {
my ($token) = @_;	my ($target,$token) = @_;
my $result='';	my $result = "<select name=\"delete_$Apache::lonxml::curdepth\">
if ($Apache::lonxml::insertlist{"$token->[1].which"}) {	<option>Nothing</option>
my @tagnums= @{ $Apache::lonxml::insertlist{"$token->[1].which"} };	<option>Tag</option>
foreach my $tagnum (@tagnums) {	<option>Subtags</option>
$result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tag.description"}."</option>\n";	</select>";
}
if ($result) { $result='<option selected="on"></option>'.$result; }
}
return $result;	return $result;
}	}

sub get_insert_list {	sub get_insert_list {
my ($token) = @_;	my ($token) = @_;
my $result='';	my $result='';
	my @tagnums= ();
	#&Apache::lonxml::debug("keys ".join("\n",sort(keys(%Apache::lonxml::insertlist))));
if ($Apache::lonxml::insertlist{"$token->[1].which"}) {	if ($Apache::lonxml::insertlist{"$token->[1].which"}) {
my @tags= @{ $Apache::lonxml::insertlist{"$token->[1].which"} };	&Apache::lonxml::debug("Adding1 $token->[1].which");
foreach my $tag (@tags) {	push (@tagnums, @{ $Apache::lonxml::insertlist{"$token->[1].which"} });
$result.='<option value="'.$tag.'">'.$Apache::lonxml::insertlist{"$tag.description"}."</option>\n";	}
	foreach my $namespace (@Apache::lonxml::namespace) {
	if ($Apache::lonxml::insertlist{"$namespace".'::'."$token->[1].which"}) {
	&Apache::lonxml::debug("Adding2 $namespace".'::'."$token->[1].which");
	push (@tagnums, @{ $Apache::lonxml::insertlist{"$namespace".'::'."$token->[1].which"} });
	}
	}
	if (@tagnums) {
	foreach my $tagnum (@tagnums) {
	$result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tagnum.description"}."</option>\n";
}	}
if ($result) { $result='<option selected="on"></option>'.$result; }	if ($result) { $result='<option selected="on"></option>'.$result; }
}	}
Line 63 sub get_insert_list {	Line 76 sub get_insert_list {
}	}

sub insertlist {	sub insertlist {
my ($token,$target) = @_;	my ($target,$token) = @_;
my $result;	my $result;
if ($target eq 'edit') {	if ($target eq 'edit') {
my $optionlist= &get_insert_list($token);	my $optionlist= &get_insert_list($token);
Line 77 $optionlist	Line 90 $optionlist
return $result;	return $result;
}	}

sub handle_insert2 {	sub handle_insert {
if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; }	if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; }
my $result;	my $result;
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};	my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};
my $func=$Apache::lonxml::insertlist{"$tagnum.function"};	my $func=$Apache::lonxml::insertlist{"$tagnum.function"};
if ($func eq 'default') {	if ($func eq 'default') {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};	my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
	my $namespace;
	if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }
$result.="\n<$newtag>\n</$newtag>";	$result.="\n<$newtag>\n</$newtag>";
} else {	} else {
{	{
no strict 'refs';	no strict 'refs';
$result.=&$func;	$result.=&$func();
}	}
}	}
return $result;	return $result;
}	}

sub handle_insert {	sub insert_optionresponse {
if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; }	return '
my $result;	<optionresponse max="10">
my $newtag = $ENV{"form.insert_$Apache::lonxml::curdepth"};	<foilgroup options="">
my $func=$Apache::lonxml::insertlist{"$newtag.function"};	</foilgroup>
if ($func eq 'default') {	</optionresponse>';
$result.="\n<$newtag>\n</$newtag>";
} else {
{
no strict 'refs';
$result.=&$func;
}
}
return $result;
}	}

sub editfield {	sub editfield {
Line 122 sub editfield {	Line 129 sub editfield {
if ($maxlength < $minwidth) { $maxlength = $minwidth; }	if ($maxlength < $minwidth) { $maxlength = $minwidth; }
if ( $count < $minheight) { $count = $minheight; }	if ( $count < $minheight) { $count = $minheight; }
if ($description) {	if ($description) {
$description="<br />".$description;	$description="<br />".$description."<br />";
}	}
return "$description<br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";	return "$description\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";
# return "<br />\n<$tag><br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";	# return "<br />\n<$tag><br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";
}	}

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

Removed from v.1.6
changed lines
	Added in v.1.9