version 1.35, 2002/03/26 23:14:39
|
version 1.41, 2002/08/12 19:45:12
|
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 575 sub handler {
|
Line 575 sub handler {
|
} |
} |
$r->print('><script>window.focus();</script>'. |
$r->print('><script>window.focus();</script>'. |
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
'<h1>Navigate Course Map</h1>'. |
'<h1>Navigate Course Map</h1>'); |
"<h3>$date</h3>"); |
my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
|
if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); } |
|
$r->print("<h3>$date</h3>\n"); |
$r->rflush(); |
$r->rflush(); |
$r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '. |
$r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '. |
localtime($lastcheck). |
localtime($lastcheck). |
Line 612 sub handler {
|
Line 614 sub handler {
|
my $indent;my $indentstr; |
my $indent;my $indentstr; |
my $linkid; |
my $linkid; |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
|
$rid=~/(\d+)\.(\d+)$/; |
|
my $src= |
|
&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2}); |
|
my $symb= |
|
&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src; |
my $add='<td>'; |
my $add='<td>'; |
my $adde='</td>'; |
my $adde='</td>'; |
my $hwk='<font color="#223322">'; |
my $hwk='<font color="#223322">'; |
Line 622 sub handler {
|
Line 629 sub handler {
|
$rid=$1; |
$rid=$1; |
$add='<th bgcolor="#AAFF55"><a name="'.$rid.'">'; |
$add='<th bgcolor="#AAFF55"><a name="'.$rid.'">'; |
$adde='</th>'; |
$adde='</th>'; |
|
if (($ENV{'user.adv'}) && |
|
($parmhash{$symb.'.0.parameter_randompick'})) { |
|
$adde=' (randomly select '. |
|
$parmhash{$symb.'.0.parameter_randompick'}. |
|
')</th>'; |
|
} |
} |
} |
if ($rid=~/^j(.+)/) { $rid=$1; } |
if ($rid=~/^j(.+)/) { $rid=$1; } |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
Line 667 sub handler {
|
Line 680 sub handler {
|
$adde= |
$adde= |
'<font color=red size=+2><b> <</b></font>'.$adde; |
'<font color=red size=+2><b> <</b></font>'.$adde; |
} |
} |
my $src= |
|
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
|
$rid=~/^(\d+)\.(\d+)$/; |
|
my $symb= |
|
&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src; |
|
if ($discussiontimes{$symb}>$lastcheck) { |
if ($discussiontimes{$symb}>$lastcheck) { |
$adde= |
$adde= |
'<img border=0 src="/adm/lonMisc/chat.gif">'. |
'<img border=0 src="/adm/lonMisc/chat.gif">'. |
Line 704 sub handler {
|
Line 712 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>'); |
} |
} |