version 1.202, 2007/01/22 20:04:46
|
version 1.203, 2007/01/23 04:25:56
|
Line 638 sub prettyinput {
|
Line 638 sub prettyinput {
|
} |
} |
$cur_values_stu =~ s/,$//; |
$cur_values_stu =~ s/,$//; |
my @key_order = sort(keys(%meta_options)); |
my @key_order = sort(keys(%meta_options)); |
unshift (@key_order,''); |
unshift(@key_order,''); |
$meta_options{''} = 'Not specified'; |
$meta_options{''} = 'Not specified'; |
$meta_options{'select_form_order'} = \@key_order; |
$meta_options{'select_form_order'} = \@key_order; |
} else { |
} else { |
Line 1210 ENDBOMBS
|
Line 1210 ENDBOMBS
|
<input type="submit" name="clearmsg" value="$clear" /> |
<input type="submit" name="clearmsg" value="$clear" /> |
ENDDEL |
ENDDEL |
} else { |
} else { |
$r->print('<a href="'.$disuri.'" />'.$goback.'</a>'); |
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>'); |
|
if ($env{'form.clearmsg'}) { |
|
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
|
$r->print('<p><a href="'.$diruri.'" />'. |
|
&mt('Back To Directory').'</a></p>'); |
|
} |
} |
} |
$r->print('<br />'.$bombs); |
$r->print('<br />'.$bombs); |
} else { |
} else { |