loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.210, 2008/01/23 17:23:16	version 1.212, 2008/03/06 20:20:18
Line 839 sub report_bombs {	Line 839 sub report_bombs {
&Apache::lonmsg::clear_author_res_msg($uri);	&Apache::lonmsg::clear_author_res_msg($uri);
}	}
my $clear=&mt('Clear all Messages in Subdirectory');	my $clear=&mt('Clear all Messages in Subdirectory');
$r->print(<<ENDCLEAR);	my $cancel=&mt('Back to Directory');
	my $cancelurl=$uri;
	$cancelurl=~s/^\Q$domain\E/\/priv/;
	$r->print(<<ENDCLEAR);
<form method="post">	<form method="post">
<input type="submit" name="clearbombs" value="$clear" />	<input type="submit" name="clearbombs" value="$clear" />
</form>	<a href="$cancelurl">$cancel</a>
	</form><hr />
ENDCLEAR	ENDCLEAR
my %brokenurls =	my %brokenurls =
&Apache::lonmsg::all_url_author_res_msg($author,$domain);	&Apache::lonmsg::all_url_author_res_msg($author,$domain);
Line 1221 ENDDEL	Line 1225 ENDDEL
}	}
$r->print('<br />'.$bombs);	$r->print('<br />'.$bombs);
} else {	} else {
my $displayfile=&mt('Catalog Information for').' '.$disuri;	my $displayfile=&mt('Catalog Information for [_1]',$disuri);
if ($disuri=~/\/default$/) {	if ($disuri=~/\/default$/) {
my $dir=$disuri;	my $dir=$disuri;
$dir=~s/default$//;	$dir=~s/default$//;
$displayfile=	$displayfile=&mt('Default Cataloging Information for Directory [_1]',$dir);
&mt('Default Cataloging Information for Directory').' '.
$dir;
}	}
%Apache::lonpublisher::metadatafields=();	%Apache::lonpublisher::metadatafields=();
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();