--- loncom/interface/loncommon.pm 2002/04/23 21:42:01 1.35
+++ loncom/interface/loncommon.pm 2002/06/24 20:17:55 1.39
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.35 2002/04/23 21:42:01 matthew Exp $
+# $Id: loncommon.pm,v 1.39 2002/06/24 20:17:55 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,7 +65,7 @@ Current things done:
This is part of the LearningOnline Network with CAPA project
described at http://www.lon-capa.org.
-=head2 Subroutines
+=head2 General Subroutines
=over 4
@@ -79,14 +79,13 @@ use Apache::lonnet();
use POSIX qw(strftime);
use Apache::Constants qw(:common);
use Apache::lonmsg();
-
my $readit;
# ----------------------------------------------- Filetypes/Languages/Copyright
my %language;
my %cprtag;
my %fe; my %fd;
-my %fc;
+my %category_extensions;
# -------------------------------------------------------------- Thesaurus data
my @therelated;
@@ -99,6 +98,9 @@ my $thethreshold=0.1/$thefuzzy;
my $theavecount;
# ----------------------------------------------------------------------- BEGIN
+
+=pod
+
=item BEGIN()
Initialize values from language.tab, copyright.tab, filetypes.tab,
@@ -144,8 +146,8 @@ BEGIN {
while (<$fh>) {
next if /^\#/;
chomp;
- my ($key,$val)=(split(/\s+/,$_,2));
- push @{$fc{$key}},$val;
+ my ($extension,$category)=(split(/\s+/,$_,2));
+ push @{$category_extensions{lc($category)}},$extension;
}
}
}
@@ -188,6 +190,173 @@ BEGIN {
}
# ============================================================= END BEGIN BLOCK
+
+=item linked_select_forms(...)
+
+linked_select_forms returns a string containing a block
+and html for two