Ein - / Ausblenden von Tabellen - Javascript & PERL CGI - #179940 (Perl/CGI)

PERLScripter

2015-03-03 15:10

User since
2015-03-03
12 Artikel
BenutzerIn
[default_avatar]

So. Dies ist nun der 2. Teil meines Original Posts.
Sorry für die Vewirrung ! :-)

--------------------------------------------------------------------

Nun zu meinem Problem :

Ich möchte realisieren, dass wenn ich auf Link ( noch deaktiviert )
in der Spalte, in der gerade "Platzhalter" steht, klicke, eine weitere Tabelle öffnet / schließt. Dort würden dann die Informationen des jeweiligen Datensatzes stehen, er müsste also unterscheiden, welcher Datensatz
ausgewählt ist.

Ich habe bereits dieses Script gefunden, das auch einwandfrei funktioniert, wenn ich es so aufrufe :

Code: (dl )

#!"C:\Program Files (x86)\Active Perl 5.20.1\bin\perl.exe"

use CGI::Carp qw(fatalsToBrowser);
print "Content-type:text/html\r\n\r\n";

&Test();

sub Test {

print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">';
print '<html><head><title>visibility</title>';
print '<script type="text/javascript">';
print 'function onoff () {';
print '  if (document.getElementById)';
print '    document.getElementById("Ueberschrift").style.visibility = "visible";';
print '    document.getElementById("Zeile").style.visibility = "collapse";';
print '}';
print '</script>';
print '</head><body>';
print '<h1 id="Ueberschrift" style="visibility:hidden">Die Überschrift zum Text</h1>';
print '<p>Hier der Text. Aber fehlt da nicht was?</p>';
print '<table border="1">';
print '  <tr>';
print '    <td>A1</td>';
print '    <td>A2</td>';
print '    <td>A3</td>';
print '  </tr>';
print '  <tr id="Zeile">';
print '    <td>B1</td>';
print '    <td>B2</td>';
print '    <td>B3</td>';
print '  </tr>';
print '  <tr>';
print '    <td>C1</td>';
print '    <td>C2</td>';
print '    <td>C3</td>';
print '  </tr>';
print '</table>';

print '<p><a href="javascript:onoff()">Überschrift anzeigen, Zeile B verstecken!</a></p>';
print '';
print '</body></html>';

}

Wenn ich allerdings das Script etc. in mein PERL Script integrieren will, funktioniert es nicht, er blendet weder aus noch zeigt er die Überschrift an :-((

Habt ihr vielleicht eine Ahnung, wieso ? Ich hoffe, ihr könnt mir weiterhelfen.

Vielen Dank im Voraus !

PERLScripter
Last edited: 2015-03-03 15:11:39 +0100 (CET)