loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.94, 2003/05/27 18:01:39	version 1.95, 2003/05/27 21:22:13
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 287 sub plink {	Line 288 sub plink {
sub startpage {	sub startpage {
my ($r,$id,$udom,$csec,$uname)=@_;	my ($r,$id,$udom,$csec,$uname)=@_;

my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',	my $bodytag=&Apache::lonmenu::registerurl().
'onUnload="pclose()"');	&Apache::loncommon::bodytag('Set Course Parameters','',
	'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();