#!/usr/local/bin/perl
#
#
#   Prints out an HTML formated error message
#
# usage
#    &report_err ("calling script", "error message");
#
# If the value of UPcol_name is available, uses it for the value on teh
#   back to browse collection button.

sub report_err {
 
&report_status("Error",@_);
return(1);
}
sub report_status {
    local ($st, $script, $statusmsg) = @_;
 
print "Content-type: text/html\n\n";
$a = <<TEXT;
<HEAD>
<TITLE>$LIBTITLE Response from $script</TITLE>
</HEAD>
<BODY BGCOLOR=#ffffff>
<B>$st message from script - $script</B><BR>
<H2>$statusmsg</H2>
<B><a href="$RELdir/welcome.html"><IMG SRC="$GIFdir/home.gif" border=0></a>
</B>
</BODY>
TEXT
print $a;
return(1);
}
1;

