--- loncom/interface/lonindexer.pm 2012/08/27 16:03:24 1.213.4.3 +++ loncom/interface/lonindexer.pm 2012/05/15 01:41:27 1.214 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.213.4.3 2012/08/27 16:03:24 raeburn Exp $ +# $Id: lonindexer.pm,v 1.214 2012/05/15 01:41:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,8 +34,9 @@ ## 1. Description of functions ## ## 2. Modules used by this module ## ## 3. Choices for different output views (detailed, summary, xml, etc) ## -## 4. Handling routine called via Apache and mod_perl ## -## 5. Other subroutines ## +## 4. BEGIN block (to be run once after compilation) ## +## 5. Handling routine called via Apache and mod_perl ## +## 6. Other subroutines ## ## ## ############################################################################### @@ -59,6 +60,7 @@ use LONCAPA qw(:match); # ---------------------------------------- variables used throughout the module my %hash; # global user-specific gdbm file my %dirs; # keys are directories, values are the open/close status +my %language; # has the reference information present in language.tab my %dynhash; # hash of hashes for dynamic metadata my %dynread; # hash of directories already read for dynamic metadata my %fieldnames; # Metadata fieldnames @@ -422,7 +424,7 @@ ENDHEADER &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::lonhtmlcommon::add_breadcrumb({ 'text' => 'Browse published resources', - 'href' => '/res/'.$headerdom.'/?launch=1', + 'href' => '/res/fhwfdev/?launch=1', }); $r->print(&Apache::loncommon::start_page('Browse published resources',$js, {'domain' => $headerdom,}) @@ -1487,6 +1489,18 @@ This module enables a scheme of browsing This is part of the LearningOnline Network with CAPA project described at http://www.lon-capa.org. +=head1 BEGIN SUBROUTINE + +This routine is only run once after compilation. + +=over 4 + +=item * + +Initializes %language hash table. + +=back + =head1 HANDLER SUBROUTINE This routine is called by Apache and mod_perl.