version 1.50, 2003/05/09 22:10:12
|
version 1.59, 2003/08/04 22:07:29
|
Line 63 sub tag_start {
|
Line 63 sub tag_start {
|
&deletelist($target,$token) |
&deletelist($target,$token) |
."</td> |
."</td> |
<td>". |
<td>". |
&insertlist($target,$token).&end_row().&start_spanning_row(); |
&insertlist($target,$token); |
#<td>". |
#<td>". |
# &movebuttons($target,$token). |
# &movebuttons($target,$token). |
# "</tr><tr><td colspan=\"3\">\n"; |
# "</tr><tr><td colspan=\"3\">\n"; |
|
my @help;# = Apache::lonxml::helpinfo($token); |
|
if ($help[0]) { |
|
$result .= '<td align="right" valign="top">' . |
|
Apache::loncommon::help_open_topic(@help) . |
|
'</td>'; |
|
} else { $result .= "<td> </td>"; } |
|
$result .= &end_row().&start_spanning_row(); |
} |
} |
return $result; |
return $result; |
} |
} |
Line 75 sub tag_end {
|
Line 82 sub tag_end {
|
my ($target,$token,$description) = @_; |
my ($target,$token,$description) = @_; |
my $result=''; |
my $result=''; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
my $tag=$token->[1]; |
$result.="</td></tr>".&end_table()."\n"; |
if (!defined($description)) { |
|
$result.="</td></tr><tr><td></$tag></td><td colspan=\"2\"> </td>"; |
|
} else { |
|
if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\"> </td>"; } |
|
} |
|
$result.="</tr>".&end_table()."\n"; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 125 sub end_table {
|
Line 126 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
sub start_spanning_row { return '<tr><td colspan="3" bgcolor="#DDDDDD">';} |
sub start_spanning_row { return '<tr><td colspan="4" 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 310 sub insert_essayresponse {
|
Line 311 sub insert_essayresponse {
|
</essayresponse>'; |
</essayresponse>'; |
} |
} |
|
|
|
sub insert_imageresponse { |
|
return ' |
|
<imageresponse max="1"> |
|
<foilgroup> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</imageresponse>'; |
|
} |
|
|
sub insert_optionresponse { |
sub insert_optionresponse { |
return ' |
return ' |
<optionresponse max="10"> |
<optionresponse max="10"> |
Line 404 sub textarea_sizes {
|
Line 415 sub textarea_sizes {
|
my ($data)=@_; |
my ($data)=@_; |
my $count=0; |
my $count=0; |
my $maxlength=-1; |
my $maxlength=-1; |
foreach (split ("\n", $$data)) { $count++; |
foreach (split ("\n", $$data)) { |
if (length($_) > $maxlength) { $maxlength = length($_); } |
$count+=int(length($_)/79); |
} |
$count++; |
|
if (length($_) > $maxlength) { $maxlength = length($_); } |
|
} |
my $rows = $count; |
my $rows = $count; |
my $cols = $maxlength; |
my $cols = $maxlength; |
return ($rows,$cols); |
return ($rows,$cols); |
Line 460 sub get_new_args {
|
Line 473 sub get_new_args {
|
my $element=&html_element_name($arg); |
my $element=&html_element_name($arg); |
my $newvalue=$ENV{"form.$element"}; |
my $newvalue=$ENV{"form.$element"}; |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
if ($value ne $newvalue) { |
if (defined($newvalue) && $value ne $newvalue) { |
$token->[2]->{$arg}=$newvalue; |
$token->[2]->{$arg}=$newvalue; |
$rebuild=1; |
$rebuild=1; |
} |
} |
Line 512 sub text_arg {
|
Line 525 sub text_arg {
|
my $arg=$token->[2]{$name}; |
my $arg=$token->[2]{$name}; |
$result=$description.' <input name="'.&html_element_name($name). |
$result=$description.' <input name="'.&html_element_name($name). |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
return $result; |
return '<nobr>'.$result.'</nobr>'; |
} |
} |
|
|
sub select_arg { |
sub select_arg { |
Line 534 sub select_arg {
|
Line 547 sub select_arg {
|
$optionlist.="<option $value >$option</option>\n"; |
$optionlist.="<option $value >$option</option>\n"; |
} |
} |
} |
} |
$result.=$description.' <select name="'.&html_element_name($name). |
$result.='<nobr>'.$description.' <select name="'. |
'"> |
&html_element_name($name).'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select></nobr>'; |
return $result; |
return $result; |
} |
} |
|
|
Line 571 sub select_or_text_arg {
|
Line 584 sub select_or_text_arg {
|
} else { |
} else { |
$result.=&text_arg($description,$name,$token,$size); |
$result.=&text_arg($description,$name,$token,$size); |
} |
} |
return $result; |
return '<nobr>'.$result.'</nobr>'; |
} |
} |
|
|
#----------------------------------------------------- image coordinates |
#----------------------------------------------------- image coordinates |
Line 627 sub entercoordpair {
|
Line 640 sub entercoordpair {
|
$formwidth='&formwidth='.$width.'_'.$Apache::edit::bgimgsrccurdepth; |
$formwidth='&formwidth='.$width.'_'.$Apache::edit::bgimgsrccurdepth; |
} |
} |
my $result = <<"ENDBUTTON"; |
my $result = <<"ENDBUTTON"; |
<a href="/cgi-bin/imagechoice.pl?mode=pair&formname=$form&file=$bgfile$formheight$formwidth" |
<a href="/cgi-bin/imagechoice.pl?mode=pair&formname=$form&file=$bgfile$formheight$formwidth&formcoord=$element" |
target="imagechoice">Click Coordinate Pair</a> |
target="imagechoice">Click Coordinate Pair</a> |
ENDBUTTON |
ENDBUTTON |
return $result; |
return $result; |
Line 645 sub browse {
|
Line 658 sub browse {
|
$Apache::lonxml::curdepth); |
$Apache::lonxml::curdepth); |
} |
} |
my $result = <<"ENDBUTTON"; |
my $result = <<"ENDBUTTON"; |
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
<a href=\"javascript:openbrowser('$form','$element')\"\>Select</a> |
ENDBUTTON |
ENDBUTTON |
return $result; |
return $result; |
} |
} |