'.$error.'
'); } +$r->print(&generate_edit_table($tid,$varscd,\%suporderhash)); +} + + $r->print(''); $r->print(''); @@ -3421,15 +3424,15 @@ sub generate_admin_options { my $dumpbut=&dumpbutton(); my $exportbut=&exportbutton(); my @list = ( - {pic21=>"$lt{'vc'}$help{'Verify_Content'}"}, - {pic22=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, + {''=>"$lt{'vc'}$help{'Verify_Content'}"}, + {''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, ); if($dumpbut ne ''){ - push @list, {pic23=>$dumpbut}; + push @list, {''=>$dumpbut}; } - push @list, ({pic24=>$exportbut}, - {pic25=>"$lt{'ls'}"}, - {pic26=>"$lt{'sl'}"}, + push @list, ({''=>$exportbut}, + {''=>"$lt{'ls'}"}, + {''=>"$lt{'sl'}"}, ); return ''; @@ -3448,26 +3451,22 @@ sub generate_edit_table { $form = '