loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.277, 2006/09/27 19:32:11	version 1.278, 2006/12/06 22:22:37
Line 78 use HTML::Entities();	Line 78 use HTML::Entities();
use Parse::RecDescent;	use Parse::RecDescent;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::lonindexer();	use Apache::lonindexer();
use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

######################################################################	######################################################################
Line 522 sub course_search {	Line 521 sub course_search {
my $applies = 0;	my $applies = 0;
my $symb = $resource->symb();	my $symb = $resource->symb();
my $ressymb = $symb;	my $ressymb = $symb;
if ($symb =~ m#(___adm/\w+/\w+)/(\d+)/bulletinboard$#) {	if ($symb =~ m#(___adm/$LONCAPA::domain_re/$LONCAPA::username_re)/(\d+)/bulletinboard$#) {
$ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard';	$ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard';
unless ($ressymb =~ m#bulletin___\d+___adm/wrapper#) {	unless ($ressymb =~ m#bulletin___\d+___adm/wrapper#) {
$ressymb=~s#(bulletin___\d+___)#$1adm/wrapper/#;	$ressymb=~s#(bulletin___\d+___)#$1adm/wrapper/#;