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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.37 and 1.38.2.1

version 1.37, 2005/12/15 00:53:29 version 1.38.2.1, 2005/12/19 23:24:40
Line 171  function change_display(caller,change) { Line 171  function change_display(caller,change) {
 function changeAll(change) {  function changeAll(change) {
 END  END
         foreach my $item (keys(%{$checkallowed})) {          foreach my $item (keys(%{$checkallowed})) {
             $scripttag.='document.visible.display_'.$item.'.value=change'."\n";              if ($$checkallowed{$item}) {
                   $scripttag.='document.visible.display_'.$item.'.value=change'.
                               "\n";
               }
         }          }
         $scripttag.='document.visible.submit();          $scripttag.='document.visible.submit();
 }  }
Line 635  sub get_discussions { Line 638  sub get_discussions {
                     $hidden = $$discussiondata{$id.':'.$ressymb.':hidden'};                      $hidden = $$discussiondata{$id.':'.$ressymb.':hidden'};
                     $hiddenflag = 1;                      $hiddenflag = 1;
                 }                  }
             }              } elsif (grep/^deleted$/,@keys) {
             if (grep/^deleted$/,@keys) {  
                 unless ($deletedflag) {                  unless ($deletedflag) {
                     $deleted = $$discussiondata{$id.':'.$ressymb.':deleted'};                      $deleted = $$discussiondata{$id.':'.$ressymb.':deleted'};
                     $deletedflag = 1;                      $deletedflag = 1;
                 }                  }
             }              } else { 
             if ($deletedflag && $hiddenflag) {                  unless (($hidden =~/\.$id\./) || ($deleted =~/\.$id\./)) {
                 last;                      if ($prevread <$$discussiondata{$id.':'.$ressymb.':timestamp'}) {
             }  
         }  
         for (my $id=$version; $id>0; $id--) {  
             unless (($hidden =~/\.$id\./) || ($deleted =~/\.$id\./)) {  
                 if ($prevread <$$discussiondata{$id.':'.$ressymb.':timestamp'}) {  
                     unless((exists($$discussiondata{$id.':'.$ressymb.':hidden'})) ||  
                          (exists($$discussiondata{$id.':'.$ressymb.':deleted'}))) {  
   
                         $unreadcount ++;                          $unreadcount ++;
                         $$unread{$ressymb}{$unreadcount} = $id.': '.                          $$unread{$ressymb}{$unreadcount} = $id.': '.
                                  $$discussiondata{$id.':'.$ressymb.':subject'};                                   $$discussiondata{$id.':'.$ressymb.':subject'};
Removed from v.1.37  
changed lines
  Added in v.1.38.2.1

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