Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonhomework.pm between versions 1.321 and 1.356

version 1.321, 2010/09/27 22:15:32	version 1.356, 2015/07/17 19:11:09
Line 49 use Apache::matchresponse();	Line 49 use Apache::matchresponse();
use Apache::chemresponse();	use Apache::chemresponse();
use Apache::functionplotresponse();	use Apache::functionplotresponse();
use Apache::drawimage();	use Apache::drawimage();
	use Apache::loncapamath();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonparmset();
use Apache::lonlocal;	use Apache::lonlocal;
use Time::HiRes qw( gettimeofday tv_interval );	use Time::HiRes qw( gettimeofday tv_interval );
use HTML::Entities();	use HTML::Entities();
Line 129 sub get_target {	Line 131 sub get_target {
return ('web');	return ('web');
}	}
} elsif ($env{'request.state'} eq "construct") {	} elsif ($env{'request.state'} eq "construct") {
	#
	# We are in construction space, editing and testing problems
	#
if ( defined($env{'form.grade_target'}) ) {	if ( defined($env{'form.grade_target'}) ) {
return ($env{'form.grade_target'});	return ($env{'form.grade_target'});
}	}
if ( defined($env{'form.preview'})) {	if ( defined($env{'form.preview'})) {
if ( defined($env{'form.submitted'})) {	if ( defined($env{'form.submitted'})) {
	#
	# We are doing a problem preview
	#
return ('grade', 'web');	return ('grade', 'web');
} else {	} else {
return ('web');	return ('web');
}	}
} else {	} else {
if ($env{'form.problemstate'} eq 'WEB_GRADE') {	if ($env{'form.problemstate'} eq 'WEB_GRADE') {
#$env{'form.webgrade'} = 'yes';
return ('grade','webgrade','answer');	return ('grade','webgrade','answer');
} elsif (($env{'form.problemmode'} eq 'view') \|\|	} elsif ($env{'form.problemmode'} eq 'view') {
($env{'form.problemmode'} eq 'discard')) {	return ('grade','web','answer');
if ( defined($env{'form.submitted'}) &&	} elsif ($env{'form.problemmode'} eq 'saveview') {
(!defined($env{'form.resetdata'})) &&	return ('modified','web','answer');
(!defined($env{'form.newrandomization'}))) {	} elsif ($env{'form.problemmode'} eq 'discard') {
return ('grade', 'web','answer');	return ('web','answer');
} else {	} elsif (($env{'form.problemmode'} eq 'saveedit') \|\|
return ('web','answer');	($env{'form.problemmode'} eq 'undo')) {
}	return ('modified','no_output_web','edit');
} elsif ($env{'form.problemmode'} eq 'edit') {	} elsif ($env{'form.problemmode'} eq 'edit') {
if ( $env{'form.submitted'} eq 'edit' ) {	return ('no_output_web','edit');
if ( $env{'form.submitbutton'} eq &mt('Save and View') ) {
return ('modified','web','answer');
} else {
return ('modified','no_output_web','edit');
}
} else {
return ('no_output_web','edit');
}
} else {	} else {
return ('web');	return ('web');
}	}
}	}
	#
	# End of Authoring Space
	#
}	}
	#
	# Huh? We are nowhere, so do nothing.
	#
return ();	return ();
}	}

Line 205 sub proctor_checked_in {	Line 210 sub proctor_checked_in {
}	}

