--- loncom/interface/lonsearchcat.pm	2006/04/11 19:53:11	1.262
+++ loncom/interface/lonsearchcat.pm	2006/12/06 22:22:37	1.278
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.262 2006/04/11 19:53:11 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.278 2006/12/06 22:22:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -78,6 +78,7 @@ use HTML::Entities();
 use Parse::RecDescent;
 use Apache::lonnavmaps;
 use Apache::lonindexer();
+use LONCAPA;
 
 ######################################################################
 ######################################################################
@@ -137,7 +138,7 @@ sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
              ['catalogmode','launch','acts','mode','form','element','pause',
               'phase','persistent_db_id','table','start','show',
-              'cleargroupsort','titleelement']);
+              'cleargroupsort','titleelement','area']);
     ##
     ## The following is a trick - we wait a few seconds if asked to so
     ##     the daemon running the search can get ahead of the daemon
@@ -153,7 +154,7 @@ sub handler {
     ##
     my $domain  = $r->dir_config('lonDefDomain');
     $diropendb= "/home/httpd/perl/tmp/".
-        "$env{'user.domain'}_$env{'user.name'}_searchcat.db";
+        "$env{'user.domain'}_$env{'user.name'}_sel_res.db";
     #
     # set the name of the persistent database
     #          $env{'form.persistent_db_id'} can only have digits in it.
@@ -164,30 +165,37 @@ sub handler {
     }
 
     my $persistent_db_file = "/home/httpd/perl/tmp/".
-        &Apache::lonnet::escape($domain).
-            '_'.&Apache::lonnet::escape($env{'user.name'}).
+        &escape($domain).
+            '_'.&escape($env{'user.name'}).
                 '_'.$env{'form.persistent_db_id'}.'_persistent_search.db';
     ##
     &Apache::lonhtmlcommon::clear_breadcrumbs();
+
+    my @allowed_searches = ('portfolio');
+    if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) {
+        push(@allowed_searches,'res');
+    } 
     if (exists($env{'request.course.id'}) && $env{'request.course.id'} ne '') {
-        &Apache::lonhtmlcommon::add_breadcrumb
-             ({href=>'/adm/searchcat?'.
-                   'catalogmode='.$env{'form.catalogmode'}.
-                   '&launch='.$env{'form.launch'}.
-                   '&mode='.$env{'form.mode'},
-              text=>"Course and Catalog Search",
-              target=>'_top',
-              bug=>'Searching',});
-    } else {
-        &Apache::lonhtmlcommon::add_breadcrumb
-             ({href=>'/adm/searchcat?'.
-                   'catalogmode='.$env{'form.catalogmode'}.
-                   '&launch='.$env{'form.launch'}.
-                   '&mode='.$env{'form.mode'},
-              text=>"Catalog Search",
+        push(@allowed_searches,'course');
+    }
+    my $crumb_text = 'Portfolio Search';
+    if (@allowed_searches == 3) {
+        $crumb_text = 'Course, Portfolio and Catalog Search';
+    } elsif (@allowed_searches ==2) {
+        if (grep(/^res$/,@allowed_searches)) {
+            $crumb_text = 'Portfolio and Catalog Search'; 
+        } elsif (grep(/^course$/,@allowed_searches)) {
+            $crumb_text = 'Portfolio and Course Search';
+        }
+    }
+    &Apache::lonhtmlcommon::add_breadcrumb
+       ({href=>'/adm/searchcat?'.
+               'catalogmode='.$env{'form.catalogmode'}.
+               '&launch='.$env{'form.launch'}.
+               '&mode='.$env{'form.mode'},
+              text=>"$crumb_text",
               target=>'_top',
               bug=>'Searching',});
-    }
     #
     if ($env{'form.phase'} !~ m/(basic|adv|course)_search/) {
         if (! &get_persistent_form_data($persistent_db_file)) {
@@ -213,7 +221,7 @@ sub handler {
     untie %groupsearch_db if (tied(%groupsearch_db));
     if (($env{'form.cleargroupsort'} eq '1') || 
         (($env{'form.launch'} eq '1') && 
-         ($env{'form.catalogmode'} eq 'groupsearch'))) {
+         ($env{'form.catalogmode'} eq 'import'))) {
 	if (tie(%groupsearch_db,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
 	    &start_fresh_session();
 	    untie %groupsearch_db;
@@ -247,6 +255,9 @@ sub handler {
     if (exists($env{'form.mode'})) {
         $hidden_fields .= &hidden_field('mode');
     }
+    if (exists($env{'form.area'})) {
+        $hidden_fields .= &hidden_field('area');
+    }
     ##
     ## Configure dynamic components of interface
     ##
@@ -258,7 +269,7 @@ sub handler {
             $closebutton .="onClick='self.close()'";
         }
         $closebutton .=">\n";
-    } elsif ($env{'form.catalogmode'} eq 'groupsearch') {
+    } elsif ($env{'form.catalogmode'} eq 'import') {
         $closebutton="<input type='button' name='close' value='CLOSE' ";
         if ($env{'form.phase'} =~ /(results|run_search)/) {
 	    $closebutton .="onClick='parent.close()'";
@@ -292,12 +303,16 @@ END
     }
     #
     if ($env{'form.searchmode'} eq 'advanced') {
+        my $srchtype = 'Catalog';
+        if ($env{'form.area'} eq 'portfolio') {
+            $srchtype = 'Portfolio';
+        }
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/searchcat?phase=disp_adv&'.
                   'catalogmode='.$env{'form.catalogmode'}.
                   '&launch='.$env{'form.launch'}.
                   '&mode='.$env{'form.mode'},
-                  text=>"Advanced Search",
+                  text=>"Advanced $srchtype Search",
                   bug=>'Searching',});
     } elsif ($env{'form.searchmode'} eq 'course search') {
         &Apache::lonhtmlcommon::add_breadcrumb
@@ -316,7 +331,8 @@ END
     } elsif ($env{'form.phase'} eq 'disp_adv') {
         &print_advanced_search_form($r,$closebutton,$hidden_fields);
     } elsif ($env{'form.phase'} eq 'results') {
-        &display_results($r,$importbutton,$closebutton,$diropendb);
+        &display_results($r,$importbutton,$closebutton,$diropendb,
+                         $env{'form.area'});
     } elsif ($env{'form.phase'} =~ /^(sort|run_search)$/) {
         my ($query,$customquery,$customshow,$libraries,$pretty_string) =
             &get_persistent_data($persistent_db_file,
@@ -326,7 +342,7 @@ END
             &print_sort_form($r,$pretty_string);
         } elsif ($env{'form.phase'} eq 'run_search') {
             &run_search($r,$query,$customquery,$customshow,
-                        $libraries,$pretty_string);
+                        $libraries,$pretty_string,$env{'form.area'});
         }
     } elsif ($env{'form.phase'} eq 'course_search') {
         &course_search($r);
@@ -356,7 +372,7 @@ END
                          $persistent_db_file);
         #
         # Set up table
-        if (! defined(&create_results_table())) {
+        if (! defined(&create_results_table($env{'form.area'}))) {
 	    my $errorstring=&Apache::lonmysql::get_error();
             &Apache::lonnet::logthis('lonsearchcat.pm: Unable to create '.
                                      'needed table.  lonmysql error:'.
@@ -505,7 +521,7 @@ sub course_search {
             my $applies = 0;
             my $symb = $resource->symb();
             my $ressymb = $symb;
-            if ($symb =~ m#(___adm/\w+/\w+)/(\d+)/bulletinboard$#) {
+            if ($symb =~ m#(___adm/$LONCAPA::domain_re/$LONCAPA::username_re)/(\d+)/bulletinboard$#) {
                 $ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard';
                 unless ($ressymb =~ m#bulletin___\d+___adm/wrapper#) {
                     $ressymb=~s#(bulletin___\d+___)#$1adm/wrapper/#;
@@ -551,7 +567,7 @@ sub course_search {
                 } else {
                     $url .= '?symb=';
                 }
-                $url .= &Apache::lonnet::escape($resource->symb());
+                $url .= &escape($resource->symb());
                 my $title = $resource->compTitle();
                 $r->print('<br /><a href="'.$url.'" target="cat">'.
                      ($title?$title:$url).'</a>&nbsp;&nbsp;-&nbsp;'.$disctype.'<br />');
@@ -587,7 +603,7 @@ sub checkonthis {
     my ($extension)=($url=~/\.(\w+)$/);
     if (&Apache::loncommon::fileembstyle($extension) eq 'ssi' &&
 	($url) && ($fulltext)) {
-	$result.=&Apache::lonnet::ssi_body($url.'?symb='.&Apache::lonnet::escape($symb));
+	$result.=&Apache::lonnet::ssi_body($url.'?symb='.&escape($symb));
     }
     $result=~s/\s+/ /gs;
     my $applies = 0;
@@ -603,7 +619,7 @@ sub checkonthis {
 	   $href=&Apache::lonenc::encrypted($href)
 	       .'?symb='.&Apache::lonenc::encrypted($symb);
        } else {
-	   $href.='?symb='.&Apache::lonnet::escape($symb);
+	   $href.='?symb='.&escape($symb);
        }
        $r->print('<a href="'.$href.'" target="cat">'.($title?$title:$url).
 		 '</a><br />');
@@ -658,76 +674,18 @@ Prints the form for the basic search.  S
 ######################################################################
 sub print_basic_search_form {
     my ($r,$closebutton,$hidden_fields) = @_;
-    my $result = ($env{'form.catalogmode'} ne 'groupsearch');
+    my $result = ($env{'form.catalogmode'} ne 'import');
     my $bread_crumb =
-        &Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Search_Basic',
-                                   undef,undef,
-                                   $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Basic',
+					    $env{'form.catalogmode'} ne 'import');
     my $scrout = &Apache::loncommon::start_page('Search').$bread_crumb;
+# Search form for resource space 
     if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) {
-        # Define interface components
-        my $userelatedwords= '<label>'.
-            &mt('[_1] use related words',
-                &Apache::lonhtmlcommon::checkbox
-                ('related',$env{'form.related'},'related')).'</label>';
-        my $onlysearchdomain='<label>'.
-            &mt('[_1] only search domain [_2]',
-                &Apache::lonhtmlcommon::checkbox('domains',
-                                                 $env{'form.domains'},
-                                                 $r->dir_config('lonDefDomain')
-                                                 ),
-                $r->dir_config('lonDefDomain')
-                ).'</label>';
-        my $inclext= '<label>'.
-            &mt('[_1] include external resources',
-                &Apache::lonhtmlcommon::checkbox
-                ('inclext',$env{'form.inclext'})).'</label>';
-        my $adv_search_link = 
-            '<a href="/adm/searchcat?'.
-            'phase=disp_adv&'.
-            'catalogmode='.$env{'form.catalogmode'}.
-            '&launch='.$env{'form.launch'}.
-            '&mode='.$env{'form.mode'}.
-            '">'.&mt('Advanced Search').'</a>';
-        #
-        $scrout.='<form name="loncapa_search" method="post" '.
-            'action="/adm/searchcat">'.
-            '<input type="hidden" name="phase" value="basic_search" />'.
-            $hidden_fields;
-        #
-        $scrout .= '<center>'.$/;
-        if ($env{'request.course.id'}) {
-            $scrout .= '<h1>'.&mt('LON-CAPA Catalog Search').'</h1>';
-        } else {
-            # No need to tell them they are searching
-            $scrout.= ('<br />'x2);
-        }
-        $scrout.='<table>'.
-            '<tr><td align="center" valign="top">'.
-            &Apache::lonhtmlcommon::textbox
-            ('basicexp',
-             &HTML::Entities::encode($env{'form.basicexp'},'<>&"'),50
-             ).
-             '<br />'.
-            '<font size="-1">'.&searchhelp().'</font>'.'</td>'.
-            '<td><font size="-1">'.
-            '<nobr>'.('&nbsp;'x3).$adv_search_link.'</nobr>'.'<br />'.
-            '<nobr>'.('&nbsp;'x1).$userelatedwords.'</nobr>'.'<br />'.
-            '<nobr>'.('&nbsp;'x1).$onlysearchdomain.'</nobr>'.'<br />'.
-            '<nobr>'.('&nbsp;'x1).$inclext.'</nobr>'.'<br />'.
-             '</font></td>'.
-            '</tr>'.$/;
-        #
-        $scrout .= '<tr><td align="center" colspan="2">'.
-            '<font size="-1">'.
-            '<input type="submit" name="basicsubmit" '.
-            'value="'.&mt('Search').'" />'.
-            ('&nbsp;'x2).$closebutton.('&nbsp;'x2).
-            &viewoptions().
-            '</font>'.
-            '</td></tr>'.$/;
-        $scrout .= '</table>'.$/.'</center>'.'</form>';
+        $scrout .= &setup_basic_search($r,'res',$hidden_fields,$closebutton);
+        $scrout .= '<hr /><br />';
     }
+# Search form for accessible portfolio files
+    $scrout.= &setup_basic_search($r,'portfolio',$hidden_fields,$closebutton);
     if ($env{'request.course.id'}) {
 	my %lt=&Apache::lonlocal::texthash('srch' => 'Search',
                                            'header' => 'Course Search',
@@ -778,6 +736,75 @@ ENDENDCOURSE
     $r->print($scrout);
     return;
 }
+
+sub setup_basic_search {
+    my ($r,$area,$hidden_fields,$closebutton) = @_;
+    # Define interface components
+    my %lt = &Apache::lonlocal::texthash (
+                              res => 'LON-CAPA Catalog Search',
+                              portfolio => 'Portfolio Search',
+    );
+    my ($userelatedwords,$onlysearchdomain,$inclext,$adv_search_link,$scrout);
+    $userelatedwords = '<label>'.&mt('[_1] use related words',
+      &Apache::lonhtmlcommon::checkbox('related',$env{'form.related'},'related')).
+                       '</label>';
+    $onlysearchdomain = '<label>'.&mt('[_1] only search domain [_2]',
+      &Apache::lonhtmlcommon::checkbox('domains',$env{'form.domains'},
+                                       $r->dir_config('lonDefDomain'))).
+                        '</label>';
+    if ($area eq 'res') {
+        $inclext= '<label>'.&mt('[_1] include external resources',
+             &Apache::lonhtmlcommon::checkbox('inclext',$env{'form.inclext'})).
+                  '</label>';
+    }
+    $adv_search_link = '<a href="/adm/searchcat?'.
+                       'phase=disp_adv&'.
+                       'catalogmode='.$env{'form.catalogmode'}.
+                       '&launch='.$env{'form.launch'}.
+                       '&mode='.$env{'form.mode'}.
+                       '&area='.$area.
+                       '">'.&mt('Advanced Search').'</a>';
+    #
+    $scrout.='<form name="loncapa_search" method="post" '.
+             'action="/adm/searchcat">'.
+             '<input type="hidden" name="phase" value="basic_search" />'.
+             $hidden_fields;
+             if (!exists($env{'form.area'})) {
+                 $scrout .= '<input type="hidden" name="area" value="'.$area.'" />';
+             }
+    #
+    $scrout .= '<center>'.$/;
+#    if ($env{'request.course.id'}) {
+        $scrout .= '<h1>'.$lt{$area}.'</h1>';
+#    } else {
+        # No need to tell them they are searching
+#        $scrout.= ('<br />'x2);
+#    }
+    $scrout.='<table>'.
+             '<tr><td align="center" valign="top">'.
+             &Apache::lonhtmlcommon::textbox('basicexp',
+                                             $env{'form.basicexp'},50).
+             '<br />'.
+            '<font size="-1">'.&searchhelp().'</font>'.'</td>'.
+            '<td><font size="-1">'.
+            '<nobr>'.('&nbsp;'x3).$adv_search_link.'</nobr>'.'<br />'.
+            '<nobr>'.('&nbsp;'x1).$userelatedwords.'</nobr>'.'<br />'.
+            '<nobr>'.('&nbsp;'x1).$onlysearchdomain.'</nobr>'.'<br />'.
+            '<nobr>'.('&nbsp;'x1).$inclext.'</nobr>'.'<br />'.
+             '</font></td>'.
+            '</tr>'.$/;
+    #
+    $scrout .= '<tr><td align="center" colspan="2">'.
+               '<font size="-1">'.
+               '<input type="submit" name="basicsubmit" '.
+               'value="'.&mt('Search').'" />'.
+               ('&nbsp;'x2).$closebutton.('&nbsp;'x2). &viewoptions().
+               '</font>'.
+               '</td></tr>'.$/;
+    $scrout .= '</table>'.$/.'</center>'.'</form>';
+    return $scrout;
+} 
+
 ######################################################################
 ######################################################################
 
@@ -794,10 +821,8 @@ Prints the advanced search form.
 sub print_advanced_search_form{
     my ($r,$closebutton,$hidden_fields) = @_;
     my $bread_crumb = 
-        &Apache::lonhtmlcommon::breadcrumbs(undef,'Searching',
-                                            'Search_Advanced',
-                                            undef,undef,
-                                  $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Advanced',
+					    $env{'form.catalogmode'} ne 'import');
     my %lt=&Apache::lonlocal::texthash('srch' => 'Search',
 				       'reset' => 'Reset',
 				       'help' => 'Help');
@@ -806,7 +831,11 @@ sub print_advanced_search_form{
 <input type="reset" name="reset" value='$lt{"reset"}' />
 $closebutton
 END
-    my $scrout= &Apache::loncommon::start_page('Advanced Catalog Search');
+    my $srchtype = 'Catalog';
+    if ($env{'form.area'} eq 'portfolio') {
+        $srchtype = 'Portfolio';
+    }
+    my $scrout= &Apache::loncommon::start_page("Advanced $srchtype Search");
     $scrout .= <<"ENDHEADER";
 $bread_crumb
 <form method="post" action="/adm/searchcat" name="advsearch">
@@ -817,7 +846,7 @@ ENDHEADER
         '<input type="hidden" name="phase" value="adv_search" />';
     my %fields=&Apache::lonmeta::fieldnames();
     #
-    $scrout .= '<h3>'.&mt('Standard Metadata').'</h3>';
+    $scrout .= '<h3>'.&mt('Standard [_1] Metadata',$srchtype).'</h3>';
     $scrout .= "<table>\n";
     $scrout .= '<tr><td>&nbsp;</td><td colspan="2"><font size="-1">'.
         ('&nbsp;'x2).&searchhelp()."</font></td></tr>\n";
@@ -874,20 +903,26 @@ ENDHEADER
 	&titlefield(&mt('Domains')).'</td><td colspan="2">'. 
 	    &Apache::loncommon::domain_select('domains',
 						   $env{'form.domains'},1).
-						   '<br /><label>'.
-            &mt('[_1] include external resources',
-                &Apache::lonhtmlcommon::checkbox
-                ('inclext',$env{'form.inclext'})).'</label></td></tr>'.$/;
+						   '<br /><label>';
+            if ($env{'form.area'} ne 'portfolio') {
+                $scrout .= &mt('[_1] include external resources',
+                           &Apache::lonhtmlcommon::checkbox
+                           ('inclext',$env{'form.inclext'})).'</label>'
+            }
+     $scrout .= '</td></tr>'.$/;
     #
     # Misc metadata
-    $scrout.='<tr><td align="right" valign="top">'.
-	&titlefield(&mt('Copyright/Distribution')).'</td><td colspan="2">'.
-        &Apache::lonmeta::selectbox('copyright',
-                                    $env{'form.copyright'},
-                                    \&Apache::loncommon::copyrightdescription,
-                                    ( undef,
-                                      &Apache::loncommon::copyrightids)
-                                    ).'</td></tr>'.$/;
+    if ($env{'form.area'} ne 'portfolio') {
+        $scrout.='<tr><td align="right" valign="top">'.
+	         &titlefield(&mt('Copyright/Distribution')).
+                 '</td><td colspan="2">'.
+                 &Apache::lonmeta::selectbox('copyright',
+                                             $env{'form.copyright'},
+                                \&Apache::loncommon::copyrightdescription,
+                                       ( undef,
+                                        &Apache::loncommon::copyrightids)
+                                ).'</td></tr>'.$/;
+    }
     $scrout.='<tr><td align="right" valign="top">'.
 	&titlefield(&mt('Language')).'</td><td colspan="2">'.
         &Apache::lonmeta::selectbox('language',
@@ -895,62 +930,94 @@ ENDHEADER
                                     \&Apache::loncommon::languagedescription,
                                     ('any',&Apache::loncommon::languageids)
                                     ).'</td></tr>';
-    $scrout .= "</table>\n";    
-    #
-    # Dynamic metadata
-    $scrout .= '<h3>'.&mt('Problem Statistics').'</h3>';
-    $scrout .= "<table>\n";
-    $scrout .= '<tr><td>&nbsp;</td><td align="center">'.&mt('Minimum').'</td>'.
-        '<td align="center">'.&mt('Maximum').'</td></tr>'."\n";
-    foreach my $statistic 
-        ({ name=>'count',
-           description=>'Network-wide number of accesses (hits)',},
-         { name=>'stdno',
-           description=>
-               'Total number of students who have worked on this problem',},
-         { name => 'avetries',
-           description=>'Average number of tries till solved',},
-         { name => 'difficulty',
-           description=>'Degree of difficulty',},
-         { name => 'disc',
-           description=>'Degree of discrimination'}) {
-        $scrout .= '<tr><td align="right">'.
-            &titlefield(&mt($statistic->{'description'})).
-            '</td><td align="center">'.
-            '<input type="text" name="'.$statistic->{'name'}.'_min" '.
-            'value="" size="6" />'.
-            '</td><td align="center">'.
-            '<input type="text" name="'.$statistic->{'name'}.'_max" '.
-            'value="" size="6" />'.
-            '</td></tr>'.$/;
-    }
     $scrout .= "</table>\n";
-    $scrout .= '<h3>'.&mt('Evaluation Data').'</h3>';
-    $scrout .= "<table>\n";
-    $scrout .= '<tr><td>&nbsp;</td><td align="center">'.&mt('Minimum').'</td>'.
-        '<td align="center">'.&mt('Maximum').'</td></tr>'."\n";
-    foreach my $evaluation
-        ( { name => 'clear',
-            description => 'Material presented in clear way'},
-          { name =>'depth',
-            description => 'Material covered with sufficient depth'},
-          { name => 'helpful',
-            description => 'Material is helpful'},
-          { name => 'correct',
-            description => 'Material appears to be correct'},
-          { name => 'technical',
-            description => 'Resource is technically correct'}){
-        $scrout .= '<tr><td align="right">'.
-            &titlefield(&mt($evaluation->{'description'})).
-            '</td><td align="center">'.
-            '<input type="text" name="'.$evaluation->{'name'}.'_min" '.
-            'value="" size="6" />'.
-            '</td><td align="center">'.
-            '<input type="text" name="'.$evaluation->{'name'}.'_max" '.
-            'value="" size="6" />'.
-            '</td></tr>'.$/;
+
+    
+    if ($env{'form.area'} eq 'portfolio') {
+        # Added fields
+        $scrout .= '<h3>'.&mt('Custom Metadata fields').'</h3>';
+        $scrout .= "<table>\n";
+        $scrout .= '<tr><td>&nbsp;</td><td align="center">'.
+                   &mt('Field Name').'</td>'.'<td align="center">'.
+                   &mt('Field Value(s)').'</td></tr>'.
+                   '<tr><td>'.&mt('1: ').
+                   '</td><td align="center">'.
+                   '<input type="text" name="addedfield_0" size="10" /></td>'.
+                   '<td align="center"><input type="text" '.
+                   'name="addedvalues_0" size="15" /></td></tr>';
+        for (my $j=1; $j<=$env{'form.numaddedfields'}; $j++) {
+            my $num = $j+1;
+            $scrout .= '<tr><td>'.&mt('Custom metadata [_1]: ',$num).
+                       '</td><td align="center">'.
+                       '<input type="text" name="addedfield_'.$j.
+                       '" size="10" /></td>'.
+                       '<td align="center"><input type="text" '.
+                       'name="addedvalues_'.$j.'" size="15" /></td></tr>';
+        }
+        my $numadded = 1 + $env{'form.numaddedfields'};
+        $scrout .= '<tr><td colspan="3">&nbsp;</td></tr>'.
+                   '<tr><td align="left" colspan="3">'.
+                   '<input type="button" name="newfield" '.
+                   'value="Additional custom field/value" '.
+                   'onclick="javascript:additional_metadata()" />'.
+                   '<input type="hidden" name="numaddedfelds" value="'.
+                   $numadded.'" /></td></tr></table>';
+    } else {
+        #
+        # Dynamic metadata
+        $scrout .= '<h3>'.&mt('Problem Statistics').'</h3>';
+        $scrout .= "<table>\n";
+        $scrout .= '<tr><td>&nbsp;</td><td align="center">'.
+                   &mt('Minimum').'</td>'.'<td align="center">'.
+                   &mt('Maximum').'</td></tr>'."\n";
+        foreach my $statistic 
+            ({ name=>'count',
+               description=>'Network-wide number of accesses (hits)',},
+             { name=>'stdno',
+               description=>
+               'Total number of students who have worked on this problem',},
+             { name => 'avetries',
+               description=>'Average number of tries till solved',},
+             { name => 'difficulty',
+               description=>'Degree of difficulty',},
+             { name => 'disc',
+               description=>'Degree of discrimination'}) {
+              $scrout .= '<tr><td align="right">'.
+                         &titlefield(&mt($statistic->{'description'})).
+                         '</td><td align="center">'.
+                         '<input type="text" name="'.$statistic->{'name'}.
+                         '_min" value="" size="6" /></td><td align="center">'.
+                         '<input type="text" name="'.$statistic->{'name'}.
+                         '_max" value="" size="6" /></td></tr>'.$/;
+        }
+        $scrout .= "</table>\n";
+        $scrout .= '<h3>'.&mt('Evaluation Data').'</h3>';
+        $scrout .= "<table>\n";
+        $scrout .= '<tr><td>&nbsp;</td><td align="center">'.
+                   &mt('Minimum').'</td>'.'<td align="center">'.
+                   &mt('Maximum').'</td></tr>'."\n";
+        foreach my $evaluation
+            ( { name => 'clear',
+                description => 'Material presented in clear way'},
+              { name =>'depth',
+                description => 'Material covered with sufficient depth'},
+              { name => 'helpful',
+                description => 'Material is helpful'},
+              { name => 'correct',
+                description => 'Material appears to be correct'},
+              { name => 'technical',
+                description => 'Resource is technically correct'}){
+            $scrout .= '<tr><td align="right">'.
+                       &titlefield(&mt($evaluation->{'description'})).
+                       '</td><td align="center">'.
+                       '<input type="text" name="'.
+                       $evaluation->{'name'}.'_min" value="" size="6" />'.
+                       '</td><td align="center"><input type="text" name="'.
+                       $evaluation->{'name'}.'_max" value="" size="6" />'.
+                       '</td></tr>'.$/;
+        }
+        $scrout .= "</table>\n";
     }
-    $scrout .= "</table>\n";
     #
     # Creation/Modification date limits
     $scrout .= '<h3>'.&mt('Creation and Modification dates').'</h3>';
@@ -1152,7 +1219,7 @@ sub get_persistent_form_data {
         # End kludge (hopefully)
         next if (exists($env{$name}));
         my @values = map { 
-            &Apache::lonnet::unescape($_);
+            &unescape($_);
         } split(',',$persistent_db{$name});
         next if (@values <1);
         if ($arrays_allowed{$name}) {
@@ -1198,7 +1265,7 @@ sub get_persistent_data {
             next;
         }
         my @values = map { 
-            &Apache::lonnet::unescape($_);
+            &unescape($_);
         } split(',',$persistent_db{$name});
         if (@values <= 1) {
             push @Values,$values[0];
@@ -1235,7 +1302,7 @@ sub make_persistent {
     foreach my $name (keys(%save)) {
         my @values = (ref($save{$name}) ? @{$save{$name}} : ($save{$name}));
         # We handle array references, but not recursively.
-        my $store = join(',', map { &Apache::lonnet::escape($_); } @values );
+        my $store = join(',', map { &escape($_); } @values );
         $persistent_db{$name} = $store;
     }
     untie(%persistent_db);
@@ -1318,7 +1385,7 @@ sub parse_advanced_search {
     foreach ('mode','form','element') {
 	# is this required?  Hmmm.
 	next if (! exists($env{'form.'.$_}));
-	$env{'form.'.$_}=&Apache::lonnet::unescape($env{'form.'.$_});
+	$env{'form.'.$_}=&unescape($env{'form.'.$_});
 	$env{'form.'.$_}=~s/[^\w\/\s\(\)\=\-\"\']//g;
     }
     # Preprocess the category form element.
@@ -1432,29 +1499,40 @@ sub parse_advanced_search {
             &Apache::loncommon::copyrightdescription($env{'form.copyright'}).
                 "<br />\n";
     }
-    #
-    # Statistics
-    foreach my $field (@StatsFields,@EvalFields) {
-        my ($min,$max);
-        if (exists($env{'form.'.$field.'_min'}) && 
-            $env{'form.'.$field.'_min'} ne '') {
-            $min = $env{'form.'.$field.'_min'};
-        }
-        if (exists($env{'form.'.$field.'_max'}) &&
-            $env{'form.'.$field.'_max'} ne '') {
-            $max = $env{'form.'.$field.'_max'};
-        }
-        next if (! defined($max) && ! defined($min));
-        if (defined($min) && defined($max)) {
-            ($min,$max) = sort {$a <=>$b} ($min,$max);
-        }
-        if (defined($min) && $min =~ /^(\d+\.\d+|\d+|\.\d+)$/) {
-            push(@queries,'('.$field.'>'.$min.')');
-            $pretty_search_string.=$font.$field.'</font>&gt;'.$min.'<br />';
-        }
-        if (defined($max) && $max =~ /^(\d+\.\d+|\d+|\.\d+)$/) {
-            push(@queries,'('.$field.'<'.$max.')');
-            $pretty_search_string.=$font.$field.'</font>&lt;'.$max.'<br />';
+    if ($env{'form.area'} eq 'portfolio') {
+        #
+        # Added metadata fields
+        for (my $i=0; $i<$env{'form.numaddedfields'} ; $i++) {
+            if (($env{'form.addedfield_'.$i} ne '') && 
+                ($env{'form.addedvalue_'.$i} ne '')) {
+                my $stuff = 1; #FIXME 
+            }
+        }
+    } else {
+        #
+        # Statistics
+        foreach my $field (@StatsFields,@EvalFields) {
+            my ($min,$max);
+            if (exists($env{'form.'.$field.'_min'}) && 
+                $env{'form.'.$field.'_min'} ne '') {
+                $min = $env{'form.'.$field.'_min'};
+            }
+            if (exists($env{'form.'.$field.'_max'}) &&
+                $env{'form.'.$field.'_max'} ne '') {
+                $max = $env{'form.'.$field.'_max'};
+            }
+            next if (! defined($max) && ! defined($min));
+            if (defined($min) && defined($max)) {
+                ($min,$max) = sort {$a <=>$b} ($min,$max);
+            }
+            if (defined($min) && $min =~ /^(\d+\.\d+|\d+|\.\d+)$/) {
+                push(@queries,'('.$field.'>'.$min.')');
+                $pretty_search_string.=$font.$field.'</font>&gt;'.$min.'<br />';
+            }
+            if (defined($max) && $max =~ /^(\d+\.\d+|\d+|\.\d+)$/) {
+                push(@queries,'('.$field.'<'.$max.')');
+                $pretty_search_string.=$font.$field.'</font>&lt;'.$max.'<br />';
+            }
         }
     }
     #
@@ -1519,7 +1597,11 @@ sub parse_advanced_search {
     }
     #
     if (@queries) {
-	$query="SELECT * FROM metadata WHERE (".join(") AND (",@queries).')';
+        if ($env{'form.area'} eq 'portfolio') {
+            $query ="SELECT pm.*,pa.keynum,pa.scope FROM portfolio_metadata pm, portfolio_access pa  WHERE (pm.url = pa.url AND (pa.start < NOW() AND (pa.end IS NULL OR pa.end > NOW())) AND (".join(') AND (',@queries).'))';
+        } else {
+	    $query="SELECT * FROM metadata WHERE (".join(") AND (",@queries).')';
+        }
     } elsif ($customquery) {
         $query = '';
     }
@@ -1543,12 +1625,12 @@ sub parse_domain_restrictions {
         $domain_hash{$_}++;
     }
     if ($domain_hash{'any'}) {
-        $pretty_domains_string = "In all LON-CAPA domains.";
+        $pretty_domains_string = &mt("in all LON-CAPA domains.");
     } else {
         if (@allowed_domains > 1) {
-            $pretty_domains_string = "In LON-CAPA domains:";
+            $pretty_domains_string = &mt("in LON-CAPA domains:");
         } else {
-            $pretty_domains_string = "In LON-CAPA domain ";
+            $pretty_domains_string = &mt("in LON-CAPA domain ");
         }
         foreach (sort @allowed_domains) {
             $pretty_domains_string .= "<b>".$_."</b> ";
@@ -1586,7 +1668,7 @@ sub parse_basic_search {
     foreach ('mode','form','element') {
 	# is this required?  Hmmm.
 	next unless (exists($env{"form.$_"}));
-	$env{"form.$_"}=&Apache::lonnet::unescape($env{"form.$_"});
+	$env{"form.$_"}=&unescape($env{"form.$_"});
 	$env{"form.$_"}=~s/[^\w\/\s\(\)\=\-\"\']//g;
     }
     my ($libraries_to_query,$pretty_domains_string) = &parse_domain_restrictions();
@@ -1599,10 +1681,13 @@ sub parse_basic_search {
     }
     my $pretty_search_string=$search_string;
     my @Queries;
-    my $searchfield = 'concat_ws(" ",'.join(',',
-                                            ('title','author','subject',
-                                             'notes','abstract','keywords')
-                                            ).')';
+    my @fields = ('title','author','subject','notes','abstract','keywords');
+    my $searchfield;
+    if ($env{'form.area'} eq 'portfolio') {
+        $searchfield = 'concat_ws(" ",pm.'.join(',pm.',@fields).')';
+    } else {
+        $searchfield = 'concat_ws(" ",'.join(',',@fields).')';
+    }
     my ($error,$SQLQuery) = &process_phrase_input($search_string,
                                                     $env{'form.related'},
                                                     $searchfield);
@@ -1615,14 +1700,22 @@ sub parse_basic_search {
     #foreach my $q (@Queries) {
     #    &Apache::lonnet::logthis('    '.$q);
     #}
-    my $final_query = 'SELECT * FROM metadata WHERE '.join(" AND ",@Queries);
+    my $final_query;
+    if ($env{'form.area'} eq 'portfolio') {
+        $final_query = 'SELECT pm.*,pa.keynum,pa.scope FROM portfolio_metadata pm, portfolio_access pa  WHERE (pm.url = pa.url AND (pa.start < NOW() AND (pa.end IS NULL OR pa.end > NOW())) AND '.join(" AND ",@Queries).')';
+    } else {
+        $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 '') {
         $pretty_search_string .= ' '.$pretty_domains_string;
     }
     $pretty_search_string .= "<br />\n";
     $pretty_search_string =~ s:^<br /> and ::;
-    #&Apache::lonnet::logthis('simple search final query = '.$/.$final_query);
+    &Apache::lonnet::logthis('simple search final query = '.$/.$final_query);
     return ($final_query,$pretty_search_string,
             $libraries_to_query);
 }
@@ -2107,17 +2200,17 @@ sub print_sort_form {
 END
 
     my $start_page = &Apache::loncommon::start_page('Results',$js,
-						    {'only_body' => 1});
+						    {'no_title' => 1});
     my $breadcrumbs=
-        &Apache::lonhtmlcommon::breadcrumbs
-        (undef,'Searching','Searching',undef,undef,
-         $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
+					    $env{'form.catalogmode'} ne 'import');
 
     my $result = <<END;
 $start_page
 $breadcrumbs
-<form name="statusform" action="" method="POST">
-<input type="hidden" name="Queue" value="" />
+<form name="statusform" action="" method="post" target="_top">
+<input type="hidden" name="catalogmode" value="import" />
+<input type="hidden" name="acts" value="" />
 END
 
 #<h2>Sort Results</h2>
@@ -2136,7 +2229,7 @@ END
 <p>
 There are $total_results matches to your query. $revise
 </p><p>
-Search:$pretty_query_string
+Search: $pretty_query_string
 </p>
 </form>
 END
@@ -2176,7 +2269,7 @@ my @Fullindicies;
 Creates the table of search results by calling lonmysql.  Stores the
 table id in $env{'form.table'}
 
-Inputs: none.
+Inputs: search area - either res or portfolio 
 
 Returns: the identifier of the table on success, undef on error.
 
@@ -2185,8 +2278,9 @@ Returns: the identifier of the table on
 ######################################################################
 ######################################################################
 sub set_up_table_structure {
+    my ($tabletype) = @_;
     my ($datatypes,$fullindicies) = 
-        &LONCAPA::lonmetadata::describe_metadata_storage();
+        &LONCAPA::lonmetadata::describe_metadata_storage($tabletype);
     # Copy the table description before modifying it...
     @Datatypes = @{$datatypes};
     unshift(@Datatypes,{name => 'id',  
@@ -2199,7 +2293,12 @@ sub set_up_table_structure {
 }
 
 sub create_results_table {
-    &set_up_table_structure();
+    my ($area) = @_;
+    if ($area eq 'portfolio') {
+        &set_up_table_structure('portfolio_search');
+    } else {
+        &set_up_table_structure('metadata');
+    }
     my $table = &Apache::lonmysql::create_table
         ( { columns => \@Datatypes,
             FULLTEXT => [{'columns' => \@Fullindicies},],
@@ -2331,22 +2430,26 @@ results into MySQL.
 ######################################################################
 ######################################################################
 sub run_search {
-    my ($r,$query,$customquery,$customshow,$serverlist,$pretty_string) = @_;
-
+    my ($r,$query,$customquery,$customshow,$serverlist,
+        $pretty_string,$area) = @_;
+    my $tabletype = 'metadata';
+    if ($area eq 'portfolio') {
+        $tabletype = 'portfolio_search';
+    }
     my $connection = $r->connection;
     #
     # Print run_search header
     #
     my $start_page = &Apache::loncommon::start_page('Search Status',undef,
-						    {'only_body' => 1});
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs
-        (undef,'Searching','Searching',undef,undef,
-         $env{'form.catalogmode'} ne 'groupsearch');
+						    {'no_title' => 1});
+    my $breadcrumbs =
+	&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
+					    $env{'form.catalogmode'} ne 'import');
     $r->print(<<END);
 $start_page
 $breadcrumbs
 <form name="statusform" action="" method="post">
-<input type="hidden" name="Queue" value="" />
+<input type="hidden" name="acts" value="" />
 END
     # Remove leading and trailing <br />
     $pretty_string =~ s:^\s*<br />::i;
@@ -2407,6 +2510,7 @@ END
     ##
     ## Prepare for the big loop.
     my $hitcountsum;
+    my %matches;
     my $server; 
     my $status;
     my $revise = &revise_button();
@@ -2461,7 +2565,7 @@ END
                 delete ($Server_status{$server});
                 next;
             }
-            $status=~s|/||g; 
+            $status=~s|/||g;
        	    my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$status;
             if (-e $datafile && ! -e "$datafile.end") {
                 &update_status($r,&mt('Receiving results from [_1]',$server));
@@ -2490,7 +2594,7 @@ END
                     next if (! $result);
                     #
                     # Parse the result.
-                    my %Fields = &parse_raw_result($result,$server);
+                    my %Fields = &parse_raw_result($result,$server,$tabletype);
                     $Fields{'hostname'} = $server;
                     #
                     # Skip if external and we did not want that
@@ -2498,6 +2602,12 @@ END
                     # Skip based on copyright
                     next if (! &copyright_check(\%Fields));
 
+                    if ($area eq 'portfolio') {
+                        next if (defined($matches{$Fields{'url'}}));
+                        # Skip if inaccessible
+                        next if (!&Apache::lonnet::portfolio_access($Fields{'url'}));
+                        $matches{$Fields{'url'}} = 1; 
+                    }
                     #
                     # Store the result in the mysql database
                     my $result = &Apache::lonmysql::store_row($table,\%Fields);
@@ -2531,7 +2641,7 @@ END
     # results to get, so let the client know the top frame needs to be
     # loaded from /adm/searchcat
     $r->print(&Apache::loncommon::end_page());
-#    if ($env{'form.catalogmode'} ne 'groupsearch') {
+#    if ($env{'form.catalogmode'} ne 'import') {
         $r->print("<script>".
                       "window.location='/adm/searchcat?".
                       "phase=sort&".
@@ -2584,7 +2694,7 @@ Prints the results out for selection and
 ######################################################################
 ######################################################################
 sub display_results {
-    my ($r,$importbutton,$closebutton,$diropendb) = @_;
+    my ($r,$importbutton,$closebutton,$diropendb,$area) = @_;
     my $connection = $r->connection;
     $r->print(&search_results_header($importbutton,$closebutton));
     ##
@@ -2598,15 +2708,15 @@ sub display_results {
     }
     ##
     ## $checkbox_num is a count of the number of checkboxes output on the 
-    ## page this is used only during catalogmode=groupsearch.
+    ## page this is used only during catalogmode=import.
     my $checkbox_num = 0;
     ##
     ## Get the catalog controls setup
     ##
     my $action = "/adm/searchcat?phase=results";
     ##
-    ## Deal with groupsearch by opening the groupsearch db file.
-    if ($env{'form.catalogmode'} eq 'groupsearch') {
+    ## Deal with import by opening the import db file.
+    if ($env{'form.catalogmode'} eq 'import') {
         if (! tie(%groupsearch_db,'GDBM_File',$diropendb,
                   &GDBM_WRCREAT(),0640)) {
             $r->print('Unable to store import results.</form>'.
@@ -2654,7 +2764,8 @@ sub display_results {
     $r->print(&hidden_field('table').
               &hidden_field('phase').
               &hidden_field('persistent_db_id').
-              &hidden_field('start')
+              &hidden_field('start').
+              &hidden_field('area')
               );
     #
     # Build sorting selector
@@ -2675,6 +2786,16 @@ sub display_results {
          {key =>'lowestgradelevel'},
          {key =>'highestgradelevel'},
          {key =>'standards',desc=>'Standards'},
+        );
+    if ($area eq 'portfolio') {
+        push(@fields,
+       (
+         {key => 'scope'},
+         {key => 'keynum'},
+       ));
+    } else {
+        push(@fields,
+       (
          {key =>'count',desc=>'Number of accesses'},
          {key =>'stdno',desc=>'Students Attempting'},
          {key =>'avetries',desc=>'Average Number of Tries'},
@@ -2685,7 +2806,8 @@ sub display_results {
          {key =>'correct',desc=>'Evaluation: Material is Correct'},
          {key =>'helpful',desc=>'Evaluation: Material is Helpful'},
          {key =>'depth',desc=>'Evaluation: Material has Depth'},
-         );
+       ));
+    }
     my %fieldnames = &Apache::lonmeta::fieldnames();
     my @field_order;
     foreach my $field_data (@fields) {
@@ -2702,7 +2824,13 @@ sub display_results {
     my %sort_fields = map {$_->{'key'},$_->{'desc'}} @fields;
     $sort_fields{'select_form_order'} = \@field_order;
     $env{'form.sortorder'} = 'desc' if (! exists($env{'form.sortorder'}));
-    $env{'form.sortfield'} = 'count' if (! exists($env{'form.sortfield'}));
+    if (! exists($env{'form.sortfield'})) {
+        if ($area eq 'portfolio') {
+            $env{'form.sortfield'} = 'owner';
+        } else {
+            $env{'form.sortfield'} = 'count';
+        }
+    }
     if (! exists($env{'form.sortorder'})) {
 	if ($env{'form.sortfield'}=~/^(count|stdno|disc|clear|technical|correct|helpful)$/) {
 	    $env{'form.sortorder'}='desc';
@@ -2766,12 +2894,16 @@ sub display_results {
     my @Results = &Apache::lonmysql::get_rows($table,$sort_command);
     ##
     ## Loop through the results and output them.
+    my $tabletype = 'metadata';
+    if ($area eq 'portfolio') {
+        $tabletype = 'portfolio_search';
+    }
     foreach my $row (@Results) {
         if ($connection->aborted()) {
             &cleanup();
             return;
         }
-        my %Fields = %{&parse_row(@$row)};
+        my %Fields = %{&parse_row($tabletype,@$row)};
         my $output="<p>\n";
         if (! defined($Fields{'title'}) || $Fields{'title'} eq '') {
             $Fields{'title'} = 'Untitled';
@@ -2829,7 +2961,7 @@ onClick="javascript:select_data('$title'
 </font>
 END
         }
-    } elsif ($env{'form.catalogmode'} eq 'groupsearch') {
+    } elsif ($env{'form.catalogmode'} eq 'import') {
         $groupsearch_db{"pre_${fnum}_link"}=$url;
         $groupsearch_db{"pre_${fnum}_title"}=$title;
         $output.=<<END;
@@ -2855,13 +2987,13 @@ Parse a row returned from the database.
 ######################################################################
 ######################################################################
 sub parse_row {
-    my @Row = @_;
+    my ($tabletype,@Row) = @_;
     my %Fields;
     if (! scalar(@Datatypes)) {
-        &set_up_table_structure();
+        &set_up_table_structure($tabletype);
     }
     for (my $i=0;$i<=$#Row;$i++) {
-        $Fields{$Datatypes[$i]->{'name'}}=&Apache::lonnet::unescape($Row[$i]);
+        $Fields{$Datatypes[$i]->{'name'}}=&unescape($Row[$i]);
     }
     $Fields{'language'} = 
         &Apache::loncommon::languagedescription($Fields{'language'});
@@ -2894,12 +3026,13 @@ The 'title' field is set to "Untitled" i
 ###########################################################
 ###########################################################
 sub parse_raw_result {
-    my ($result,$hostname) = @_;
+    my ($result,$hostname,$tabletype) = @_;
     # conclude from self to others regarding fields
     my %Fields=&LONCAPA::lonmetadata::metadata_col_to_hash
-        (map {
-            &Apache::lonnet::unescape($_);
-        } (split(/\,/,$result)) );
+        ($tabletype,
+         map {
+            &unescape($_);
+         } (split(/\,/,$result)) );
     return %Fields;
 }
 
@@ -2936,7 +3069,7 @@ sub handle_custom_fields {
         if ($result=~/^(custom\=.*)$/) { # grab all custom metadata
             my $tmp=$result;
             $tmp=~s/^custom\=//;
-            my ($k,$v)=map {&Apache::lonnet::unescape($_);
+            my ($k,$v)=map {&unescape($_);
                         } split(/\,/,$tmp);
             $customhash{$k}=$v;
         }
@@ -2968,7 +3101,7 @@ The following environment variables are
 
 =item 'form.catalogmode' 
 
-Checked for 'interactive' and 'groupsearch'.
+Checked for 'interactive' and 'import'.
 
 =item 'form.mode'
 
@@ -3060,28 +3193,28 @@ function changeURL(val) {
 SCRIPT
         }
     }
-    $js.=<<SCRIPT if $env{'form.catalogmode'} eq 'groupsearch';
+    $js.=<<SCRIPT if $env{'form.catalogmode'} eq 'import';
 <script type="text/javascript">
     function queue(checkbox_num,val) {
         if (document.forms.results.returnvalues.length != "undefined" &&
             typeof(document.forms.results.returnvalues.length) == "number") {
             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 {
-                parent.statusframe.document.forms.statusform.elements.Queue.value +='0a'+val+'b';
+                parent.statusframe.document.forms.statusform.elements.acts.value +='0a'+val+'b';
             }
         } else {
             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 {
-                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() {
 	parent.window.location=
-    "/adm/groupsort?mode=$env{'form.mode'}&catalogmode=groupsearch&acts="+
-	    parent.statusframe.document.forms.statusform.elements.Queue.value;
+    "/adm/groupsort?mode=$env{'form.mode'}&catalogmode=import&acts="+
+	    parent.statusframe.document.forms.statusform.elements.acts.value;
     }
 </script>
 SCRIPT
@@ -3090,25 +3223,12 @@ SCRIPT
 						     {'only_body' =>1});
     my $result=<<END;
 $start_page
-<form name="results" method="post" action="/adm/searchcat" >
-<input type="hidden" name="Queue" value="" />
+<form name="results" method="post" action="/adm/searchcat">
 $importbutton
 END
     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 {
     my $basic_link   = "/adm/searchcat?"."&table=".$env{'form.table'}.
         "&persistent_db_id=".$env{'form.persistent_db_id'};
@@ -3213,11 +3333,11 @@ sub detailed_citation_view {
     my ($prefix,%values) = @_;
     my $result;
     my $jumpurl=$values{'url'};
-    $jumpurl=~s/^\/ext\//http\:\/\//;
+    $jumpurl=~s|^/ext/|http://|;
     $result .= '<b>'.$prefix.
-        '<img src="'.&Apache::loncommon::icon($values{'url'}).' " />'.'&nbsp;'.
+        '<img src="'.&Apache::loncommon::icon($values{'url'}).'" />'.'&nbsp;'.
         '<a href="'.$jumpurl.'" '.
-        'target="search_preview">'.$values{'title'}."</a></b>\n";
+        'target="preview">'.$values{'title'}."</a></b>\n";
     $result .= "<p>\n";
     $result .= '<b>'.$values{'author'}.'</b>,'.
         ' <i>'.$values{'owner'}.'</i><br />';
@@ -3281,25 +3401,29 @@ sub detailed_citation_view {
         next if (! exists($values{$field->{'name'}}) ||
                  $values{$field->{'name'}} eq '');
         if (exists($field->{'type'}) && $field->{'type'} eq 'list') {
-            $result .= '<b>'.&mt($field->{'translate'}).'</b><ul>';
+            $result .= '<b>'.&mt($field->{'translate'}).'</b>';
             foreach my $item (split(',',$values{$field->{'name'}})){
-                $result .= '<li>'.
-                    '<a target="search_preview" '.
-                    'href="'.$jumpurl.'">'.$item.'</a></li>';
+                $result .= 
+		  &Apache::lonhtmlcommon::crumbs(&Apache::lonnet::clutter($item),
+		  'preview',
+		  '',
+		  (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1);
             }
-            $result .= '</ul>';
         } elsif (exists($field->{'format'}) && $field->{'format'} ne ''){
             $result.= &mt($field->{'translate'},
                           sprintf($field->{'format'},
                                   $values{$field->{'name'}}))."<br />\n";
         } else {
             if ($field->{'special'} eq 'url link') {
-                $result.= 
-                     &mt($field->{'translate'},
-                         '<a href="'.$jumpurl.'" '.
-                         'target="search_preview">'.
-                         $values{$field->{'name'}}.
-                         '</a>');
+               if ($jumpurl=~/^http\:\/\//) {
+                 $result.='<tt>'.$jumpurl.'</tt>';
+               } else {
+                 $result .=
+		  &Apache::lonhtmlcommon::crumbs($jumpurl,
+		  'preview',
+		  '',
+		  (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),3,0,1);
+               }
             } else {
                 $result.= &mt($field->{'translate'},
                               $values{$field->{'name'}});
@@ -3355,11 +3479,19 @@ sub summary_view {
         $result .= '&nbsp;'.$tmp.'&nbsp;';
     }
     my $jumpurl=$values{'url'};
-    $jumpurl=~s/^\/ext\//http\:\/\//;
-
+    my $link;
+    if ($jumpurl=~m|^/ext/|) {
+	$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':''),2,0,1);
+    }
     $result.=<<END;
 <a href="$jumpurl" 
-   target='search_preview'>$values{'title'}</a><br />
+   target='preview'>$values{'title'}</a>$link
 $values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br />
 $values{'copyrighttag'}<br />
 $values{'extrashow'}
@@ -3392,8 +3524,16 @@ sub summary_preview {
 sub compact_view {
     my ($prefix,%values) = @_;
     my $jumpurl=$values{'url'};
-    $jumpurl=~s/^\/ext\//http\:\/\//;
-
+    my $link;
+    if ($jumpurl=~m|^/ext/|) {
+	$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,1,1).' ';
+    }
     my $result = 
         $prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'">';
     if (exists($env{'form.sortfield'}) && 
@@ -3402,8 +3542,8 @@ sub compact_view {
         if (! defined($tmp)) { $tmp = 'undefined'; }
         $result .= '&nbsp;'.$tmp.'&nbsp;';
     }
-    $result.='&nbsp;<a href="'.$jumpurl.'" target="search_preview">'.
-        $values{'title'}.'</a>'.('&nbsp;'x2).
+    $result.='&nbsp;<a href="'.$jumpurl.'" target="preview">'.
+        $values{'title'}.'</a>'.('&nbsp;'x2).$link.
         '<b>'.$values{'author'}.'</b> ('.$values{'domain'}.')<br />';
     return $result;
 }
@@ -3425,14 +3565,14 @@ sub fielded_format_view {
     my $icon=&Apache::loncommon::icon($values{'url'});
     my %Translated = &Apache::lonmeta::fieldnames();
     my $jumpurl=$values{'url'};
-    $jumpurl=~s/^\/ext\//http\:\/\//;
+    $jumpurl=~s|^/ext/|http://|;
 
     my $result=<<END;
 $prefix <img src="$icon" />
 <dl>
 <dt>URL:</dt>
     <dd><a href="$jumpurl" 
-         target='search_preview'>$values{'url'}</a></dd>
+         target='preview'>$values{'url'}</a></dd>
 END
     foreach my $field ('title','author','domain','subject','keywords','notes',
                        'mimetag','language','creationdate','lastrevisiondate',