summaryrefslogtreecommitdiff
path: root/bin/is.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-02-24 03:20:25 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-02-24 03:20:25 +0000
commitb50bfbdd81b92e2e32b47b385d851aa27e658dcb (patch)
tree5bd786de4606ee33d4aab55048684674fbe57ac2 /bin/is.pl
parenta8c675b5c7481a9f8a26462961e863bffde2cdeb (diff)
Undoing mistaken commit of customizations
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2080 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/is.pl')
-rwxr-xr-xbin/is.pl4
1 files changed, 1 insertions, 3 deletions
diff --git a/bin/is.pl b/bin/is.pl
index e6c6d601..f615a234 100755
--- a/bin/is.pl
+++ b/bin/is.pl
@@ -153,8 +153,6 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
}
}
- $form->{department} = "$form->{department}--$myconfig{department_id}"
- if $myconfig{department_id};
$form->{employee} = "$form->{employee}--$form->{employee_id}";
@@ -308,7 +306,7 @@ sub form_header {
for (qw(customer department employee)) {
$form->{"select$_"} = $form->unescape( $form->{"select$_"} );
$form->{"select$_"} =~ s/ selected//;
- $form->{"select$_"} =~ s/(<option value="[^"]*\Q$form->{$_}\E")/$1 selected/;
+ $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
}
$form->{exchangerate} =