|
version 1.44, 2002/07/05 16:12:31
|
version 1.45, 2002/07/09 17:15:58
|
|
Line 41
|
Line 41
|
| |
|
| # POD header: |
# POD header: |
| |
|
| |
=pod |
| |
|
| =head1 NAME |
=head1 NAME |
| |
|
| Apache::loncommon - pile of common routines |
Apache::loncommon - pile of common routines |
|
Line 105 my $theavecount;
|
Line 107 my $theavecount;
|
| =item BEGIN() |
=item BEGIN() |
| |
|
| Initialize values from language.tab, copyright.tab, filetypes.tab, |
Initialize values from language.tab, copyright.tab, filetypes.tab, |
| and filecategories.tab. |
thesaurus.tab, and filecategories.tab. |
| |
|
| =cut |
=cut |
| |
|
| # ----------------------------------------------------------------------- BEGIN |
# ----------------------------------------------------------------------- BEGIN |
| |
|
| BEGIN { |
BEGIN { |
|
Line 342 my %menu = ( A1 => { text =>"Choice A1"
|
Line 345 my %menu = ( A1 => { text =>"Choice A1"
|
| } |
} |
| ); |
); |
| |
|
| =back |
|
| |
|
| =cut |
=cut |
| |
|
| # ------------------------------------------------ |
# ------------------------------------------------ |
|
Line 428 END
|
Line 429 END
|
| |
|
| ############################################################### |
############################################################### |
| |
|
| |
=pod |
| |
|
| =item help_open_topic($topic, $stayOnPage, $width, $height) |
=item help_open_topic($topic, $stayOnPage, $width, $height) |
| |
|
|
Line 471 ENDTEMPLATE
|
Line 473 ENDTEMPLATE
|
| |
|
| } |
} |
| |
|
| |
=pod |
| |
|
| =item csv_translate($text) |
=item csv_translate($text) |
| |
|
| Translate $text to allow it to be output as a 'comma seperated values' |
Translate $text to allow it to be output as a 'comma seperated values' |
|
Line 492 sub csv_translate {
|
Line 496 sub csv_translate {
|
| ############################################################### |
############################################################### |
| #------------------------------------------- |
#------------------------------------------- |
| |
|
| |
=pod |
| |
|
| =item get_domains() |
=item get_domains() |
| |
|
| Returns an array containing each of the domains listed in the hosts.tab |
Returns an array containing each of the domains listed in the hosts.tab |
|
Line 512 sub get_domains {
|
Line 518 sub get_domains {
|
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| |
|
| |
=pod |
| |
|
| =item select_dom_form($defdom,$name) |
=item select_dom_form($defdom,$name) |
| |
|
| Returns a string containing a <select name='$name' size='1'> form to |
Returns a string containing a <select name='$name' size='1'> form to |
|
Line 536 sub select_dom_form {
|
Line 544 sub select_dom_form {
|
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| |
|
| |
=pod |
| |
|
| =item get_home_servers($domain) |
=item get_home_servers($domain) |
| |
|
| Returns a hash which contains keys like '103l3' and values like |
Returns a hash which contains keys like '103l3' and values like |
|
Line 558 sub get_home_servers {
|
Line 568 sub get_home_servers {
|
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| |
|
| |
=pod |
| |
|
| =item home_server_option_list($domain) |
=item home_server_option_list($domain) |
| |
|
| returns a string which contains an <option> list to be used in a |
returns a string which contains an <option> list to be used in a |
|
Line 590 sub home_server_option_list {
|
Line 602 sub home_server_option_list {
|
| ## formname = the name given in the <form> tag. |
## formname = the name given in the <form> tag. |
| #------------------------------------------- |
#------------------------------------------- |
| |
|
| |
=pod |
| |
|
| =item authform_xxxxxx |
=item authform_xxxxxx |
| |
|
| The authform_xxxxxx subroutines provide javascript and html forms which |
The authform_xxxxxx subroutines provide javascript and html forms which |
|
Line 1079 sub add_to_env {
|
Line 1093 sub add_to_env {
|
| |
|
| =pod |
=pod |
| |
|
| |
=back |
| |
|
| =head2 CSV Upload/Handling functions |
=head2 CSV Upload/Handling functions |
| |
|
| =over 4 |
=over 4 |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface