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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.243 and 1.245

version 1.243, 2005/04/07 06:56:23 version 1.245, 2005/04/07 07:34:52
Line 1557  sub parse_domain_restrictions { Line 1557  sub parse_domain_restrictions {
     if (! exists($env{'form.domains'}) || $env{'form.domains'} eq '') {      if (! exists($env{'form.domains'}) || $env{'form.domains'} eq '') {
         return (undef,'',undef);          return (undef,'',undef);
     }      }
     my @allowed_domains;      my @allowed_domains = &Apache::loncommon::get_env_multiple('form.domains');
     if (ref($env{'form.domains'})) {  
         @allowed_domains =  @{$env{'form.domains'}};  
     } else {  
         @allowed_domains = ($env{'form.domains'});  
     }  
     #      #
     my %domain_hash = ();      my %domain_hash = ();
     my $pretty_domains_string;      my $pretty_domains_string;
Line 2685  sub display_results { Line 2680  sub display_results {
               );                );
     #      #
     # Build sorting selector      # Build sorting selector
 <<<<<<< lonsearchcat.pm  
     my @field_order =  ('default',  
                         'title',  
                         'author',  
                         'subject',  
                         'url',  
                         'keywords',  
                         'version',  
                         'language',  
                         'creationdate'=>,  
                         'lastrevisiondate',  
                         'owner',  
                         'copyright',  
                         'authorspace',  
                         'lowestgradeleve',  
                         'highestgradelevel',  
                         'standards',  
                         'count',  
                         'stdno',  
                         'avetries',  
                         'difficulty',  
                         'disc',  
                         'clear',  
                         'technical',  
                         'correct',  
                         'helpful',  
                         'depth',  
                         );                                                
     my %sort_fields = ('default'     => 'Default',  
                        'title'       => 'Title',  
                        'author'      => 'Author',  
                        'subject'     => 'Subject',  
                        'url'         => 'URL',  
                        'keywords'    => 'Keywords',  
                        'version'     => 'Version',  
                        'language'    => 'Language',  
                        'creationdate'=> 'Creation Date',  
                        'lastrevisiondate' => 'Last Revision Date',  
                        'owner'       => 'Owner',  
                        'copyright'   => 'Copyright',  
                        'authorspace' => 'Authorspace',  
                        'lowestgradeleve' => 'Lowest Grade Level',  
                        'highestgradelevel' => 'Highest Grade Level',  
                        'standards'   => 'Standards',  
                        'count'       => 'Number of Accesses',  
                        'stdno'       => 'Students Attempting',  
                        'avetries'    => 'Average Number of Tries',  
                        'difficulty'  => 'Mean Degree of Difficulty',  
                        'disc'        => 'Mean Degree of Discrimination',  
                        'clear'       => 'Evaluation: Clear',  
                        'technical'   => 'Evaluation: Technically Correct',  
                        'correct'     => 'Evaluation: Material is Correct',  
                        'helpful'     => 'Evaluation: Material is Helpful',  
                        'depth'       => 'Evaluation: Material has Depth',  
                        'select_form_order' => \@field_order,  
                        );  
   
     my $sortform = &mt('Sort by [_1]',  
                        &Apache::loncommon::select_form($env{'form.sortfield'},  
 =======  
     my @fields =       my @fields = 
         (          (
          {key=>'default' },           {key=>'default' },
Line 2788  sub display_results { Line 2723  sub display_results {
     }      }
     my %sort_fields = map {$_->{'key'},$_->{'desc'}} @fields;      my %sort_fields = map {$_->{'key'},$_->{'desc'}} @fields;
     $sort_fields{'select_form_order'} = \@field_order;      $sort_fields{'select_form_order'} = \@field_order;
     $ENV{'form.sortorder'} = 'asc' if (! exists($ENV{'form.sortorder'}));      $env{'form.sortorder'} = 'asc' if (! exists($env{'form.sortorder'}));
     my $sortform = &mt('Sort by [_1] [_2]',      my $sortform = &mt('Sort by [_1] [_2]',
                        &Apache::loncommon::select_form($ENV{'form.sortfield'},                         &Apache::loncommon::select_form($env{'form.sortfield'},
 >>>>>>> 1.242  
                                                       'sortfield',                                                        'sortfield',
                                                       %sort_fields),                                                        %sort_fields),
                        &Apache::loncommon::select_form($ENV{'form.sortorder'},                         &Apache::loncommon::select_form($env{'form.sortorder'},
                                                       'sortorder',                                                        'sortorder',
                                                       (asc =>&mt('Ascending'),                                                        (asc =>&mt('Ascending'),
                                                        desc=>&mt('Descending')                                                         desc=>&mt('Descending')
Line 2824  sub display_results { Line 2758  sub display_results {
     ##      ##
     ## Get results from MySQL table      ## Get results from MySQL table
     my $sort_command  = 'id>='.$min.' AND id<='.$max;      my $sort_command  = 'id>='.$min.' AND id<='.$max;
 <<<<<<< lonsearchcat.pm  
     if ($env{'form.sortfield'} ne 'default' &&   
         exists($sort_fields{$env{'form.sortfield'}})) {  
         $sort_command = $env{'form.sortfield'}.' IS NOT NULL '.  
             'ORDER BY '.$env{'form.sortfield'}.  
 =======  
     my $order;      my $order;
     if (exists($ENV{'form.sortorder'})) {      if (exists($env{'form.sortorder'})) {
         if ($ENV{'form.sortorder'} eq 'asc') {          if ($env{'form.sortorder'} eq 'asc') {
             $order = 'ASC';              $order = 'ASC';
         } elsif ($ENV{'form.sortorder'} eq 'desc') {          } elsif ($env{'form.sortorder'} eq 'desc') {
             $order = 'DESC';              $order = 'DESC';
         } else {          } else {
             $order = '';              $order = '';
Line 2842  sub display_results { Line 2770  sub display_results {
     } else {      } else {
         $order = '';          $order = '';
     }      }
     if ($ENV{'form.sortfield'} ne 'default' &&       if ($env{'form.sortfield'} ne 'default' && 
         exists($sort_fields{$ENV{'form.sortfield'}})) {          exists($sort_fields{$env{'form.sortfield'}})) {
         $sort_command = $ENV{'form.sortfield'}.' IS NOT NULL '.          $sort_command = $env{'form.sortfield'}.' IS NOT NULL '.
             'ORDER BY '.$ENV{'form.sortfield'}.' '.$order.              'ORDER BY '.$env{'form.sortfield'}.' '.$order.
 >>>>>>> 1.242  
             '  LIMIT '.($min-1).','.($max-$min);              '  LIMIT '.($min-1).','.($max-$min);
     }      }
     my @Results = &Apache::lonmysql::get_rows($table,$sort_command);      my @Results = &Apache::lonmysql::get_rows($table,$sort_command);
Line 3411  sub summary_view { Line 3338  sub summary_view {
     my ($prefix,%values) = @_;      my ($prefix,%values) = @_;
     my $icon=&Apache::loncommon::icon($values{'url'});      my $icon=&Apache::loncommon::icon($values{'url'});
     my $result=qq{$prefix<img src="$icon" />};      my $result=qq{$prefix<img src="$icon" />};
     if (exists($ENV{'form.sortfield'}) &&       if (exists($env{'form.sortfield'}) && 
         $ENV{'form.sortfield'} !~ /^(default|          $env{'form.sortfield'} !~ /^(default|
                                      author|                                       author|
                                      url|                                       url|
                                      title|                                       title|
                                      owner|                                       owner|
                                      lastrevisiondate|                                       lastrevisiondate|
                                      copyright)$/x) {                                       copyright)$/x) {
         my $tmp = $values{$ENV{'form.sortfield'}};          my $tmp = $values{$env{'form.sortfield'}};
         if (! defined($tmp)) { $tmp = 'undefined'; }          if (! defined($tmp)) { $tmp = 'undefined'; }
         $result .= '&nbsp;'.$tmp.'&nbsp;';          $result .= '&nbsp;'.$tmp.'&nbsp;';
     }      }
Line 3450  sub compact_view { Line 3377  sub compact_view {
     my ($prefix,%values) = @_;      my ($prefix,%values) = @_;
     my $result =       my $result = 
         $prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'">';          $prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'">';
     if (exists($ENV{'form.sortfield'}) &&       if (exists($env{'form.sortfield'}) && 
         $ENV{'form.sortfield'} !~ /^(default|author|url|title)$/) {          $env{'form.sortfield'} !~ /^(default|author|url|title)$/) {
         my $tmp = $values{$ENV{'form.sortfield'}};          my $tmp = $values{$env{'form.sortfield'}};
         if (! defined($tmp)) { $tmp = 'undefined'; }          if (! defined($tmp)) { $tmp = 'undefined'; }
         $result .= '&nbsp;'.$tmp.'&nbsp;';          $result .= '&nbsp;'.$tmp.'&nbsp;';
     }      }
Removed from v.1.243  
changed lines
  Added in v.1.245

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