version 1.692.2.10, 2008/12/25 04:45:35
|
version 1.692.2.13, 2009/10/28 17:24:32
|
Line 943 ENDTEMPLATE
|
Line 943 ENDTEMPLATE
|
# This is a quicky function for Latex cheatsheet editing, since it |
# This is a quicky function for Latex cheatsheet editing, since it |
# appears in at least four places |
# appears in at least four places |
sub helpLatexCheatsheet { |
sub helpLatexCheatsheet { |
my $other = shift; |
my ($topic,$text,$not_author) = @_; |
|
my $out; |
my $addOther = ''; |
my $addOther = ''; |
if ($other) { |
if ($topic) { |
$addOther = Apache::loncommon::help_open_topic($other, shift, |
$addOther = Apache::loncommon::help_open_topic($topic,$text, |
undef, undef, 600) . |
undef, undef, 600). |
'</td><td>'; |
'</td><td>'; |
} |
} |
return '<table><tr><td>'. |
$out = '<table><tr><td>'. |
$addOther . |
$addOther. |
&Apache::loncommon::help_open_topic("Greek_Symbols",&mt('Greek Symbols'), |
&Apache::loncommon::help_open_topic("Greek_Symbols",&mt('Greek Symbols'), |
undef,undef,600) |
undef,undef,600). |
.'</td><td>'. |
'</td><td>'. |
&Apache::loncommon::help_open_topic("Other_Symbols",&mt('Other Symbols'), |
&Apache::loncommon::help_open_topic("Other_Symbols",&mt('Other Symbols'), |
undef,undef,600) |
undef,undef,600). |
.'</td><td>'. |
'</td>'; |
&Apache::loncommon::help_open_topic("Authoring_Output_Tags",&mt('Output Tags'), |
unless ($not_author) { |
undef,undef,600) |
$out .= '<td>'. |
.'</td></tr></table>'; |
&Apache::loncommon::help_open_topic("Authoring_Output_Tags",&mt('Output Tags'), |
|
undef,undef,600). |
|
'</td>'; |
|
} |
|
$out .= '</tr></table>'; |
|
return $out; |
} |
} |
|
|
sub general_help { |
sub general_help { |
Line 1740 sub select_level_form {
|
Line 1746 sub select_level_form {
|
|
|
=pod |
=pod |
|
|
=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc) |
=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$change) |
|
|
Returns a string containing a <select name='$name' size='1'> form to |
Returns a string containing a <select name='$name' size='1'> form to |
allow a user to select the domain to preform an operation in. |
allow a user to select the domain to preform an operation in. |
Line 1749 See loncreateuser.pm for an example invo
|
Line 1755 See loncreateuser.pm for an example invo
|
If the $includeempty flag is set, it also includes an empty choice ("no domain |
If the $includeempty flag is set, it also includes an empty choice ("no domain |
selected"); |
selected"); |
|
|
If the $showdomdesc flag is set, the domain name is followed by the domain description. |
If the $showdomdesc flag is set, the domain name is followed by the domain description. |
|
|
|
The optional $onchange argument specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted. |
|
|
=cut |
=cut |
|
|
#------------------------------------------- |
#------------------------------------------- |
sub select_dom_form { |
sub select_dom_form { |
my ($defdom,$name,$includeempty,$showdomdesc) = @_; |
my ($defdom,$name,$includeempty,$showdomdesc,$onchange) = @_; |
|
if ($onchange) { |
|
$onchange = ' onchange="'.$onchange.'"'; |
|
} |
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
if ($includeempty) { @domains=('',@domains); } |
if ($includeempty) { @domains=('',@domains); } |
my $selectdomain = "<select name=\"$name\" size=\"1\">\n"; |
my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n"; |
foreach my $dom (@domains) { |
foreach my $dom (@domains) { |
$selectdomain.="<option value=\"$dom\" ". |
$selectdomain.="<option value=\"$dom\" ". |
($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom; |
($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom; |
Line 9596 sub get_annotation {
|
Line 9607 sub get_annotation {
|
} |
} |
|
|
sub clean_symb { |
sub clean_symb { |
my ($symb) = @_; |
my ($symb,$delete_enc) = @_; |
|
|
&Apache::lonenc::check_decrypt(\$symb); |
&Apache::lonenc::check_decrypt(\$symb); |
my $enc = $env{'request.enc'}; |
my $enc = $env{'request.enc'}; |
delete($env{'request.enc'}); |
if ($delete_enc) { |
|
delete($env{'request.enc'}); |
|
} |
|
|
return ($symb,$enc); |
return ($symb,$enc); |
} |
} |