version 1.37, 2002/06/27 14:08:05
|
version 1.40, 2002/08/12 18:21:42
|
Line 411 sub handler {
|
Line 411 sub handler {
|
if ($ENV{'request.course.fn'}) { |
if ($ENV{'request.course.fn'}) { |
$fn=$ENV{'request.course.fn'}; |
$fn=$ENV{'request.course.fn'}; |
if (-e "$fn.db") { |
if (-e "$fn.db") { |
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) && |
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) && |
(tie(%parmhash,'GDBM_File', |
(tie(%parmhash,'GDBM_File', |
$ENV{'request.course.fn'}.'_parms.db', |
$ENV{'request.course.fn'}.'_parms.db', |
&GDBM_READER,0640))) { |
&GDBM_READER(),0640))) { |
$hashtied=1; |
$hashtied=1; |
} |
} |
} |
} |
Line 710 sub handler {
|
Line 710 sub handler {
|
for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; } |
for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; } |
} |
} |
if (!$linkid) { $linkid=$rid; } |
if (!$linkid) { $linkid=$rid; } |
|
if ($hash{'randomout_'.$rid}) { |
|
$adde=' <i>(hidden)</i>'.$adde; |
|
} |
$r->print($add.$indentstr); |
$r->print($add.$indentstr); |
if ($rid) { |
if ($rid) { |
$r->print('<a href="'.$hash{'src_'.$linkid}. |
$r->print('<a href="'.$hash{'src_'.$linkid}. |
'?symb='.&Apache::lonnet::escape($symb) |
(($hash{'src_'.$linkid}=~/\?/)?'&':'?'). |
|
'symb='.&Apache::lonnet::escape($symb) |
.'">'. |
.'">'. |
$hwk.$hash{'title_'.$rid}.$hwke.'</a>'); |
$hwk.$hash{'title_'.$rid}.$hwke.'</a>'); |
} |
} |