version 1.9, 2003/10/13 22:24:51
|
version 1.12, 2003/11/04 16:33:10
|
Line 121 ENDSCRIPT
|
Line 121 ENDSCRIPT
|
&Apache::lonnet::courseiddump |
&Apache::lonnet::courseiddump |
($domainfilter,$descriptfilter,$timefilter); |
($domainfilter,$descriptfilter,$timefilter); |
$r->print('<form>'); |
$r->print('<form>'); |
foreach (keys %courses) { |
my %by_descrip; |
my ($cdom,$cnum)=split(/\_/,$_); |
foreach my $course (keys %courses) { |
|
$by_descrip{lc($courses{$course})}=$course; |
|
} |
|
foreach my $description (sort(keys(%by_descrip))) { |
|
my $course=$by_descrip{$description}; |
|
my ($cdom,$cnum)=split(/\_/,$course); |
$r->print('<input type="button" value="Select" onClick="gochoose('. |
$r->print('<input type="button" value="Select" onClick="gochoose('. |
"'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('. |
"'".$cnum."','".$cdom."')".'" /> '.$courses{$course}.' ('. |
($Apache::lonnet::domaindescription{$cdom}? |
($Apache::lonnet::domaindescription{$cdom}? |
$Apache::lonnet::domaindescription{$cdom}:$cdom). |
$Apache::lonnet::domaindescription{$cdom}:$cdom). |
")<br />\n"); |
")<br />\n"); |
} |
} |
|
if (!%courses) { $r->print(&mt('None found')); } |
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |