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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.267 and 1.275

version 1.267, 2006/06/08 13:56:31 version 1.275, 2006/07/31 19:45:58
Line 1540  sub parse_domain_restrictions { Line 1540  sub parse_domain_restrictions {
         $domain_hash{$_}++;          $domain_hash{$_}++;
     }      }
     if ($domain_hash{'any'}) {      if ($domain_hash{'any'}) {
         $pretty_domains_string = "In all LON-CAPA domains.";          $pretty_domains_string = &mt("in all LON-CAPA domains.");
     } else {      } else {
         if (@allowed_domains > 1) {          if (@allowed_domains > 1) {
             $pretty_domains_string = "In LON-CAPA domains:";              $pretty_domains_string = &mt("in LON-CAPA domains:");
         } else {          } else {
             $pretty_domains_string = "In LON-CAPA domain ";              $pretty_domains_string = &mt("in LON-CAPA domain ");
         }          }
         foreach (sort @allowed_domains) {          foreach (sort @allowed_domains) {
             $pretty_domains_string .= "<b>".$_."</b> ";              $pretty_domains_string .= "<b>".$_."</b> ";
Line 1614  sub parse_basic_search { Line 1614  sub parse_basic_search {
     #}      #}
     my $final_query = 'SELECT * FROM metadata WHERE '.join(" AND ",@Queries);      my $final_query = 'SELECT * FROM metadata WHERE '.join(" AND ",@Queries);
     #      #
       if ($env{'form.related'}) {
    $pretty_search_string.=' '.&mt('(including related words)');
       }
     if (defined($pretty_domains_string) && $pretty_domains_string ne '') {      if (defined($pretty_domains_string) && $pretty_domains_string ne '') {
         $pretty_search_string .= ' '.$pretty_domains_string;          $pretty_search_string .= ' '.$pretty_domains_string;
     }      }
Line 2104  sub print_sort_form { Line 2107  sub print_sort_form {
 END  END
   
     my $start_page = &Apache::loncommon::start_page('Results',$js,      my $start_page = &Apache::loncommon::start_page('Results',$js,
     {'only_body' => 1});      {'no_title' => 1});
     my $breadcrumbs=      my $breadcrumbs=
         &Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',          &Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
     $env{'form.catalogmode'} ne 'import');      $env{'form.catalogmode'} ne 'import');
Line 2113  END Line 2116  END
 $start_page  $start_page
 $breadcrumbs  $breadcrumbs
 <form name="statusform" action="" method="post" target="_top">  <form name="statusform" action="" method="post" target="_top">
 <input type="hidden" name="Queue" value="" />  <input type="hidden" name="catalogmode" value="import" />
   <input type="hidden" name="acts" value="" />
 END  END
   
 #<h2>Sort Results</h2>  #<h2>Sort Results</h2>
Line 2132  END Line 2136  END
 <p>  <p>
 There are $total_results matches to your query. $revise  There are $total_results matches to your query. $revise
 </p><p>  </p><p>
 Search:$pretty_query_string  Search: $pretty_query_string
 </p>  </p>
 </form>  </form>
 END  END
Line 2334  sub run_search { Line 2338  sub run_search {
     # Print run_search header      # Print run_search header
     #      #
     my $start_page = &Apache::loncommon::start_page('Search Status',undef,      my $start_page = &Apache::loncommon::start_page('Search Status',undef,
     {'only_body' => 1});      {'no_title' => 1});
     my $breadcrumbs =      my $breadcrumbs =
  &Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',   &Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
     $env{'form.catalogmode'} ne 'import');      $env{'form.catalogmode'} ne 'import');
Line 2342  sub run_search { Line 2346  sub run_search {
 $start_page  $start_page
 $breadcrumbs  $breadcrumbs
 <form name="statusform" action="" method="post">  <form name="statusform" action="" method="post">
 <input type="hidden" name="Queue" value="" />  <input type="hidden" name="acts" value="" />
 END  END
     # Remove leading and trailing <br />      # Remove leading and trailing <br />
     $pretty_string =~ s:^\s*<br />::i;      $pretty_string =~ s:^\s*<br />::i;
Line 3062  SCRIPT Line 3066  SCRIPT
         if (document.forms.results.returnvalues.length != "undefined" &&          if (document.forms.results.returnvalues.length != "undefined" &&
             typeof(document.forms.results.returnvalues.length) == "number") {              typeof(document.forms.results.returnvalues.length) == "number") {
             if (document.forms.results.returnvalues[checkbox_num].checked) {              if (document.forms.results.returnvalues[checkbox_num].checked) {
                 parent.statusframe.document.forms.statusform.elements.Queue.value +='1a'+val+'b';                  parent.statusframe.document.forms.statusform.elements.acts.value +='1a'+val+'b';
             } else {              } else {
                 parent.statusframe.document.forms.statusform.elements.Queue.value +='0a'+val+'b';                  parent.statusframe.document.forms.statusform.elements.acts.value +='0a'+val+'b';
             }              }
         } else {          } else {
             if (document.forms.results.returnvalues.checked) {              if (document.forms.results.returnvalues.checked) {
                 parent.statusframe.document.forms.statusform.elements.Queue.value +='1a'+val+'b';                  parent.statusframe.document.forms.statusform.elements.acts.value +='1a'+val+'b';
             } else {              } else {
                 parent.statusframe.document.forms.statusform.elements.Queue.value +='0a'+val+'b';                  parent.statusframe.document.forms.statusform.elements.acts.value +='0a'+val+'b';
             }              }
         }          }
     }      }
     function select_group() {      function select_group() {
  parent.window.location=   parent.window.location=
     "/adm/groupsort?mode=$env{'form.mode'}&catalogmode=import&acts="+      "/adm/groupsort?mode=$env{'form.mode'}&catalogmode=import&acts="+
     parent.statusframe.document.forms.statusform.elements.Queue.value;      parent.statusframe.document.forms.statusform.elements.acts.value;
     }      }
 </script>  </script>
 SCRIPT  SCRIPT
Line 3092  END Line 3096  END
     return $result;      return $result;
 }  }
   
 ######################################################################  
 ######################################################################  
 sub search_status_header {  
     my $start_page = &Apache::loncommon::start_page('Search Status',undef,  
     {'only_body' => 1});  
     return <<ENDSTATUS;  
 $start_page  
 <h3>Search Status</h3>  
 Sending search request to LON-CAPA servers.<br />  
 ENDSTATUS  
 }  
   
 sub results_link {  sub results_link {
     my $basic_link   = "/adm/searchcat?"."&table=".$env{'form.table'}.      my $basic_link   = "/adm/searchcat?"."&table=".$env{'form.table'}.
         "&persistent_db_id=".$env{'form.persistent_db_id'};          "&persistent_db_id=".$env{'form.persistent_db_id'};
Line 3208  sub detailed_citation_view { Line 3200  sub detailed_citation_view {
     my ($prefix,%values) = @_;      my ($prefix,%values) = @_;
     my $result;      my $result;
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     $jumpurl=~s/^\/ext\//http\:\/\//;      $jumpurl=~s|^/ext/|http://|;
     $result .= '<b>'.$prefix.      $result .= '<b>'.$prefix.
         '<img src="'.&Apache::loncommon::icon($values{'url'}).'" />'.'&nbsp;'.          '<img src="'.&Apache::loncommon::icon($values{'url'}).'" />'.'&nbsp;'.
         '<a href="'.$jumpurl.'" '.          '<a href="'.$jumpurl.'" '.
         'target="search_preview">'.$values{'title'}."</a></b>\n";          'target="preview">'.$values{'title'}."</a></b>\n";
     $result .= "<p>\n";      $result .= "<p>\n";
     $result .= '<b>'.$values{'author'}.'</b>,'.      $result .= '<b>'.$values{'author'}.'</b>,'.
         ' <i>'.$values{'owner'}.'</i><br />';          ' <i>'.$values{'owner'}.'</i><br />';
Line 3279  sub detailed_citation_view { Line 3271  sub detailed_citation_view {
             $result .= '<b>'.&mt($field->{'translate'}).'</b>';              $result .= '<b>'.&mt($field->{'translate'}).'</b>';
             foreach my $item (split(',',$values{$field->{'name'}})){              foreach my $item (split(',',$values{$field->{'name'}})){
                 $result .=                   $result .= 
   &Apache::lonhtmlcommon::crumbs($item,    &Apache::lonhtmlcommon::crumbs(&Apache::lonnet::clutter($item),
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),    'preview',
   '/res',    '',
   (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1);    (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1);
             }              }
         } elsif (exists($field->{'format'}) && $field->{'format'} ne ''){          } elsif (exists($field->{'format'}) && $field->{'format'} ne ''){
             $result.= &mt($field->{'translate'},              $result.= &mt($field->{'translate'},
Line 3290  sub detailed_citation_view { Line 3282  sub detailed_citation_view {
                                   $values{$field->{'name'}}))."<br />\n";                                    $values{$field->{'name'}}))."<br />\n";
         } else {          } else {
             if ($field->{'special'} eq 'url link') {              if ($field->{'special'} eq 'url link') {
                 $result.=                 if ($jumpurl=~/^http\:\/\//) {
                    $result.='<tt>'.$jumpurl.'</tt>';
                  } else {
                    $result .=
   &Apache::lonhtmlcommon::crumbs($jumpurl,    &Apache::lonhtmlcommon::crumbs($jumpurl,
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),    'preview',
   '',    '',
   (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1);    (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),3,0,1);
                  }
             } else {              } else {
                 $result.= &mt($field->{'translate'},                  $result.= &mt($field->{'translate'},
                               $values{$field->{'name'}});                                $values{$field->{'name'}});
Line 3350  sub summary_view { Line 3346  sub summary_view {
         $result .= '&nbsp;'.$tmp.'&nbsp;';          $result .= '&nbsp;'.$tmp.'&nbsp;';
     }      }
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     $jumpurl=~s/^\/ext\//http\:\/\//;      my $link;
     my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,      if ($jumpurl=~m|^/ext/|) {
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),   $jumpurl=~s|^/ext/|http://|;
    $link='<br /><tt>'.$jumpurl.'</tt>';
       } else {
    $link=&Apache::lonhtmlcommon::crumbs($jumpurl,
     'preview',
   '',    '',
   (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1);    (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1);
       }
     $result.=<<END;      $result.=<<END;
 <a href="$jumpurl"   <a href="$jumpurl" 
    target='search_preview'>$values{'title'}</a>$link     target='preview'>$values{'title'}</a>$link
 $values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br />  $values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br />
 $values{'copyrighttag'}<br />  $values{'copyrighttag'}<br />
 $values{'extrashow'}  $values{'extrashow'}
Line 3391  sub summary_preview { Line 3391  sub summary_preview {
 sub compact_view {  sub compact_view {
     my ($prefix,%values) = @_;      my ($prefix,%values) = @_;
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     $jumpurl=~s/^\/ext\//http\:\/\//;      my $link;
     my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,      if ($jumpurl=~m|^/ext/|) {
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),   $jumpurl=~s|^/ext/|http://|;
    $link='<tt>'.$jumpurl.'</tt>';
       } else {
           $link=&Apache::lonhtmlcommon::crumbs($jumpurl,
     'preview',
   '',    '',
   (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1);    (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1,1,1).' ';
       }
     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'}) && 
Line 3404  sub compact_view { Line 3409  sub compact_view {
         if (! defined($tmp)) { $tmp = 'undefined'; }          if (! defined($tmp)) { $tmp = 'undefined'; }
         $result .= '&nbsp;'.$tmp.'&nbsp;';          $result .= '&nbsp;'.$tmp.'&nbsp;';
     }      }
     $result.='&nbsp;<a href="'.$jumpurl.'" target="search_preview">'.      $result.='&nbsp;<a href="'.$jumpurl.'" target="preview">'.
         $values{'title'}.'</a>'.('&nbsp;'x2).$link.          $values{'title'}.'</a>'.('&nbsp;'x2).$link.
         '<b>'.$values{'author'}.'</b> ('.$values{'domain'}.')<br />';          '<b>'.$values{'author'}.'</b> ('.$values{'domain'}.')<br />';
     return $result;      return $result;
Line 3427  sub fielded_format_view { Line 3432  sub fielded_format_view {
     my $icon=&Apache::loncommon::icon($values{'url'});      my $icon=&Apache::loncommon::icon($values{'url'});
     my %Translated = &Apache::lonmeta::fieldnames();      my %Translated = &Apache::lonmeta::fieldnames();
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     $jumpurl=~s/^\/ext\//http\:\/\//;      $jumpurl=~s|^/ext/|http://|;
   
     my $result=<<END;      my $result=<<END;
 $prefix <img src="$icon" />  $prefix <img src="$icon" />
 <dl>  <dl>
 <dt>URL:</dt>  <dt>URL:</dt>
     <dd><a href="$jumpurl"       <dd><a href="$jumpurl" 
          target='search_preview'>$values{'url'}</a></dd>           target='preview'>$values{'url'}</a></dd>
 END  END
     foreach my $field ('title','author','domain','subject','keywords','notes',      foreach my $field ('title','author','domain','subject','keywords','notes',
                        'mimetag','language','creationdate','lastrevisiondate',                         'mimetag','language','creationdate','lastrevisiondate',
Removed from v.1.267  
changed lines
  Added in v.1.275

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