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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.159 and 1.160

version 1.159, 2014/07/31 19:25:39 version 1.160, 2014/08/05 19:32:23
Line 115  sub handler { Line 115  sub handler {
     my $numdir = 0;      my $numdir = 0;
     my $numres = 0;      my $numres = 0;
       
       if ((@files == 0) && ($thisdisfn =~ m{^/$match_domain/$match_username})) {
           if ($thisdisfn =~ m{^/$match_domain/$match_username$}) {
               $r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>');
           } else {
               $r->print('<p class="LC_info">'.&mt('This subdirectory is currently empty.').'</p>');
           }
           $r->print(&Apache::loncommon::end_page());
           return OK;
       }
   
     # Retrieving value for "sortby" and "sortorder" from QUERY_STRING      # Retrieving value for "sortby" and "sortorder" from QUERY_STRING
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
         ['sortby','sortorder']);          ['sortby','sortorder']);
Line 122  sub handler { Line 132  sub handler {
     # Sort by name as default, not reversed      # Sort by name as default, not reversed
     if (! exists($env{'form.sortby'})) { $env{'form.sortby'} = 'filename' }      if (! exists($env{'form.sortby'})) { $env{'form.sortby'} = 'filename' }
     if (! exists($env{'form.sortorder'})) { $env{'form.sortorder'} = '' }      if (! exists($env{'form.sortorder'})) { $env{'form.sortorder'} = '' }
   
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
     my $sortorder = $env{'form.sortorder'};      my $sortorder = $env{'form.sortorder'};
   
     if ((@files == 0) && ($thisdisfn =~ m{^/$match_domain/$match_username})) {      # Order in which columns are displayed from left to right
         if ($thisdisfn =~ m{^/$match_domain/$match_username$}) {      my @order = ('filetype','actions','filename','title',
             $r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>');                      'pubstatus','cmtime','size');
         } else {  
             $r->print('<p class="LC_info">'.&mt('This subdirectory is currently empty.').'</p>');      # Up and down arrows to indicate sort order
         }      my @arrows = ('&nbsp;&#9650;','&nbsp;&#9660;','');
         $r->print(&Apache::loncommon::end_page());  
         return OK;  
     }  
   
     # Start off the directory table.      # Default sort order and column title
       my %columns = (
           filetype =>     {
                               order => 'ascending',
                               text  => &mt('Type'),
                           },
           actions =>      {
                               # Not sortable
                               text  => &mt('Actions'),
                           },
           filename =>     {
                               order => 'ascending',
                               text  => &mt('Name'),
                           },
           title =>        {
                               order => 'ascending',
                               text  => &mt('Title'),
                           },
           pubstatus =>    {
                               order => 'ascending',
                               text  => &mt('Status'),
                               colspan => '2',
                           },
           cmtime =>       {
                               order => 'descending',
                               text  => &mt('Last Modified'),
                           },
           size =>         {
                               order => 'ascending',
                               text  => &mt('Size').' (kB)',
                           },
       ); 
   
       # Print column headers
       my $output = '';
       foreach my $key (@order) {
           my $idx;
           # Append an up or down arrow to sorted column
           if ($sortby eq $key) {
               $idx = ($columns{$key}{order} eq 'ascending') ? 0:1;
               if ($sortorder eq 'rev') { $idx ++; }
               $idx = $idx%2;
           } else { $idx = 2; } # No arrow if column is not sorted
           $output .= (($columns{$key}{order}) ?
               '<th'.($columns{$key}{colspan} ? ' colspan="'.$columns{$key}{colspan}.'"' : '')
               .'><a href="'.$linkdir.'/?sortby='.$key.'&sortorder='
               .((($sortby eq $key) && ($sortorder ne 'rev')) ? 'rev' : '').'">'
               .$columns{$key}{text}.$arrows[$idx].'</a></th>' :
               '<th>'.$columns{$key}{text}.'</th>');
       }
     $r->print(&Apache::loncommon::start_data_table()      $r->print(&Apache::loncommon::start_data_table()
         .&Apache::loncommon::start_data_table_header_row()          .&Apache::loncommon::start_data_table_header_row() . $output
         .'<th><a href="'.$linkdir.'/?sortby=filetype&sortorder='  
             .((($sortby eq "filetype") && ($sortorder ne 'rev')) ? 'rev' : '')   
             .'">'.&mt('Type')  
             .'<span class="LC_fontsize_small"> &#9660;</span></a></th>'  
         .'<th>'.&mt('Actions').'</th>'  
         .'<th><a href="'.$linkdir.'/?sortby=filename&sortorder='  
             .((($sortby eq "filename") && ($sortorder ne 'rev')) ? 'rev' : '')   
             .'">'.&mt('Name')  
             .'<span class="LC_fontsize_small"> &#9660;</span></a></th>'  
         .'<th><a href="'.$linkdir.'/?sortby=title&sortorder='  
             .((($sortby eq "title") && ($sortorder ne 'rev')) ? 'rev' : '')   
             .'">'.&mt('Title')  
             .'<span class="LC_fontsize_small"> &#9660;</span></a></th>'  
         .'<th colspan="2"><a href="'.$linkdir.'/?sortby=pubstatus&sortorder='  
             .((($sortby eq "pubstatus") && ($sortorder ne 'rev')) ? 'rev' : '')   
             .'">'.&mt('Status')  
             .'<span class="LC_fontsize_small"> &#9660;</span></a></th>'  
         .'<th><a href="'.$linkdir.'/?sortby=cmtime&sortorder='  
             .((($sortby eq "cmtime") && ($sortorder ne 'rev')) ? 'rev' : '')   
             .'">'.&mt('Last Modified')  
             .'<span class="LC_fontsize_small"> &#9660;</span></a></th>'  
         .'<th><a href="'.$linkdir.'/?sortby=size&sortorder='  
             .((($sortby eq "size") && ($sortorder ne 'rev')) ? 'rev' : '')   
             .'">'.&mt('Size').' (kB)'  
             .'<span class="LC_fontsize_small"> &#9660;</span></a></th>'  
         .&Apache::loncommon::end_data_table_header_row()          .&Apache::loncommon::end_data_table_header_row()
     );      );
   
Removed from v.1.159  
changed lines
  Added in v.1.160

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