loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.151 and 1.154

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

version 1.151, 2003/02/27 20:01:05	version 1.154, 2003/03/06 21:05:27
Line 101 sub page_start {	Line 101 sub page_start {
$body_tag_start.='bgcolor="#ffffff"';	$body_tag_start.='bgcolor="#ffffff"';
}	}
}	}
$body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target);	$body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1);
if ($target eq 'web' && $ENV{'request.state'} ne 'construct') {	if ($target eq 'web' && $ENV{'request.state'} ne 'construct') {
my ($symb)=&Apache::lonxml::whichuser();	my ($symb)=&Apache::lonxml::whichuser();
if ($symb eq '') {	if ($symb eq '') {
Line 382 sub start_problem {	Line 382 sub start_problem {
my @due_file_content = <$temp_file>;	my @due_file_content = <$temp_file>;
my $due_file_content = $due_file_content[$#due_file_content];	my $due_file_content = $due_file_content[$#due_file_content];
chomp $due_file_content;	chomp $due_file_content;
	my $name_of_resourse= &get_resource_name($parstack,$safeeval);
if ($due_file_content ne $duedate) {	if ($due_file_content ne $duedate) {
$temp_file = Apache::File->new('>'.$filename);	$temp_file = Apache::File->new('>'.$filename);
print $temp_file "$duedate\n";	print $temp_file "$duedate\n";
if (not $ENV{'request.symb'} =~ m/\.page_/) {	if (not $ENV{'request.symb'} =~ m/\.page_/) {
if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {	if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
$result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm\noindent \begin{minipage}{\textwidth}';	$result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$ENV{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm\noindent \begin{minipage}{\textwidth}';
} else {	} else {
$result .= '\begin{document} \noindent \vskip 1 mm \noindent\begin{minipage}{\textwidth}';	$result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$ENV{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent \vskip 1 mm \noindent\begin{minipage}{\textwidth}';
if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $result .= '\fbox{\textit{'.$weight.' pt}}';}	if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
}	}
} else {	} else {
Line 397 sub start_problem {	Line 398 sub start_problem {
}	}
} else {	} else {
if (not $ENV{'request.symb'} =~ m/\.page_/) {	if (not $ENV{'request.symb'} =~ m/\.page_/) {
$result .= '\begin{document} \noindent \vskip 1 mm\noindent\begin{minipage}{\textwidth}';	$result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$ENV{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent \vskip 1 mm\noindent\begin{minipage}{\textwidth}';
if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}	if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
} else {	} else {
$result .= '\vskip 1mm \\\\\\\\';	$result .= '\vskip 1mm \\\\\\\\';
Line 741 sub end_part {	Line 742 sub end_part {
$result=$gradestatus;	$result=$gradestatus;
}	}
pop @Apache::inputtags::status;	pop @Apache::inputtags::status;
	$Apache::inputtags::part='';
return $result;	return $result;
}	}

Removed from v.1.151
changed lines
	Added in v.1.154