version 1.95, 2003/05/27 21:22:13
|
version 1.98, 2003/06/06 02:24:49
|
Line 58 use Apache::lonnet;
|
Line 58 use Apache::lonnet;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonmenu; |
|
use GDBM_File; |
use GDBM_File; |
use Apache::lonhomework; |
use Apache::lonhomework; |
use Apache::lonxml; |
use Apache::lonxml; |
Line 288 sub plink {
|
Line 287 sub plink {
|
sub startpage { |
sub startpage { |
my ($r,$id,$udom,$csec,$uname)=@_; |
my ($r,$id,$udom,$csec,$uname)=@_; |
|
|
my $bodytag=&Apache::lonmenu::registerurl(). |
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
&Apache::loncommon::bodytag('Set Course Parameters','', |
'onUnload="pclose()"'); |
'onUnload="'. |
|
&Apache::lonmenu::unloadevents().';pclose();" onLoad="'. |
|
&Apache::lonmenu::loadevents().'"'). |
|
&Apache::lonmenu::regflush(); |
|
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
&Apache::loncommon::selectstudent_link('parmform','uname','udom'); |
&Apache::loncommon::selectstudent_link('parmform','uname','udom'); |
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |