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/#; |