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

version 1.64, 2012/11/08 22:01:00 version 1.67, 2013/09/17 15:04:30
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 HTML::Entities();  use HTML::Entities();
Line 78  sub handler { Line 79  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 132  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 146  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 165  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 212  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;
Removed from v.1.64  
changed lines
  Added in v.1.67

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