version 1.41, 2002/05/09 23:01:41
|
version 1.43, 2002/06/13 15:05:16
|
Line 81 my $fnum; # file counter
|
Line 81 my $fnum; # file counter
|
my $dnum; # directory counter |
my $dnum; # directory counter |
|
|
# ----- Used to include or exclude files with certain extensions. |
# ----- Used to include or exclude files with certain extensions. |
my @Only = (); |
my @Only = (); |
my @Omit = (); |
my @Omit = (); |
|
|
|
|
Line 95 sub handler {
|
Line 95 sub handler {
|
$dnum=0; |
$dnum=0; |
untie %hash; |
untie %hash; |
|
|
|
# Deal with stupid global variables (is there a way around making |
|
# these global to this package? It is just so wrong....) |
|
undef (@Only); |
|
undef (@Omit); |
|
|
# ------------------------------------- read in machine configuration variables |
# ------------------------------------- read in machine configuration variables |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
Line 127 sub handler {
|
Line 132 sub handler {
|
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if ($ENV{'form.launch'} eq '1') { |
if ($ENV{'form.launch'} eq '1') { |
&start_fresh_session(); |
&start_fresh_session(); |
} |
} |
|
|
# -------------------- refresh environment with user database values (in %hash) |
# -------------------- refresh environment with user database values (in %hash) |
if ($hash{'mode_catalog'} eq 'interactive') { |
if ($hash{'mode_catalog'} eq 'interactive') { |
$ENV{'form.catalogmode'}='interactive'; |
$ENV{'form.catalogmode'}='interactive'; |
Line 743 sub display_line {
|
Line 747 sub display_line {
|
$title = &Apache::lonnet::metadata($filelink,'title') |
$title = &Apache::lonnet::metadata($filelink,'title') |
if ($metafile == 1); |
if ($metafile == 1); |
$title=$listname unless $title; |
$title=$listname unless $title; |
my $titleesc=$title; |
my $titleesc=HTML::Entities::encode($title); |
$titleesc=~s/\'/\\'/; #' (clean up this spare quote |
$titleesc=~s/\'/\\'/; #' (clean up this spare quote) |
$r->print("<a href=\"javascript:select_data(\'", |
$r->print("<a href=\"javascript:select_data(\'", |
$titleesc,"','",$filelink,"')\">"); |
$titleesc,"','",$filelink,"')\">"); |
$r->print("<img src='",$iconpath,"select.gif' border='0' /></a>". |
$r->print("<img src='",$iconpath,"select.gif' border='0' /></a>". |
Line 756 sub display_line {
|
Line 760 sub display_line {
|
$title = &Apache::lonnet::metadata($filelink,'title') |
$title = &Apache::lonnet::metadata($filelink,'title') |
if ($metafile == 1); |
if ($metafile == 1); |
$title=$listname unless $title; |
$title=$listname unless $title; |
|
my $titleesc=&HTML::Entities::encode($title); |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<input type='checkbox' name='filelink"."' ". |
$r->print("<input type='checkbox' name='filelink"."' ". |
"value='$filelink' onClick='". |
"value='$filelink' onClick='". |
Line 765 sub display_line {
|
Line 770 sub display_line {
|
} |
} |
$r->print(">\n"); |
$r->print(">\n"); |
$r->print("<input type='hidden' name='title"."' ". |
$r->print("<input type='hidden' name='title"."' ". |
"value='$title'>\n"); |
"value='$titleesc'>\n"); |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_title"}=$title; |
$hash{"pre_${fnum}_title"}=$titleesc; |
$fnum++; |
$fnum++; |
} |
} |
|
|