[BACK]Return to lonnavmaps.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.267.2.7 and 1.267.2.8

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) {          &nbsp;&nbsp;&nbsp;<a href="javascript:document.clearbubbles.submit()">$mapr</a>&nbsp;<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);  
         &nbsp;&nbsp;&nbsp;<a href="javascript:document.clearbubbles.submit()">$lt{'mapr'}</a>&nbsp;<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) {
Removed from v.1.267.2.7  
changed lines
  Added in v.1.267.2.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>