version 1.152, 2006/09/21 22:11:12
|
version 1.154, 2006/12/05 02:55:53
|
Line 54 use Apache::File;
|
Line 54 use Apache::File;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonsource(); |
use Apache::lonsource(); |
use GDBM_File; |
use GDBM_File; |
|
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 |
Line 366 function gothere(val) {
|
Line 367 function gothere(val) {
|
</script> |
</script> |
ENDHEADER |
ENDHEADER |
|
|
my ($headerdom)=($uri=~/^\/res\/(\w+)\//); |
my ($headerdom)=($uri=~m{^/res/($match_domain)/}); |
$r->print(&Apache::loncommon::start_page('Browse Resources',$js, |
$r->print(&Apache::loncommon::start_page('Browse Resources',$js, |
{'domain' => $headerdom,})); |
{'domain' => $headerdom,})); |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
Line 913 sub display_line {
|
Line 914 sub display_line {
|
$quotable_filelink,"')\">"); |
$quotable_filelink,"')\">"); |
$r->print("<img alt=\"\" src='",$iconpath,"select.gif' border='0' /></a>". |
$r->print("<img alt=\"\" src='",$iconpath,"select.gif' border='0' /></a>". |
"\n"); |
"\n"); |
$r->print("</td><td nowrap>"); |
$r->print("</td><td nowrap='nowrap' valign='top'>"); |
} elsif ($env{'form.catalogmode'} eq 'import') { |
} elsif ($env{'form.catalogmode'} eq 'import') { |
$r->print("<form name='form$fnum' action=''>\n"); |
$r->print("<form name='form$fnum' action=''>\n"); |
$r->print("<input type='checkbox' name='filelink"."' ". |
$r->print("<input type='checkbox' name='filelink"."' ". |
Line 923 sub display_line {
|
Line 924 sub display_line {
|
$r->print("checked"); |
$r->print("checked"); |
} |
} |
$r->print(" />\n"); |
$r->print(" />\n"); |
$r->print("</form></td><td nowrap>"); |
$r->print("</form></td><td nowrap='nowrap' valign='top'>"); |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_link"}=$filelink; |
$fnum++; |
$fnum++; |
} |
} |
Line 1199 sub showpreview {
|
Line 1200 sub showpreview {
|
$output='<font size="-2">'.$output.'</font>'; |
$output='<font size="-2">'.$output.'</font>'; |
} elsif ($embstyle eq 'img') { |
} elsif ($embstyle eq 'img') { |
$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />'; |
$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />'; |
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) { |
} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) { |
$output='<img alt="'.&mt('Preview').'" src="http://'. |
$output='<img alt="'.&mt('Preview').'" src="http://'. |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}. |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}. |
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />'; |
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />'; |