version 1.2, 2003/03/26 04:57:04
|
version 1.3, 2003/03/26 16:39:40
|
Line 80 ENDSCRIPT
|
Line 80 ENDSCRIPT
|
# ---------------------------------------------------------------- Get the data |
# ---------------------------------------------------------------- Get the data |
my %courses= |
my %courses= |
&Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter); |
&Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter); |
|
$r->print('<form>'); |
foreach (keys %courses) { |
foreach (keys %courses) { |
$r->print($_.': '.$courses{$_}.'<br />'); |
my ($cdom,$cnum)=split(/\_/,$_); |
|
$r->print('<input type="button" value="Select" onClick="gochoose('. |
|
"'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('. |
|
($Apache::lonnet::domaindescription{$cdom}? |
|
$Apache::lonnet::domaindescription{$cdom}:$cdom).')<br />'); |
} |
} |
$r->print('</body></html>'); |
$r->print('</form></body></html>'); |
return OK; |
return OK; |
} |
} |
|
|