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

Diff for /loncom/interface/lonbulletin.pm between versions 1.66 and 1.69

version 1.66, 2012/12/07 17:15:56 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 211  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 312  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.66  
changed lines
  Added in v.1.69

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