diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-23 01:41:00 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-23 01:41:00 +0000 |
commit | 5475344a9df26261a23098d52fff5b21084d8627 (patch) | |
tree | dd4ec41a5b33c30f078e127e50fd4d0ce44f1957 /bin/ir.pl | |
parent | 588d85c60cb2629050a550ea56111e6a81d63d6d (diff) |
Fixing accidental commit of user-specific customizations
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1893 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/ir.pl')
-rwxr-xr-x | bin/ir.pl | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -139,15 +139,14 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|; # departments if ( @{ $form->{all_department} } ) { $form->{selectdepartment} = "<option>\n"; + $form->{department} = "$form->{department}--$form->{department_id}" + if $form->{department_id}; for ( @{ $form->{all_department} } ) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|; } } - $form->{department} = "$form->{department}--$myconfig{department_id}" - if $myconfig{department_id}; - if ( @{ $form->{all_language} } ) { $form->{selectlanguage} = "<option>\n"; @@ -274,7 +273,7 @@ sub form_header { for (qw(vendor department)) { $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/; } if ( $form->{selectlanguage} ) { |