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

Diff for /loncom/interface/lonbulletin.pm between versions 1.64 and 1.65

version 1.64, 2012/11/08 22:01:00 version 1.65, 2012/11/17 00:05:50
Line 131  sub handler { Line 131  sub handler {
         } else {          } else {
             $course_or_group="Group";              $course_or_group="Group";
         }          }
           my $registered;
         if ($group ne '' && $env{'form.group'} eq $group) {          if ($group ne '' && $env{'form.group'} eq $group) {
               unless ($env{'form.ref'} eq 'grouplist') {
                   $registered = $env{'form.register'}; 
               }
             my $gpterm =  &Apache::loncommon::group_term();              my $gpterm =  &Apache::loncommon::group_term();
             my $ucgpterm = $gpterm;              my $ucgpterm = $gpterm;
             $ucgpterm =~ s/^(\w)/uc($1)/e;              $ucgpterm =~ s/^(\w)/uc($1)/e;
Line 141  sub handler { Line 145  sub handler {
             if ((ref($groupboards) eq 'ARRAY') && (@{$groupboards} > 0)) {              if ((ref($groupboards) eq 'ARRAY') && (@{$groupboards} > 0)) {
                 $boardtitle = $$boards{$$groupboards[0]}{'title'};                  $boardtitle = $$boards{$$groupboards[0]}{'title'};
             }              }
             $boardurl .= '?register=1&group='.$group;              $boardurl .= '?group='.$group;
             $brcrum =               if ($registered) {
                 &groupboard_breadcrumbs($dom,$crs,$group,$refarg,$gpterm,                  $boardurl .= '&register='.$env{'form.register'};
                                         $ucgpterm,$grp_desc,$boardurl,$boardtitle);              } else {
                   $brcrum = 
                       &groupboard_breadcrumbs($dom,$crs,$group,$refarg,$gpterm,
                                               $ucgpterm,$grp_desc,$boardurl,
                                               $boardtitle);
               }
         } else {          } else {
               $registered = $env{'form.register'};
             $brcrum = [];              $brcrum = [];
         }          }
         my $start_page =          my $start_page =
Line 154  sub handler { Line 164  sub handler {
                                             'domain'         => $dom,                                              'domain'         => $dom,
                                             'bread_crumbs'   => $brcrum,                                               'bread_crumbs'   => $brcrum, 
                                             'group'          => $group,                                              'group'          => $group,
                                             'force_register' =>                                              'force_register' => $registered}
                                                 $env{'form.register'}});                                            );
         $r->print($start_page);          $r->print($start_page);
     }      }
     my ($allowed);      my ($allowed);
Removed from v.1.64  
changed lines
  Added in v.1.65

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