version 1.31, 2002/01/03 22:09:49
|
version 1.32, 2002/01/04 14:30:08
|
Line 72 sub BEGIN {
|
Line 72 sub BEGIN {
|
## ## |
## ## |
################################################################### |
################################################################### |
|
|
|
my $max_str_len = 50; # if a label, title, xlabel, or ylabel text |
|
# is longer than this, it will be truncated. |
|
|
my %linestyles = |
my %linestyles = |
( |
( |
lines => 2, # Maybe this will be used in the future |
lines => 2, # Maybe this will be used in the future |
Line 382 sub start_title {
|
Line 385 sub start_title {
|
my $result=''; |
my $result=''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$title = &Apache::lonxml::get_all_text("/title",$$parser[-1]); |
$title = &Apache::lonxml::get_all_text("/title",$$parser[-1]); |
|
if (length($title) > $max_str_len) { |
|
$title = substr($title,0,$max_str_len); |
|
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token,'Plot Title'); |
$result.=&Apache::edit::tag_start($target,$token,'Plot Title'); |
my $text=&Apache::lonxml::get_all_text("/title",$$parser[-1]); |
my $text=&Apache::lonxml::get_all_text("/title",$$parser[-1]); |
Line 409 sub start_xlabel {
|
Line 415 sub start_xlabel {
|
my $result=''; |
my $result=''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$xlabel = &Apache::lonxml::get_all_text("/xlabel",$$parser[-1]); |
$xlabel = &Apache::lonxml::get_all_text("/xlabel",$$parser[-1]); |
|
if (length($xlabel) > $max_str_len) { |
|
$xlabel = substr($xlabel,0,$max_str_len); |
|
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token,'Plot Xlabel'); |
$result.=&Apache::edit::tag_start($target,$token,'Plot Xlabel'); |
my $text=&Apache::lonxml::get_all_text("/xlabel",$$parser[-1]); |
my $text=&Apache::lonxml::get_all_text("/xlabel",$$parser[-1]); |
Line 437 sub start_ylabel {
|
Line 446 sub start_ylabel {
|
my $result=''; |
my $result=''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$ylabel = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]); |
$ylabel = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]); |
|
if (length($ylabel) > $max_str_len) { |
|
$ylabel = substr($ylabel,0,$max_str_len); |
|
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result .= &Apache::edit::tag_start($target,$token,'Plot Ylabel'); |
$result .= &Apache::edit::tag_start($target,$token,'Plot Ylabel'); |
my $text = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]); |
my $text = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]); |
Line 467 sub start_label {
|
Line 479 sub start_label {
|
my %label; |
my %label; |
&get_attributes(\%label,\%label_defaults,$parstack,$safeeval, |
&get_attributes(\%label,\%label_defaults,$parstack,$safeeval, |
$tagstack->[-1]); |
$tagstack->[-1]); |
$label{'text'} = &Apache::lonxml::get_all_text("/label",$$parser[-1]); |
my $text = &Apache::lonxml::get_all_text("/label",$$parser[-1]); |
$label{'text'} =~ s/[\-\:\`\'\"\,\.]//g; |
$text = substr($text,0,$max_str_len) if (length($text) > $max_str_len); |
if (! &$words_test($label{'text'})) { |
$label{'text'} = $text; |
# I should probably warn about it, too. |
|
$label{'text'} = 'Illegal text'; |
|
} |
|
push(@labels,\%label); |
push(@labels,\%label); |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result .= &Apache::edit::tag_start($target,$token,'Plot Label'); |
$result .= &Apache::edit::tag_start($target,$token,'Plot Label'); |