loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.86 and 1.113

version 1.86, 2004/08/24 21:40:00	version 1.113, 2005/10/17 21:36:44
Line 17	Line 17
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.	# GNU General Public License for more details.
#	#
# You should have received a copy of the GNU General Public License	# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software	# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#	#
Line 31 package Apache::lonmeta;	Line 31 package Apache::lonmeta;
use strict;	use strict;
use LONCAPA::lonmetadata();	use LONCAPA::lonmetadata();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonnet();	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonmsg;	use Apache::lonmsg;
use Apache::lonpublisher;	use Apache::lonpublisher;
use Apache::lonlocal;	use Apache::lonlocal;
Line 236 sub diffgraph {	Line 236 sub diffgraph {

# The field names	# The field names
sub fieldnames {	sub fieldnames {
return &Apache::lonlocal::texthash	my $file_type=shift;
(	my %fields;
	if ($file_type eq 'portfolio') {
	%fields =
	(%fields,
'title' => 'Title',	'title' => 'Title',
'author' =>'Author(s)',	'author' =>'Author(s)',
'authorspace' => 'Author Space',	'authorspace' => 'Author Space',
Line 247 sub fieldnames {	Line 250 sub fieldnames {
'notes' => 'Notes',	'notes' => 'Notes',
'abstract' => 'Abstract',	'abstract' => 'Abstract',
'lowestgradelevel' => 'Lowest Grade Level',	'lowestgradelevel' => 'Lowest Grade Level',
'highestgradelevel' => 'Highest Grade Level',	'highestgradelevel' => 'Highest Grade Level');
	}
	if ($file_type eq 'restrictedportfolio') {
	%fields =
	(%fields,
	'metadata.title' => 'Title',
	'metadata.author' =>'Author(s)',
	'metadata.authorspace' => 'Author Space',
	'metadata.modifyinguser' => 'Last Modifying User',
	'metadata.subject' => 'Subject',
	'metadata.keywords' => 'Keyword(s)',
	'metadata.notes' => 'Notes',
	'metadata.abstract' => 'Abstract',
	'metadata.lowestgradelevel' => 'Lowest Grade Level',
	'metadata.highestgradelevel' => 'Highest Grade Level');
	}
	if (! defined($file_type) \|\| $file_type ne 'portfolio') {
	%fields =
	(%fields,
	'domain' => 'Domain',
'standards' => 'Standards',	'standards' => 'Standards',
'mime' => 'MIME Type',	'mime' => 'MIME Type',
'language' => 'Language',	'language' => 'Language',
Line 280 sub fieldnames {	Line 302 sub fieldnames {
'disc' => 'Degree of discrimination',	'disc' => 'Degree of discrimination',
'dependencies' => 'Resources used by this resource',	'dependencies' => 'Resources used by this resource',
);	);
	}
	return &Apache::lonlocal::texthash(%fields);
}	}

	sub select_course {
	my ($r)=@_;
	my %courses;
	foreach my $key (keys (%env)) {
	if ($key =~ m/\.metadata\./) {
	$key =~ m/^course\.(.+)(\.metadata.+$)/;
	my $course = $1;
	my $coursekey = 'course.'.$course.'.description';
	my $value = $env{$coursekey};
	$courses{$coursekey} = $value;
	}
	}
	$r->print('<h3>Course Related Meta-Data</h3><br />');
	$r->print('<form action="" method="post">');
	$r->print('Select your test course<br />');
	$r->print('<select name="metacourse" >');
	my $meta_not_found = 1;
	foreach my $key (keys (%courses)) {
	if ($meta_not_found) {
	undef($meta_not_found);
	$r->print('<h3>Portfolio Meta-Data</h3><br />');
	$r->print('<form action="" method="post">');
	$r->print('Select your course<br />');
	$r->print('<select name="metacourse" >');
	}
	$r->print('<option value="'.$key.'">');
	$r->print($courses{$key});
	$r->print('</option>');
	}
	unless ($meta_not_found) {
	$r->print('</select><br />');
	$r->print('<input type="submit" value="Assign Portfolio Metadata" />');
	$r->print('</form>');
	}
	return 'ok';
	}
# Pretty printing of metadata field	# Pretty printing of metadata field

sub prettyprint {	sub prettyprint {
Line 332 sub prettyprint {	Line 392 sub prettyprint {
return &Apache::loncommon::gradeleveldescription($value);	return &Apache::loncommon::gradeleveldescription($value);
}	}
# Only for advance users below	# Only for advance users below
if (! $ENV{'user.adv'}) {	if (! $env{'user.adv'}) {
return '<i>- '.&mt('not displayed').' -</i>';	return '<i>- '.&mt('not displayed').' -</i>';
}	}
# File	# File
Line 530 sub handler {	Line 590 sub handler {
#	#
my ($resdomain,$resuser)=	my ($resdomain,$resuser)=
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);	(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
$r->print('<html><head><title>'.	my $html=&Apache::lonxml::xmlbegin();
	$r->print($html.'<head><title>'.
'Catalog Information'.	'Catalog Information'.
'</title></head>');	'</title></head>');
if ($uri=~m:/adm/bombs/(.*)$:) {	if ($uri=~m:/adm/bombs/(.*)$:) {
$r->print(&Apache::loncommon::bodytag('Error Messages'));	$r->print(&Apache::loncommon::bodytag('Error Messages'));
# Looking for all bombs?	# Looking for all bombs?
&report_bombs($r,$uri);	&report_bombs($r,$uri);
	} elsif ($uri=~/\/portfolio\//) {
	($resdomain,$resuser)=
	(&Apache::lonnet::declutter($uri)=~m\|^(\w+)/(\w+)/portfolio\|);
	$r->print(&Apache::loncommon::bodytag
	('Edit Portfolio File Information','','','',$resdomain));
	&present_editable_metadata($r,$uri,'portfolio');
	&select_course($r);
} elsif ($uri=~/^\/\~/) {	} elsif ($uri=~/^\/\~/) {
# Construction space	# Construction space
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
Line 566 sub report_bombs {	Line 634 sub report_bombs {
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');	$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');
my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);	my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);
if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {	if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {
	if ($env{'form.clearbombs'}) {
	&Apache::lonmsg::clear_author_res_msg($uri);
	}
	my $clear=&mt('Clear all Messages in Subdirectory');
	$r->print(<<ENDCLEAR);
	<form method="post">
	<input type="submit" name="clearbombs" value="$clear" />
	</form>
	ENDCLEAR
my %brokenurls =	my %brokenurls =
&Apache::lonmsg::all_url_author_res_msg($author,$domain);	&Apache::lonmsg::all_url_author_res_msg($author,$domain);
foreach (sort(keys(%brokenurls))) {	foreach (sort(keys(%brokenurls))) {
Line 620 sub present_uneditable_metadata {	Line 697 sub present_uneditable_metadata {
# obsolete	# obsolete
my $obsolete=$content{'obsolete'};	my $obsolete=$content{'obsolete'};
my $obsoletewarning='';	my $obsoletewarning='';
if (($obsolete) && ($ENV{'user.adv'})) {	if (($obsolete) && ($env{'user.adv'})) {
$obsoletewarning='<p><font color="red">'.	$obsoletewarning='<p><font color="red">'.
&mt('This resource has been marked obsolete by the author(s)').	&mt('This resource has been marked obsolete by the author(s)').
'</font></p>';	'</font></p>';
Line 665 $disuri<br />	Line 742 $disuri<br />
$obsoletewarning	$obsoletewarning
$versiondisplay	$versiondisplay
</p>	</p>
<table cellspacing=2 border=0>	<table cellspacing="2" border="0">
$table	$table
</table>	</table>
ENDHEAD	ENDHEAD
if ($ENV{'user.adv'}) {	if ($env{'user.adv'}) {
&print_dynamic_metadata($r,$uri,\%content);	&print_dynamic_metadata($r,$uri,\%content);
}	}
return;	return;
Line 695 sub print_dynamic_metadata {	Line 772 sub print_dynamic_metadata {
exists($dynmeta{'goto'}) \|\|	exists($dynmeta{'goto'}) \|\|
exists($dynmeta{'course'})) {	exists($dynmeta{'course'})) {
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.	$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
'<table cellspacing=2 border=0>');	'<table cellspacing="2" border="0">');
foreach ('count',	foreach ('count',
'sequsage','sequsage_list',	'sequsage','sequsage_list',
'comefrom','comefrom_list',	'comefrom','comefrom_list',
Line 720 sub print_dynamic_metadata {	Line 797 sub print_dynamic_metadata {
$r->print('<h4>'.	$r->print('<h4>'.
&mt('Overall Assessment Statistical Data').	&mt('Overall Assessment Statistical Data').
'</h4>'.	'</h4>'.
'<table cellspacing=2 border=0>');	'<table cellspacing="2" border="0">');
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{'stdno'}.'</td>'.	$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{'stdno'}.'</td>'.
'<td bgcolor="#CCCCCC">'.	'<td bgcolor="#CCCCCC">'.
&prettyprint('stdno',$dynmeta{'stdno'}).	&prettyprint('stdno',$dynmeta{'stdno'}).
Line 739 sub print_dynamic_metadata {	Line 816 sub print_dynamic_metadata {
$r->print('<h4>'.	$r->print('<h4>'.
&mt('Detailed Assessment Statistical Data').	&mt('Detailed Assessment Statistical Data').
'</h4>');	'</h4>');
my $table = '<table cellspacing=2 border=0>'.	my $table = '<table cellspacing="2" border="0">'.
'<tr>'.	'<tr>'.
'<th>Course</th>'.	'<th>Course</th>'.
'<th>Section(s)</th>'.	'<th>Section(s)</th>'.
Line 799 sub print_dynamic_metadata {	Line 876 sub print_dynamic_metadata {
exists($dynmeta{'correct'}) \|\|	exists($dynmeta{'correct'}) \|\|
exists($dynmeta{'technical'})){	exists($dynmeta{'technical'})){
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'.	$r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
'<table cellspacing=2 border=0>');	'<table cellspacing="2" border="0">');
foreach ('clear','depth','helpful','correct','technical') {	foreach ('clear','depth','helpful','correct','technical') {
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.	$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
'<td bgcolor="#CCCCCC">'.	'<td bgcolor="#CCCCCC">'.
Line 810 sub print_dynamic_metadata {	Line 887 sub print_dynamic_metadata {
$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');	$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>');
}	}
$uri=~/^\/res\/(\w+)\/(\w+)\//;	$uri=~/^\/res\/(\w+)\/(\w+)\//;
if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2))	if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2))
\|\| ($ENV{'user.role.ca./'.$1.'/'.$2})) {	\|\| ($env{'user.role.ca./'.$1.'/'.$2})) {
if (exists($dynmeta{'comments'})) {	if (exists($dynmeta{'comments'})) {
$r->print('<h4>'.&mt('Evaluation Comments').' ('.	$r->print('<h4>'.&mt('Evaluation Comments').' ('.
&mt('visible to author and co-authors only').	&mt('visible to author and co-authors only').
Line 862 sub print_dynamic_metadata {	Line 939 sub print_dynamic_metadata {
return;	return;
}	}



#####################################################	#####################################################
#####################################################	#####################################################
### ###	### ###
Line 870 sub print_dynamic_metadata {	Line 949 sub print_dynamic_metadata {
#####################################################	#####################################################
#####################################################	#####################################################
sub present_editable_metadata {	sub present_editable_metadata {
my ($r,$uri) = @_;	my ($r,$uri, $file_type) = @_;
# Construction Space Call	# Construction Space Call
# Header	# Header
my $disuri=$uri;	my $disuri=$uri;
my $fn=&Apache::lonnet::filelocation('',$uri);	my $fn=&Apache::lonnet::filelocation('',$uri);
$disuri=~s/^\/\~/\/priv\//;	$disuri=~s/^\/\~/\/priv\//;
$disuri=~s/\.meta$//;	$disuri=~s/\.meta$//;
	$disuri=~s\|^/editupload\|\|;
my $target=$uri;	my $target=$uri;
$target=~s/^\/\~/\/res\/$ENV{'request.role.domain'}\//;	$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//;
$target=~s/\.meta$//;	$target=~s/\.meta$//;
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);	my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target);
if ($bombs) {	if ($bombs) {
if ($ENV{'form.delmsg'}) {	my $showdel=1;
	if ($env{'form.delmsg'}) {
if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {	if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {
$bombs=&mt('Messages deleted.');	$bombs=&mt('Messages deleted.');
	$showdel=0;
} else {	} else {
$bombs=&mt('Error deleting messages');	$bombs=&mt('Error deleting messages');
}	}
}	}
my $del=&mt('Delete Messages');	if ($env{'form.clearmsg'}) {
	my $cleardir=$target;
	$cleardir=~s/\/[^\/]+$/\//;
	if (&Apache::lonmsg::clear_author_res_msg($cleardir) eq 'ok') {
	$bombs=&mt('Messages cleared.');
	$showdel=0;
	} else {
	$bombs=&mt('Error clearing messages');
	}
	}
	my $del=&mt('Delete Messages for this Resource');
	my $clear=&mt('Clear all Messages in Subdirectory');
	my $goback=&mt('Back to Source File');
$r->print(<<ENDBOMBS);	$r->print(<<ENDBOMBS);
<h1>$disuri</h1>	<h1>$disuri</h1>
<form method="post" name="defaultmeta">	<form method="post" name="defaultmeta">
<input type="submit" name="delmsg" value="$del" />
<br />$bombs
ENDBOMBS	ENDBOMBS
	if ($showdel) {
	$r->print(<<ENDDEL);
	<input type="submit" name="delmsg" value="$del" />
	<input type="submit" name="clearmsg" value="$clear" />
	ENDDEL
	} else {
	$r->print('<a href="'.$disuri.'" />'.$goback.'</a>');
	}
	$r->print('<br />'.$bombs);
} else {	} else {
my $displayfile='Catalog Information for '.$disuri;	my $displayfile='Catalog Information for '.$disuri;
if ($disuri=~/\/default$/) {	if ($disuri=~/\/default$/) {
Line 907 ENDBOMBS	Line 1008 ENDBOMBS
}	}
%Apache::lonpublisher::metadatafields=();	%Apache::lonpublisher::metadatafields=();
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));	my $result=&Apache::lonnet::getfile($fn);
	if ($result == -1){
	$r->print('Creating new '.$disuri);
	} else {
	&Apache::lonpublisher::metaeval($result);
	}
$r->print(<<ENDEDIT);	$r->print(<<ENDEDIT);
<h1>$displayfile</h1>	<h1>$displayfile</h1>
<form method="post" name="defaultmeta">	<form method="post" name="defaultmeta">
Line 915 ENDEDIT	Line 1021 ENDEDIT
$r->print('<script language="JavaScript">'.	$r->print('<script language="JavaScript">'.
&Apache::loncommon::browser_and_searcher_javascript().	&Apache::loncommon::browser_and_searcher_javascript().
'</script>');	'</script>');
my %lt=&fieldnames();	my %lt=&fieldnames($file_type);
foreach ('author','title','subject','keywords','abstract','notes',	my $output;
	my @fields;
	if ($file_type eq 'portfolio') {
	@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel',
	'highestgradelevel');
	} else {
	@fields = ('author','title','subject','keywords','abstract','notes',
'copyright','customdistributionfile','language',	'copyright','customdistributionfile','language',
'standards',	'standards',
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',	'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
'obsolete','obsoletereplacement') {	'obsolete','obsoletereplacement');
if (defined($ENV{'form.new_'.$_})) {	}
	foreach (@fields) {
	if (defined($env{'form.new_'.$_})) {
$Apache::lonpublisher::metadatafields{$_}=	$Apache::lonpublisher::metadatafields{$_}=
$ENV{'form.new_'.$_};	$env{'form.new_'.$_};
}	}
if (! $Apache::lonpublisher::metadatafields{'copyright'}) {	if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
$Apache::lonpublisher::metadatafields{'copyright'}=	$Apache::lonpublisher::metadatafields{'copyright'}=
'default';	'default';
}	}
$r->print('<p>'.$lt{$_}.': '.	$output.=('<p>'.$lt{$_}.': '.
&prettyinput	&prettyinput($_,
($_,$Apache::lonpublisher::metadatafields{$_},	$Apache::lonpublisher::metadatafields{$_},
'new_'.$_,'defaultmeta').'</p>');	'new_'.$_,'defaultmeta').'</p>');
	if ($env{'form.metacourse'}) {
	$r->print('This is the instructor metadata area<br />');
	# have to find all the metadata items, so we'll loop through and find them
	$r->print('<form method="post" action="" size="3" >');
	$r->print('The course is: '.$env{'form.metacourse'}.'<br>');
	foreach my $key (sort keys %env) {
	if ($key=~m/^($env{'form.metacourse'}\.metadata\.)(\d+)\.title/) {
	my $key_base = $1;
	my $item_num = $2;
	# found one, so let's display it
	my $title = $env{$key_base.$item_num.'.title'};
	my $type = $env{$key_base.$item_num.'.type'};
	my @choices = sort(split /, /,$env{$key_base.$item_num.'.values'});
	$r->print($title.'<br />');
	$r->print($type.'<br />');

	foreach my $word (@choices) {
	my $checked;
	if ($Apache::lonpublisher::metadatafields{'coursekeyword'}=~ m/$word/) {
	$checked = 1;
	} else {
	undef($checked);
	}
	$r->print(&Apache::lonhtmlcommon::checkbox('instmeta_'.$env{'form.metacourse'}.'_'.$item_num,$checked,$word).$word.'<br />');
	}
	}
	}
	$r->print('<br /><input type="submit" name="store" value="Assign Meta-data" />');
	$r->print('</form>');
	return 'ok';
	}
}	}
if ($ENV{'form.store'}) {	if ($env{'form.store'}) {
my $mfh;	my $mfh;
if (! ($mfh=Apache::File->new('>'.$fn))) {	my $formname='store';
$r->print('<p><font color=red>'.	my $file_content;
&mt('Could not write metadata').', '.	foreach my $meta_field (keys %env) {
&mt('FAIL').'</font>');	if ($meta_field=~m/^form.instmeta_(.+)_(\d+)$/) {
	$r->print('Found a field<br>');
	}
	if (&Apache::loncommon::get_env_multiple('form.keywords')) {
	$Apache::lonpublisher::metadatafields{'coursekeyword'} =
	join (', ', &Apache::loncommon::get_env_multiple('form.keywords'));
	}
	}
	foreach (sort keys %Apache::lonpublisher::metadatafields) {
	next if ($_ =~ /\./);
	my $unikey=$_;
	$unikey=~/^([A-Za-z]+)/;
	my $tag=$1;
	$tag=~tr/A-Z/a-z/;
	$file_content.= "\n\<$tag";
	foreach (split(/\,/,
	$Apache::lonpublisher::metadatakeys{$unikey})
	) {
	my $value=
	$Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
	$value=~s/\"/\'\'/g;
	$file_content.=' '.$_.'="'.$value.'"' ;
	# print $mfh ' '.$_.'="'.$value.'"';
	}
	$file_content.= '>'.
	&HTML::Entities::encode
	($Apache::lonpublisher::metadatafields{$unikey},
	'<>&"').
	'</'.$tag.'>';
	}
	if ($fn =~ /\/portfolio\//) {
	$fn =~ /\/portfolio\/(.*)$/;
	my $new_fn = '/'.$1;
	$env{'form.'.$formname}=$file_content;
	$env{'form.'.$formname.'.filename'}=$new_fn;
	&Apache::lonnet::userfileupload('uploaddoc','',
	'portfolio'.$env{'form.currentpath'});
	my $status =&Apache::lonnet::userfileupload($formname,'','portfolio');
	if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {
	$r->print('<p><font color="red">'.
	&mt('Could not write metadata').', '.
	&mt('FAIL').'</font></p>');
	} else {
	$r->print('<p><font color="blue">'.&mt('Wrote Metadata').
	' '.&Apache::lonlocal::locallocaltime(time).
	'</font></p>');
	}
} else {	} else {
foreach (sort keys %Apache::lonpublisher::metadatafields) {	if (! ($mfh=Apache::File->new('>'.$fn))) {
next if ($_ =~ /\./);	$r->print('<p><font color="red">'.
my $unikey=$_;	&mt('Could not write metadata').', '.
$unikey=~/^([A-Za-z]+)/;	&mt('FAIL').'</font></p>');
my $tag=$1;	} else {
$tag=~tr/A-Z/a-z/;	print $mfh $file_content;
print $mfh "\n\<$tag";	$r->print('<p><font color="blue">'.&mt('Wrote Metadata').
foreach (split(/\,/,	' '.&Apache::lonlocal::locallocaltime(time).
$Apache::lonpublisher::metadatakeys{$unikey})	'</font></p>');
) {
my $value=
$Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
$value=~s/\"/\'\'/g;
print $mfh ' '.$_.'="'.$value.'"';
}
print $mfh '>'.
&HTML::Entities::encode
($Apache::lonpublisher::metadatafields{$unikey},
'<>&"').
'</'.$tag.'>';
}	}
$r->print('<p>'.&mt('Wrote Metadata'));
}	}
}	}
$r->print('<br /><input type="submit" name="store" value="'.	$r->print($output.'<br /><input type="submit" name="store" value="'.
&mt('Store Catalog Information').'">');	&mt('Store Catalog Information').'">');
}	}
$r->print('</form>');	$r->print('</form>');
Line 974 ENDEDIT	Line 1153 ENDEDIT

1;	1;
__END__	__END__

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

Removed from v.1.86
changed lines
	Added in v.1.113