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

Diff for /loncom/interface/lonbulletin.pm between versions 1.58 and 1.61

version 1.58, 2010/01/31 06:03:55 version 1.61, 2010/08/07 19:23:50
Line 184  sub handler { Line 184  sub handler {
         if (($group ne '') && ($env{'form.group'} eq $group)) {          if (($group ne '') && ($env{'form.group'} eq $group)) {
             $query_str.='&group='.$group.'&'.$refarg;              $query_str.='&group='.$group.'&'.$refarg;
         }          }
           if ($env{'form.register'}) {
               $query_str .= '&register='.$env{'form.register'};
           }
         #Function Box for Edit Mode.          #Function Box for Edit Mode.
         my $functionbox = &Apache::lonhtmlcommon::start_funclist();          my $functionbox = &Apache::lonhtmlcommon::start_funclist();
         $functionbox .=  &Apache::lonhtmlcommon::add_item_funclist(          $functionbox .=  &Apache::lonhtmlcommon::add_item_funclist(
Line 196  sub handler { Line 199  sub handler {
         if (($group ne '') && ($env{'form.group'} eq $group)) {          if (($group ne '') && ($env{'form.group'} eq $group)) {
             $query_str.='&group='.$group.'&'.$refarg;              $query_str.='&group='.$group.'&'.$refarg;
         }          }
           if ($env{'form.register'}) {
               $query_str .= '&register='.$env{'form.register'};
           }
         #Functionbox for Student view.          #Functionbox for Student view.
         my $functionbox = &Apache::lonhtmlcommon::start_funclist();          my $functionbox = &Apache::lonhtmlcommon::start_funclist();
         $functionbox .=  &Apache::lonhtmlcommon::add_item_funclist(          $functionbox .=  &Apache::lonhtmlcommon::add_item_funclist(
Line 259  sub handler { Line 265  sub handler {
             &Apache::lonnet::allowuploaded('/adm/syllabus',              &Apache::lonnet::allowuploaded('/adm/syllabus',
                                            $syllabus{'uploaded.photourl'});                                             $syllabus{'uploaded.photourl'});
         }          }
         my @htmlids=();  
         #Outputbox and Inputbox for Image upload          #Outputbox and Inputbox for Image upload
         if ($allowed) {          if ($allowed) {
         my $message = '<img src="'.$syllabus{'uploaded.photourl'}.'" alt="'.&mt('Image').'"/>';          my $message = '<img src="'.$syllabus{'uploaded.photourl'}.'" alt="'.&mt('Image').'"/>';
Line 279  sub handler { Line 284  sub handler {
         }          }
                   
         my %custom_handlers = ( 'aaa_title' => sub {} );          my %custom_handlers = ( 'aaa_title' => sub {} );
  @htmlids = &Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields,    &Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields, 
  $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_handlers);   $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_handlers);
         if ($allowed) {          if ($allowed) {
             $r->print('</form>'.              $r->print('</form>'.
             &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids));              &Apache::lonhtmlcommon::htmlareaselectactive());
         }          }
         if ($target ne 'tex'){          if ($target ne 'tex'){
             $r->print('<br/><br/><hr/><br/>');              $r->print('<br/><br/><hr/><br/>');
Line 292  sub handler { Line 297  sub handler {
             $r->print(&Apache::lonxml::xmlparse($r,'tex','<br/><br/><hr/><br/>'));              $r->print(&Apache::lonxml::xmlparse($r,'tex','<br/><br/><hr/><br/>'));
         }          }
     } else {      } else {
         $r->print('<p>'.&mt('No page information provided.').'</p>');          if ($target ne 'tex') {
              $r->print('<p>'.&mt('No page information provided.').'</p>');
           }
     }      }
     #Lists discussion posts and box for a new discussion post.      #Lists discussion posts and box for a new discussion post.
     if ($target ne 'tex') {      if ($target ne 'tex') {
Removed from v.1.58  
changed lines
  Added in v.1.61

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