loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/randomlabel.pm between versions 1.12 and 1.13

version 1.12, 2002/02/05 16:21:03	version 1.13, 2002/02/07 16:45:06
Line 58	Line 58
# ===========================================	# ===========================================
package Apache::randomlabel;	package Apache::randomlabel;
use strict;	use strict;
	use Apache::edit;

sub BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::randomlabel',('randomlabel','labelgroup','location','label'));	&Apache::lonxml::register('Apache::randomlabel',('randomlabel','labelgroup','location','label'));
}	}

Line 104 sub start_randomlabel {	Line 105 sub start_randomlabel {
&Apache::edit::text_arg('Width(pixel):','width',$token,4).	&Apache::edit::text_arg('Width(pixel):','width',$token,4).
&Apache::edit::text_arg('Height(pixel):','height',$token,4).	&Apache::edit::text_arg('Height(pixel):','height',$token,4).
&Apache::edit::text_arg('TeXWidth(mm):','texwidth',$token,4).	&Apache::edit::text_arg('TeXWidth(mm):','texwidth',$token,4).
'</td></tr><tr><td colspan="3">';	&Apache::edit::end_row().&Apache::edit::start_spanning_row();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
'bgimg','width','height',	'bgimg','width','height',
Line 155 sub start_labelgroup {	Line 156 sub start_labelgroup {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::text_arg('Name:','name',$token).	$result.=&Apache::edit::text_arg('Name:','name',$token).
&Apache::edit::select_arg('Type:','type',['text','image'],$token).	&Apache::edit::select_arg('Type:','type',['text','image'],$token).
'</td></tr><tr><td colspan="3">';	&Apache::edit::end_row().&Apache::edit::start_spanning_row();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
'name','type');	'name','type');
Line 279 sub start_location {	Line 280 sub start_location {
$result.=&Apache::edit::text_arg('X:','x',$token,4).	$result.=&Apache::edit::text_arg('X:','x',$token,4).
&Apache::edit::text_arg('Y:','y',$token,4).	&Apache::edit::text_arg('Y:','y',$token,4).
&Apache::edit::text_arg('Value:','value',$token).	&Apache::edit::text_arg('Value:','value',$token).
'</td></tr><tr><td colspan="3">';	&Apache::edit::end_row();
$result.=&Apache::edit::end_table;	$result.=&Apache::edit::end_table;
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
Line 310 sub start_label {	Line 311 sub start_label {
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]);	my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]);
$result.='</td></tr><tr><td colspan="3">'.	$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row().
&Apache::edit::editfield('',$text,'',20,1).	&Apache::edit::editfield('',$text,'',20,1).
&Apache::edit::end_table();	&Apache::edit::end_table();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $text=$$parser[-1]->get_text("/label");	my $text=$$parser[-1]->get_text("/label");
$result.=&Apache::edit::modifiedfield($token);	$result.='<label>'.&Apache::edit::modifiedfield($token);
}	}
return $result;	return $result;
}	}

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

Removed from v.1.12
changed lines
	Added in v.1.13