version 1.95, 2005/01/21 22:59:54
|
version 1.99, 2005/02/22 22:56:08
|
Line 575 sub display {
|
Line 575 sub display {
|
} |
} |
|
|
# Phase 4: Display. |
# Phase 4: Display. |
|
my $html=&Apache::lonxml::xmlbegin(); |
my $stateTitle=&mt($state->title()); |
my $stateTitle=&mt($state->title()); |
my $helperTitle = &mt($self->{TITLE}); |
my $helperTitle = &mt($self->{TITLE}); |
my $bodytag = &Apache::loncommon::bodytag($helperTitle,'',''); |
my $bodytag = &Apache::loncommon::bodytag($helperTitle,'',''); |
Line 584 sub display {
|
Line 585 sub display {
|
my $loncapaHelper = &mt("LON-CAPA Helper:"); |
my $loncapaHelper = &mt("LON-CAPA Helper:"); |
|
|
$result .= <<HEADER; |
$result .= <<HEADER; |
<html> |
$html |
<head> |
<head> |
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> |
|
<title>$loncapaHelper: $helperTitle</title> |
<title>$loncapaHelper: $helperTitle</title> |
</head> |
</head> |
$bodytag |
$bodytag |
Line 1977 BUTTONS
|
Line 1977 BUTTONS
|
$mapUrl = $self->{MAP_URL}; |
$mapUrl = $self->{MAP_URL}; |
} |
} |
|
|
|
|
# Create the composite function that renders the column on the nav map |
# Create the composite function that renders the column on the nav map |
# have to admit any language that lets me do this can't be all bad |
# have to admit any language that lets me do this can't be all bad |
# - Jeremy (Pythonista) ;-) |
# - Jeremy (Pythonista) ;-) |
Line 2005 BUTTONS
|
Line 2006 BUTTONS
|
return $result; |
return $result; |
} else { |
} else { |
my $col = ""; |
my $col = ""; |
|
my $raw_name = &$valueFunc($resource); |
my $resource_name = |
my $resource_name = |
HTML::Entities::encode(&$valueFunc($resource),"<>&\"'"); |
HTML::Entities::encode($raw_name,"<>&\"'"); |
if($option_vars) { |
if($option_vars) { |
foreach my $option_var (@$option_vars) { |
foreach my $option_var (@$option_vars) { |
|
my $var_value = "\|\|\|" . $helper->{VARS}->{$option_var} . |
|
"\|\|\|"; |
|
my $checked =""; |
|
if($var_value =~ /\Q|||$raw_name|||\E/) { |
|
$checked = "checked"; |
|
} |
$col .= |
$col .= |
"<td align='center'><input type='checkbox' name ='$option_var". |
"<td align='center'><input type='checkbox' name ='$option_var". |
".forminput' value='". |
".forminput' value='". |
$resource_name . "' /> </td>"; |
$resource_name . "' $checked /> </td>"; |
} |
} |
} |
} |
|
|
Line 2870 sub render {
|
Line 2878 sub render {
|
my $result = ''; |
my $result = ''; |
|
|
if (defined $self->{ERROR_MSG}) { |
if (defined $self->{ERROR_MSG}) { |
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
$result .= '<p><font color="#FF0000">' . $self->{ERROR_MSG} . '</font></p>'; |
} |
} |
|
|
$result .= '<input type="string" name="' . $self->{'variable'} . '.forminput"'; |
$result .= '<input type="string" name="' . $self->{'variable'} . '.forminput"'; |