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

Diff for /loncom/interface/lonaboutme.pm between versions 1.126 and 1.130

version 1.126, 2009/04/17 17:54:59 version 1.130, 2009/05/12 14:46:59
Line 95  sub handler { Line 95  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
     my $target=$env{'form.grade_target'};      my $target=$env{'form.grade_target'};
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
     if ($target eq 'tex') {              if ($target eq 'tex') {
  $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));   $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
     }      }
     my (undef,undef,$cdom,$cnum,undef,$action)=split(/\//,$r->uri);      my (undef,undef,$cdom,$cnum,undef,$action)=split(/\//,$r->uri);
Line 215  sub handler { Line 215  sub handler {
             $args->{'no_nav_bar'} = 1;              $args->{'no_nav_bar'} = 1;
         }          }
  $args->{'bread_crumbs'} = [{href=>"/adm/fhwfdev/$cnum/aboutme",text=>"Personal Information Page"}];   $args->{'bread_crumbs'} = [{href=>"/adm/fhwfdev/$cnum/aboutme",text=>"Personal Information Page"}];
  my $start_page = &Apache::loncommon::start_page("Personal Data",$rss_link,$args);   my $start_page = &Apache::loncommon::start_page('Personal Information Page',$rss_link,$args);
  $r->print($start_page);   $r->print($start_page);
       
         #Print Privacy Note          #Print Privacy Note
         if ($allowed) {          if ($allowed) {
             $r->print('<div class="LC_info">'              $r->print('<div class="LC_info">'
Line 226  sub handler { Line 226  sub handler {
                     .'</div>'                      .'</div>'
            );             );
  }   }
       
 #Print last modified  #Print last modified
   
  my $lastmod;   my $lastmod;
Line 246  sub handler { Line 246  sub handler {
  }   }
   
 #----------------Print Functions  #----------------Print Functions
  if ($target ne 'tex'){   if ($target ne 'tex') {
  $r->print(&Apache::lontemplate::start_functionslist());   $r->print(&Apache::lontemplate::start_functionslist());
       if($allowed){        if ($allowed) {
  my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}});   my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}});
                         $r->print(&Apache::lontemplate::item_functionslist(                          $r->print(&Apache::lontemplate::item_functionslist(
                             '<a href="'.$r->uri.$query_string.'">'.&mt('Show Public View').'</a>'                              '<a href="'.$r->uri.$query_string.'">'.&mt('Show Public View').'</a>'
Line 377  my $image; Line 377  my $image;
  &Apache::lontemplate::print_aboutme_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus);   &Apache::lontemplate::print_aboutme_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus);
         #End Print Content          #End Print Content
   
        if($target ne 'tex')#Begin Print RSS and portfiles         if($target ne 'tex') { #Begin Print RSS and portfiles
        {  
  &print_portfiles_link($r,$is_course);   &print_portfiles_link($r,$is_course);
  if(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){   if (&Apache::lonrss::advertisefeeds($cnum,$cdom) ne '') {
  &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');   &Apache::lontemplate::print_start_template($r,'RSS Feeds and Blogs','LC_ContentBoxSpecial');
  $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom));   $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom));
  &Apache::lontemplate::print_end_template($r);   &Apache::lontemplate::print_end_template($r);
Line 397  my $image; Line 396  my $image;
    $r->print('</form>');     $r->print('</form>');
        }         }
        if ($target ne 'tex') {$r->print('<br />');} else {$r->print('\\\\');}         if ($target ne 'tex') {$r->print('<br />');} else {$r->print('\\\\');}
     } else {      } else {
        $r->print('<p>'.&mt('No personal information provided').'.</p>');         $r->print('<p>'.&mt('No personal information provided').'.</p>');
     }          }
   
     if ($env{'request.course.id'}      if ($env{'request.course.id'}
  && &Apache::lonnet::allowed('srm',$env{'request.course.id'})   && &Apache::lonnet::allowed('srm',$env{'request.course.id'})
Line 419  my $image; Line 418  my $image;
     &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);      &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
  }   }
     }      }
     $r->print('</div>');  
     $r->print('</div>');  
     if ($target ne 'tex') {      if ($target ne 'tex') {
    $r->print('</div>');
       $r->print('</div>');
         if ($env{'form.popup'}) {          if ($env{'form.popup'}) {
             $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a>');              $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a>');
         }          }
Line 689  sub portfolio_files { Line 688  sub portfolio_files {
     return $filecounts;      return $filecounts;
 }  }
   
 {  
     my $count=0;  
     sub portfolio_table_start {  
  $count=0;  
  return '<table class="LC_aboutme_port">';  
     }  
     sub portfolio_row_start {  
  $count++;  
  my $class = ($count%2)?'LC_odd_row'  
                       :'LC_even_row';  
  return '<tr class="'.$class.'">';  
     }  
 }  
   
 sub build_hierarchy {  sub build_hierarchy {
     my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info,      my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info,
         $allfileshash,$group) = @_;          $allfileshash,$group) = @_;
Line 747  sub build_hierarchy { Line 732  sub build_hierarchy {
     my $output;      my $output;
     if ($mode eq 'listfiles') {      if ($mode eq 'listfiles') {
         if ($filecounts->{'both'} > 0) {          if ($filecounts->{'both'} > 0) {
             $output = &portfolio_table_start();              $output = &Apache::loncommon::start_data_table();
             $output .= &parse_directory($r,0,$allfileshash,'',$is_course,              $output .= &parse_directory($r,0,$allfileshash,'',$is_course,
                                         $group);                                          $group);
             $output .= '</table>';              $output .= &Apache::loncommon::end_data_table();
         }          }
     }      }
     return $output;      return $output;
Line 769  sub parse_directory { Line 754  sub parse_directory {
     ((split('&',$_,2))[0],1)      ((split('&',$_,2))[0],1)
  } &Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath);   } &Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath);
     foreach my $item (sort(keys(%{$currhash}))) {      foreach my $item (sort(keys(%{$currhash}))) {
         $output .= &portfolio_row_start();          $output .= &Apache::loncommon::start_data_table_row();
         $output .= '<td style="padding-left: '.($depth*25).'px">';          $output .= '<td style="padding-left: '.($depth*25).'px">';
         if (ref($currhash->{$item}) eq 'HASH') {          if (ref($currhash->{$item}) eq 'HASH') {
             my $title=&HTML::Entities::encode($item,'<>&"');              my $title=&HTML::Entities::encode($item,'<>&"');
             $output .= '<img src="'.&Apache::loncommon::lonhttpdurl("/adm/lonIcons/navmap.folder.open.gif").'" alt="'.&mt('Folder').' '.$title.'" class="LC_icon" />&nbsp;'.$title;              $output .= '<img src="'.&Apache::loncommon::lonhttpdurl("/adm/lonIcons/navmap.folder.open.gif").'" alt="'.&mt('Folder').' '.$title.'" class="LC_icon" />&nbsp;'.$title;
     $output .= '</td><td></td></tr>';      $output .= '</td><td>&nbsp;</td>'
                         .&Apache::loncommon::end_data_table_row();
             $output .= &parse_directory($r,$depth,$currhash->{$item},              $output .= &parse_directory($r,$depth,$currhash->{$item},
  $path.'/'.$item,$is_course,$group);   $path.'/'.$item,$is_course,$group);
         } else {          } else {
Line 813  sub parse_directory { Line 799  sub parse_directory {
  &Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').   &Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').
  '" class="LC_icon" /></a>';   '" class="LC_icon" /></a>';
     }      }
     $output .= '</td></tr>';      $output .= '</td>'
                         .&Apache::loncommon::end_data_table_row();
         }          }
     }      }
     return $output;      return $output;
Removed from v.1.126  
changed lines
  Added in v.1.130

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