version 1.113, 2008/01/15 03:09:09
|
version 1.116, 2008/10/24 16:22:54
|
Line 61 sub tag_start {
|
Line 61 sub tag_start {
|
if (!$description) { $description="<$tag>"; } |
if (!$description) { $description="<$tag>"; } |
} |
} |
$result.= &start_table($token)."<tr><td>$description</td> |
$result.= &start_table($token)."<tr><td>$description</td> |
<td>Delete". |
<td>".&mt('Delete?').' '. |
&deletelist($target,$token) |
&deletelist($target,$token) |
."</td> |
."</td> |
<td>". |
<td>". |
Line 128 sub end_table {
|
Line 128 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
sub start_spanning_row { return '<tr><td colspan="4" bgcolor="#DDDDDD">';} |
sub start_spanning_row { return '<tr><td colspan="5" bgcolor="#DDDDDD">';} |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub end_row { return '</td></tr>'; } |
sub end_row { return '</td></tr>'; } |
|
|
Line 145 sub deletelist {
|
Line 145 sub deletelist {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $result = "<select name=\"delete_$Apache::lonxml::curdepth\"> |
my $result = "<select name=\"delete_$Apache::lonxml::curdepth\"> |
<option></option> |
<option></option> |
<option>Yes</option> |
<option>".&mt('yes')."</option> |
</select>"; |
</select>"; |
return $result; |
return $result; |
} |
} |
Line 215 sub innerinsertlist {
|
Line 215 sub innerinsertlist {
|
if ($target eq 'edit') { |
if ($target eq 'edit') { |
my $optionlist= &get_insert_list($tagname); |
my $optionlist= &get_insert_list($tagname); |
if ($optionlist) { |
if ($optionlist) { |
$result = "Insert: |
$result = &mt('Insert:')." |
<select name=\"insert$after\_$Apache::lonxml::curdepth\"> |
<select name=\"insert$after\_$Apache::lonxml::curdepth\"> |
$optionlist |
$optionlist |
</select>" |
</select>" |
Line 740 sub checked_arg {
|
Line 740 sub checked_arg {
|
$text=$option; |
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
$result.="<nobr><label><input type='checkbox' $value name='". |
$result.="<nobr><label><input type=\"checkbox\" $value name=\"". |
&html_element_name($name)."'"; |
&html_element_name($name)."\""; |
foreach my $selected (split(/,/,$allselected)) { |
foreach my $selected (split(/,/,$allselected)) { |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$result.=" checked='checked' "; |
$result.=" checked=\"checked\" "; |
last; |
last; |
} |
} |
} |
} |
Line 780 sub select_arg {
|
Line 780 sub select_arg {
|
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">".&mt($text)."</option>\n"; |
} else { |
} else { |
$optionlist.="<option $value >$text</option>\n"; |
$optionlist.="<option $value >".&mt($text)."</option>\n"; |
} |
} |
} |
} |
$result.='<nobr>'.$description.' <select name="'. |
$result.='<nobr>'.&mt($description).' <select name="'. |
&html_element_name($name).'" '.&element_change_detection().' > |
&html_element_name($name).'" '.&element_change_detection().' > |
'.$optionlist.' |
'.$optionlist.' |
</select></nobr>'; |
</select></nobr>'; |
Line 880 sub entercoords {
|
Line 880 sub entercoords {
|
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$Apache::edit::bgimgsrccurdepth; |
$Apache::edit::bgimgsrccurdepth; |
} |
} |
&Apache::lonnet::appenv(%data); |
&Apache::lonnet::appenv(\%data); |
my $text="Click Coordinates"; |
my $text="Click Coordinates"; |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |
return $result; |
return $result; |
Line 913 sub entercoord {
|
Line 913 sub entercoord {
|
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$Apache::edit::bgimgsrccurdepth; |
$Apache::edit::bgimgsrccurdepth; |
} |
} |
&Apache::lonnet::appenv(%data); |
&Apache::lonnet::appenv(\%data); |
my $text="Enter Coordinates"; |
my $text="Enter Coordinates"; |
if ($type eq 'polygon') { $text='Create Polygon Data'; } |
if ($type eq 'polygon') { $text='Create Polygon Data'; } |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |