version 1.267.2.7, 2004/09/21 19:28:34
|
version 1.267.2.8, 2004/10/07 19:55:52
|
Line 1373 sub render {
|
Line 1373 sub render {
|
} |
} |
|
|
# Check for any unread discussions in all resources. |
# Check for any unread discussions in all resources. |
if (0 && !$args->{'resource_no_folder_link'}) { |
if (!$args->{'resource_no_folder_link'}) { |
my $totdisc = 0; |
my $time=time; |
my $haveDisc = ''; |
my $mapr = &mt('Mark all posts read'); |
my @allres=$navmap->retrieveResources(); |
$result .= (<<END); |
foreach my $resource (@allres) { |
<a href="javascript:document.clearbubbles.submit()">$mapr</a> <a href="javascript:void(open('/adm/help/NavMaps_MarkPosts_Read.hlp', 'Help_for_NavMaps_MarkPosts', 'menubar=0,toolbar=1,scrollbars=1,width=350,height=400,resizable=yes'))" title="Online Help"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: NavMaps_MarkPostsLink)" /></a> |
if ($resource->hasDiscussion()) { |
|
my $ressymb; |
|
if ($resource->symb() =~ m-(___adm/\w+/\w+)/(\d+)/bulletinboard$-) { |
|
$ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard'; |
|
} else { |
|
$ressymb = $resource->symb(); |
|
} |
|
$haveDisc .= $ressymb.':'; |
|
$totdisc ++; |
|
} |
|
} |
|
if ($totdisc > 0) { |
|
$haveDisc =~ s/:$//; |
|
my %lt = &Apache::lonlocal::texthash( |
|
'mapr' => 'Mark all posts read', |
|
); |
|
$result .= (<<END); |
|
<a href="javascript:document.clearbubbles.submit()">$lt{'mapr'}</a> <a href="javascript:void(open('/adm/help/NavMaps_MarkPosts_Read.hlp', 'Help_for_NavMaps_MarkPosts', 'menubar=0,toolbar=1,scrollbars=1,width=350,height=400,resizable=yes'))" title="Online Help"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: NavMaps_MarkPostsLink)" /></a> |
|
<form name="clearbubbles" method="post" action="/adm/feedback"> |
<form name="clearbubbles" method="post" action="/adm/feedback"> |
<input type="hidden" name="navurl" value="$ENV{'QUERY_STRING'}" /> |
<input type="hidden" name="navurl" value="$ENV{'QUERY_STRING'}" /> |
<input type="hidden" name="navmaps" value="$haveDisc" /> |
<input type="hidden" name="navtime" value="$time" /> |
</form> |
</form> |
END |
END |
} else { |
|
$result .= '<br />'; |
|
} |
|
} |
} |
$result .= "<br />\n"; |
$result .= "<br />\n"; |
if ($r) { |
if ($r) { |