sub check_slot_access {	sub check_slot_access {
my ($id,$type)=@_;	my ($id,$type,$symb)=@_;

# does it pass normal muster	# does it pass normal muster
my ($status,$datemsg)=&check_access($id);	my ($status,$datemsg)=&check_access($id,$symb);

my $useslots = &Apache::lonnet::EXT("resource.0.useslots");	my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
if ($useslots ne 'resource' && $useslots ne 'map'	if ($useslots ne 'resource' && $useslots ne 'map'
&& $useslots ne 'map_map') {	&& $useslots ne 'map_map') {
return ($status,$datemsg);	return ($status,$datemsg);
Line 234 sub check_slot_access {	Line 239 sub check_slot_access {
}	}
}	}

my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent");	my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent",$symb);
my $available = &Apache::lonnet::EXT("resource.0.available");	my $available = &Apache::lonnet::EXT("resource.0.available",$symb);
my @slots= (split(':',$availablestudent),split(':',$available));	my @slots= (split(':',$availablestudent),split(':',$available));

# if (!@slots) {	# if (!@slots) {
Line 243 sub check_slot_access {	Line 248 sub check_slot_access {
# }	# }
my $slotstatus='NOT_IN_A_SLOT';	my $slotstatus='NOT_IN_A_SLOT';
my ($returned_slot,$slot_name);	my ($returned_slot,$slot_name);
	my $now = time;
	my $num_usable_slots = 0;
foreach my $slot (@slots) {	foreach my $slot (@slots) {
$slot =~ s/(^\s\|\s$)//g;	$slot =~ s/(^\s\|\s$)//g;
&Apache::lonxml::debug("getting $slot");	&Apache::lonxml::debug("getting $slot");
my %slot=&Apache::lonnet::get_slot($slot);	my %slot=&Apache::lonnet::get_slot($slot);
&Apache::lonhomework::showhash(%slot);	&Apache::lonhomework::showhash(%slot);
if ($slot{'starttime'} < time &&	next if ($slot{'endtime'} < $now);
$slot{'endtime'} > time &&	$num_usable_slots ++;
	if ($slot{'starttime'} < $now &&
	$slot{'endtime'} > $now &&
&Apache::loncommon::check_ip_acc($slot{'ip'})) {	&Apache::loncommon::check_ip_acc($slot{'ip'})) {
&Apache::lonxml::debug("$slot is good");	&Apache::lonxml::debug("$slot is good");
$slotstatus='NEEDS_CHECKIN';	$slotstatus='NEEDS_CHECKIN';
$returned_slot=\%slot;	$returned_slot=\%slot;
$slot_name=$slot;	$slot_name=$slot;
last;	last;
}	}
}	}
if ($slotstatus eq 'NEEDS_CHECKIN' &&	if ($slotstatus eq 'NEEDS_CHECKIN' &&
&proctor_checked_in($slot_name,$returned_slot,$type)) {	&proctor_checked_in($slot_name,$returned_slot,$type)) {
&Apache::lonxml::debug("protoctor checked in");	&Apache::lonxml::debug("proctor checked in");
$slotstatus='CAN_ANSWER';	$slotstatus=$status;
}	}

my ($is_correct,$got_grade,$checkedin);	my ($is_correct,$got_grade,$checkedin);
Line 296 sub check_slot_access {	Line 305 sub check_slot_access {
# However, the problem is not closed, and potentially, another slot might be	# However, the problem is not closed, and potentially, another slot might be
# used to gain access to it to work on it, until the due date is reached, and the	# used to gain access to it to work on it, until the due date is reached, and the
# problem then becomes CLOSED. Therefore return the slotstatus -	# problem then becomes CLOSED. Therefore return the slotstatus -
# (which will be NOT_IN_SLOT).	# (which will be one of: NOT_IN_A_SLOT, RESERVABLE, RESERVABLE_LATER, or NOTRESERVABLE.
if (!defined($slot_name)	if (!defined($slot_name) && $type eq 'problem') {
&& $checkedin	if ($slotstatus eq 'NOT_IN_A_SLOT') {
&& $type eq 'problem') {	if (!$num_usable_slots) {
return ($slotstatus);	if ($env{'request.course.id'}) {
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	unless ($symb) {
	($symb)=&Apache::lonnet::whichuser();
	}
	$slotstatus = 'NOTRESERVABLE';
	my ($reservable_now_order,$reservable_now,$reservable_future_order,
	$reservable_future) =
	&Apache::loncommon::get_future_slots($cnum,$cdom,$now,$symb);
	if ((ref($reservable_now_order) eq 'ARRAY') && (ref($reservable_now) eq 'HASH')) {
	if (@{$reservable_now_order} > 0) {
	$slotstatus = 'RESERVABLE';
	$datemsg = $reservable_now->{$reservable_now_order->[-1]}{'endreserve'};
	}
	}
	unless ($slotstatus eq 'RESERVABLE') {
	if ((ref($reservable_future_order) eq 'ARRAY') && (ref($reservable_future) eq 'HASH')) {
	if (@{$reservable_future_order} > 0) {
	$slotstatus = 'RESERVABLE_LATER';
	$datemsg = $reservable_future->{$reservable_future_order->[0]}{'startreserve'};
	}
	}
	}
	}
	}
	}
	return ($slotstatus,$datemsg);
}	}

if ($slotstatus eq 'NOT_IN_A_SLOT'	if ($slotstatus eq 'NOT_IN_A_SLOT'
Line 332 sub check_slot_access {	Line 368 sub check_slot_access {
# JB, 9/24/2002: Any changes in this function may require a change	# JB, 9/24/2002: Any changes in this function may require a change
# in lonnavmaps::resource::getDateStatus.	# in lonnavmaps::resource::getDateStatus.
sub check_access {	sub check_access {
my ($id) = @_;	my ($id,$symb) = @_;
my $date ='';	my $date ='';
my $status;	my $status;
my $datemsg = '';	my $datemsg = '';
Line 362 sub check_access {	Line 398 sub check_access {
&Apache::lonxml::debug("checking for part :$id:");	&Apache::lonxml::debug("checking for part :$id:");
&Apache::lonxml::debug("time:".time);	&Apache::lonxml::debug("time:".time);

my ($symb)=&Apache::lonnet::whichuser();	unless ($symb) {
	($symb)=&Apache::lonnet::whichuser();
	}
&Apache::lonxml::debug("symb:".$symb);	&Apache::lonxml::debug("symb:".$symb);
#if ($env{'request.state'} ne "construct" && $symb ne '') {	#if ($env{'request.state'} ne "construct" && $symb ne '') {
if ($env{'request.state'} ne "construct") {	if ($env{'request.state'} ne "construct") {
my $idacc = &Apache::lonnet::EXT("resource.$id.acc");	my $idacc = &Apache::lonnet::EXT("resource.$id.acc",$symb);
my $allowed=&Apache::loncommon::check_ip_acc($idacc);	my $allowed=&Apache::loncommon::check_ip_acc($idacc);
if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {	if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {
$status='INVALID_ACCESS';	$status='INVALID_ACCESS';
$date=&mt("can not be accessed from your location.");	$date=&mt("can not be accessed from your location.");
return($status,$date);	return($status,$date);
}	}
	if ($env{'form.grade_imsexport'}) {
	if (($env{'request.course.id'}) &&
	(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
	return ('SHOW_ANSWER');
	}
	}
foreach my $temp ("opendate","duedate","answerdate") {	foreach my $temp ("opendate","duedate","answerdate") {
$lastdate = $date;	$lastdate = $date;
if ($temp eq 'duedate') {	if ($temp eq 'duedate') {
$date = &due_date($id);	$date = &due_date($id,$symb);
} else {	} else {
$date = &Apache::lonnet::EXT("resource.$id.$temp");	$date = &Apache::lonnet::EXT("resource.$id.$temp",$symb);
}	}

my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type");	my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type",$symb);
if ($thistype =~ /^(con_lost\|no_such_host)/ \|\|	if ($thistype =~ /^(con_lost\|no_such_host)/ \|\|
$date =~ /^(con_lost\|no_such_host)/) {	$date =~ /^(con_lost\|no_such_host)/) {
$status='UNAVAILABLE';	$status='UNAVAILABLE';
Line 391 sub check_access {	Line 434 sub check_access {
}	}
if ($thistype eq 'date_interval') {	if ($thistype eq 'date_interval') {
if ($temp eq 'opendate') {	if ($temp eq 'opendate') {
$date=&Apache::lonnet::EXT("resource.$id.duedate")-$date;	$date=&Apache::lonnet::EXT("resource.$id.duedate",$symb)-$date;
}	}
if ($temp eq 'answerdate') {	if ($temp eq 'answerdate') {
$date=&Apache::lonnet::EXT("resource.$id.duedate")+$date;	$date=&Apache::lonnet::EXT("resource.$id.duedate",$symb)+$date;
}	}
}	}
&Apache::lonxml::debug("found :$date: for :$temp:");	&Apache::lonxml::debug("found :$date: for :$temp:");
Line 414 sub check_access {	Line 457 sub check_access {
$datemsg=$date;	$datemsg=$date;
} elsif ($type eq 'opendate') {	} elsif ($type eq 'opendate') {
$status='CLOSED';	$status='CLOSED';
$datemsg = &mt("will open on")." $date";	$datemsg = &mt('will open on [_1]',$date);
} elsif ($type eq 'duedate') {	} elsif ($type eq 'duedate') {
$status='CAN_ANSWER';	$status='CAN_ANSWER';
$datemsg = &mt("is due at")." $date";	$datemsg = &mt('is due at [_1]',$date);
} elsif ($type eq 'answerdate') {	} elsif ($type eq 'answerdate') {
$status='CLOSED';	$status='CLOSED';
$datemsg = &mt("was due on")." $lastdate".&mt(", and answers will be available on")." $date";	$datemsg = &mt('was due on [_1], and answers will be available on [_2]',
	$lastdate,$date);
}	}
}	}
if ($status eq 'CAN_ANSWER' \|\|	if ($status eq 'CAN_ANSWER' \|\|
(($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED'))) {	(($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED'))) {
#check #tries, and if correct.	#check #tries, and if correct.
my $tries = $Apache::lonhomework::history{"resource.$id.tries"};	my $tries = $Apache::lonhomework::history{"resource.$id.tries"};
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries",$symb);
if ( $tries eq '' ) { $tries = '0'; }	if ( $tries eq '' ) { $tries = '0'; }
if ( $maxtries eq '' &&	if ( $maxtries eq '' &&
$env{'request.state'} ne 'construct') { $maxtries = '2'; }	$env{'request.state'} ne 'construct') { $maxtries = '2'; }
if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }	if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }
# if (correct and show prob status) or excused then CANNOT_ANSWER	# if (correct and show prob status) or excused then CANNOT_ANSWER
if(($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/	if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)
&&	&& (&show_problem_status()) ) {
&show_problem_status())	if (($Apache::lonhomework::history{"resource.$id.awarded"} >= 1) \|\|
\|\|	(&Apache::lonnet::EXT("resource.$id.retrypartial",$symb) !~/^1\|on\|yes$/i)) {
$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {	$status = 'CANNOT_ANSWER';
	}
	} elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
if ($status eq 'CANNOT_ANSWER'	if ($status eq 'CANNOT_ANSWER'
Line 446 sub check_access {	Line 492 sub check_access {
}	}
}	}
if ($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {	if ($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {
my @interval=&Apache::lonnet::EXT("resource.$id.interval");	my @interval=&Apache::lonnet::EXT("resource.$id.interval",$symb);
&Apache::lonxml::debug("looking for interval @interval");	&Apache::lonxml::debug("looking for interval @interval");
if ($interval[0]) {	if ($interval[0]) {
my $first_access=&Apache::lonnet::get_first_access($interval[1]);	my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);
&Apache::lonxml::debug("looking for accesstime $first_access");	&Apache::lonxml::debug("looking for accesstime $first_access");
if (!$first_access) {	if (!$first_access) {
$status='NOT_YET_VIEWED';	$status='NOT_YET_VIEWED';
my $due_date = &due_date($id);	my $due_date = &due_date($id,$symb);
my $seconds_left = $due_date - time;	my $seconds_left = $due_date - time;
if ($seconds_left > $interval[0] \|\| $due_date eq '') {	if ($seconds_left > $interval[0] \|\| $due_date eq '') {
$seconds_left = $interval[0];	$seconds_left = $interval[0];
Line 468 sub check_access {	Line 514 sub check_access {
# return ('UNCHECKEDOUT','needs to be checked out');	# return ('UNCHECKEDOUT','needs to be checked out');
#}	#}


&Apache::lonxml::debug("sending back :$status:$datemsg:");	&Apache::lonxml::debug("sending back :$status:$datemsg:");
if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) {	if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) {
&Apache::lonxml::debug("should be allowed to browse a resource when closed");	&Apache::lonxml::debug("should be allowed to browse a resource when closed");
Line 501 sub due_date {	Line 546 sub due_date {
} else {	} else {
$date = $due_date;	$date = $due_date;
}	}
return $date	return $date;
}	}

sub seconds_to_human_length {	sub seconds_to_human_length {
Line 550 sub showarray {	Line 595 sub showarray {
sub showhashsubset {	sub showhashsubset {
my ($hash,$keyre) = @_;	my ($hash,$keyre) = @_;
my $resultkey;	my $resultkey;
foreach $resultkey (sort keys %$hash) {	foreach $resultkey (sort(keys(%$hash))) {
if ($resultkey !~ /$keyre/) { next; }	if ($resultkey !~ /$keyre/) { next; }
if (ref($$hash{$resultkey}) eq 'ARRAY' ) {	if (ref($$hash{$resultkey}) eq 'ARRAY' ) {
&Apache::lonxml::debug("$resultkey ---- ".	&Apache::lonxml::debug("$resultkey ---- ".
Line 568 sub showhashsubset {	Line 613 sub showhashsubset {

sub setuppermissions {	sub setuppermissions {
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$env{'request.filename'});	$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$env{'request.filename'});
	unless ($Apache::lonhomework::browse eq 'F') {
	$Apache::lonhomework::browse=&Apache::lonnet::allowed('bro',$env{'request.filename'});
	}
my $viewgrades = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});	my $viewgrades = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
if (! $viewgrades &&	if (! $viewgrades &&
exists($env{'request.course.sec'}) &&	exists($env{'request.course.sec'}) &&
Line 627 sub setupheader {	Line 675 sub setupheader {
}	}

sub handle_save_or_undo {	sub handle_save_or_undo {
my ($request,$problem,$result) = @_;	my ($request,$problem,$result,$getobjref) = @_;

my $file = &Apache::lonnet::filelocation("",$request->uri);	my $file = &Apache::lonnet::filelocation("",$request->uri);
my $filebak =$file.".bak";	my $filebak =$file.".bak";
my $filetmp =$file.".tmp";	my $filetmp =$file.".tmp";
my $error=0;	my $error=0;
if ($env{'form.Undo'} eq &mt('undo')) {	if (($env{'form.problemmode'} eq 'undo') \|\| ($env{'form.problemmode'} eq 'undoxml')) {
my $error=0;	my $error=0;
if (!&File::Copy::copy($file,$filetmp)) { $error=1; }	if (!&File::Copy::copy($file,$filetmp)) { $error=1; }
if ((!$error) && (!&File::Copy::copy($filebak,$file))) { $error=1; }	if ((!$error) && (!&File::Copy::copy($filebak,$file))) { $error=1; }
Line 655 sub handle_save_or_undo {	Line 704 sub handle_save_or_undo {
}	}
} else {	} else {
&Apache::lonnet::correct_line_ends($result);	&Apache::lonnet::correct_line_ends($result);

my $fs=Apache::File->new(">$filebak");	my $fs=Apache::File->new(">$filebak");
if (defined($fs)) {	if (defined($fs)) {
print $fs $$problem;	print $fs $$problem;
Line 668 sub handle_save_or_undo {	Line 718 sub handle_save_or_undo {
my $fh=Apache::File->new(">$file");	my $fh=Apache::File->new(">$file");
if (defined($fh)) {	if (defined($fh)) {
print $fh $$result;	print $fh $$result;
	if (ref($getobjref) eq 'SCALAR') {
	if ($file =~ m{([^/]+)\.(html?)$}) {
	my $fname = $1;
	my $ext = $2;
	my $path = $file;
	$path =~ s/\Q$fname\E\.\Q$ext\E$//;
	my (%allfiles,%codebase);
	&Apache::lonnet::extract_embedded_items($file,\%allfiles,
	\%codebase,$result);
	if (keys(%allfiles) > 0) {
	my $url = $request->uri;
	my $state = <<STATE;
	<input type="hidden" name="action" value="upload_embedded" />
	<input type="hidden" name="url" value="$url" />
	STATE
	$$getobjref = "<h3>".&mt("Reference Warning")."</h3>".
	"<p>".&mt("Completed upload of the file. This file contained references to other files.")."</p>".
	"<p>".&mt("Please select the locations from which the referenced files are to be uploaded.")."</p>".
	&Apache::loncommon::ask_for_embedded_content($url,$state,\%allfiles,\%codebase,
	{'error_on_invalid_names' => 1,
	'ignore_remote_references' => 1,});
	}
	}
	}
} else {	} else {
&Apache::lonxml::info('<span class="LC_error">'.	&Apache::lonxml::info('<span class="LC_error">'.
&mt("Unable to write to [_1]",	&mt("Unable to write to [_1]",
Line 685 sub analyze_header {	Line 759 sub analyze_header {
my $js = &Apache::structuretags::setmode_javascript();	my $js = &Apache::structuretags::setmode_javascript();

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => &Apache::loncommon::authorspace(),	my $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri),
'text' => 'Construction Space'},	'text' => 'Authoring Space'},
{'href' => '',	{'href' => '',
'text' => 'Problem Testing'},	'text' => 'Problem Testing'},
{'href' => '',	{'href' => '',
Line 699 sub analyze_header {	Line 773 sub analyze_header {
.&Apache::loncommon::head_subbox(	.&Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader());	&Apache::loncommon::CSTR_pageheader());
$result .=	$result .=
&Apache::lonxml::message_location().'	'<form name="lonhomework" method="post" action="'.
<form name="lonhomework" method="post" action="'.
&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'.	&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'.
'<input type="hidden" name="problemmode" value="'.	'<input type="hidden" name="problemmode" value="'.
$env{'form.problemmode'}.'" />'.	$env{'form.problemmode'}.'" />'.
Line 714 sub analyze_header {	Line 787 sub analyze_header {
<input type="button" name="submitmode" value="'.&mt("View").'" '.	<input type="button" name="submitmode" value="'.&mt("View").'" '.
'onclick="javascript:setmode(this.form,'."'view'".')" />	'onclick="javascript:setmode(this.form,'."'view'".')" />
<hr />	<hr />
</div>	</div>'
</form>';	.&Apache::lonxml::message_location().
	'</form>';
&Apache::lonxml::add_messages(\$result);	&Apache::lonxml::add_messages(\$result);
$request->print($result);	$request->print($result);
$request->rflush();	$request->rflush();
Line 737 sub analyze {	Line 811 sub analyze {
my $rndseed=$env{'form.rndseed'};	my $rndseed=$env{'form.rndseed'};
&analyze_header($request);	&analyze_header($request);
my %prog_state=	my %prog_state=
&Apache::lonhtmlcommon::Create_PrgWin($request,&mt('Analyze Progress'),	&Apache::lonhtmlcommon::Create_PrgWin($request,$env{'form.numtoanalyze'});
&mt('Getting Problem Variants'),
$env{'form.numtoanalyze'},
'inline',undef);
for(my $i=1;$i<$env{'form.numtoanalyze'}+1;$i++) {	for(my $i=1;$i<$env{'form.numtoanalyze'}+1;$i++) {
&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state,'last problem');
&mt('last problem'));
if (&Apache::loncommon::connection_aborted($request)) { return; }	if (&Apache::loncommon::connection_aborted($request)) { return; }
my $thisseed=$i+$rndseed;	my $thisseed=$i+$rndseed;
my $subresult=&Apache::lonnet::ssi($request->uri,	my $subresult=&Apache::lonnet::ssi($request->uri,
Line 752 sub analyze {	Line 822 sub analyze {
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2);	(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2);
my %analyze=&Apache::lonnet::str2hash($subresult);	my %analyze=&Apache::lonnet::str2hash($subresult);
my @parts;	my @parts;
if (defined(@{ $analyze{'parts'} })) {	if (ref($analyze{'parts'}) eq 'ARRAY') {
@parts=@{ $analyze{'parts'} };	@parts=@{ $analyze{'parts'} };
}	}
foreach my $part (@parts) {	foreach my $part (@parts) {
Line 785 sub analyze {	Line 855 sub analyze {
}	}
}	}
}	}
&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,&mt('Analyzing Results'));
&mt('Analyzing Results'));
$request->print('<hr />'	$request->print('<hr />'
.'<h3>'	.'<h3>'
.&mt('List of possible answers')	.&mt('List of possible answers')
.'</h3>'	.'</h3>'
);	);
foreach my $part (sort(keys(%allparts))) {	foreach my $part (sort(keys(%allparts))) {
if (defined(@{ $overall{$part.'.answer'} })) {	if ((ref($overall{$part.'.answer'}) eq 'ARRAY') &&
	(@{$overall{$part.'.answer'}} > 0)) {
for (my $i=0;$i<scalar(@{ $overall{$part.'.answer'} });$i++) {	for (my $i=0;$i<scalar(@{ $overall{$part.'.answer'} });$i++) {
my $num_cols=scalar(@{ $overall{$part.'.answer'}[$i][0] });	my $num_cols=scalar(@{ $overall{$part.'.answer'}[$i][0] });
$request->print(&Apache::loncommon::start_data_table()	$request->print(&Apache::loncommon::start_data_table()
Line 891 sub editxmlmode {	Line 961 sub editxmlmode {
my $problem=&Apache::lonnet::getfile($file);	my $problem=&Apache::lonnet::getfile($file);
if ($problem eq -1) {	if ($problem eq -1) {
&Apache::lonxml::error(	&Apache::lonxml::error(
'<b> '	'<p class="LC_error">'
.&mt('Unable to find [_1]',	.&mt('Unable to find [_1]',
'<span class="LC_filename">'.$file.'</span>')	'<span class="LC_filename">'.$file.'</span>')
.'</b>');	.'</p>');

$problem='';	$problem='';
}	}
if (defined($env{'form.editxmltext'}) \|\| defined($env{'form.Undo'})) {	if (($env{'form.problemmode'} eq 'saveeditxml') \|\|
	($env{'form.problemmode'} eq 'saveviewxml') \|\|
	($env{'form.problemmode'} eq 'undoxml')) {
my $error=&handle_save_or_undo($request,\$problem,	my $error=&handle_save_or_undo($request,\$problem,
\$env{'form.editxmltext'});	\$env{'form.editxmltext'});
if (!$error) { $problem=&Apache::lonnet::getfile($file); }	if (!$error) { $problem=&Apache::lonnet::getfile($file); }
}	}
&Apache::lonhomework::showhashsubset(\%env,'^form');	&Apache::lonhomework::showhashsubset(\%env,'^form');
if ( $env{'form.submitbutton'} eq &mt('Save and View') ) {	if ($env{'form.problemmode'} eq 'saveviewxml') {
&Apache::lonhomework::showhashsubset(\%env,'^form');	&Apache::lonhomework::showhashsubset(\%env,'^form');
$env{'form.problemmode'}='view';	$env{'form.problemmode'}='view';
&renderpage($request,$file);	&renderpage($request,$file);
Line 918 sub editxmlmode {	Line 990 sub editxmlmode {
&Apache::loncommon::resize_textarea_js().	&Apache::loncommon::resize_textarea_js().
&Apache::structuretags::setmode_javascript().	&Apache::structuretags::setmode_javascript().
&Apache::lonhtmlcommon::dragmath_js("EditMathPopup");	&Apache::lonhtmlcommon::dragmath_js("EditMathPopup");
my $dragmath_button =
&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => &Apache::loncommon::authorspace(),	my $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri),
'text' => 'Construction Space'},	'text' => 'Authoring Space'},
{'href' => '',	{'href' => '',
'text' => 'Problem Editing'}];	'text' => 'Problem Editing'}];

Line 934 sub editxmlmode {	Line 1004 sub editxmlmode {
'add_entries' => {	'add_entries' => {
'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],	'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],
'onload' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],	'onload' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],
},	},
'bread_crumbs' => $brcrum,	'bread_crumbs' => $brcrum,
});	});

$result=$start_page	$result=$start_page
.&Apache::loncommon::head_subbox(	.&Apache::loncommon::head_subbox(
Line 945 sub editxmlmode {	Line 1015 sub editxmlmode {
'<form '.&Apache::edit::form_change_detection().' name="lonhomework" method="post" action="'.	'<form '.&Apache::edit::form_change_detection().' name="lonhomework" method="post" action="'.
&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'.	&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'.
&Apache::structuretags::remember_problem_state().'	&Apache::structuretags::remember_problem_state().'
<div class="LC_edit_problem_editxml_header">	<div class="LC_edit_problem_header">
<table class="LC_edit_problem_header_title"><tr><td>	<div class="LC_edit_problem_header_title">'.
<h2>'.&mt('Problem Editing').' '.&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').'</h2>	&mt('Problem Editing').' '.&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').
</td><td align="right">	'</div><div class="LC_edit_actionbar" id="actionbar">';
'.&Apache::loncommon::helpLatexCheatsheet('Problem_LON-CAPA_Functions','Script Functions').'
</td></tr>	$result.='<input type="hidden" name="problemmode" value="saveedit" />'.
</table>	&Apache::structuretags::problem_edit_buttons('editxml');
<div class="LC_edit_problem_discards">	$result.='<div>';
<input type="hidden" name="problemmode" value="editxml" />
	$result .= '<ol class="LC_primary_menu" style="display:inline-block;font-size:90%;vertical-align:middle;">';
<input type="button" name="submitmode" accesskey="d" value="'.&mt('Discard Edits and View').'" '.
'onclick="javascript:setmode(this.form,'."'discard'".')" />	unless ($env{'environment.nocodemirror'}) {
<input type="button" '.&Apache::edit::submit_ask_anyway('setmode(this.form,'."'edit'".')').'name="submitmode" accesskey="e" value="'.&mt('Edit').'" />	# dropdown menus
<input type="submit" name="Undo" accesskey="u" value="'.&mt('undo').'" />	$result .= Apache::lonmenu::create_submenu("#", "",
'.$dragmath_button.'	&mt("Problem Templates"), template_dropdown_datastructure());
</div>
<div class="LC_edit_problem_saves">	$result .= Apache::lonmenu::create_submenu("#", "",
<input type="submit" name="submitbutton" accesskey="s" value="'.&mt('Save').'" />	&mt("Response Types"), responseblock_dropdown_datastructure());
<input type="submit" name="submitbutton" accesskey="v" value="'.&mt('Save and View').'" />
</div>	$result .= Apache::lonmenu::create_submenu("#", "",
<hr style="clear:both;" />	&mt("Conditional Blocks"), conditional_scripting_datastructure());
'.&Apache::lonxml::message_location().'
</div>	$result .= Apache::lonmenu::create_submenu("#", "",
' . '	&mt("Miscellaneous"), misc_datastructure());
<textarea '.&Apache::edit::element_change_detection().	}
' rows="'.$rows.'" cols="'.$cols.'" style="width:100%" '.
' name="editxmltext" id="LC_editxmltext">'.	$result .= Apache::lonmenu::create_submenu("#", "",
&HTML::Entities::encode($problem,'<>&"').'</textarea>	&mt("Help") . ' <img src="/adm/help/help.png" alt="' . &mt("Help") .
<div id="LC_aftertextarea">	'" style="vertical-align:text-bottom; height: auto; margin:0; "/>',
</div>	helpmenu_datastructure(),"");
</form>'.&Apache::loncommon::end_page();
&Apache::lonxml::add_messages(\$result);	$result.="</ol></div>";
$request->print($result);
	$result .= '</div></div>' .
	&Apache::lonxml::message_location() .
	&Apache::loncommon::xmleditor_js() .
	'<textarea ' . &Apache::edit::element_change_detection() .
	' rows="'.$rows.'" cols="'.$cols.'" style="width:100%" ' .
	' name="editxmltext" id="LC_editxmltext">' .
	&HTML::Entities::encode($problem,'<>&"') .
	'</textarea> <div id="LC_aftertextarea"> </div> </form>';

	my $resource = $env{'request.ambiguous'};
	unless($env{'environment.nocodemirror'}){
	$result .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined-xml.css">
	<script src="/adm/codemirror/codemirror-compressed-xml.js"></script>
	<script>
	CodeMirror.defineMode("mixedmode", function(config) {
	return CodeMirror.multiplexingMode(
	CodeMirror.getMode(config, "xml"),
	{
	open: "\<script type=\"loncapa/perl\"\>", close: "\</script\>",
	mode: CodeMirror.getMode(config, "perl"),
	delimStyle: "tag",
	}
	);
	});
	var cm = CodeMirror.fromTextArea(document.getElementById("LC_editxmltext"),
	{
	mode: "mixedmode",
	lineWrapping: true,
	lineNumbers: true,
	tabSize: 4,
	indentUnit: 4,

	autoCloseTags: true,
	autoCloseBrackets: true,
	height: "auto",
	styleActiveLine: true,

	extraKeys: {
	"Tab": "indentMore",
	"Shift-Tab": "indentLess",
	}
	});
	restoreScrollPosition("'.$resource.'");
	</script>';
	}

	$result .= &Apache::loncommon::end_page();
	&Apache::lonxml::add_messages(\$result);
	$request->print($result);
}	}
return '';	return '';
}	}
Line 1012 sub renderpage {	Line 1131 sub renderpage {
$problem='';	$problem='';
my $filename=(split('/',$file))[-1];	my $filename=(split('/',$file))[-1];
my $error =	my $error =
"<b> ".&mt('Unable to find [_1]',	'<p class="LC_error">'
	.&mt('Unable to find [_1]',
'<span class="LC_filename">'.$filename.'</span>')	'<span class="LC_filename">'.$filename.'</span>')
."</b>";	."</p>";
$result.=	$result.=
&Apache::loncommon::simple_error_page($request,'Not available',	&Apache::loncommon::simple_error_page($request,'Not available',
$error);	$error,{'no_auto_mt_msg' => 1});
return;	return;
}	}

Line 1065 sub finished_parsing {	Line 1185 sub finished_parsing {
undef($Apache::lonhomework::parsing_a_task);	undef($Apache::lonhomework::parsing_a_task);
}	}

sub get_template_list {	# function extracted from get_template_html
	# returns "key" -> list
	# key: path of template
	# value 1: title
	# value 2: category
	# value 3: name of help topic ???
	sub get_template_list{
	my ($extension) = @_;

	my @files = glob($Apache::lonnet::perlvar{'lonIncludes'}.
	'/templates/*.'.$extension);
	@files = map {[$_,&mt(&Apache::lonnet::metadata($_, 'title')),
	(&Apache::lonnet::metadata($_, 'category')?&mt(&Apache::lonnet::metadata($_, 'category')):&mt('Miscellaneous')),
	&mt(&Apache::lonnet::metadata($_, 'help'))]} (@files);
	@files = sort {$a->[2].$a->[1] cmp $b->[2].$b->[1]} (@files);
	return @files;
	}

	sub get_template_html {
my ($extension) = @_;	my ($extension) = @_;
my $result;	my $result;
my @allnames;	my @allnames;
Line 1074 sub get_template_list {	Line 1212 sub get_template_list {
if ($extension eq 'survey' \|\| $extension eq 'exam') {	if ($extension eq 'survey' \|\| $extension eq 'exam') {
$glob_extension = 'problem';	$glob_extension = 'problem';
}	}
my @files = glob($Apache::lonnet::perlvar{'lonIncludes'}.	my @files = &get_template_list($extension);
'/templates/*.'.$glob_extension);
@files = map {[$_,&mt(&Apache::lonnet::metadata($_, 'title')),
(&Apache::lonnet::metadata($_, 'category')?&mt(&Apache::lonnet::metadata($_, 'category')):&mt('Miscellaneous')),
&mt(&Apache::lonnet::metadata($_, 'help'))]} (@files);
@files = sort {$a->[2].$a->[1] cmp $b->[2].$b->[1]} (@files);
my ($midpoint,$seconddiv,$numfiles);	my ($midpoint,$seconddiv,$numfiles);
	my @noexamplelink = ('blank.problem','blank.library','script.library');
$numfiles = 0;	$numfiles = 0;
foreach my $file (@files) {	foreach my $file (@files) {
next if ($file->[1] !~ /\S/);	next if ($file->[1] !~ /\S/);
Line 1096 sub get_template_list {	Line 1230 sub get_template_list {
my $count = 0;	my $count = 0;
my $currentcategory='';	my $currentcategory='';
my $first = 1;	my $first = 1;
	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
foreach my $file (@files) {	foreach my $file (@files) {
next if ($file->[1] !~ /\S/);	next if ($file->[1] !~ /\S/);
if ($file->[2] ne $currentcategory) {	if ($file->[2] ne $currentcategory) {
Line 1118 sub get_template_list {	Line 1253 sub get_template_list {
if ($file->[3]) {	if ($file->[3]) {
$result.=&Apache::loncommon::help_open_topic($file->[3]);	$result.=&Apache::loncommon::help_open_topic($file->[3]);
}	}
	# Provide example link
my $filename=$file->[0];	my $filename=$file->[0];
$filename=~s/^\/home\/httpd\/html//;	$filename=~s{^\Q$londocroot\E}{};
$result.=' <span class="LC_fontsize_small">'	if (!(grep($filename =~ /\Q$_\E$/,@noexamplelink))) {
.'<a href="'.$filename.'?inhibitmenu=yes" target="sample">'.&mt('Example').'</a>'	$result .= ' <span class="LC_fontsize_small">'
.'</span><br />'."\n";	.&Apache::loncommon::modal_link(
	$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
	.'</span>';
	}
	$result .= '<br />'."\n";
$count ++;	$count ++;
}	}
if ($numfiles > 0) {	if ($numfiles > 0) {
Line 1134 sub get_template_list {	Line 1274 sub get_template_list {
sub newproblem {	sub newproblem {
my ($request) = @_;	my ($request) = @_;

	if ($env{'form.mode'} eq 'blank'){
	my $dest = &Apache::lonnet::filelocation("",$request->uri);
	&File::Copy::copy('/home/httpd/html/res/adm/includes/templates/blank.problem',$dest);
	&renderpage($request,$dest);
	return;
	}
if ($env{'form.template'}) {	if ($env{'form.template'}) {
my $file = $env{'form.template'};	my $file = $env{'form.template'};
my $dest = &Apache::lonnet::filelocation("",$request->uri);	my $dest = &Apache::lonnet::filelocation("",$request->uri);
Line 1144 sub newproblem {	Line 1290 sub newproblem {

my ($extension) = ($request->uri =~ m/\.(\w+)$/);	my ($extension) = ($request->uri =~ m/\.(\w+)$/);
&Apache::lonxml::debug("Looking for :$extension:");	&Apache::lonxml::debug("Looking for :$extension:");
my $templatelist=&get_template_list($extension);	my $templatelist=&get_template_html($extension);
if ($env{'form.newfile'} && !$templatelist) {	if ($env{'form.newfile'} && !$templatelist) {
# no templates found	# no templates found
my $templatefilename =	my $templatefilename =
Line 1155 sub newproblem {	Line 1301 sub newproblem {
&renderpage($request,$dest);	&renderpage($request,$dest);
} else {	} else {
my $url=&HTML::Entities::encode($request->uri,'<>&"');	my $url=&HTML::Entities::encode($request->uri,'<>&"');
my $shownurl=$url;
$shownurl=~s-^/~-/priv/-;
my $dest = &Apache::lonnet::filelocation("",$request->uri);	my $dest = &Apache::lonnet::filelocation("",$request->uri);
my $errormsg;	my $errormsg;
my $instructions;	my $instructions;
my $brcrum = [{'href' => &Apache::loncommon::authorspace(),	my $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri),
'text' => 'Construction Space'},	'text' => 'Authoring Space'},
{'href' => '',	{'href' => '',
'text' => "Create New $extension"}];	'text' => "Create New $extension"}];
my $start_page =	my $start_page =
Line 1175 sub newproblem {	Line 1319 sub newproblem {
.'<h1>'.&mt("Creating a new $extension resource.")."</h1>	.'<h1>'.&mt("Creating a new $extension resource.")."</h1>
$errormsg	$errormsg
".&mt("The requested file [_1] currently does not exist.",	".&mt("The requested file [_1] currently does not exist.",
'<span class="LC_filename">'.$shownurl.'</span>').'	'<span class="LC_filename">'.$url.'</span>').'
<p class="LC_info">	<p class="LC_info">
'.&mt("To create a new $extension, select a template from the".	'.&mt("To create a new $extension, select a template from the".
" list below. Then click on the \"Create $extension\" button.").'	" list below. Then click on the \"Create $extension\" button.").'
Line 1208 sub update_construct_style {	Line 1352 sub update_construct_style {
}	}
}	}

	#
	# Sets interval for current user so time left will be zero, either for the entire folder
	# containing the current resource, or just the resource, depending on value of first item
	# in interval array retrieved from EXT("resource.0.interval");
	#
	sub zero_timer {
	my ($symb) = @_;
	my ($hastimeleft,$first_access,$now);
	my @interval=&Apache::lonnet::EXT("resource.0.interval",$symb);
	if (@interval > 1) {
	if ($interval[1] eq 'course') {
	return;
	} else {
	my $now = time;
	my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);
	if ($first_access > 0) {
	if ($first_access+$interval[0] > $now) {
	my $done_time = $now - $first_access;
	my $snum = 1;
	if ($interval[1] eq 'map') {
	$snum = 2;
	}
	my $result =
	&Apache::lonparmset::storeparm_by_symb_inner($symb,'0_interval',
	$snum,$done_time,
	'date_interval',
	$env{'user.name'},
	$env{'user.domain'});
	return $result;
	}
	}
	}
	}
	return;
	}

sub handler {	sub handler {
#my $t0 = [&gettimeofday()];	#my $t0 = [&gettimeofday()];
my $request=$_[0];	my $request=$_[0];

$Apache::lonxml::request=$request;	$Apache::lonxml::request=$request;
$Apache::lonxml::debug=$env{'user.debug'};	$Apache::lonxml::debug=$env{'user.debug'};
$env{'request.uri'}=$request->uri;	$env{'request.uri'}=$request->uri;
Line 1220 sub handler {	Line 1400 sub handler {
my $file=&Apache::lonnet::filelocation("",$request->uri);	my $file=&Apache::lonnet::filelocation("",$request->uri);

#check if we know where we are	#check if we know where we are
if ($env{'request.course.fn'} && !&Apache::lonnet::symbread()) {	if ($env{'request.course.fn'} && !&Apache::lonnet::symbread('','',1,1)) {
# if we are browsing we might not be able to know where we are	# if we are browsing we might not be able to know where we are
if ($Apache::lonhomework::browse ne 'F' &&	if ($Apache::lonhomework::browse ne 'F' &&
$env{'request.state'} ne "construct") {	$env{'request.state'} ne "construct") {
Line 1234 sub handler {	Line 1414 sub handler {
&unset_permissions();	&unset_permissions();
return OK;	return OK;
}	}

&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:$Apache::lonhomework::modifygrades:$Apache::lonhomework::queuegrade");	&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:$Apache::lonhomework::modifygrades:$Apache::lonhomework::queuegrade");
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'});	&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'});
my ($symb) = &Apache::lonnet::whichuser();	my ($symb) = &Apache::lonnet::whichuser();
Line 1246 sub handler {	Line 1427 sub handler {
#first visit to problem in construction space	#first visit to problem in construction space
$env{'form.problemmode'}= 'view';	$env{'form.problemmode'}= 'view';
&renderpage($request,$file);	&renderpage($request,$file);
} elsif ($env{'form.problemmode'} eq 'editxml') {	} elsif (($env{'form.problemmode'} eq 'editxml') \|\|
	($env{'form.problemmode'} eq 'saveeditxml') \|\|
	($env{'form.problemmode'} eq 'saveviewxml') \|\|
	($env{'form.problemmode'} eq 'undoxml')) {
&editxmlmode($request,$file);	&editxmlmode($request,$file);
} elsif ($env{'form.problemmode'} eq 'calcanswers') {	} elsif ($env{'form.problemmode'} eq 'calcanswers') {
&analyze($request,$file);	&analyze($request,$file);
Line 1255 sub handler {	Line 1439 sub handler {
&renderpage($request,$file);	&renderpage($request,$file);
}	}
} else {	} else {
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['mode']);
# requested file doesn't exist in contruction space	# requested file doesn't exist in contruction space
&newproblem($request);	&newproblem($request);
}	}
} else {	} else {
	# Set the event timer to zero if the "done button" was clicked. The button is
	# part of the doneButton form created in lonmenu.pm
	if ($symb && $env{'form.LC_interval_done'} eq 'true') {
	&zero_timer($symb);
	undef($env{'form.LC_interval_done'});
	}
# just render the page normally outside of construction space	# just render the page normally outside of construction space
&Apache::lonxml::debug("not construct");	&Apache::lonxml::debug("not construct");
&renderpage($request,$file);	&renderpage($request,$file);
Line 1272 sub handler {	Line 1464 sub handler {

}	}

	sub template_dropdown_datastructure {
	# gathering the all templates and their path, title, category and help topic
	my @templates = get_template_list('problem');
	# template category => title
	my %tmplthash = ();
	# template title => path
	my %tmpltcontent = ();

	foreach my $template (@templates){
	# put in hash if the template is not empty
	unless ($template->[1] eq ''){
	push(@{$tmplthash{$template->[2]}}, $template->[1]);
	push(@{$tmpltcontent{$template->[1]}},$template->[0]);
	}
	}

	my $catList = [];
	foreach my $cat (sort keys %tmplthash) {
	my $catItems = [];
	foreach my $title (sort @{$tmplthash{$cat}}) {
	my $path = $tmpltcontent{$title}->[0];
	my $code;
	open(FH, "<$path");
	while(<FH>){
	$code.= $_ unless $_ =~ /(<problem>)\|(<\/problem>)/;
	}
	close(FH);

	if ($code ne '') {
	my $href = 'javascript:insertText(\'' . &convert_for_js(&HTML::Entities::encode($code,'<>&"')) . '\')';
	my $currItem = [$href, $title, undef];
	push @{$catItems}, $currItem;
	}
	}
	push @{$catList}, [$catItems, $cat, undef];
	}

	return $catList;
	}

	sub responseblock_dropdown_datastructure {

	my $mathCat = [
	[
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_formularesponse())) . "\')", &mt("Formula Response"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_functionplotresponse())) . "\')", &mt("Function Plot Response"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_mathresponse())) . "\')", &mt("Math Response"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_numericalresponse())) . "\')", &mt("Numerical Response"), undef]
	],
	&mt("Math"),
	undef
	];

	my $miscCat = [
	[
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_imageresponse())) . "\')", &mt("Click on Image"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_customresponse())) . "\')", &mt("Custom Response"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_externalresponse())) . "\')", &mt("External Response"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_matchresponse())) . "\')", &mt("Match Two Lists"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_radiobuttonresponse())) . "\')", &mt("One out of N statements"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_optionresponse())) . "\')", &mt("Select from Options"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_rankresponse())) . "\')", &mt("Rank Values"), undef]
	],
	&mt("Miscellaneous"),
	undef
	];

	my $chemCat = [
	[
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_reactionresponse())) . "\')", &mt("Chemical Reaction"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_organicresponse())) . "\')", &mt("Organic Chemical Structure"), undef]
	],
	&mt("Chemistry"),
	undef
	];

	my $textCat = [
	[
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_stringresponse())) . "\')", &mt("String Response"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_essayresponse())) . "\')", &mt("Essay"), undef]
	],
	&mt("Text"),
	undef
	];

	return [$mathCat, $miscCat, $chemCat, $textCat];
	}


	sub conditional_scripting_datastructure {
	# TODO: corresponding routines should be used for the javascript:insertText parts
	# instead of the placeholder routine default_xml_tag with the tags
	# e.g. &default_xml_tag("postanswerdate") should be replaced with a routine which
	# returns the corresponding content for this case

	#TODO translated is currently temporarily here, another solution should be found where the
	# needed string can be retrieved

	my $translatedTag = '
	<translated>
	<lang which="en"></lang>
	<lang which="default"></lang>
	</translated>';
	return [
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode($translatedTag)) . "\')", &mt("Translated Block"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("block"))) . "\')", &mt("Conditional Block"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("postanswerdate"))) . "\')", &mt("After Answer Date Block"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("preduedate"))) . "\')", &mt("Before Due Date Block"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("solved"))) . "\')", &mt("Block For After Solved"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("notsolved"))) . "\')", &mt("Block For When Not Solved"), undef]
	];
	}

	sub misc_datastructure {
	return [
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_img())) . "\')", &mt("Image"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::lonplot::insert_gnuplot())) . "\')", &mt("GNU Plot"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_organicstructure())) . "\')", &mt("Organic Structure"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_script())) . "\')", &mt("Script Block"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("allow"))) . "\')", &mt("File Dependencies"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("import"))) . "\')", &mt("Import a File"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::londefdef::insert_meta())) . "\')", &mt("Custom Metadata"), undef],
	["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("part"))) . "\')", &mt("Problem Part"), undef]
	];
	}

	# helper routine for the datastructure building subroutines
	sub default_xml_tag {
	my ($tag) = @_;
	return "\n<$tag></$tag>";
	}


	sub helpmenu_datastructure {

	my $width = 500;
	my $height = 600;

	my $helpers = [
	['Problem_LON-CAPA_Functions', &mt('Script Functions')],
	['Greek_Symbols', &mt('Greek Symbols')],
	['Other_Symbols', &mt('Other Symbols')],
	['Authoring_Output_Tags', &mt('Output Tags')],
	['Authoring_Multilingual_Problems',
	&mt('How to create problems in different languages')]
	];

	my $help_structure = [];

	foreach my $count (0..(scalar(@{$helpers})-1)) {
	my $filename = $helpers->[$count]->[0];
	my $title = $helpers->[$count]->[1];
	my $href = &HTML::Entities::encode("javascript:openMyModal('/adm/help/$filename.hlp',$width,$height,'yes');");
	push @{$help_structure}, [$href, $title, undef];
	}

	return $help_structure;
	}

	# we need substitution to not break javascript code
	sub convert_for_js {
	my $return = shift;
	$return =~ s\|script\|ESCAPEDSCRIPT\|g;
	$return =~ s\|\\\|\\\\\|g;
	$return =~ s\|\n\|\\r\\n\|g;
	$return =~ s\|'\|\\'\|g;
	$return =~ s\|'\|\\'\|g;
	return $return;
	}

1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.321
changed lines
	Added in v.1.356