version 1.3, 2006/08/31 12:30:30
|
version 1.4, 2006/09/13 21:35:46
|
Line 123 function changeSort(caller) {
|
Line 123 function changeSort(caller) {
|
my @items = (); |
my @items = (); |
my @longitems = (); |
my @longitems = (); |
if ($idlist{$codetitles[0]} =~ /","/) { |
if ($idlist{$codetitles[0]} =~ /","/) { |
@items = split/","/,$idlist{$codetitles[0]}; |
@items = split(/","/,$idlist{$codetitles[0]}); |
} else { |
} else { |
$items[0] = $idlist{$codetitles[0]}; |
$items[0] = $idlist{$codetitles[0]}; |
} |
} |
if (defined($idlist_titles{$codetitles[0]})) { |
if (defined($idlist_titles{$codetitles[0]})) { |
if ($idlist_titles{$codetitles[0]} =~ /","/) { |
if ($idlist_titles{$codetitles[0]} =~ /","/) { |
@longitems = split/","/,$idlist_titles{$codetitles[0]}; |
@longitems = split(/","/,$idlist_titles{$codetitles[0]}); |
} else { |
} else { |
$longitems[0] = $idlist_titles{$codetitles[0]}; |
$longitems[0] = $idlist_titles{$codetitles[0]}; |
} |
} |
Line 165 function changeSort(caller) {
|
Line 165 function changeSort(caller) {
|
$r->print('<br /><input type="hidden" name="state" value="listing" /><input type="hidden" name="sortby" value="" /><input type="submit" name="catalogfilter" value="'.&mt('Display courses').'" /></form>'); |
$r->print('<br /><input type="hidden" name="state" value="listing" /><input type="hidden" name="sortby" value="" /><input type="submit" name="catalogfilter" value="'.&mt('Display courses').'" /></form>'); |
} |
} |
if ($env{'form.state'} eq 'listing') { |
if ($env{'form.state'} eq 'listing') { |
$r->print('<br /><br >'.&print_course_listing($codedom)); |
$r->print('<br /><br />'.&print_course_listing($codedom)); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
Line 220 sub print_course_listing {
|
Line 220 sub print_course_listing {
|
$cleandesc=~s/'/\\'/g; |
$cleandesc=~s/'/\\'/g; |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($cdom,$cnum)=split(/\_/,$course); |
|
|
my ($desc,$instcode,$owner,$ttype) = split/:/,$courses{$course}; |
my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course}); |
$owner = &unescape($owner); |
$owner = &unescape($owner); |
my ($ownername,$ownerdom); |
my ($ownername,$ownerdom); |
if ($owner =~ /:/) { |
if ($owner =~ /:/) { |
Line 290 sub courseinfo_row {
|
Line 290 sub courseinfo_row {
|
my @classids; |
my @classids; |
my @crosslistings; |
my @crosslistings; |
$idx{'status'} = &Apache::loncoursedata::CL_STATUS(); |
$idx{'status'} = &Apache::loncoursedata::CL_STATUS(); |
my %status_title = &Apache::lonlocal::texthash ( |
my %status_title = &Apache::lonlocal::texthash( |
Expired => 'Previous access', |
Expired => 'Previous access', |
Active => 'Current access', |
Active => 'Current access', |
Future => 'Future access', |
Future => 'Future access', |
Line 300 sub courseinfo_row {
|
Line 300 sub courseinfo_row {
|
Active => 0, |
Active => 0, |
Future => 0, |
Future => 0, |
); |
); |
while (my ($student,$data) = each %$classlist) { |
while (my ($student,$data) = each(%$classlist)) { |
$student_count{$data->[$idx{'status'}]} ++; |
$student_count{$data->[$idx{'status'}]} ++; |
} |
} |
my $seclist = &identify_sections($coursehash{'internal.sectionnums'}); |
my $seclist = &identify_sections($coursehash{'internal.sectionnums'}); |
Line 387 sub identify_sections {
|
Line 387 sub identify_sections {
|
my ($seclist) = @_; |
my ($seclist) = @_; |
my @secnums; |
my @secnums; |
if ($seclist =~ /,/) { |
if ($seclist =~ /,/) { |
my @sections = split/,/,$seclist; |
my @sections = split(/,/,$seclist); |
foreach my $sec (@sections) { |
foreach my $sec (@sections) { |
$sec =~ s/:[^:]*$//; |
$sec =~ s/:[^:]*$//; |
push(@secnums,$sec); |
push(@secnums,$sec); |
Line 395 sub identify_sections {
|
Line 395 sub identify_sections {
|
} else { |
} else { |
if ($seclist =~ m/^([^:]+):/) { |
if ($seclist =~ m/^([^:]+):/) { |
my $sec = $1; |
my $sec = $1; |
if (!grep/^$sec$/,@secnums) { |
if (!grep(/^\Q$sec\E$/,@secnums)) { |
push (@secnums,$sec); |
push(@secnums,$sec); |
} |
} |
} |
} |
} |
} |
Line 418 sub get_valid_classes {
|
Line 418 sub get_valid_classes {
|
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
$class) eq 'ok') { |
$class) eq 'ok') { |
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) { |
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) { |
push (@{$validations{'sections'}},$sec); |
push(@{$validations{'sections'}},$sec); |
$totalitems ++; |
$totalitems ++; |
} |
} |
} |
} |
Line 429 sub get_valid_classes {
|
Line 429 sub get_valid_classes {
|
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
$item) eq 'ok') { |
$item) eq 'ok') { |
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) { |
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) { |
push (@{$validations{'xlists'}},$item); |
push(@{$validations{'xlists'}},$item); |
$totalitems ++; |
$totalitems ++; |
} |
} |
} |
} |