loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.97, 2003/06/04 18:24:33	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();