[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.271

version 1.267, 2006/06/08 13:56:31 version 1.271, 2006/06/29 16:08:43
Line 2104  sub print_sort_form { Line 2104  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 2113  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 2334  sub run_search { Line 2335  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 2343  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 3063  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 3093  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 3282  sub detailed_citation_view { Line 3271  sub detailed_citation_view {
   &Apache::lonhtmlcommon::crumbs($item,    &Apache::lonhtmlcommon::crumbs($item,
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),    (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),
   '/res',    '/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 3294  sub detailed_citation_view { Line 3283  sub detailed_citation_view {
   &Apache::lonhtmlcommon::crumbs($jumpurl,    &Apache::lonhtmlcommon::crumbs($jumpurl,
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),    (($env{'form.catalogmode'} eq 'import')?'_top':'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 3354  sub summary_view { Line 3343  sub summary_view {
     my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,      my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),    (($env{'form.catalogmode'} eq 'import')?'_top':'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" 
Line 3395  sub compact_view { Line 3384  sub compact_view {
     my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,      my $link=&Apache::lonhtmlcommon::crumbs($jumpurl,
   (($env{'form.catalogmode'} eq 'import')?'_top':'preview'),    (($env{'form.catalogmode'} eq 'import')?'_top':'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'}) && 
Removed from v.1.267  
changed lines
  Added in v.1.271

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