version 1.164, 2007/06/28 21:42:49
|
version 1.165, 2007/06/28 22:28:22
|
Line 410 ENDHEADER
|
Line 410 ENDHEADER
|
# sorting through the actions and changing the global database hash |
# sorting through the actions and changing the global database hash |
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
if ($ahash{$key} eq '1') { |
if ($ahash{$key} eq '1') { |
$hash{'store_'.$hash{'pre_'.$key.'_link'}}=1; |
$hash{'store_'.$hash{'pre_'.$key.'_link'}}= |
# $hash{'pre_'.$key.'_title'}; |
$hash{'pre_'.$key.'_title'}; |
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}= |
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}= |
$hash{'storectr'}+0; |
$hash{'storectr'}+0; |
$hash{'storectr'}++; |
$hash{'storectr'}++; |
Line 951 sub display_line {
|
Line 951 sub display_line {
|
$r->print(" />\n"); |
$r->print(" />\n"); |
$r->print("</form></td><td nowrap='nowrap' valign='top'>"); |
$r->print("</form></td><td nowrap='nowrap' valign='top'>"); |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_link"}=$filelink; |
|
$hash{"pre_${fnum}_title"}=&Apache::lonnet::gettitle($filelink,'title'); |
|
if (!$hash{"pre_${fnum}_title"}) { |
|
$hash{"pre_${fnum}_title"} = 'Untitled'; |
|
} |
$fnum++; |
$fnum++; |
} |
} |
# Form to open or close sequences |
# Form to open or close sequences |