loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.57, 2004/01/04 00:28:22	version 1.58, 2004/01/15 15:12:31
Line 610 ENDHEAD	Line 610 ENDHEAD
$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 $del='';
if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {	if ($target=~/allbombs$/) {
$bombs=&mt('Messages deleted.');	$disuri='All Error Messages';
} else {	} else {
$bombs=&mt('Error deleting messages');	if ($ENV{'form.delmsg'}) {
	if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') {
	$bombs=&mt('Messages deleted.');
	} else {
	$bombs=&mt('Error deleting messages');
	}
}	}
	$del='<input type="submit" name="delmsg" value="'.
	&mt('Delete Messages').'" />';
}	}
my $bodytag=&Apache::loncommon::bodytag('Error Messages');	my $bodytag=&Apache::loncommon::bodytag('Error Messages');
my $del=&mt('Delete Messages');
$r->print(<<ENDBOMBS);	$r->print(<<ENDBOMBS);
<html><head><title>Edit Catalog Information</title></head>	<html><head><title>Edit Catalog Information</title></head>
$bodytag	$bodytag
<h1>$disuri</h1>	<h1>$disuri</h1>
<form method="post" name="defaultmeta">	<form method="post" name="defaultmeta">
<input type="submit" name="delmsg" value="$del" />	$del
<br />$bombs	<br />$bombs
</form>	</form>
</body>	</body>