[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.69

version 1.64, 2012/11/08 22:01:00 version 1.69, 2020/09/08 23:54:40
Line 33  use Apache::Constants qw(:common); Line 33  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lontexconvert;  use Apache::lontexconvert;
 use Apache::lonfeedback;  use Apache::lonfeedback; 
   use Apache::lonhtmlgateway;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use Apache::longroup;
   use Apache::lonnavmaps;
 use HTML::Entities();  use HTML::Entities();
 use LONCAPA;  use LONCAPA;
   
Line 78  sub handler { Line 81  sub handler {
   
 # ------------------------------------------------------------ Get Query String  # ------------------------------------------------------------ Get Query String
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                 ($ENV{'QUERY_STRING'},['forceedit','register',                  ($ENV{'QUERY_STRING'},['forceedit','register','todocs',
                                        'origpage','group','ref']);                                         'origpage','group','ref']);
 # ----------------------------------------------------- Force menu registration  # ----------------------------------------------------- Force menu registration
     my %addentries;      my %addentries;
Line 131  sub handler { Line 134  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 148  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 167  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);
Line 201  sub handler { Line 214  sub handler {
     if (($allowed) && ($env{'form.storesyl'})) {      if (($allowed) && ($env{'form.storesyl'})) {
         foreach my $syl_field (keys(%syllabusfields)) {          foreach my $syl_field (keys(%syllabusfields)) {
             my $field=$env{'form.'.$syl_field};              my $field=$env{'form.'.$syl_field};
             $field=~s/\s+$//s;              chomp($field);
             $field=&Apache::lonfeedback::clear_out_html($field,1);              my $gateway = Apache::lonhtmlgateway->new();
               $field = $gateway->process_incoming_html($field,1);
             $syllabus{$syl_field}=$field;              $syllabus{$syl_field}=$field;
         }          }
         $syllabus{'uploaded.lastmodified'}=time;          $syllabus{'uploaded.lastmodified'}=time;
Line 302  sub groupboard_breadcrumbs { Line 316  sub groupboard_breadcrumbs {
                text=>"Groups",                 text=>"Groups",
                title=>"View course groups"});                 title=>"View course groups"});
     }      }
       my $view_permission =
             &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
       my $navmap=Apache::lonnavmaps::navmap->new();
       my $grouppagelink = &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission,$refarg);
       if ($grouppagelink) {
           push(@{$brcrum},
               {href=>$grouppagelink,
                text=>&mt('Group').": $description",
                title=>&mt("Go to group's home page"),
                no_mt=>1,},
           );
       } else {
           push(@{$brcrum},
               {text=>&mt('Group').": $description",
                no_mt=>1,}
           );
       }
     push(@{$brcrum},      push(@{$brcrum},
            {href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",  
             text=>"$ucgpterm: $description",  
             title=>"Go to group's home page"},  
            {href=>"/adm/groupboards?group=$group&$refarg",             {href=>"/adm/groupboards?group=$group&$refarg",
             text=>"Discussion Boards",              text=>"Discussion Boards",
             title=>"Display group discussion boards"},              title=>"Display group discussion boards"},
            {href=>"$boardurl",             {href=>"$boardurl",
             text=>"$boardtitle",              text=>"$boardtitle",
             title=>"$boardtitle"},              title=>"$boardtitle",
               no_mt=>1},
         );          );
     return $brcrum;      return $brcrum;
 }  }
Removed from v.1.64  
changed lines
  Added in v.1.69

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