version 1.86, 2004/08/12 07:45:03
|
version 1.88, 2004/10/07 22:12:47
|
Line 1174 sub end_choice {
|
Line 1174 sub end_choice {
|
return ''; |
return ''; |
} |
} |
|
|
|
{ |
|
# used to generate unique id attributes for <input> tags. |
|
# internal use only. |
|
my $id = 0; |
|
sub new_id { return $id++; } |
|
} |
|
|
sub render { |
sub render { |
my $self = shift; |
my $self = shift; |
my $var = $self->{'variable'}; |
my $var = $self->{'variable'}; |
Line 1256 BUTTONS
|
Line 1263 BUTTONS
|
my $type = "radio"; |
my $type = "radio"; |
if ($self->{'multichoice'}) { $type = 'checkbox'; } |
if ($self->{'multichoice'}) { $type = 'checkbox'; } |
foreach my $choice (@{$self->{CHOICES}}) { |
foreach my $choice (@{$self->{CHOICES}}) { |
|
my $id = &new_id(); |
$result .= "<tr>\n<td width='20'> </td>\n"; |
$result .= "<tr>\n<td width='20'> </td>\n"; |
$result .= "<td valign='top'><input type='$type' name='$var.forminput'" |
$result .= "<td valign='top'><input type='$type' name='$var.forminput'" |
. "' value='" . |
. "' value='" . |
Line 1264 BUTTONS
|
Line 1272 BUTTONS
|
if ($checkedChoices{$choice->[1]}) { |
if ($checkedChoices{$choice->[1]}) { |
$result .= " checked "; |
$result .= " checked "; |
} |
} |
|
$result .= qq{id="$id"}; |
my $choiceLabel = $choice->[0]; |
my $choiceLabel = $choice->[0]; |
if ($choice->[4]) { # if we need to evaluate this choice |
if ($choice->[4]) { # if we need to evaluate this choice |
$choiceLabel = "sub { my $helper = shift; my $state = shift;" . |
$choiceLabel = "sub { my $helper = shift; my $state = shift;" . |
Line 1271 BUTTONS
|
Line 1280 BUTTONS
|
$choiceLabel = eval($choiceLabel); |
$choiceLabel = eval($choiceLabel); |
$choiceLabel = &$choiceLabel($helper, $self); |
$choiceLabel = &$choiceLabel($helper, $self); |
} |
} |
$result .= "/></td><td> " . &mtn($choiceLabel) . "</td></tr>\n"; |
$result .= "/></td><td> ".qq{<label for="$id">}. |
|
&mtn($choiceLabel). "</label></td></tr>\n"; |
} |
} |
$result .= "</table>\n\n\n"; |
$result .= "</table>\n\n\n"; |
$result .= $buttons; |
$result .= $buttons; |
Line 2375 sub start_filefilter {
|
Line 2385 sub start_filefilter {
|
|
|
sub end_filefilter { return ''; } |
sub end_filefilter { return ''; } |
|
|
|
{ |
|
# used to generate unique id attributes for <input> tags. |
|
# internal use only. |
|
my $id=0; |
|
sub new_id { return $id++;} |
|
} |
|
|
sub render { |
sub render { |
my $self = shift; |
my $self = shift; |
my $result = ''; |
my $result = ''; |
Line 2513 BUTTONS
|
Line 2530 BUTTONS
|
if ($status eq 'Published' && $helper->{VARS}->{'construction'}) { |
if ($status eq 'Published' && $helper->{VARS}->{'construction'}) { |
$onclick = 'onclick="a=1" '; |
$onclick = 'onclick="a=1" '; |
} |
} |
|
my $id = &new_id(); |
$result .= '<tr><td align="right"' . " bgcolor='$color'>" . |
$result .= '<tr><td align="right"' . " bgcolor='$color'>" . |
"<input $onclick type='$type' name='" . $var |
"<input $onclick type='$type' name='" . $var |
. ".forminput' value='" . HTML::Entities::encode($fileName,'<>&"'). |
. ".forminput' ".qq{id="$id"}." value='" . HTML::Entities::encode($fileName,'<>&"'). |
"'"; |
"'"; |
if (!$self->{'multichoice'} && $choices == 0) { |
if (!$self->{'multichoice'} && $choices == 0) { |
$result .= ' checked'; |
$result .= ' checked'; |
} |
} |
$result .= "/></td><td bgcolor='$color'>" . $file . "</td>" . |
$result .= "/></td><td bgcolor='$color'>". |
|
qq{<label for="$id">}. $file . "</label></td>" . |
"<td bgcolor='$color'>$title</td>" . |
"<td bgcolor='$color'>$title</td>" . |
"<td bgcolor='$color'>$status</td>" . "</tr>\n"; |
"<td bgcolor='$color'>$status</td>" . "</tr>\n"; |
$choices++; |
$choices++; |
Line 3128 sub render {
|
Line 3147 sub render {
|
my $res = $navmap->getByMapPc($vars->{RESOURCE_ID}); |
my $res = $navmap->getByMapPc($vars->{RESOURCE_ID}); |
my $title = $res->compTitle(); |
my $title = $res->compTitle(); |
$symb = $res->symb(); |
$symb = $res->symb(); |
$navmap->untieHashes(); |
|
$resourceString .= '<li>'.&mt('for the map named [_1]',"<b>$title</b>").'</li>'; |
$resourceString .= '<li>'.&mt('for the map named [_1]',"<b>$title</b>").'</li>'; |
$level = 8; |
$level = 8; |
$affectedResourceId = $vars->{RESOURCE_ID}; |
$affectedResourceId = $vars->{RESOURCE_ID}; |
Line 3138 sub render {
|
Line 3156 sub render {
|
my $res = $navmap->getById($vars->{RESOURCE_ID}); |
my $res = $navmap->getById($vars->{RESOURCE_ID}); |
$symb = $res->symb(); |
$symb = $res->symb(); |
my $title = $res->compTitle(); |
my $title = $res->compTitle(); |
$navmap->untieHashes(); |
|
$resourceString .= '<li>'.&mt('for the resource named [_1]',"<b>$title</b>").'</li>'; |
$resourceString .= '<li>'.&mt('for the resource named [_1]',"<b>$title</b>").'</li>'; |
$level = 7; |
$level = 7; |
$affectedResourceId = $vars->{RESOURCE_ID}; |
$affectedResourceId = $vars->{RESOURCE_ID}; |