oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more bug fixes

Browse source
This commit is contained in:
JT Smith 2005-08-17 22:33:27 +00:00
parent 78274f1910
commit c03e4f67dc
4 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Asset.pm
View file

@ -269,6 +269,17 @@ Any text string. Most likely will have been the Asset's name or title.
sub fixUrl {
my $self = shift;
my $url = WebGUI::URL::urlize(shift);
my @badUrls = ($session{config}{extrasURL}, $session{config}{uploadsURL});
foreach my $badUrl (@badUrls) {
if ($badUrl =~ /^http/) {
$badUrl =~ s/^http.*\/(.*)$/$1/;
} else {
$badUrl =~ s/^\/(.*)/$1/;
}
if ($url =~ /^$badUrl/) {
$url = "_".$url;
}
}
if (length($url) > 250) {
$url = substr($url,220);
}

1
lib/WebGUI/Operation.pm
View file

@ -102,6 +102,7 @@ sub getOperations {
'deleteGroupConfirm' => 'WebGUI::Operation::Group',
'deleteGroupConfirm' => 'WebGUI::Operation::Group',
'deleteGroupGrouping' => 'WebGUI::Operation::Group',
'editGroup' => 'WebGUI::Operation::Group',
'editGroupSave' => 'WebGUI::Operation::Group',
'listGroups' => 'WebGUI::Operation::Group',
'emailGroup' => 'WebGUI::Operation::Group',