version 1.12, 2001/12/11 13:49:57
|
version 1.14, 2001/12/11 19:37:12
|
Line 64 sub BEGIN {
|
Line 64 sub BEGIN {
|
next if /^\#/; |
next if /^\#/; |
chomp; |
chomp; |
my ($key,$val)=(split(/\s+/,$_,2)); |
my ($key,$val)=(split(/\s+/,$_,2)); |
$copyright{$key}=$val; |
$cprtag{$key}=$val; |
} |
} |
} |
} |
# ------------------------------------------------------------------ file types |
# ------------------------------------------------------------------ file types |
Line 82 sub BEGIN {
|
Line 82 sub BEGIN {
|
} |
} |
} |
} |
|
|
|
# ---------------------------------------------------------------- Language IDs |
|
sub languageids { |
|
|
|
} |
|
|
|
# -------------------------------------------------------- Language Description |
|
sub languagedescription { |
|
|
|
} |
|
|
|
# --------------------------------------------------------------- Copyright IDs |
|
sub copyrightids { |
|
|
|
} |
|
|
|
# ------------------------------------------------------- Copyright Description |
|
sub copyrightdescription { |
|
|
|
} |
|
|
|
# ------------------------------------------------------------- File Categories |
|
sub filecategories { |
|
|
|
} |
|
|
|
# ------------------------------------------------------------------ File Types |
|
sub fileextensions { |
|
|
|
} |
|
|
|
# ------------------------------------------------------------- Embedding Style |
|
sub fileembstyle { |
|
|
|
} |
|
|
|
# ------------------------------------------------------------ Description Text |
|
sub filedescription { |
|
|
|
} |
|
|
sub get_previous_attempt { |
sub get_previous_attempt { |
my ($symb,$username,$domain,$course)=@_; |
my ($symb,$username,$domain,$course)=@_; |
my $prevattempts=''; |
my $prevattempts=''; |