loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.62, 2003/07/05 10:07:11	version 1.64, 2003/07/09 10:05:15
Line 539 ENDHEADERS	Line 539 ENDHEADERS
$iconpath = $r->dir_config('lonIconsURL') . "/";	$iconpath = $r->dir_config('lonIconsURL') . "/";

my $now=time;	my $now=time;
#
# FIXME: hack to disable new problem
#
my $noeggforyou='';
unless ($ENV{'user.debug'}) {
$noeggforyou='alert("Sorry, not implemented yet."); return 0;';
}
# print screen	# print screen
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
Line 590 function makesmppage() {	Line 584 function makesmppage() {
}	}

function makesmpproblem() {	function makesmpproblem() {
$noeggforyou
var title=prompt('Listed Title for the Problem');	var title=prompt('Listed Title for the Problem');
if (title) {	if (title) {
this.document.forms.newsmpproblem.importdetail.value=	this.document.forms.newsmpproblem.importdetail.value=
title+'=/adm/wrapper/uploaded/$udom/$uname/$now.problem';	title+'=/res/lib/templates/simpleproblem.problem';
this.document.forms.newsmpproblem.submit();	this.document.forms.newsmpproblem.submit();
}	}
}	}