File:  [LON-CAPA] / loncom / interface / lonindexer.pm
Revision 1.181.6.2: download - view: text, annotated - select for diffs
Wed Dec 2 18:22:20 2009 UTC (14 years, 5 months ago) by raeburn
Branches: GCI_2
Diff to branchpoint 1.181: preferred, unified
- Suppress unwanted button/text from lonindexer::showpreview()
   when called by londocsgci.pm in GCI Test assembly.
- Restore standard structuretags.pm behavior in other contexts (e.g., browsing
  in RES space).
- Unwanted <hr/> tag removed in GCI Test assembly context.
- Preview files have .tn extension when generated for GCI Test Assembly.

    1: # The LearningOnline Network with CAPA
    2: # Directory Indexer
    3: #
    4: # $Id: lonindexer.pm,v 1.181.6.2 2009/12/02 18:22:20 raeburn Exp $
    5: #
    6: # Copyright Michigan State University Board of Trustees
    7: #
    8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: #
   10: # LON-CAPA is free software; you can redistribute it and/or modify
   11: # it under the terms of the GNU General Public License as published by
   12: # the Free Software Foundation; either version 2 of the License, or
   13: # (at your option) any later version.
   14: #
   15: # LON-CAPA is distributed in the hope that it will be useful,
   16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: # GNU General Public License for more details.
   19: #
   20: # You should have received a copy of the GNU General Public License
   21: # along with LON-CAPA; if not, write to the Free Software
   22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: #
   24: # /home/httpd/html/adm/gpl.txt
   25: #
   26: # http://www.lon-capa.org/
   27: #
   28: ###
   29: 
   30: ###############################################################################
   31: ##                                                                           ##
   32: ## ORGANIZATION OF THIS PERL MODULE                                          ##
   33: ##                                                                           ##
   34: ## 1. Description of functions                                               ##
   35: ## 2. Modules used by this module                                            ##
   36: ## 3. Choices for different output views (detailed, summary, xml, etc)       ##
   37: ## 4. BEGIN block (to be run once after compilation)                         ##
   38: ## 5. Handling routine called via Apache and mod_perl                        ##
   39: ## 6. Other subroutines                                                      ##
   40: ##                                                                           ##
   41: ###############################################################################
   42: 
   43: package Apache::lonindexer;
   44: 
   45: # ------------------------------------------------- modules used by this module
   46: use strict;
   47: use Apache::lonnet;
   48: use Apache::loncommon();
   49: use Apache::lonhtmlcommon();
   50: use Apache::lonsequence();
   51: use Apache::Constants qw(:common);
   52: use Apache::lonmeta;
   53: use Apache::File;
   54: use Apache::lonlocal;
   55: use Apache::lonsource();
   56: use Apache::groupsort();
   57: use GDBM_File;
   58: use LONCAPA qw(:match);
   59: 
   60: # ---------------------------------------- variables used throughout the module
   61: my %hash; # global user-specific gdbm file
   62: my %dirs; # keys are directories, values are the open/close status
   63: my %language; # has the reference information present in language.tab
   64: my %dynhash; # hash of hashes for dynamic metadata
   65: my %dynread; # hash of directories already read for dynamic metadata
   66: my %fieldnames; # Metadata fieldnames
   67: # ----- Values which are set by the handler subroutine and are accessible to
   68: # -----     other methods.
   69: my $extrafield; # default extra table cell
   70: my $fnum; # file counter
   71: my $dnum; # directory counter
   72: 
   73: # ----- Used to include or exclude files with certain extensions.
   74: my @Only = ();
   75: my @Omit = ();
   76: 
   77: 
   78: 
   79: 
   80: # ----------------------------- Handling routine called via Apache and mod_perl
   81: sub handler {
   82:     my $r = shift;
   83:     my $c = $r->connection();
   84:     &Apache::loncommon::content_type($r,'text/html');
   85:     &Apache::loncommon::no_cache($r);
   86:     $r->send_http_header;
   87:     return OK if $r->header_only;
   88:     $fnum=0;
   89:     $dnum=0;
   90: 
   91:     # Deal with stupid global variables (is there a way around making
   92:     # these global to this package?  It is just so wrong....)
   93:     undef (@Only);
   94:     undef (@Omit);
   95:     %fieldnames=&Apache::lonmeta::fieldnames();
   96: 
   97: # ------------------------------------- read in machine configuration variables
   98:     my $iconpath= $r->dir_config('lonIconsURL') . "/";
   99:     my $domain  = $r->dir_config('lonDefDomain');
  100:     my $role    = $r->dir_config('lonRole');
  101:     my $loadlim = $r->dir_config('lonLoadLim');
  102:     my $servadm = $r->dir_config('lonAdmEMail');
  103:     my $sysadm  = $r->dir_config('lonSysEMail');
  104:     my $lonhost = $r->dir_config('lonHostID');
  105:     my $tabdir  = $r->dir_config('lonTabDir');
  106: 
  107:     my $fileclr='#ffffe6';
  108:     my $line;
  109:     my (@attrchk,@openpath,$typeselect);
  110:     my $uri=$r->uri;
  111: 
  112: # -------------------------------------- see if called from an interactive mode
  113:     # Get the parameters from the query string
  114:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  115: 	     ['catalogmode','launch','acts','mode','form','element',
  116:               'only','omit','titleelement']);
  117:     #-------------------------------------------------------------------
  118:     my $closebutton='';
  119:     my $groupimportbutton='';
  120:     my $colspan=''; 
  121:     
  122:     $extrafield='';
  123:     my $diropendb = 
  124: 	"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db";
  125:     %hash = ();
  126:     {
  127: 	my %dbfile;
  128: 	if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_WRITER(),0640)) {
  129: 	    if ($env{'form.launch'} eq '1') {
  130: 		&start_fresh_session(\%dbfile);
  131: 	    }
  132: 	    while(my($key,$value)=each(%dbfile)) {
  133: 		$hash{$key}=$value;
  134: 	    }
  135: 	    untie(%dbfile);
  136: 	}
  137:     }
  138: # - Evaluate actions from previous page (both cumulatively and chronologically)
  139:         if ($env{'form.catalogmode'} eq 'import' || $hash{'form.catalogmode'} eq 'import') {
  140: 	    &Apache::groupsort::update_actions_hash(\%hash);
  141: 	}
  142:     
  143:     {
  144:   #Hijack lonindexer to verify a title and be close down.
  145:    if ($env{'form.launch'} eq '2') {
  146:        &Apache::loncommon::content_type($r,'text/html');
  147:        my $extra='';
  148:        if (defined($env{'form.titleelement'}) && 
  149: 	   $env{'form.titleelement'} ne '') {
  150: 	   my $verify_title = &Apache::lonnet::gettitle($env{'form.acts'});
  151: #	   &Apache::lonnet::logthis("Hrrm $env{'form.acts'} -- $verify_title");
  152: 	   $verify_title=~s/'/\\'/g;
  153: 	   $extra='window.opener.document.forms["'.$env{'form.form'}.'"].elements["'.$env{'form.titleelement'}.'"].value=\''.$verify_title.'\';';
  154:        }
  155:        my $js = <<ENDSUBM;
  156: 	       <script type="text/javascript">
  157: 		function load() {
  158: 			window.opener.document.forms["$env{'form.form'}"]
  159: 			    .elements["$env{'form.element'}"]
  160: 			    .value='$env{'form.acts'}';
  161: 			$extra
  162: 			window.close();
  163: 		}
  164:    	       </script>
  165: ENDSUBM
  166:        $r->print(&Apache::loncommon::start_page(undef,$js,
  167: 						{'only_body'   =>1,
  168: 						 'add_entries' =>
  169: 						     {'onload' => "load();"},}
  170: 						).
  171: 		 &Apache::loncommon::end_page());
  172:        return OK;
  173:    }
  174:     
  175: # -------------------- refresh environment with user database values (in %hash)
  176: 	&setvalues(\%hash,'form.catalogmode',\%env,'form.catalogmode'   );
  177: 
  178: # --------------------- define extra fields and buttons in case of special mode
  179: 	if ($env{'form.catalogmode'} eq 'interactive') {
  180: 	    $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
  181: 		'<img alt="" src="'.$iconpath.'whitespace1.gif"'.
  182: 		' class="LC_icon" /></td>';
  183: 	    $colspan=" colspan='2' ";
  184:             my $cl=&mt('Close');
  185:             $closebutton=<<END;
  186: <input type="button" name="close" value='$cl' onclick="self.close()" />
  187: END
  188:         }
  189: 	elsif ($env{'form.catalogmode'} eq 'import') {
  190: 	    $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
  191: 		'<img alt="" src="'.$iconpath.'whitespace1.gif"'.
  192: 		' class="LC_icon" /></td>';
  193: 	    $colspan=" colspan='2' ";
  194: 	    my $cl=&mt('Close');
  195:             my $gi=&mt('Import');
  196:             $closebutton=<<END;
  197: <input type="button" name="close" value='$cl' onclick="self.close()" />
  198: END
  199:             $groupimportbutton=<<END;
  200: <input type="button" name="groupimport" value='$gi'
  201: onclick="javascript:select_group()" />
  202: END
  203:         }
  204: 	# Additions made by Matthew to make the browser a little easier to deal
  205: 	# with in the future.
  206: 	#
  207: 	# $mode (at this time) indicates if we are in edit mode.
  208: 	# $form is the name of the form that the URL is placed when the
  209: 	#       selection is made.
  210: 	# $element is the name of the element in $formname which receives
  211: 	#       the URL.
  212: 	#&Apache::lonxml::debug('Checking mode, form, element');
  213: 	&setvalues(\%hash,'form.mode'        ,\%env,'form.mode'   );
  214: 	&setvalues(\%hash,'form.form'        ,\%env,'form.form'   );
  215: 	&setvalues(\%hash,'form.element'     ,\%env,'form.element');
  216: 	&setvalues(\%hash,'form.titleelement',\%env,'form.titleelement');
  217: 	&setvalues(\%hash,'form.only'        ,\%env,'form.only'   );
  218: 	&setvalues(\%hash,'form.omit'        ,\%env,'form.omit'   );
  219: 
  220:         # Deal with 'omit' and 'only' 
  221:         if (exists $env{'form.omit'}) {
  222:             @Omit = split(',',$env{'form.omit'});
  223:         }
  224:         if (exists $env{'form.only'}) {
  225:             @Only = split(',',$env{'form.only'});
  226:         }
  227:         
  228: 	my $mode = $env{'form.mode'};
  229: 	my ($form,$element,$titleelement);
  230: 	if ($mode eq 'edit' || $mode eq 'parmset') {
  231: 	    $form         = $env{'form.form'};
  232: 	    $element      = $env{'form.element'};
  233: 	    $titleelement = $env{'form.titleelement'};
  234: 	}
  235: 	#&Apache::lonxml::debug("mode=$mode form=$form element=$element titleelement=$titleelement");
  236: # ------ set catalogmodefunctions to have extra needed javascript functionality
  237: 	my $catalogmodefunctions='';
  238: 	if ($env{'form.catalogmode'} eq 'interactive' or
  239: 	    $env{'form.catalogmode'} eq 'import') {
  240: 	    # The if statement below sets us up to use the old version
  241: 	    # by default (ie. if $mode is undefined).  This is the easy
  242: 	    # way out.  Hopefully in the future I'll find a way to get 
  243: 	    # the calls dealt with in a more comprehensive manner.
  244: 
  245: #
  246: # There is now also mode "simple", which is for the simple version of the rat
  247: #
  248: #
  249: 	    if (!defined($mode) || ($mode ne 'edit' && $mode ne 'parmset')) {
  250:                 my $location = "/adm/groupsort?&inhibitmenu=yes&catalogmode=import&";
  251:                 $location .= "mode=".$mode."&";
  252:                 $location .= "acts=";
  253: 		$catalogmodefunctions=<<"END";
  254: function select_data(url) {
  255:     changeURL(url);
  256:     self.close();
  257: }
  258: function select_group() {
  259:     window.location="$location"+document.forms.fileattr.acts.value;
  260: }
  261: function changeURL(val) {
  262:     if (opener.inf) {
  263:         if (opener.inf.document.forms.resinfo.elements.u) {
  264: 	    opener.inf.document.forms.resinfo.elements.u.value=val;
  265:         }
  266:     }
  267: }
  268: END
  269:             } elsif ($mode eq 'edit') { # we are in 'edit' mode
  270:                 my $location = "/adm/groupsort?catalogmode=interactive&";
  271:                 $location .= "form=$form&element=$element&mode=edit&acts=";
  272: 		$catalogmodefunctions=<<END;
  273: // mode = $mode
  274: function select_data(url) {
  275:    var location = "/res/?launch=2&form=$form&element=$element&titleelement=$titleelement&acts=" + url;
  276:    window.location=location;
  277:    if (window.opener.document.forms["$form"].elements["$element"].value != url) {
  278:        window.opener.unClean();
  279:    }
  280: }
  281: function select_group() {
  282:     window.location="$location"+document.forms.fileattr.acts.value;
  283: }
  284: 
  285: function changeURL(val) {
  286:     if (window.opener.document) {
  287: 	window.opener.document.forms["$form"].elements["$element"].value=val;
  288:     } else {
  289: 	    alert("The file you selected is: "+val);
  290:     }
  291: }
  292: END
  293:                 if (!$titleelement) {
  294: 		    $catalogmodefunctions.='function changeTitle(val) {}';
  295: 		} else {
  296: 		    $catalogmodefunctions.=<<END;
  297: function changeTitle(val) {
  298:     if (window.opener.document) {
  299: 	    window.opener.document.forms["$form"].elements["$titleelement"].value=val;
  300:     } else {
  301: 	    alert("The title of the file you selected is: "+val);
  302:     }
  303: }
  304: END
  305:                 }
  306:             } elsif ($mode eq 'parmset') {
  307:                 my $location = "/adm/groupsort?catalogmode=interactive&";
  308:                 $location .= "form=$form&element=$element&mode=parmset&acts=";
  309: 		$catalogmodefunctions=<<END;
  310: // mode = $mode
  311: function select_data(url) {
  312:     changeURL(url);
  313:     self.close();
  314: }
  315: 
  316: function select_group() {
  317:     window.location="$location"+document.forms.fileattr.acts.value;
  318: }
  319: 
  320: function changeURL(val) {
  321:     if (window.opener.document) {
  322:         var elementname  = "$element"+"_value";
  323:         var checkboxname = "$element"+"_setparmval";
  324: 	window.opener.document.forms["$form"].elements[elementname].value=val;
  325:         window.opener.document.forms["$form"].elements[checkboxname].checked=true;
  326:     } else {
  327: 	    alert("The file you selected is: "+val);
  328:     }
  329: }
  330: 
  331: END
  332:             }
  333:         }
  334:         $catalogmodefunctions.=<<END;
  335: var acts='';
  336: function rep_dirpath(suffix,val) {
  337:     eval("document.forms.dirpath"+suffix+".acts.value=val");
  338: }
  339: END
  340: 	if ($env{'form.catalogmode'} eq 'import') {
  341:             $catalogmodefunctions.=<<END;
  342: function queue(val) {
  343:     if (eval("document.forms."+val+".filelink.checked")) {
  344: 	var l=val.length;
  345: 	var v=val.substring(4,l);
  346: 	document.forms.fileattr.acts.value+='1a'+v+'b';
  347:     }
  348:     else {
  349: 	var l=val.length;
  350: 	var v=val.substring(4,l);
  351: 	document.forms.fileattr.acts.value+='0a'+v+'b';
  352:     }
  353: }
  354: END
  355: 	}
  356: 
  357:         my $inhibit_menu = "+'&".&Apache::loncommon::inhibit_menu_check()."'";
  358: # ---------------------------------------------------------------- Print Header
  359:         
  360: 	my $js = <<"ENDHEADER";
  361: <script type="text/javascript">
  362: $catalogmodefunctions;
  363: function update_only(field) {
  364:     alert(field.name);
  365: }
  366: function checkAll() {
  367:     var numForms = document.forms.length;
  368:     for (i=0;i<numForms;i++) {
  369:         var numElements = document.forms[i].elements.length;
  370:         for (j=0;j<numElements;j++){
  371:             var fieldName = document.forms[i].elements[j].name;
  372:             if (fieldName == 'filelink') {
  373:                 document.forms[i].elements[j].checked = true;
  374:                 queue(document.forms[i].name);
  375:             }
  376:         }
  377:     }
  378: }
  379: function uncheckAll() {
  380:     var numForms = document.forms.length;
  381:     for (i=0;i<numForms;i++) {
  382:         var numElements = document.forms[i].elements.length;
  383:         for (j=0;j<numElements;j++){
  384:             var fieldName = document.forms[i].elements[j].name;
  385:             if (fieldName == 'filelink') {
  386:                 document.forms[i].elements[j].checked = false;
  387:                 queue(document.forms[i].name);
  388:             }
  389:         }
  390:     }
  391: }
  392: function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) {
  393:     var xpos = (screen.width-w)/2;
  394:     xpos = (xpos < 0) ? '0' : xpos;
  395:     var ypos = (screen.height-h)/2-30;
  396:     ypos = (ypos < 0) ? '0' : ypos;
  397:     var options = "width=" + w + ",height=" + h + ",screenx="+xpos+",screeny="+ypos+",";
  398:     options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
  399:     options += "menubar=no,toolbar="+toolbar+",location="+locationbar+",directories=no";
  400:     var newWin = window.open(url, wdwName, options);
  401:     newWin.focus();
  402: }
  403: function gothere(val) {
  404:     window.location=val+'?acts='+document.forms.fileattr.acts.value$inhibit_menu;
  405: }
  406: </script>
  407: ENDHEADER
  408: 
  409:         my ($headerdom)=($uri=~m{^/res/($match_domain)/});
  410:         my %args = (
  411:                       'domain' => $headerdom,
  412:                    );
  413:         if ($env{'form.catalogmode'}) {
  414:             # "Popup mode"
  415:             $args{'only_body'} = 1;
  416:         }
  417: 	$r->print(&Apache::loncommon::start_page('Browse Resources',$js,\%args));
  418: # ---------------------------------- get state of file types to be showing
  419: 	if ($env{'form.only'}) {
  420: 	    $typeselect = $env{'form.only'};
  421: 	} else {
  422: 	    $typeselect = '';
  423: 	}
  424: 
  425: # ---------------------------------- get state of file attributes to be showing
  426: 	if ($env{'form.attrs'}) {
  427: 	    for (my $i=0; $i<=16; $i++) {
  428: 		delete $hash{'display_attrs_'.$i};
  429: 		if ($env{'form.attr'.$i} == 1) {
  430: 		    $attrchk[$i] = 'checked="checked"';
  431: 		    $hash{'display_attrs_'.$i} = 1;
  432: 		}
  433: 	    }
  434: 	} else {
  435: 	    for (my $i=0; $i<=16; $i++) {
  436: 		$attrchk[$i] = 'checked="checked"' if $hash{'display_attrs_'.$i} == 1;
  437: 	    }
  438: 	}
  439: 
  440: # ------------------------------- output state of file attributes to be showing
  441: #                                 All versions has to the last item
  442: #                                 since it does not take an extra col
  443: 	my %lt=&Apache::lonlocal::texthash(
  444: 					   'ti' => 'Title',
  445: 					   'si' => 'Size',
  446: 					   'la' => 'Last access',
  447: 					   'lm' => 'Last modified',
  448: 					   'st' => 'Statistics',
  449: 					   'au' => 'Author',
  450: 					   'kw' => 'Keywords',
  451:                                            'sb' => 'Subject',
  452:                                            'nt' => 'Notes',
  453:                                            'ab' => 'Abstract',
  454: 					   'ln' => 'Language',
  455:                                            'gl' => 'Grade Level',
  456:                                            'sd' => 'Standards',
  457: 					   'sa' => 'Source Available',
  458: 					   'sr' => 'Show resource',
  459: 					   'li' => 'Linked/Related Resources',
  460: 					   'av' => 'All versions',
  461: 					   'ud' => 'Update Display',
  462: 					   'pr' => 'Problems',
  463: 					   'gr' => 'Graphics',
  464: 					   'at' => 'All types',
  465:                                            'hd' => 'Display Options',
  466: 					   );
  467: 	$r->print(<<END);
  468: <fieldset>
  469: <legend>$lt{'hd'}</legend>
  470: <form method="post" name="fileattr" action="$uri" enctype="application/x-www-form-urlencoded">
  471: <label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</label>
  472: <table border="0">
  473: <tr>
  474: <td><label><input type="checkbox" name="attr0" value="1" $attrchk[0] onclick="this.form.submit();" /> $lt{'ti'}</label></td>
  475: <td><label><input type="checkbox" name="attr4" value="1" $attrchk[4] onclick="this.form.submit();" /> $lt{'au'}</label></td>
  476: <td><label><input type="checkbox" name="attr5" value="1" $attrchk[5] onclick="this.form.submit();" /> $lt{'kw'}</label></td>
  477: <td><label><input type="checkbox" name="attr6" value="1" $attrchk[6] onclick="this.form.submit();" /> $lt{'ln'}</label></td>
  478: <td><label><input type="checkbox" name="attr13" value="1" $attrchk[13] onclick="this.form.submit();" /> $lt{'nt'}</label></td>
  479: <td><label><input type="checkbox" name="attr16" value="1" $attrchk[16] onclick="this.form.submit();" /> $lt{'sd'}</label></td>
  480: </tr>
  481: <tr>
  482: <td><label><input type="checkbox" name="attr1" value="1" $attrchk[1] onclick="this.form.submit();" /> $lt{'si'}</label></td>
  483: <td><label><input type="checkbox" name="attr2" value="1" $attrchk[2] onclick="this.form.submit();" /> $lt{'la'}</label></td>
  484: <td><label><input type="checkbox" name="attr3" value="1" $attrchk[3] onclick="this.form.submit();" /> $lt{'lm'}</label></td>
  485: <td><label><input type="checkbox" name="attr10" value="1" $attrchk[10] onclick="this.form.submit();" /> $lt{'sa'}</label></td>
  486: <td><label><input type="checkbox" name="attr14" value="1" $attrchk[14] onclick="this.form.submit();" /> $lt{'ab'}</label></td>
  487: <td>&nbsp;</td>
  488: </tr>
  489: <tr>
  490: <td><label><input type="checkbox" name="attr8" value="1" $attrchk[8] onclick="this.form.submit();" /> $lt{'st'}</label></td>
  491: <td><label><input type="checkbox" name="attr11" value="1" $attrchk[11] onclick="this.form.submit();" /> $lt{'li'}</label></td>
  492: <td><label><input type="checkbox" name="attr7" value="1" $attrchk[7] onclick="this.form.submit();" /> $lt{'sr'}</label></td>
  493: <td><label><input type="checkbox" name="attr12" value="1" $attrchk[12] onclick="this.form.submit();" /> $lt{'sb'}</label></td>
  494: <td><label><input type="checkbox" name="attr15" value="1" $attrchk[15] onclick="this.form.submit();" /> $lt{'gl'}</label></td>
  495: <td>&nbsp;</td>
  496: </tr>
  497: </table>
  498: <input type="hidden" name="attrs" value="1" />
  499: END
  500:         my @file_categories = &Apache::loncommon::filecategories();
  501:         my %select_file_categories;
  502:         my @select_form_order = ('');
  503:         $select_file_categories{''} = &mt('All file types');
  504:         foreach my $cat (@file_categories) {
  505: 	    my $types = join(",",&Apache::loncommon::filecategorytypes($cat));
  506: 	    $select_file_categories{$types} = $cat;
  507: 	    push(@select_form_order,$types);
  508: 	}
  509:         $select_file_categories{'select_form_order'} = \@select_form_order;
  510:         my $type_element=
  511: 	    &Apache::loncommon::select_form($typeselect,'only',
  512: 					    %select_file_categories);
  513:         $type_element = '<label>'.&mt('File Type Displayed: [_1]',
  514: 				      $type_element).'</label>';
  515:         $r->print($type_element
  516:                  .'</fieldset>');
  517:         $r->print(<<END);
  518: <br />
  519: <input type="submit" name="updatedisplay" value="$lt{'ud'}" />
  520: <input type="hidden" name="acts" value="" />
  521: $closebutton $groupimportbutton
  522: END
  523:         $r->print(&Apache::loncommon::inhibit_menu_check('input'));
  524:    
  525: # -------------- Filter out sequence containment in crumbs and "recent folders"
  526: 	my $storeuri=$uri;
  527: 	$storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1];
  528: 	$storeuri=~s/\/+/\//g;
  529: # ---------------------------------------------------------------- Bread crumbs
  530:         $r->print(&Apache::lonhtmlcommon::crumbs($storeuri,'','',
  531: 				(($env{'form.catalogmode'} eq 'import')?
  532: 				 'document.forms.fileattr':'')).
  533: 		  &Apache::lonhtmlcommon::select_recent('residx','resrecent',
  534: 'window.status=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();'));
  535: # -------------------------------------------------------- Resource Home Button
  536: 	my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'};
  537: 	if ($reshome) {
  538: 	    $r->print("<font size='+2'><a href='");
  539: 	    if ($env{'form.catalogmode'} eq 'import') {
  540: 		$r->print('javascript:document.forms.fileattr.action="'.&Apache::loncommon::inhibit_menu_check($reshome).'";document.forms.fileattr.submit();');
  541: 	    } else {
  542: 		$r->print($reshome);
  543: 	    }
  544: 	    $r->print("'>".&mt('Home').'</a></font>');
  545: 	}
  546: 	$r->print('</form>');
  547: # ------------------------------------------------------ Remember where we were
  548: 	&Apache::loncommon::storeresurl($storeuri);
  549: 	&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);
  550: # -------------------------------------------------- Check All and Uncheck all
  551: 	if ($env{'form.catalogmode'} eq 'import') {
  552: 	    $r->print('<br /><input type="button" value="'.&mt("Check All").'" id="checkallbutton" onclick="javascript:checkAll()" />');
  553: 	    $r->print('<input type="button" value="'.&mt("Uncheck All").'" id="uncheckallbutton" onclick="javascript:uncheckAll()" />');
  554: 	}
  555: # ----------------- output starting row to the indexed file/directory hierarchy
  556:         my $titleclr="#ddffff";
  557:         #$r->print(&initdebug());
  558:         #$r->print(&writedebug("Omit:@Omit")) if (@Omit);
  559:         #$r->print(&writedebug("Only:@Only")) if (@Only);
  560:         $r->print('<table width="100%" border="0"><tr><td bgcolor="#777777">'."\n");
  561: 	$r->print('<table width="100%" border="0"><tr bgcolor="'.$titleclr.'">'."\n");
  562: 	$r->print("<td $colspan><b>".&mt('Name')."</b></td>\n");
  563: 	$r->print("<td><b>".&mt('Title')."</b></td>\n") 
  564: 	    if ($hash{'display_attrs_0'} == 1);
  565: 	$r->print("<td align=right><b>".&mt("Size")." (".&mt("bytes").") ".
  566: 		  "</b></td>\n") if ($hash{'display_attrs_1'} == 1);
  567: 	$r->print("<td><b>".&mt("Last accessed")."</b></td>\n") 
  568: 	    if ($hash{'display_attrs_2'} == 1);
  569: 	$r->print("<td><b>".&mt("Last modified")."</b></td>\n")
  570: 	    if ($hash{'display_attrs_3'} == 1);
  571: 	$r->print("<td><b>".&mt("Author(s)")."</b></td>\n")
  572: 	    if ($hash{'display_attrs_4'} == 1);
  573: 	$r->print("<td><b>".&mt("Keywords")."</b></td>\n")
  574: 	    if ($hash{'display_attrs_5'} == 1);
  575: 	$r->print("<td><b>".&mt("Language")."</b></td>\n")
  576: 	    if ($hash{'display_attrs_6'} == 1);
  577: 	$r->print("<td><b>".&mt("Usage Statistics")." <br />(".
  578: 		  &mt("Courses/Network Hits").")</b> ".&mt('updated periodically')."</td>\n")
  579: 	    if ($hash{'display_attrs_8'} == 1);
  580: 	$r->print("<td><b>".&mt("Source Available")."</b></td>\n")
  581: 	    if ($hash{'display_attrs_10'} == 1);
  582: 	$r->print("<td><b>".&mt("Linked/Related Resources")."</b></td>\n")
  583: 	    if ($hash{'display_attrs_11'} == 1);
  584: 	$r->print("<td><b>".&mt("Resource")."</b></td>\n")
  585: 	    if ($hash{'display_attrs_7'} == 1);
  586:         $r->print("<th>".&mt("Subject")."</th>\n")
  587:             if ($hash{'display_attrs_12'} == 1);
  588:         $r->print("<th>".&mt("Notes")."</th>\n")
  589:             if ($hash{'display_attrs_13'} == 1);
  590:         $r->print("<th>".&mt("Abstract")."</th>\n")
  591:             if ($hash{'display_attrs_14'} == 1);
  592:         $r->print("<th>".&mt("Grade Level")."</th>\n")
  593:             if ($hash{'display_attrs_15'} == 1);
  594:         $r->print("<th>".&mt("Standards")."</th>\n")
  595:             if ($hash{'display_attrs_16'} == 1);
  596: 	$r->print('</tr>');
  597: 
  598: # ----------------- read in what directories have previously been set to "open"
  599: 	foreach (keys %hash) {
  600: 	    if ($_ =~ /^diropen_status_/) {
  601: 		my $key = $_;
  602: 		$key =~ s/^diropen_status_//;
  603: 		$dirs{$key} = $hash{$_};
  604: 	    }
  605: 	}
  606: 
  607: 	if ($env{'form.openuri'}) {  # take care of review and refresh options
  608: 	    my $uri=$env{'form.openuri'};
  609: 	    if (exists($hash{'diropen_status_'.$uri})) {
  610: 		my $cursta = $hash{'diropen_status_'.$uri};
  611: 		$dirs{$uri} = 'open';
  612: 		$hash{'diropen_status_'.$uri} = 'open';
  613: 		if ($cursta eq 'open') {
  614: 		    $dirs{$uri} = 'closed';
  615: 		    $hash{'diropen_status_'.$uri} = 'closed';
  616: 		}
  617: 	    } else {
  618: 		$hash{'diropen_status_'.$uri} = 'open';
  619: 		$dirs{$uri} = 'open';
  620: 	    }
  621: 	}
  622: 	
  623: 	my $toplevel;
  624: 	my $indent = 0;
  625: 	$uri = $uri.'/' if $uri !~ /.*\/$/;
  626: 
  627:  	if ($env{'form.dirPointer'} ne 'on') {
  628:  	    $hash{'top.level'} = $uri;
  629:  	    $toplevel = $uri;
  630:  	} else {
  631:  	    $toplevel = $hash{'top.level'};
  632:  	}
  633: 
  634: # -------------------------------- if not at top level, provide an uplink arrow
  635: 	if ($toplevel ne '/res/'){
  636: 	    my (@uri_com) = split(/\//,$uri);
  637: 	    pop @uri_com;
  638: 	    my $upone = join('/',@uri_com);
  639: 	    my @list = qw (0);
  640: 	    &display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);
  641: 	    $indent = 1;
  642: 	}
  643: 
  644: # -------- recursively go through all the directories and output as appropriate
  645: 	&scanDir ($r,$toplevel,$indent,\%hash);
  646: 	
  647: 
  648: # -------------------------------------------------------------- end the tables
  649: 	$r->print('</table>');
  650: # ---------------------------- embed hidden information useful for group import
  651: 	$r->print("<form name='fnum' action=''>");
  652: 	$r->print("<input type='hidden' name='fnum' value='$fnum' /></form>");
  653: # -------------------------------------------------------------- end the tables
  654: 	$r->print('</td></tr></table>');
  655: 
  656: # --------------------------------------------------- end the output and return
  657: 	$r->print(&Apache::loncommon::end_page()."\n");
  658:     }
  659:     if(! $c->aborted()) {
  660: # write back into the temporary file
  661: 	my %dbfile;
  662:         if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_NEWDB(),0640)) {
  663:             while (my($key,$value) = each(%hash)) {
  664:                 $dbfile{$key}=$value;
  665:             }
  666:             untie(%dbfile);
  667:         }
  668:     }
  669: 
  670:     return OK;
  671: }
  672: 
  673: # ----------------------------------------------- recursive scan of a directory
  674: sub scanDir {
  675:     my ($r,$startdir,$indent,$hashref)=@_;
  676:     my $c = $r->connection();
  677:     my ($compuri,$curdir);
  678:     my $dirptr=16384;
  679:     my $obs;
  680:     $indent++;
  681:     my %dupdirs = %dirs;
  682:     my @list=&get_list($r,$startdir);
  683:     foreach my $line (@list) {
  684:         return if ($c->aborted());
  685: 	#This is a kludge, sorry aboot this
  686: 	my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); 
  687: 	next if($strip =~ /.*\.meta$/ | $obs eq '1');
  688: 	my (@fileparts) = split(/\./,$strip);
  689: 	if ($hash{'display_attrs_9'} != 1) {
  690:             # if not all versions to be shown
  691: 	    if (scalar(@fileparts) >= 3) {
  692: 		my $fext = pop @fileparts;
  693: 		my $ov = pop @fileparts;
  694: 		my $fname = join ('.',@fileparts,$fext);
  695: 		next if (grep /\Q$fname\E/,@list and $ov =~ /^\d+$/);
  696: 	    }
  697: 	}
  698: 
  699: 	if ($dom eq 'domain') {
  700: 	    # dom list has full path /res/<domain name>/ already
  701: 	    $curdir='';
  702: 	    $compuri = (split(/\&/,$line))[0];
  703: 	} else {
  704: 	    # user, dir & file have name only, i.e., w/o path
  705: 	    $compuri = join('',$startdir,$strip,'/');
  706: 	    $curdir = $startdir;
  707: 	}
  708: 	my $diropen = 'closed';
  709: 	if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/) or ($compuri=~/\.(sequence|page)\/$/)) {
  710: 	    while (my ($key,$val)= each %dupdirs) {
  711: 		if ($key eq $compuri and $val eq "open") {
  712: 		    $diropen = "opened";
  713: 		    delete($dupdirs{$key});
  714: 		    delete($dirs{$key});
  715: 		}
  716: 	    }
  717: 	}
  718: 	&display_line($r,$diropen,$line,$indent,$curdir,$hashref,@list);
  719: 	&scanDir ($r,$compuri,$indent) if $diropen eq 'opened';
  720:     }
  721:     $indent--;
  722: }
  723: 
  724: # --------------- get complete matched list based on the uri (returns an array)
  725: sub get_list {
  726:     my ($r,$uri)=@_;
  727:     my @list=();
  728:     (my $luri = $uri) =~ s/\//_/g;
  729:     if ($env{'form.updatedisplay'}) {
  730: 	foreach (keys %hash) {
  731: 	    delete $hash{$_} if ($_ =~ /^dirlist_files_/);
  732: 	    delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/);
  733: 	}
  734:     }
  735: 
  736:     if (defined($hash{'dirlist_files_'.$luri}) &&
  737: 	$hash{'dirlist_timestamp_files_'.$luri}+600 > (time)) {
  738: 	@list = split(/\n/,$hash{'dirlist_files_'.$luri});
  739:     } elsif ($uri=~/\.(page|sequence)\/$/) {
  740: # is a page or a sequence
  741: 	$uri=~s/\/$//;
  742: 	$uri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1];
  743: 	$uri=~s/\/+/\//g;
  744: 	foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri))) {
  745: 	    my @ratpart=split(/\:/,$_);
  746: 	    push(@list,&LONCAPA::map::qtescape($ratpart[1]));
  747: 	} 
  748: 	$hash{'dirlist_files_'.$luri} = join("\n",@list);
  749:     } else {
  750: # is really a directory
  751: 	@list = &Apache::lonnet::dirlist($uri);
  752: 	$hash{'dirlist_files_'.$luri} = join("\n",@list);
  753: 	$hash{'dirlist_timestamp_files_'.$luri} = time;
  754:     }
  755:     return @list=&match_ext($r,@list);    
  756: }
  757: 
  758: sub dynmetaread {
  759:     my $uri=shift;
  760:     if (($hash{'display_attrs_8'}==1) || ($hash{'display_attrs_11'}==1)) {
  761: # We don't want the filename
  762: 	$uri=~s/\/[^\/]+$//;
  763: # Did we already see this?
  764: 	my $builddir=$uri;
  765: 	while ($builddir) {
  766: 	    if ($dynread{$builddir}) {
  767: 		return 0;
  768: 	    }
  769: 	    $builddir=~s/\/[^\/]+$//;
  770: 	}
  771: # Actually get the data
  772: 	%dynhash=
  773: 	    (%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri.'/'));
  774: # Remember that we got it
  775: 	$dynread{$uri}=1;
  776:     } 
  777: }
  778: 
  779: sub initdebug {
  780:     my $start_page=
  781: 	&Apache::loncommon::start_page('Debug',undef,
  782: 				       {'only_body' => 1,});
  783:     $start_page =~ s/\n/ /g;
  784:     return <<ENDJS;
  785: <script type="text/javascript">
  786: var debugging = true;
  787: if (debugging) {
  788:     var debuggingWindow = window.open('','Debug','width=400,height=300',true);
  789: } 
  790: 
  791: function output(text) {
  792:     if (debugging) {
  793:         debuggingWindow.document.writeln(text);
  794:     }
  795: }
  796: output('$start_page<pre>');   
  797: </script>
  798: ENDJS
  799: }
  800: 
  801: sub writedebug {
  802:     my ($text) = @_;
  803:     return "<script type=\"text/javascript\">output('$text');</script>";
  804: }
  805: 
  806: # -------------------- filters out files based on extensions (returns an array)
  807: sub match_ext {
  808:     my ($r,@packlist)=@_;
  809:     my @trimlist;
  810:     my $nextline;
  811:     my @fileext;
  812:     my $dirptr=16384;
  813: 
  814:     foreach my $line (@packlist) {
  815: 	chomp $line;
  816: 	$line =~ s/^\/home\/httpd\/html//;
  817: 	my @unpackline = split (/\&/,$line);
  818: 	next if ($unpackline[0] eq '.');
  819: 	next if ($unpackline[0] eq '..');
  820: 	my @filecom = split (/\./,$unpackline[0]);
  821: 	my $fext = pop(@filecom);
  822: 	my $fnptr = ($unpackline[3]&$dirptr) || ($fext=~/\.(page|sequence)$/);
  823:  	if ($fnptr == 0 and $unpackline[3] ne "") {
  824: 	    my $embstyle = &Apache::loncommon::fileembstyle($fext);
  825:             push @trimlist,$line if (defined($embstyle) && 
  826: 				     ($embstyle ne 'hdn' or $fext eq 'meta'));
  827: 	} else {
  828: 	    push @trimlist,$line;
  829: 	}
  830:     }
  831:     @trimlist = sort {uc($a) cmp uc($b)} (@trimlist);
  832:     return @trimlist;
  833: }
  834: 
  835: # ------------------------------- displays one line in appropriate table format
  836: sub display_line {
  837:     my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_;
  838:     my (@pathfn, $fndir);
  839: # there could be relative paths (files actually belonging into this directory)
  840: # or absolute paths (for example, from sequences)
  841:     my $absolute;
  842:     my $pathprefix;
  843:     if ($line=~m|^/res/| && $startdir ne '') {
  844: 	$absolute=1;
  845: 	$pathprefix='';
  846:     } else {
  847: 	$absolute=0;
  848: 	$pathprefix=$startdir;
  849:     }
  850:     my $dirptr=16384;
  851:     my $fileclr="#ffffe6";
  852:     my $iconpath= $r->dir_config('lonIconsURL') . '/';
  853: 
  854:     my @filecom = split (/\&/,$line);
  855:     my @pathcom = split (/\//,$filecom[0]);
  856:     my $listname = $pathcom[scalar(@pathcom)-1];
  857:     my $fnptr = $filecom[3]&$dirptr;
  858:     my $msg = &mt('View').' '.$filecom[0].' '.&mt('resources');
  859:     $msg = &mt('Close').' '.$filecom[0].' '.&mt('directory') if $diropen eq 'opened';
  860: 
  861:     my $tabtag='</td>';
  862:     my $i=0;
  863:     while ($i<=16) {
  864: 	$tabtag=join('',$tabtag,"<td>&nbsp;</td>")
  865: 	    if ($i != 9 &&
  866: 		$hash{'display_attrs_'.$i} == 1);
  867: 	$i++;
  868:     }
  869:     my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');
  870: 
  871: # display uplink arrow
  872:     if ($filecom[1] eq 'viewOneUp') {
  873: 	my $updir=$startdir;
  874: # -------------- Filter out sequence containment in crumbs and "recent folders"
  875: 	$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1];
  876: 	$updir=~s/\/+/\//g;
  877: 
  878: 	$r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield");
  879: 	$r->print("<td>\n");
  880: 	$r->print ('<form method="post" name="dirpathUP" action="'.$updir.
  881: 		   '/" '.
  882: 		   'onsubmit="return rep_dirpath(\'UP\','.
  883: 		   'document.forms.fileattr.acts.value)" '.
  884: 		   'enctype="application/x-www-form-urlencoded"'.
  885:                    '>'."\n");
  886: 	$r->print(&Apache::loncommon::inhibit_menu_check('input'));
  887: 	$r->print ('<input type="hidden" name="openuri" value="'.
  888: 		   $startdir.'" />'."\n");
  889: 	$r->print ('<input type="hidden" name="acts" value="" />'."\n");
  890: 	$r->print ('<input src="'.$iconpath.'arrow_up.gif"');
  891: 	$r->print (' name="'.$msg.'" alt="'.$msg.'" type="image" class="LC_indexer_icon" />'.
  892: 		   "\n");
  893: 	$r->print(&mt("Up")."</form>$tabtag</tr>\n");
  894: 	return OK;
  895:     }
  896: # Do we have permission to look at this?
  897: 
  898:     if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); }
  899: 
  900: # make absolute links appear on different background
  901:     if ($absolute) { $fileclr='#ccdd99'; }
  902: 
  903: # display domain
  904:     if ($filecom[1] eq 'domain') {
  905:  	$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n")
  906:  	    if ($env{'form.dirPointer'} eq "on");
  907: 	$r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield");
  908: 	$r->print("<td>");
  909: 	&begin_form ($r,$filecom[0]);
  910: 	my $anchor = $filecom[0];
  911: 	$anchor =~ s/\W//g;
  912: 	$r->print ('<a name="'.$anchor.'"></a>');
  913: 	$r->print ('<input type="hidden" name="acts" value="" />');
  914: 	$r->print ('<input src="'.$iconpath.'folder_pointer_'.
  915: 		   $diropen.'.gif"'); 
  916: 	$r->print (' name="'.$msg.'" alt="'.$msg.'" type="image" class="LC_indexer_icon" />'.
  917: 		   "\n");
  918: 	my $quotable_filecom = &Apache::loncommon::escape_single($filecom[0]);
  919: 	$r->print ('<a href="javascript:gothere(\''.$quotable_filecom.
  920: 		   '\')"><img alt="" src="'.$iconpath.'server.gif"');
  921: 	$r->print (' class="LC_icon" /></a>'."\n");
  922: 	$r->print (&mt("Domain")." - $listname ");
  923: 	if (&Apache::lonnet::domain($listname,'description')) {
  924: 	    $r->print("(".&Apache::lonnet::domain($listname,'description').
  925: 		      ")");
  926: 	}
  927: 	$r->print ("</form>$tabtag</tr>\n");
  928: 	return OK;
  929: 
  930: # display user directory
  931:     }
  932:     if ($filecom[1] eq 'user') {
  933: 	# $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield");
  934: 	my $curdir = $startdir.$filecom[0].'/';
  935: 	my $anchor = $curdir;
  936: 	$anchor =~ s/\W//g;
  937: 	$r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");
  938: 	&begin_form ($r,$curdir);
  939: 	$r->print ('<a name="'.$anchor.'"></a><img alt="" src="'.$iconpath.
  940: 		   'whitespace1.gif" class="LC_icon" />'."\n");
  941: 	$r->print ('<input type="hidden" name="acts" value="" />');
  942: 	$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.
  943: 		   '.gif"'); 
  944: 	$r->print (' name="'.$msg.'" alt="'.$msg.'" type="image" class="LC_indexer_icon" />'.
  945: 		   "\n");
  946: 	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
  947: 	$r->print ('<a href="javascript:gothere(\''.$quotable_curdir
  948: 		   .'\')"><img alt="'.$msg.'" src="'.
  949: 		   $iconpath.'quill.gif" class="LC_indexer_icon" /></a>');
  950: 	my $domain=(split(m|/|,$startdir))[2];
  951: 	my $plainname=&Apache::loncommon::plainname($listname,$domain);
  952: 	$r->print ($listname);
  953: 	if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); }
  954: 	$r->print ('</form>'.$tabtag.'</tr>'."\n");
  955: 	return OK;
  956:     }
  957: 
  958: # display file
  959:     if (($fnptr == 0 and $filecom[3] ne '') or $absolute) {
  960:         my $title;
  961: 	my $filelink = $pathprefix.$filecom[0];
  962: 	if ($hash{'display_attrs_0'} == 1) {
  963: 	    $title = &Apache::lonnet::gettitle($filelink);
  964: 	}
  965: 	my @file_ext = split (/\./,$listname);
  966: 	my $curfext = $file_ext[-1];
  967:         if (@Omit) {
  968:             foreach (@Omit) { return OK if (lc($curfext) eq $_); }
  969:         }
  970:         if (@Only) {
  971:             my $skip = 1;
  972:             foreach (@Only) { $skip = 0 if (lc($curfext) eq $_); }
  973:             return OK if ($skip > 0);
  974:         }
  975: 	# Set the icon for the file
  976: 	my $iconname = &Apache::loncommon::icon($listname);
  977: 	$r->print('<tr valign="'.$valign.'" bgcolor="'.$fileclr.'">'.
  978:                   '<td valign="top"><span class="LC_nobreak">');
  979: 	
  980:         if ($env{'form.catalogmode'} eq 'interactive') {
  981: 	    my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
  982:             $r->print("<a href=\"javascript:select_data(\'",
  983:                       $quotable_filelink,"')\">");
  984: 	    $r->print("<img alt=\"\" src='",$iconpath,"select.gif' class='LC_icon' /></a>".
  985: 		      "\n");
  986: 	    $r->print('</span></td><td valign="top"><span class="LC_nobreak">');
  987: 	} elsif ($env{'form.catalogmode'} eq 'import') {
  988: 	    $r->print("<form name='form$fnum' action=''>\n");
  989: 	    $r->print("<input type='checkbox' name='filelink"."' ".
  990: 		      "value='$filelink' onclick='".
  991: 		      "javascript:queue(\"form$fnum\")' ");
  992: 	    if ($hash{'store_'.$filelink}) {
  993: 		$r->print("checked");
  994: 	    }
  995: 	    $r->print(" />\n");
  996: 	    $r->print('</form></span></td><td valign="top"><span class="LC_nobreak">');
  997: 	    $hash{"pre_${fnum}_link"}=$filelink;
  998: 	    $hash{"pre_${fnum}_title"}=$title;
  999: 	    if (!$hash{"pre_${fnum}_title"}) {
 1000: 	        $hash{"pre_${fnum}_title"} = 'Not_retrieved';
 1001: 	    }
 1002:   	    $fnum++;
 1003: 	}
 1004: # Form to open or close sequences
 1005: 	if ($filelink=~/\.(page|sequence)$/) {
 1006: 	    my $curdir = $startdir.$filecom[0].'/';
 1007: 	    &begin_form($r,$curdir);
 1008: 	    $indent--;
 1009: 	}
 1010: # General indentation
 1011: 	if ($indent > 0 and $indent < 16) {
 1012: 	    $r->print("<img alt=\"\" src='",$iconpath,"whitespace",$indent,
 1013: 		      ".gif' class='LC_icon' />\n");
 1014: 	} elsif ($indent >0) {
 1015: 	    my $ten = int($indent/10.);
 1016: 	    my $rem = $indent%10.0;
 1017: 	    my $count = 0;
 1018: 	    while ($count < $ten) {
 1019: 		$r->print("<img alt=\"\" src=".$iconpath.
 1020: 			  "whitespace10.gif class='LC_icon' />\n");
 1021: 	    $count++;
 1022: 	    }
 1023: 	    $r->print("<img alt=\"\" src=",$iconpath,"whitespace",$rem,
 1024: 		      ".gif class='LC_icon' />\n") if $rem > 0;
 1025: 	}
 1026: # Sequence open/close icon
 1027: 	if ($filelink=~/\.(page|sequence)$/) {
 1028: 	    my $curdir = $startdir.$filecom[0].'/';
 1029: 	    my $anchor = $curdir;
 1030: 	    $anchor =~ s/\W//g;
 1031: 	    $r->print ('<input type="hidden" name="acts" value="" />');
 1032: 	    $r->print ('<a name="'.$anchor.'"></a><input src="'.$iconpath.
 1033: 		       'folder_pointer_'.$diropen.'.gif"');
 1034: 	    $r->print (' name="'.$msg.'" alt="'.$msg.'" type="image" class="LC_indexer_icon" />'.
 1035: 		       "\n");
 1036: 	}
 1037: # Filetype icons
 1038: 	$r->print("<img alt=\"\" src='$iconname' class='LC_icon' />\n");
 1039: 	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
 1040: 
 1041: 	$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink.
 1042: 		   "?inhibitmenu=yes','previewfile','450','500','no','yes','yes');\"".
 1043: 		   " target=\"_self\">$listname</a> ");
 1044: 	$quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta');
 1045: 	&Apache::loncommon::inhibit_menu_check(\$quotable_filelink);
 1046: 	$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink.
 1047: 		   "?inhibitmenu=yes','metadatafile','500','550','no','yes','no');\" ".
 1048: 		   " target=\"_self\">".&mt('metadata')."</a>) ");
 1049: # Close form to open/close sequence
 1050: 	if ($filelink=~/\.(page|sequence)$/) {
 1051: 	    $r->print('</form>');
 1052: 	}
 1053: 	$r->print("</span></td>\n");
 1054: 	if ($hash{'display_attrs_0'} == 1) {
 1055: 	    $r->print('<td> '.($title eq '' ? '&nbsp;' : $title).
 1056: 		      ' </td>'."\n");
 1057: 	}
 1058: 	$r->print('<td align="right"> ',
 1059: 		  $filecom[8]," </td>\n") 
 1060: 	    if $hash{'display_attrs_1'} == 1;
 1061: 	$r->print('<td> '.
 1062:                   (&Apache::lonlocal::locallocaltime($filecom[9]))." </td>\n")
 1063: 	    if $hash{'display_attrs_2'} == 1;
 1064: 	$r->print('<td> '.
 1065:                   (&Apache::lonlocal::locallocaltime($filecom[10]))." </td>\n")
 1066: 	    if $hash{'display_attrs_3'} == 1;
 1067: 
 1068: 	if ($hash{'display_attrs_4'} == 1) {
 1069: 	    my $author = &Apache::lonnet::metadata($filelink,'author');
 1070: 	    $r->print('<td> '.($author eq '' ? '&nbsp;' : $author).
 1071: 		      " </td>\n");
 1072: 	}
 1073: 	if ($hash{'display_attrs_5'} == 1) {
 1074: 	    my $keywords = &Apache::lonnet::metadata($filelink,'keywords');
 1075: 	    # $keywords = '&nbsp;' if (!$keywords);
 1076: 	    $r->print('<td> '.($keywords eq '' ? '&nbsp;' : $keywords).
 1077: 		      " </td>\n");
 1078: 	}
 1079: #'
 1080: 
 1081: 	if ($hash{'display_attrs_6'} == 1) {
 1082: 	    my $lang = &Apache::lonnet::metadata($filelink,'language');
 1083: 	    $lang = &Apache::loncommon::languagedescription($lang);
 1084: 	    $r->print('<td> '.($lang eq '' ? '&nbsp;' : $lang).
 1085: 		      " </td>\n");
 1086: 	}
 1087: 	if ($hash{'display_attrs_8'} == 1) {
 1088: # statistics
 1089: 	    &dynmetaread($filelink);
 1090: 	    $r->print("<td>");
 1091:             for (qw(count course stdno avetries difficulty disc clear technical
 1092:                 correct helpful depth)) {
 1093: 
 1094:                 &dynmetaprint($r,$filelink,$_);
 1095:             }
 1096: 	    $r->print("&nbsp;</td>\n");
 1097: 
 1098: 	}
 1099: 	if ($hash{'display_attrs_10'} == 1) {
 1100: 	    my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
 1101: 	    if($source eq 'open') {
 1102: 		my $sourcelink = &Apache::lonsource::make_link($filelink,$listname);
 1103: 		my $quotable_sourcelink = &Apache::loncommon::escape_single($sourcelink);
 1104: 		&Apache::loncommon::inhibit_menu_check(\$quotable_sourcelink);
 1105: 		$r->print('<td>'."<a href=\"javascript:openWindow('"
 1106: 			  .$quotable_sourcelink.
 1107: 			  "', 'previewsource', '700', '700', 'no', 'yes','yes');\"".
 1108: 			  " target=\"_self\">".&mt('Source Code')."</a> "."</td>\n");
 1109: 	    } else { #A cuddled else. :P
 1110: 		$r->print("<td>&nbsp;</td>\n");
 1111: 	    }
 1112: 	}
 1113: 	if ($hash{'display_attrs_11'} == 1) {
 1114: # links
 1115: 	   &dynmetaread($filelink);
 1116: 	   $r->print('<td>');
 1117: 	   &coursecontext($r,$filelink);
 1118:            for (qw(goto_list comefrom_list sequsage_list dependencies course_list)) {
 1119:                &dynmetaprint($r,$filelink,$_);
 1120:            }
 1121:            $r->print('</td>');
 1122:         }
 1123:         if ($hash{'display_attrs_7'} == 1) {
 1124: # Show resource
 1125: 	   my $output=&showpreview($filelink);
 1126:            $r->print('<td> '.($output eq '' ? '&nbsp;':$output).
 1127: 		      " </td>\n");
 1128:         }
 1129:         if ($hash{'display_attrs_12'} == 1) {
 1130:             my $subject = &Apache::lonnet::metadata($filelink,'subject');
 1131:             $r->print('<td> '.($subject eq '' ? '&nbsp;' : $subject).
 1132:                       " </td>\n");
 1133:         }
 1134: 
 1135:         if ($hash{'display_attrs_13'} == 1) {
 1136:             my $notes = &Apache::lonnet::metadata($filelink,'notes');
 1137:             $r->print('<td> '.($notes eq '' ? '&nbsp;' : $notes).
 1138:                       " </td>\n");
 1139:         }
 1140: 
 1141:         if ($hash{'display_attrs_14'} == 1) {
 1142:             my $abstract = &Apache::lonnet::metadata($filelink,'abstract');
 1143:             $r->print('<td> '.($abstract eq '' ? '&nbsp;' : $abstract).
 1144:                       " </td>\n");
 1145:         }
 1146: 
 1147:         if ($hash{'display_attrs_15'} == 1) {
 1148:             my $gradelevel = &Apache::lonnet::metadata($filelink,'gradelevel');
 1149:             $r->print('<td> '.($gradelevel eq '' ? '&nbsp;' : $gradelevel).
 1150:                       " </td>\n");
 1151:         }
 1152: 
 1153:         if ($hash{'display_attrs_16'} == 1) {
 1154:             my $standards = &Apache::lonnet::metadata($filelink,'standards');
 1155:             $r->print('<td> '.($standards eq '' ? '&nbsp;' : $standards).
 1156:                       " </td>\n");
 1157:         }
 1158: 
 1159: 	$r->print("</tr>\n");
 1160:     }
 1161: 
 1162: # -- display directory
 1163:     if ($fnptr == $dirptr) {
 1164: 	my $curdir = $startdir.$filecom[0].'/';
 1165: 	my $anchor = $curdir;
 1166: 	$anchor =~ s/\W//g;
 1167: 	$r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");
 1168: 	&begin_form ($r,$curdir);
 1169: 	my $indentm1 = $indent-1;
 1170: 	if ($indentm1 < 16 and $indentm1 > 0) {
 1171: 	    $r->print("<img alt=\"\" src=",$iconpath,"whitespace",$indentm1,
 1172: 		      ".gif class='LC_icon' />\n");
 1173: 	} else {
 1174: 	    my $ten = int($indentm1/10.);
 1175: 	    my $rem = $indentm1%10.0;
 1176: 	    my $count = 0;
 1177: 	    while ($count < $ten) {
 1178: 		$r->print ("<img alt=\"\" src=",$iconpath
 1179: 			   ,"whitespace10.gif class='LC_icon' />\n");
 1180: 		$count++;
 1181: 	    }
 1182: 	    $r->print ("<img alt=\"\" src=",$iconpath,"whitespace",$rem,
 1183: 		       ".gif class='LC_icon' />\n") if $rem > 0;
 1184: 	}
 1185: 	$r->print ('<input type="hidden" name="acts" value="" />');
 1186: 	$r->print ('<a name="'.$anchor.'"></a><input src="'.$iconpath.
 1187: 		   'folder_pointer_'.$diropen.'.gif"');
 1188: 	$r->print (' name="'.$msg.'" alt="'.$msg.'" type="image" class="LC_indexer_icon" />'.
 1189: 		   "\n");
 1190: 	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
 1191: 	$r->print ('<a href="javascript:gothere(\''
 1192: 		   .$quotable_curdir.'\')">'
 1193: 		   .'<img alt="'.&mt('Open Folder').'"src="'.
 1194: 		   $iconpath.'folder_'.$diropen.'.gif" class="LC_icon" /></a>'.
 1195: 		   "\n");
 1196: 	$r->print ("$listname</form></td>\n");
 1197: # Attributes
 1198: 	my $filelink = $startdir.$filecom[0].'/default';
 1199: 
 1200: 	if ($hash{'display_attrs_0'} == 1) {
 1201: 	    my $title = &Apache::lonnet::gettitle($filelink);
 1202: 	    $r->print('<td> '.($title eq '' ? '&nbsp;' : $title).
 1203: 		      ' </td>'."\n");
 1204: 	}
 1205: 	$r->print('<td align=right> ',
 1206: 		  $filecom[8]," </td>\n") 
 1207: 	    if $hash{'display_attrs_1'} == 1;
 1208: 	$r->print('<td> '.
 1209:                   (&Apache::lonlocal::locallocaltime($filecom[9]))." </td>\n")
 1210: 	    if $hash{'display_attrs_2'} == 1;
 1211: 	$r->print('<td> '.
 1212:                   (&Apache::lonlocal::locallocaltime($filecom[10]))." </td>\n")
 1213: 	    if $hash{'display_attrs_3'} == 1;
 1214: 
 1215: 	if ($hash{'display_attrs_4'} == 1) {
 1216: 	    my $author = &Apache::lonnet::metadata($filelink,'author');
 1217: 	    $r->print('<td> '.($author eq '' ? '&nbsp;' : $author).
 1218: 		      " </td>\n");
 1219: 	}
 1220: 	if ($hash{'display_attrs_5'} == 1) {
 1221: 	    my $keywords = &Apache::lonnet::metadata($filelink,'keywords');
 1222: 	    # $keywords = '&nbsp;' if (!$keywords);
 1223: 	    $r->print('<td> '.($keywords eq '' ? '&nbsp;' : $keywords).
 1224: 		      " </td>\n");
 1225: 	}
 1226: 	if ($hash{'display_attrs_6'} == 1) {
 1227: 	    my $lang = &Apache::lonnet::metadata($filelink,'language');
 1228: 	    $lang = &Apache::loncommon::languagedescription($lang);
 1229: 	    $r->print('<td> '.($lang eq '' ? '&nbsp;' : $lang).
 1230: 		      " </td>\n");
 1231: 	}
 1232: 	if ($hash{'display_attrs_8'} == 1) {
 1233: 	   $r->print('<td>&nbsp;</td>');
 1234: 	}
 1235:  	if ($hash{'display_attrs_10'} == 1) {
 1236: 	   $r->print('<td>&nbsp;</td>');
 1237: 	}
 1238: 	if ($hash{'display_attrs_7'} == 1) {
 1239: 	   $r->print('<td>&nbsp;</td>');
 1240:         }
 1241:         if ($hash{'display_attrs_12'} == 1) {
 1242:             my $subject = &Apache::lonnet::metadata($filelink,'subject');
 1243:             $r->print('<td> '.($subject eq '' ? '&nbsp;' : $subject).
 1244:                       " </td>\n");
 1245:         }
 1246:         if ($hash{'display_attrs_11'} == 1) {
 1247:             $r->print('<td>&nbsp;</td>');
 1248:         }
 1249:         if ($hash{'display_attrs_12'} == 1) {
 1250:             my $subject = &Apache::lonnet::metadata($filelink,'subject');
 1251:             $r->print('<td> '.($subject eq '' ? '&nbsp;' : $subject).
 1252:                       " </td>\n");
 1253:         }
 1254:         if ($hash{'display_attrs_13'} == 1) {
 1255:             my $notes = &Apache::lonnet::metadata($filelink,'notes');
 1256:             $r->print('<td> '.($notes eq '' ? '&nbsp;' : $notes).
 1257:                       " </td>\n");
 1258:         }
 1259:         if ($hash{'display_attrs_14'} == 1) {
 1260:             my $abstract = &Apache::lonnet::metadata($filelink,'abstract');
 1261:             $r->print('<td> '.($abstract eq '' ? '&nbsp;' : $abstract).
 1262:                       " </td>\n");
 1263:         }
 1264:         if ($hash{'display_attrs_15'} == 1) {
 1265:             my $gradelevel = &Apache::lonnet::metadata($filelink,'gradelevel');
 1266:             $r->print('<td> '.($gradelevel eq '' ? '&nbsp;' : $gradelevel).
 1267:                       " </td>\n");
 1268:         }
 1269:         if ($hash{'display_attrs_16'} == 1) {
 1270:             my $standards = &Apache::lonnet::metadata($filelink,'standards');
 1271:             $r->print('<td> '.($standards eq '' ? '&nbsp;' : $standards).
 1272:                       " </td>\n");
 1273:         }
 1274: 	$r->print('</tr>');
 1275:     }
 1276: 
 1277: }
 1278: 
 1279: sub coursecontext {
 1280:     my ($r,$filelink)=@_;
 1281:     my $filesymb=&Apache::lonnet::symbread($filelink);
 1282:     if ($filesymb) {
 1283: 	my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb);
 1284: 	$r->print(&mt('Already in this course:<br />[_1] in folder/map [_2].<br />',
 1285: 	      &Apache::lonnet::gettitle($resource),
 1286: 	      &Apache::lonnet::gettitle($map)));
 1287:     }
 1288: }
 1289: 
 1290: sub showpreview {
 1291:     my ($filelink)=@_;
 1292:     if ($filelink=~m-^(/ext/|http://)-) {
 1293: 	return &mt('External Resource, preview not enabled');
 1294:     }
 1295:     my ($curfext)=($filelink=~/\.(\w+)$/);
 1296:     my $output='';
 1297:     my $embstyle=&Apache::loncommon::fileembstyle($curfext);
 1298:     if ($embstyle eq 'ssi') {
 1299:        my $cache = $Apache::lonnet::perlvar{'lonDocRoot'}.$filelink;
 1300:        if ($env{'request.gcicontext'} eq 'buildtest') {
 1301:            $cache .= '.tn'; 
 1302:        } else {
 1303:            $cache .= '.tmp';
 1304:        }
 1305:        if ((!$env{'form.updatedisplay'}) &&
 1306:                     (-e $cache)) {
 1307:           open(FH,$cache);
 1308:           $output=join("\n",<FH>);
 1309:           close(FH);
 1310:        } else {
 1311: # In update display mode, remove old cache. This is done to retroactively
 1312: # clean up course context renderings.
 1313: 	  if (-e $cache) {
 1314: 	       unlink($cache);
 1315: 	  }
 1316:           $output=&Apache::lonnet::ssi_body($filelink);
 1317: # Is access denied? Don't render, don't store
 1318:           if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/s) {
 1319:              $output='';
 1320: # Was this rendered in course content? Don't store
 1321:           } elsif (!&Apache::lonnet::symbread($filelink)) {
 1322:              open(FH,">$cache");
 1323:              print FH $output;
 1324:              close(FH);
 1325:           }
 1326:        }
 1327:        $output='<font size="-2">'.$output.'</font>';
 1328:     } elsif ($embstyle eq 'img') {
 1329:        $output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />';
 1330:     } elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) {
 1331:        $output='<img  alt="'.&mt('Preview').'" src="http://'.
 1332:                  &Apache::lonnet::hostname(&Apache::lonnet::homeserver($2,$1)).
 1333:                  '/cgi-bin/thumbnail.gif?url='.$filelink.'" />';
 1334:     }
 1335:     return $output;
 1336: }
 1337: 
 1338: sub dynmetaprint {
 1339:     my ($r,$filelink,$item)=@_;
 1340:     if ($dynhash{$filelink}->{$item}) {
 1341: 	$r->print("\n<br />".$fieldnames{$item}.': '.
 1342: 		  &Apache::lonmeta::prettyprint($item,
 1343: 						$dynhash{$filelink}->{$item},
 1344: 		  (($env{'form.catalogmode'} ne 'import')?'preview':''),
 1345: 		  '',
 1346: 		  (($env{'form.catalogmode'} eq 'import')?'document.forms.fileattr':''),1));
 1347:     }
 1348: }
 1349: 
 1350: # ------------------- prints the beginning of a form for directory or file link
 1351: sub begin_form {
 1352:     my ($r,$uri) = @_;
 1353:     my $anchor = $uri;
 1354:     $anchor =~ s/\W//g;
 1355:     $uri=&Apache::loncommon::escape_single($uri);
 1356:     $r->print ('<form method="post" name="dirpath'.$dnum.'" action="'.$uri.
 1357: 	       '#'.$anchor.
 1358: 	       '" onsubmit="return rep_dirpath(\''.$dnum.'\''.
 1359: 	       ',document.forms.fileattr.acts.value)" '.
 1360: 	       'enctype="application/x-www-form-urlencoded">'."\n");
 1361:     $r->print ('<input type="hidden" name="openuri" value="'.$uri.'" />'.
 1362: 	       "\n");
 1363:     $r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n");
 1364:     $r->print(&Apache::loncommon::inhibit_menu_check('input'));
 1365:     $dnum++;
 1366: }
 1367: 
 1368: # --------- settings whenever the user causes the indexer window to be launched
 1369: sub start_fresh_session {
 1370:     my ($hash) = @_;
 1371:     delete $hash->{'form.catalogmode'};
 1372:     delete $hash->{'form.mode'};
 1373:     delete $hash->{'form.form'};
 1374:     delete $hash->{'form.element'};
 1375:     delete $hash->{'form.omit'};
 1376:     delete $hash->{'form.only'};
 1377:     foreach (keys %{$hash}) {
 1378:         delete $hash->{$_} if (/^(pre_|store)/);
 1379:     }
 1380: }
 1381: 
 1382: # ------------------------------------------------------------------- setvalues
 1383: sub setvalues {
 1384:     # setvalues is used in registerurl to synchronize the database
 1385:     # hash and environment hashes
 1386:     my ($H1,$h1key,$H2,$h2key) =@_;
 1387:     #
 1388:     if (exists $H2->{$h2key}) {
 1389: 	$H1->{$h1key} = $H2->{$h2key};
 1390:     } elsif (exists $H1->{$h1key}) {
 1391: 	$H2->{$h2key} = $H1->{$h1key};
 1392:     } 
 1393: }
 1394: 
 1395: 1;
 1396: 
 1397: sub cleanup {
 1398:     if (tied(%hash)){
 1399: 	&Apache::lonnet::logthis('Cleanup indexer: hash');
 1400:     }
 1401:     return OK;
 1402: }
 1403: 
 1404: 
 1405: 
 1406: 
 1407: 
 1408: =head1 NAME
 1409: 
 1410: Apache::lonindexer - mod_perl module for cross server filesystem browsing
 1411: 
 1412: =head1 SYNOPSIS
 1413: 
 1414: Invoked by /etc/httpd/conf/srm.conf:
 1415: 
 1416:  <LocationMatch "^/res.*/$">
 1417:  SetHandler perl-script
 1418:  PerlHandler Apache::lonindexer
 1419:  </LocationMatch>
 1420: 
 1421: =head1 INTRODUCTION
 1422: 
 1423: This module enables a scheme of browsing across a cross server.
 1424: 
 1425: This is part of the LearningOnline Network with CAPA project
 1426: described at http://www.lon-capa.org.
 1427: 
 1428: =head1 BEGIN SUBROUTINE
 1429: 
 1430: This routine is only run once after compilation.
 1431: 
 1432: =over 4
 1433: 
 1434: =item *
 1435: 
 1436: Initializes %language hash table.
 1437: 
 1438: =back
 1439: 
 1440: =head1 HANDLER SUBROUTINE
 1441: 
 1442: This routine is called by Apache and mod_perl.
 1443: 
 1444: =over 4
 1445: 
 1446: =item *
 1447: 
 1448: read in machine configuration variables
 1449: 
 1450: =item *
 1451: 
 1452: see if called from an interactive mode
 1453: 
 1454: =item *
 1455: 
 1456: refresh environment with user database values (in %hash)
 1457: 
 1458: =item *
 1459: 
 1460: define extra fields and buttons in case of special mode
 1461: 
 1462: =item *
 1463: 
 1464: set catalogmodefunctions to have extra needed javascript functionality
 1465: 
 1466: =item *
 1467: 
 1468: print header
 1469: 
 1470: =item *
 1471: 
 1472: evaluate actions from previous page (both cumulatively and chronologically)
 1473: 
 1474: =item *
 1475: 
 1476: output title
 1477: 
 1478: =item *
 1479: 
 1480: get state of file attributes to be showing
 1481: 
 1482: =item *
 1483: 
 1484: output state of file attributes to be showing
 1485: 
 1486: =item *
 1487: 
 1488: output starting row to the indexed file/directory hierarchy
 1489: 
 1490: =item *
 1491: 
 1492: read in what directories have previously been set to "open"
 1493: 
 1494: =item *
 1495: 
 1496: if not at top level, provide an uplink arrow
 1497: 
 1498: =item *
 1499: 
 1500: recursively go through all the directories and output as appropriate
 1501: 
 1502: =item *
 1503: 
 1504: information useful for group import
 1505: 
 1506: =item *
 1507: 
 1508: end the tables
 1509: 
 1510: =item *
 1511: 
 1512: end the output and return
 1513: 
 1514: =back
 1515: 
 1516: =head1 OTHER SUBROUTINES
 1517: 
 1518: =over 4
 1519: 
 1520: =item *
 1521: 
 1522: scanDir - recursive scan of a directory
 1523: 
 1524: =item *
 1525: 
 1526: get_list - get complete matched list based on the uri (returns an array)
 1527: 
 1528: =item *
 1529: 
 1530: match_ext - filters out files based on extensions (returns an array)
 1531: 
 1532: =item *
 1533: 
 1534: display_line - displays one line in appropriate table format
 1535: 
 1536: =item *
 1537: 
 1538: begin_form - prints the beginning of a form for directory or file link
 1539: 
 1540: =item *
 1541: 
 1542: start_fresh_session - settings whenever the user causes the indexer window
 1543: to be launched
 1544: 
 1545: =back
 1546: 
 1547: =cut

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