Den Wert Homepage in cv nur vorbelegen, falls nicht leer

Auch wenn Holgers Kommentar nicht besonders konstruktiv ist und ferner
ein netter Bug-Report auch zielführend wäre:
'warum, zur Hölle, wird die Variable homepage in der Stammdatenmaske mit
"http://" belegt wenn überhaupt nichts drin steht????!?!?????!?@#°^!'
ist er sachlich ja korrekt.

diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index de0a436..21ec1c3 100644 (file)
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -287,7 +287,7 @@ sub edit {
   # format discount
   $form->{discount} *= 100;
   # format uri
-  $form->{homepage} = 'http://' . $form->{homepage} unless $form->{homepage} =~ m|^https?://|;
+  $form->{homepage} = 'http://' . $form->{homepage} unless ((!$form->{homepage}) || $form->{homepage} =~ m|^https?://|);
 
   &form_header;
   &form_footer;