version 1.201.2.6, 2021/09/16 16:20:36
|
version 1.201.2.6.2.2, 2024/08/22 19:15:58
|
Line 1901 sub populate_weight_table {
|
Line 1901 sub populate_weight_table {
|
my @resources; |
my @resources; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
push(@resources,$navmap->retrieveResources($seq, |
push(@resources,$navmap->retrieveResources($seq, |
sub {shift->is_problem();}, |
sub {shift->is_gradable();}, |
0,0,0)); |
0,0,0)); |
} |
} |
if (! scalar(@resources)) { |
if (! scalar(@resources)) { |
Line 2619 sub CL_PHOTO { return 16; }
|
Line 2619 sub CL_PHOTO { return 16; }
|
sub CL_THUMBNAIL { return 17; } |
sub CL_THUMBNAIL { return 17; } |
sub CL_AUTHORQUOTA { return 18; } |
sub CL_AUTHORQUOTA { return 18; } |
sub CL_AUTHORUSAGE { return 19; } |
sub CL_AUTHORUSAGE { return 19; } |
|
sub CL_CAMANAGER {return 20; } |
|
|
sub get_classlist { |
sub get_classlist { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |