loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.269, 2005/11/22 02:24:50	version 1.271, 2005/12/14 16:44:09
Line 557 sub plink {	Line 557 sub plink {
my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);	my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
my ($hour,$min,$sec,$val)=&preset_defaults($parmname);	my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
unless (defined($winvalue)) { $winvalue=$val; }	unless (defined($winvalue)) { $winvalue=$val; }
return	return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$marker.'" /></td></tr><tr><td align="center">'.
'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
.$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.	.$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
&valout($value,$type).'</a><a name="'.$marker.'"></a>';	&valout($value,$type).'</a></td></tr></table>';
}	}

sub startpage {	sub startpage {
Line 2872 ENDMAINFORMHEAD	Line 2872 ENDMAINFORMHEAD
action => 'setrestrictmeta',	action => 'setrestrictmeta',
permission => $parm_permission,	permission => $parm_permission,
},	},
{ text => 'Manange Course Slots',	{ text => 'Manage Course Slots',
url => '/adm/slotrequest?command=showslots',	url => '/adm/slotrequest?command=showslots',
permission => $vgr,	permission => $vgr,
},	},