Leser: 3
|< 1 2 3 4 5 6 >| | 59 Einträge, 6 Seiten |
QuoteCant modify non-lvalue subroutine call in concatenation (.) or string at line 194, near ")"
1 2 3
$seite .= p ("Ein Fehler ist aufgetreten.") .= p (escapeHTML ($text)) . p ("Zurück zur PseudEcom " . home_link ("Homepage"));
1 2 3 4 5 6
sub home_link { my $bez = shift; return (create_link (full_url ("index.cgi"), $bez)); }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
sub haupt_url { my $url_prefix; ($url_prefix = url ()) =~ s|[^/]*$||; $url_prefix =~ s/^https:/http:/i; # https -> http return ($url_prefix); } sub full_url { my $script = shift; return (haupt_url () . $script); } sub create_link { my ($url, $bez) = @_; $bez = $url unless $bez; return (a ({-href => $url}, escapeHTML ($bez))); }
Quote$seite .= p ("E") .= p ("e") . p ("e");
Quote$seite .= p ("E") = p("E") . (p ("e") . p ("e"));
Quote$seite = $seite . (p ("E") = p("E") . (p ("e") . p ("e")));
Quote$seite .= p ("E") . p ("e") . p ("e");
QuoteCan't locate object method dokumente_link via package[..]
|< 1 2 3 4 5 6 >| | 59 Einträge, 6 Seiten |