version 1.20, 2001/07/23 22:40:59
|
version 1.22, 2001/10/09 20:45:13
|
Line 21 sub tag_start {
|
Line 21 sub tag_start {
|
my $result=''; |
my $result=''; |
if ($target eq "edit") { |
if ($target eq "edit") { |
my $tag=$token->[1]; |
my $tag=$token->[1]; |
if (!$description) { $description="<$tag>"; } |
if (!$description) { |
|
$description=&Apache::lonxml::description($token); |
|
if (!$description) { $description="<$tag>"; } |
|
} |
$result.= &start_table($token)."<tr><td>$description</td> |
$result.= &start_table($token)."<tr><td>$description</td> |
<td>Delete". |
<td>Delete". |
&deletelist($target,$token) |
&deletelist($target,$token) |
Line 30 sub tag_start {
|
Line 33 sub tag_start {
|
&insertlist($target,$token). |
&insertlist($target,$token). |
"</td> |
"</td> |
</tr><tr><td colspan=\"3\">\n"; |
</tr><tr><td colspan=\"3\">\n"; |
|
#<td>". |
|
# &movebuttons($target,$token). |
|
# "</tr><tr><td colspan=\"3\">\n"; |
} |
} |
return $result; |
return $result; |
} |
} |
Line 74 sub end_table {
|
Line 80 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub movebuttons { |
|
my ($target,$token) = @_; |
|
my $result='<input type="submit" name="moveup.'. |
|
$Apache::lonxml::curdepth.'" value="Move Up" />'; |
|
$result.='<input type="submit" name="movedown.'. |
|
$Apache::lonxml::curdepth.'" value="Move Down" />'; |
|
return $result; |
|
} |
|
|
sub deletelist { |
sub deletelist { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $result = "<select name=\"delete_$Apache::lonxml::curdepth\"> |
my $result = "<select name=\"delete_$Apache::lonxml::curdepth\"> |
Line 202 sub insert_optionresponse {
|
Line 217 sub insert_optionresponse {
|
</optionresponse>'; |
</optionresponse>'; |
} |
} |
|
|
|
sub insert_displayduedate { return '<displayduedate />'; } |
|
sub insert_displaytitle { return '<displaytitle />'; } |
|
sub insert_hintpart { |
|
return ' |
|
<hintpart on="default"> |
|
<startouttext/> |
|
<endouttext /> |
|
</hintpart>'; |
|
} |
|
|
|
sub insert_numericalhint { |
|
return ' |
|
<numericalhint> |
|
</numericalhint>'; |
|
} |
|
|
sub editfield { |
sub editfield { |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
|
|
my $count=0; |
my $count=0; |
my $maxlength=-1; |
my $maxlength=-1; |
map { $count++; |
map { $count++; |