#!/usr/bin/perl -w use strict; use CGI qw(:standard :html4); use CGI::Carp qw(carpout fatalsToBrowser); use CGI::Pretty ":standard"; use utf8; my $cgi = CGI->new(); print header; print start_html(-head => style({-rel => 'stylesheet', -type => 'text/css', -media => 'screen', -src => 'css/demos.css'}, join('',))); print "\n"; print start_form(-action=>"http://localhost:8888/cgi-bin/semanticlass/prep/param.pl"); #print "
\n"; print "

Drag & Drop

\n"; print "
\n"; print "

Drag

\n"; print "
\n"; my @header = (1,2,3,4); my $i = 1; foreach(@header){ my $box = 'box'.$i; print "
$_
\n"; $i++; } print "
\n"; print "
\n"; #print "
\n"; print "
\n"; print "

Drop

\n"; print "
\n"; print "
\n"; #print "
\n"; print "
\n"; #print "
\n"; print "
\n"; print p("Feldname: ", textfield("wname")); print p("Datentyp: ", textfield("wtyp")); print p("Feldlänge: ", textfield("wlength")); print p(submit ("Abschicken")); print end_form(); ############## Java Script ############## print "\n"; print "\n"; ############## Java Script ############## print end_html(); __DATA__ #mainContainer{ width:600px; margin:0 auto; margin-top:10px; border:1px solid #000; padding:2px; height:580px; } #leftColumn{ width:150px; float:left; border:1px solid #000; background-color:#E2EBED; padding:3px; height:500px; } #rightColumn{ width:150px; float:left; border:1px solid #000; background-color:#E2EBED; padding:3px; height:400px; } #rightColumnTest{ width:200px; float:right; margin:2px; height:400px; } .dragableBox{ width:110px; height:13px; border:1px solid #000; background-color:#FFF; margin-bottom:5px; padding:10px; font-weight:bold; text-align:center; } .dropBox{ width:150px; border:1px solid #000; background-color:#E2EBED; height:400px; margin-bottom:10px; padding:3px; overflow:auto; height:500px; } .dropBoxTest{ width:150px; border:1px solid #000; background-color:#E2EBED; height:400px; margin-bottom:10px; padding:3px; overflow:auto; } a{ color:#F00; } .clear{ clear:both; } img{ border:0px; }