version 1.64, 2007/10/03 19:57:29
|
version 1.65, 2007/10/06 04:32:49
|
Line 176 sub display_matched_courses {
|
Line 176 sub display_matched_courses {
|
foreach my $course (keys(%courses)) { |
foreach my $course (keys(%courses)) { |
my $descr; |
my $descr; |
if (ref($courses{$course}) eq 'HASH') { |
if (ref($courses{$course}) eq 'HASH') { |
$descr = &unescape($courses{$course}{'description'}); |
$descr = $courses{$course}{'description'}; |
} elsif ($courses{$course} =~ m/^([^:]*):/i) { |
} elsif ($courses{$course} =~ m/^([^:]*):/i) { |
$descr = &unescape($1); |
$descr = &unescape($1); |
} else { |
} else { |
Line 200 sub display_matched_courses {
|
Line 200 sub display_matched_courses {
|
my ($descr,$instcode,$ttype,@owners); |
my ($descr,$instcode,$ttype,@owners); |
if (ref($courses{$course}) eq 'HASH') { |
if (ref($courses{$course}) eq 'HASH') { |
$descr = $courses{$course}{'description'}; |
$descr = $courses{$course}{'description'}; |
$instcode = $courses{$course}{'instcode'}; |
$instcode = $courses{$course}{'inst_code'}; |
$ttype = $courses{$course}{'type'}; |
$ttype = $courses{$course}{'type'}; |
push(@owners,&unescape($courses{$course}{'owner'})); |
push(@owners,&unescape($courses{$course}{'owner'})); |
if (ref($courses{$course}{'co-owners'}) eq 'ARRAY') { |
if (ref($courses{$course}{'co-owners'}) eq 'ARRAY') { |
Line 342 sub build_filters {
|
Line 342 sub build_filters {
|
'cog' => &mt('Course Type') |
'cog' => &mt('Course Type') |
); |
); |
|
|
$typeselectform = '<select name="type" size="1"'; |
$typeselectform = '<select name="type" size="1">'."\n"; |
$typeselectform .= ">\n"; |
|
if ($type eq 'Course') { |
if ($type eq 'Course') { |
$instcodeform = |
$instcodeform = |
'<input type="text" name="instcodefilter" size="10" value="'. |
'<input type="text" name="instcodefilter" size="10" value="'. |
Line 445 sub search_courses {
|
Line 444 sub search_courses {
|
$r->print('<br />'); |
$r->print('<br />'); |
my %coursehash = &Apache::loncommon::findallcourses(); |
my %coursehash = &Apache::loncommon::findallcourses(); |
foreach my $cid (sort(keys(%coursehash))) { |
foreach my $cid (sort(keys(%coursehash))) { |
$courses{$cid} = $env{'course.'.$cid.'.description'}; |
$courses{$cid}{'description'} = $env{'course.'.$cid.'.description'}; |
} |
} |
} |
} |
return %courses; |
return %courses; |