bagder: curl-www curl.pm,1.7,1.8

Update of /cvsroot/curl/curl-www
In directory labb.contactor.se:/var/tmp/cvs-serv16155

Modified Files:
	curl.pm 
Log Message:
added header()

Index: curl.pm
===================================================================
RCS file: /cvsroot/curl/curl-www/curl.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- curl.pm	12 Aug 2004 11:34:59 -0000	1.7
+++ curl.pm	4 Oct 2004 07:11:56 -0000	1.8
 <at>  <at>  -1,3 +1,6  <at>  <at> 
+
+our $root="/userdir/dast/curl_html";
+
 sub stitle {
     my ($title)= <at> _;
     return "<h1 class=\"pagetitle\">$title</h1>";
 <at>  <at>  -18,7 +21,7  <at>  <at> 
     my  <at> args =  <at> _;
     my $name;
     my $link;
-    my $pic="<img src=\"/arrow.png\">";
+    my $pic="<img alt=\">\" src=\"/arrow.png\">";