version 1.244.4.1, 2020/06/03 18:48:34
|
version 1.245, 2018/03/30 23:50:13
|
Line 265 sub mandatory_part_meta {
|
Line 265 sub mandatory_part_meta {
|
} |
} |
|
|
sub meta_part_order { |
sub meta_part_order { |
|
my ($type) = @_; |
if (@Apache::inputtags::partlist) { |
if (@Apache::inputtags::partlist) { |
my @parts=@Apache::inputtags::partlist; |
my @parts=@Apache::inputtags::partlist; |
shift(@parts); |
unless ($type eq 'library') { |
|
shift(@parts); |
|
} |
return '<partorder>'.join(',',@parts).'</partorder>'."\n"; |
return '<partorder>'.join(',',@parts).'</partorder>'."\n"; |
|
} elsif ($type eq 'library') { |
|
return '<partorder></partorder>'."\n"; |
} else { |
} else { |
return '<partorder>0</partorder>'."\n"; |
return '<partorder>0</partorder>'."\n"; |
} |
} |
Line 1307 sub submitted {
|
Line 1312 sub submitted {
|
return 1; |
return 1; |
} |
} |
# Submit All button on a .page was pressed |
# Submit All button on a .page was pressed |
if ($env{'form.all_submit'}) { return 1; } |
if (defined($env{'form.all_submit'})) { return 1; } |
# otherwise no submission occurred |
# otherwise no submission occurred |
return 0; |
return 0; |
} |
} |