'.$error.'
'); } my $tid='2'; - my $varscd = 'Supplemental Course Documents'; - $r->print(&generate_edit_table($tid,$varscd,\%suporderhash)); + $r->print(&generate_edit_table($tid,\%suporderhash)); } else { my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type); if ($error) { @@ -3426,15 +3443,15 @@ sub generate_admin_options { my $dumpbut=&dumpbutton(); my $exportbut=&exportbutton(); my @list = ( - {''=>"$lt{'vc'}$help{'Verify_Content'}"}, - {''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, + {''=>"$lt{'vc'}$help{'Verify_Content'}"}, + {''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, ); if($dumpbut ne ''){ - push @list, {''=>$dumpbut}; + push @list, {''=>$dumpbut}; } - push @list, ({''=>$exportbut}, - {''=>"$lt{'ls'}"}, - {''=>"$lt{'sl'}"}, + push @list, ({''=>$exportbut}, + {''=>"$lt{'ls'}"}, + {''=>"$lt{'sl'}"}, ); return ''; @@ -3442,7 +3459,8 @@ sub generate_admin_options { sub generate_edit_table { - my ($tid,$varcd,$orderhash_ref) = @_; + my ($tid,$orderhash_ref) = @_; + return unless(ref($orderhash_ref) eq 'HASH'); my %orderhash = %{$orderhash_ref}; my $form; my $activetab; @@ -3466,7 +3484,7 @@ sub generate_edit_table { } } $form .= ''; - $form .= '