version 1.213, 2011/12/09 01:04:27
|
version 1.213.4.3, 2012/08/27 16:03:24
|
Line 34
|
Line 34
|
## 1. Description of functions ## |
## 1. Description of functions ## |
## 2. Modules used by this module ## |
## 2. Modules used by this module ## |
## 3. Choices for different output views (detailed, summary, xml, etc) ## |
## 3. Choices for different output views (detailed, summary, xml, etc) ## |
## 4. BEGIN block (to be run once after compilation) ## |
## 4. Handling routine called via Apache and mod_perl ## |
## 5. Handling routine called via Apache and mod_perl ## |
## 5. Other subroutines ## |
## 6. Other subroutines ## |
|
## ## |
## ## |
############################################################################### |
############################################################################### |
|
|
Line 60 use LONCAPA qw(:match);
|
Line 59 use LONCAPA qw(:match);
|
# ---------------------------------------- variables used throughout the module |
# ---------------------------------------- variables used throughout the module |
my %hash; # global user-specific gdbm file |
my %hash; # global user-specific gdbm file |
my %dirs; # keys are directories, values are the open/close status |
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 %dynhash; # hash of hashes for dynamic metadata |
my %dynread; # hash of directories already read for dynamic metadata |
my %dynread; # hash of directories already read for dynamic metadata |
my %fieldnames; # Metadata fieldnames |
my %fieldnames; # Metadata fieldnames |
Line 424 ENDHEADER
|
Line 422 ENDHEADER
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Browse published resources', |
'text' => 'Browse published resources', |
'href' => '/res/fhwfdev/?launch=1', |
'href' => '/res/'.$headerdom.'/?launch=1', |
}); |
}); |
$r->print(&Apache::loncommon::start_page('Browse published resources',$js, |
$r->print(&Apache::loncommon::start_page('Browse published resources',$js, |
{'domain' => $headerdom,}) |
{'domain' => $headerdom,}) |
Line 1008 $r->print ('<input type="hidden" name="a
|
Line 1006 $r->print ('<input type="hidden" name="a
|
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
# Wishlistlink |
# Wishlistlink |
$r->print('</form></td><td><a href="javascript:;" '. |
$r->print('</form></td><td><a href="javascript:;" '. |
'title="'.&mt('Set a link for this folder to wishlist').'" '. |
'title="'.&mt('Save a link for this folder in your personal Stored Links repository').'" '. |
'onclick="set_wishlistlink('."'$plainname','$startdir$listname'".')">'. |
'onclick="set_wishlistlink('."'$plainname','$startdir$listname'".')">'. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'alt="'.&mt('set wishlistlink').'" style="width:22px;"/></a>'.$tabtag); |
'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a>'.$tabtag); |
$r->print(&Apache::loncommon::end_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_row()); |
return OK; |
return OK; |
} |
} |
Line 1103 $r->print ('<input type="hidden" name="a
|
Line 1101 $r->print ('<input type="hidden" name="a
|
} |
} |
$r->print("</td>\n"); |
$r->print("</td>\n"); |
# Wishlistlink |
# Wishlistlink |
$r->print('<td><a href="javascript:;" title="'.&mt('Set a link for this resource to wishlist').'" '. |
$r->print('<td><a href="javascript:;" title="'.&mt('Save a link for this resource in your personal Stored Links repository').'" '. |
'onclick="set_wishlistlink('."'".&Apache::lonnet::gettitle($filelink). |
'onclick="set_wishlistlink('."'".&Apache::lonnet::gettitle($filelink). |
"','$startdir$listname'".')">'. |
"','$startdir$listname'".')">'. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'alt="'.&mt('set wishlistlink').'" style="width:22px;"/></a></td>'); |
'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a></td>'); |
if ($hash{'display_attrs_0'} == 1) { |
if ($hash{'display_attrs_0'} == 1) { |
$r->print('<td> '.($title eq '' ? ' ' : $title). |
$r->print('<td> '.($title eq '' ? ' ' : $title). |
' </td>'."\n"); |
' </td>'."\n"); |
Line 1258 $r->print ('<input type="hidden" name="a
|
Line 1256 $r->print ('<input type="hidden" name="a
|
$r->print ("$listname</a></form>"); |
$r->print ("$listname</a></form>"); |
# Wishlistlink |
# Wishlistlink |
$r->print('</td><td><a href="javascript:;" '. |
$r->print('</td><td><a href="javascript:;" '. |
'title="'.&mt('Set a link for this folder to wishlist').'" '. |
'title="'.&mt('Save a link for this folder in Stored Links').'" '. |
'onclick="set_wishlistlink('."'$listname','$startdir$listname'".')">'. |
'onclick="set_wishlistlink('."'$listname','$startdir$listname'".')">'. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '. |
'alt="'.&mt('set wishlistlink').'" style="width:22px;"/></a></td>'); |
'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a></td>'); |
# Attributes |
# Attributes |
my $filelink = $startdir.$filecom[0].'/default'; |
my $filelink = $startdir.$filecom[0].'/default'; |
|
|
Line 1489 This module enables a scheme of browsing
|
Line 1487 This module enables a scheme of browsing
|
This is part of the LearningOnline Network with CAPA project |
This is part of the LearningOnline Network with CAPA project |
described at http://www.lon-capa.org. |
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 |
=head1 HANDLER SUBROUTINE |
|
|
This routine is called by Apache and mod_perl. |
This routine is called by Apache and mod_perl. |