version 1.14, 2001/06/26 21:39:55
|
version 1.23, 2001/11/07 21:24:15
|
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 54 sub start_table {
|
Line 60 sub start_table {
|
my $tag = $token->[1]; |
my $tag = $token->[1]; |
my $tagnum; |
my $tagnum; |
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
my $testtag=$Apache::lonxml::namespace['-1'].'::'.$tag; |
my $testtag=$namespace.'::'.$tag; |
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"}; |
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"}; |
if (defined($tagnum)) { last; } |
if (defined($tagnum)) { last; } |
} |
} |
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 146 $optionlist
|
Line 161 $optionlist
|
} |
} |
|
|
sub handle_insert { |
sub handle_insert { |
if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; } |
if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; } |
my $result; |
my $result; |
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"}; |
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
Line 156 sub handle_insert {
|
Line 171 sub handle_insert {
|
if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); } |
if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); } |
$result.="\n<$newtag>\n</$newtag>"; |
$result.="\n<$newtag>\n</$newtag>"; |
} else { |
} else { |
{ |
if (defined(&$func)) { |
no strict 'refs'; |
{ |
$result.=&$func(); |
no strict 'refs'; |
|
$result.=&$func(); |
|
} |
|
} else { |
|
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
|
&Apache::lonxml::error("Unable to insert tag $newtag, $func was not defined."); |
} |
} |
} |
} |
return $result; |
return $result; |
} |
} |
|
|
|
sub insert_responseparam { |
|
return ' |
|
<responseparam />'; |
|
} |
|
|
|
sub insert_numericalresponse { |
|
return ' |
|
<numericalresponse answer=""> |
|
<textline /> |
|
<hintgroup> |
|
</hintgroup> |
|
</numericalresponse>'; |
|
} |
|
|
|
sub insert_stringresponse { |
|
return ' |
|
<stringresponse answer="" type=""> |
|
<textline /> |
|
<hintgroup> |
|
</hintgroup> |
|
</stringresponse>'; |
|
} |
|
|
sub insert_optionresponse { |
sub insert_optionresponse { |
return ' |
return ' |
<optionresponse max="10"> |
<optionresponse max="10"> |
Line 174 sub insert_optionresponse {
|
Line 217 sub insert_optionresponse {
|
</optionresponse>'; |
</optionresponse>'; |
} |
} |
|
|
|
sub insert_radiobuttonresponse { |
|
return ' |
|
<radiobuttonresponse max="10"> |
|
<foilgroup> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</radiobuttonresponse>'; |
|
} |
|
|
|
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 insert_startouttext { |
|
return "<startouttext />\n<endouttext />"; |
|
} |
|
|
|
sub insert_script { |
|
return "\n<script type=\"loncapa/perl\">\n</script>"; |
|
} |
|
|
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++; |
Line 211 sub modifiedfield {
|
Line 288 sub modifiedfield {
|
return $result; |
return $result; |
} |
} |
|
|
sub insert_startouttext { |
# Returns a 1 if the token has been modified and you should rebuild the tag |
return "<startouttext />\n<endouttext />"; |
|
} |
|
|
|
sub insert_script { |
|
return "\n<script type=\"loncapa/perl\">\n</script>"; |
|
} |
|
|
|
# Returns a 1 if the toekn has been modified and you should rebuild the tag |
|
# side-effects, will modify the $token if new values are found |
# side-effects, will modify the $token if new values are found |
sub get_new_args { |
sub get_new_args { |
my ($token,$parstack,$safeeval,@args)=@_; |
my ($token,$parstack,$safeeval,@args)=@_; |
my $rebuild=0; |
my $rebuild=0; |
foreach my $arg (@args) { |
foreach my $arg (@args) { |
my $value=&Apache::lonxml::get_param($arg,$parstack,$safeeval); |
#just want the string that it was set to |
|
my $value=$token->[2]->{$arg}; |
my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"}; |
my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"}; |
&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 ($value ne $newvalue) { |
Line 236 sub get_new_args {
|
Line 306 sub get_new_args {
|
return $rebuild; |
return $rebuild; |
} |
} |
|
|
|
# looks for /> on start tags |
sub rebuild_tag { |
sub rebuild_tag { |
my ($token) = @_; |
my ($token) = @_; |
my $result; |
my $result; |
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
$result = '<'.$token->[1]; |
$result = '<'.$token->[1]; |
while (my ($key,$val)= each(%{$token->[2]})) { |
while (my ($key,$val)= each(%{$token->[2]})) { |
|
$val=~s:^\s+|\s+$::g; |
|
$val=~s:"::g; #" |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
$result.=' '.$key.'="'.$val.'"'; |
$result.=' '.$key.'="'.$val.'"'; |
} |
} |
$result.=">"; |
if ($token->[4] =~ m:/>$:) { |
|
$result.=' />'; |
|
} else { |
|
$result.='>'; |
|
} |
} elsif ( $token->[0] eq 'E' ) { |
} elsif ( $token->[0] eq 'E' ) { |
$result = '</'.$token->[1].'>'; |
$result = '</'.$token->[1].'>'; |
} |
} |
Line 280 sub select_arg {
|
Line 357 sub select_arg {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub select_or_text_arg { |
|
my ($description,$name,$list,$token,$size) = @_; |
|
my $result; |
|
my $optionlist=""; |
|
my $found=0; |
|
my $selected=$token->[2]{$name}; |
|
foreach my $option (@$list) { |
|
if ( $selected eq $option ) { |
|
$optionlist.="<option selected=\"on\">$option</option>\n"; |
|
$found=1; |
|
} else { |
|
$optionlist.="<option>$option</option>\n"; |
|
} |
|
} |
|
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
|
if ($found) { |
|
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
|
'.$optionlist.' |
|
</select></td></tr><tr><td colspan="3">'; |
|
} else { |
|
$result.=&text_arg($description,$name,$token,$size); |
|
} |
|
return $result; |
|
} |
1; |
1; |
__END__ |
__END__ |