+sub parentclass {
+ &Header::openbox('100%', 'center', 'Parentklasse hinzufuegen');
+ print <<END
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <table width='66%'>
+ <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
+ <tr><td width='33%' align='right'>Interface:
+ <td width='33%' align='left'><select name='CLASS'>
+ <option value=$qossettings{'RED_DEV'}>$qossettings{'RED_DEV'}</option>
+ <option value=$qossettings{'IMQ_DEV'}>$qossettings{'IMQ_DEV'}</option></select>
+ <td width='33%' align='center'>
+ <tr><td width='33%' align='right'>Klasse:<td width='33%' align='left'><select name='CLASS'>
+END
+;
+ for ( $c = 100 ; $c <= 120 ; $c++ )
+ {
+ if ( $qossettings{'CLASS'} ne $c )
+ {
+ print "<option value='$c'>$c</option>\n";
+ }
+ else
+ {
+ print "<option selected value='$c'>$c</option>\n";
+ }
+ }
+ for ( $c = 200 ; $c <= 220 ; $c++ )
+ {
+ if ( $qossettings{'CLASS'} ne $c )
+ {
+ print "<option value='$c'>$c</option>\n";
+ }
+ else
+ {
+ print "<option selected value='$c'>$c</option>\n";
+ }
+ }
+ print <<END
+ </select>
+ <td width='33%' align='center'>
+ <tr><td width='33%' align='right'>Prioritaet:<td width='33%' align='left'><select name='PRIO'>
+END
+;
+ for ( $c = 1 ; $c <= 7 ; $c++ )
+ {
+ if ( $qossettings{'PRIO'} ne $c )
+ {
+ print "<option value='$c'>$c</option>\n";
+ }
+ else
+ {
+ print "<option selected value='$c'>$c</option>\n";
+ }
+ }
+ print <<END
+ <td width='33%' align='center'>
+ <tr><td width='33%' align='right'>Garantierte Bandbreite:
+ <td width='33%' align='left'><input type='text' name='MINBDWTH' maxlength='8' value=$qossettings{'MINBWDTH'}>
+ <td width='33%' align='center'>
+ <tr><td width='33%' align='right'>Maximale Bandbreite:
+ <td width='33%' align='left'><input type='text' name='MAXBDWTH' maxlength='8' value=$qossettings{'MAXBWDTH'}>
+ <td width='33%' align='center'>
+ <tr><td width='33%' align='right'>Burst:
+ <td width='33%' align='left'><input type='text' name='BURST' maxlength='8' value=$qossettings{'BURST'}>
+ <td width='33%' align='center'>
+ <tr><td width='33%' align='right'>Ceilburst:
+ <td width='33%' align='left'><input type='text' name='CBURST' maxlength='8' value=$qossettings{'CBURST'}>
+ <td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
+ </table></form>
+END
+;
+ &Header::closebox();
+}